1 /* ----------------------------------------------------------------------------
2 * This file was automatically generated by SWIG (http://www.swig.org).
3 * Version 4.0.1
4 *
5 * This file is not intended to be easily readable and contains a number of
6 * coding conventions designed to improve portability and efficiency. Do not make
7 * changes to this file unless you know what you are doing--modify the SWIG
8 * interface file instead.
9 * ----------------------------------------------------------------------------- */
10
11
12 #ifndef SWIGPERL
13 #define SWIGPERL
14 #endif
15
16 #define SWIG_CASTRANK_MODE
17
18 /* -----------------------------------------------------------------------------
19 * This section contains generic SWIG labels for method/variable
20 * declarations/attributes, and other compiler dependent labels.
21 * ----------------------------------------------------------------------------- */
22
23 /* template workaround for compilers that cannot correctly implement the C++ standard */
24 #ifndef SWIGTEMPLATEDISAMBIGUATOR
25 # if defined(__SUNPRO_CC) && (__SUNPRO_CC <= 0x560)
26 # define SWIGTEMPLATEDISAMBIGUATOR template
27 # elif defined(__HP_aCC)
28 /* Needed even with `aCC -AA' when `aCC -V' reports HP ANSI C++ B3910B A.03.55 */
29 /* If we find a maximum version that requires this, the test would be __HP_aCC <= 35500 for A.03.55 */
30 # define SWIGTEMPLATEDISAMBIGUATOR template
31 # else
32 # define SWIGTEMPLATEDISAMBIGUATOR
33 # endif
34 #endif
35
36 /* inline attribute */
37 #ifndef SWIGINLINE
38 # if defined(__cplusplus) || (defined(__GNUC__) && !defined(__STRICT_ANSI__))
39 # define SWIGINLINE inline
40 # else
41 # define SWIGINLINE
42 # endif
43 #endif
44
45 /* attribute recognised by some compilers to avoid 'unused' warnings */
46 #ifndef SWIGUNUSED
47 # if defined(__GNUC__)
48 # if !(defined(__cplusplus)) || (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4))
49 # define SWIGUNUSED __attribute__ ((__unused__))
50 # else
51 # define SWIGUNUSED
52 # endif
53 # elif defined(__ICC)
54 # define SWIGUNUSED __attribute__ ((__unused__))
55 # else
56 # define SWIGUNUSED
57 # endif
58 #endif
59
60 #ifndef SWIG_MSC_UNSUPPRESS_4505
61 # if defined(_MSC_VER)
62 # pragma warning(disable : 4505) /* unreferenced local function has been removed */
63 # endif
64 #endif
65
66 #ifndef SWIGUNUSEDPARM
67 # ifdef __cplusplus
68 # define SWIGUNUSEDPARM(p)
69 # else
70 # define SWIGUNUSEDPARM(p) p SWIGUNUSED
71 # endif
72 #endif
73
74 /* internal SWIG method */
75 #ifndef SWIGINTERN
76 # define SWIGINTERN static SWIGUNUSED
77 #endif
78
79 /* internal inline SWIG method */
80 #ifndef SWIGINTERNINLINE
81 # define SWIGINTERNINLINE SWIGINTERN SWIGINLINE
82 #endif
83
84 /* exporting methods */
85 #if defined(__GNUC__)
86 # if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)
87 # ifndef GCC_HASCLASSVISIBILITY
88 # define GCC_HASCLASSVISIBILITY
89 # endif
90 # endif
91 #endif
92
93 #ifndef SWIGEXPORT
94 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
95 # if defined(STATIC_LINKED)
96 # define SWIGEXPORT
97 # else
98 # define SWIGEXPORT __declspec(dllexport)
99 # endif
100 # else
101 # if defined(__GNUC__) && defined(GCC_HASCLASSVISIBILITY)
102 # define SWIGEXPORT __attribute__ ((visibility("default")))
103 # else
104 # define SWIGEXPORT
105 # endif
106 # endif
107 #endif
108
109 /* calling conventions for Windows */
110 #ifndef SWIGSTDCALL
111 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
112 # define SWIGSTDCALL __stdcall
113 # else
114 # define SWIGSTDCALL
115 # endif
116 #endif
117
118 /* Deal with Microsoft's attempt at deprecating C standard runtime functions */
119 #if !defined(SWIG_NO_CRT_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_CRT_SECURE_NO_DEPRECATE)
120 # define _CRT_SECURE_NO_DEPRECATE
121 #endif
122
123 /* Deal with Microsoft's attempt at deprecating methods in the standard C++ library */
124 #if !defined(SWIG_NO_SCL_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_SCL_SECURE_NO_DEPRECATE)
125 # define _SCL_SECURE_NO_DEPRECATE
126 #endif
127
128 /* Deal with Apple's deprecated 'AssertMacros.h' from Carbon-framework */
129 #if defined(__APPLE__) && !defined(__ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES)
130 # define __ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES 0
131 #endif
132
133 /* Intel's compiler complains if a variable which was never initialised is
134 * cast to void, which is a common idiom which we use to indicate that we
135 * are aware a variable isn't used. So we just silence that warning.
136 * See: https://github.com/swig/swig/issues/192 for more discussion.
137 */
138 #ifdef __INTEL_COMPILER
139 # pragma warning disable 592
140 #endif
141
142 /* -----------------------------------------------------------------------------
143 * swigrun.swg
144 *
145 * This file contains generic C API SWIG runtime support for pointer
146 * type checking.
147 * ----------------------------------------------------------------------------- */
148
149 /* This should only be incremented when either the layout of swig_type_info changes,
150 or for whatever reason, the runtime changes incompatibly */
151 #define SWIG_RUNTIME_VERSION "4"
152
153 /* define SWIG_TYPE_TABLE_NAME as "SWIG_TYPE_TABLE" */
154 #ifdef SWIG_TYPE_TABLE
155 # define SWIG_QUOTE_STRING(x) #x
156 # define SWIG_EXPAND_AND_QUOTE_STRING(x) SWIG_QUOTE_STRING(x)
157 # define SWIG_TYPE_TABLE_NAME SWIG_EXPAND_AND_QUOTE_STRING(SWIG_TYPE_TABLE)
158 #else
159 # define SWIG_TYPE_TABLE_NAME
160 #endif
161
162 /*
163 You can use the SWIGRUNTIME and SWIGRUNTIMEINLINE macros for
164 creating a static or dynamic library from the SWIG runtime code.
165 In 99.9% of the cases, SWIG just needs to declare them as 'static'.
166
167 But only do this if strictly necessary, ie, if you have problems
168 with your compiler or suchlike.
169 */
170
171 #ifndef SWIGRUNTIME
172 # define SWIGRUNTIME SWIGINTERN
173 #endif
174
175 #ifndef SWIGRUNTIMEINLINE
176 # define SWIGRUNTIMEINLINE SWIGRUNTIME SWIGINLINE
177 #endif
178
179 /* Generic buffer size */
180 #ifndef SWIG_BUFFER_SIZE
181 # define SWIG_BUFFER_SIZE 1024
182 #endif
183
184 /* Flags for pointer conversions */
185 #define SWIG_POINTER_DISOWN 0x1
186 #define SWIG_CAST_NEW_MEMORY 0x2
187 #define SWIG_POINTER_NO_NULL 0x4
188
189 /* Flags for new pointer objects */
190 #define SWIG_POINTER_OWN 0x1
191
192
193 /*
194 Flags/methods for returning states.
195
196 The SWIG conversion methods, as ConvertPtr, return an integer
197 that tells if the conversion was successful or not. And if not,
198 an error code can be returned (see swigerrors.swg for the codes).
199
200 Use the following macros/flags to set or process the returning
201 states.
202
203 In old versions of SWIG, code such as the following was usually written:
204
205 if (SWIG_ConvertPtr(obj,vptr,ty.flags) != -1) {
206 // success code
207 } else {
208 //fail code
209 }
210
211 Now you can be more explicit:
212
213 int res = SWIG_ConvertPtr(obj,vptr,ty.flags);
214 if (SWIG_IsOK(res)) {
215 // success code
216 } else {
217 // fail code
218 }
219
220 which is the same really, but now you can also do
221
222 Type *ptr;
223 int res = SWIG_ConvertPtr(obj,(void **)(&ptr),ty.flags);
224 if (SWIG_IsOK(res)) {
225 // success code
226 if (SWIG_IsNewObj(res) {
227 ...
228 delete *ptr;
229 } else {
230 ...
231 }
232 } else {
233 // fail code
234 }
235
236 I.e., now SWIG_ConvertPtr can return new objects and you can
237 identify the case and take care of the deallocation. Of course that
238 also requires SWIG_ConvertPtr to return new result values, such as
239
240 int SWIG_ConvertPtr(obj, ptr,...) {
241 if (<obj is ok>) {
242 if (<need new object>) {
243 *ptr = <ptr to new allocated object>;
244 return SWIG_NEWOBJ;
245 } else {
246 *ptr = <ptr to old object>;
247 return SWIG_OLDOBJ;
248 }
249 } else {
250 return SWIG_BADOBJ;
251 }
252 }
253
254 Of course, returning the plain '0(success)/-1(fail)' still works, but you can be
255 more explicit by returning SWIG_BADOBJ, SWIG_ERROR or any of the
256 SWIG errors code.
257
258 Finally, if the SWIG_CASTRANK_MODE is enabled, the result code
259 allows to return the 'cast rank', for example, if you have this
260
261 int food(double)
262 int fooi(int);
263
264 and you call
265
266 food(1) // cast rank '1' (1 -> 1.0)
267 fooi(1) // cast rank '0'
268
269 just use the SWIG_AddCast()/SWIG_CheckState()
270 */
271
272 #define SWIG_OK (0)
273 #define SWIG_ERROR (-1)
274 #define SWIG_IsOK(r) (r >= 0)
275 #define SWIG_ArgError(r) ((r != SWIG_ERROR) ? r : SWIG_TypeError)
276
277 /* The CastRankLimit says how many bits are used for the cast rank */
278 #define SWIG_CASTRANKLIMIT (1 << 8)
279 /* The NewMask denotes the object was created (using new/malloc) */
280 #define SWIG_NEWOBJMASK (SWIG_CASTRANKLIMIT << 1)
281 /* The TmpMask is for in/out typemaps that use temporal objects */
282 #define SWIG_TMPOBJMASK (SWIG_NEWOBJMASK << 1)
283 /* Simple returning values */
284 #define SWIG_BADOBJ (SWIG_ERROR)
285 #define SWIG_OLDOBJ (SWIG_OK)
286 #define SWIG_NEWOBJ (SWIG_OK | SWIG_NEWOBJMASK)
287 #define SWIG_TMPOBJ (SWIG_OK | SWIG_TMPOBJMASK)
288 /* Check, add and del mask methods */
289 #define SWIG_AddNewMask(r) (SWIG_IsOK(r) ? (r | SWIG_NEWOBJMASK) : r)
290 #define SWIG_DelNewMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_NEWOBJMASK) : r)
291 #define SWIG_IsNewObj(r) (SWIG_IsOK(r) && (r & SWIG_NEWOBJMASK))
292 #define SWIG_AddTmpMask(r) (SWIG_IsOK(r) ? (r | SWIG_TMPOBJMASK) : r)
293 #define SWIG_DelTmpMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_TMPOBJMASK) : r)
294 #define SWIG_IsTmpObj(r) (SWIG_IsOK(r) && (r & SWIG_TMPOBJMASK))
295
296 /* Cast-Rank Mode */
297 #if defined(SWIG_CASTRANK_MODE)
298 # ifndef SWIG_TypeRank
299 # define SWIG_TypeRank unsigned long
300 # endif
301 # ifndef SWIG_MAXCASTRANK /* Default cast allowed */
302 # define SWIG_MAXCASTRANK (2)
303 # endif
304 # define SWIG_CASTRANKMASK ((SWIG_CASTRANKLIMIT) -1)
305 # define SWIG_CastRank(r) (r & SWIG_CASTRANKMASK)
SWIG_AddCast(int r)306 SWIGINTERNINLINE int SWIG_AddCast(int r) {
307 return SWIG_IsOK(r) ? ((SWIG_CastRank(r) < SWIG_MAXCASTRANK) ? (r + 1) : SWIG_ERROR) : r;
308 }
SWIG_CheckState(int r)309 SWIGINTERNINLINE int SWIG_CheckState(int r) {
310 return SWIG_IsOK(r) ? SWIG_CastRank(r) + 1 : 0;
311 }
312 #else /* no cast-rank mode */
313 # define SWIG_AddCast(r) (r)
314 # define SWIG_CheckState(r) (SWIG_IsOK(r) ? 1 : 0)
315 #endif
316
317
318 #include <string.h>
319
320 #ifdef __cplusplus
321 extern "C" {
322 #endif
323
324 typedef void *(*swig_converter_func)(void *, int *);
325 typedef struct swig_type_info *(*swig_dycast_func)(void **);
326
327 /* Structure to store information on one type */
328 typedef struct swig_type_info {
329 const char *name; /* mangled name of this type */
330 const char *str; /* human readable name of this type */
331 swig_dycast_func dcast; /* dynamic cast function down a hierarchy */
332 struct swig_cast_info *cast; /* linked list of types that can cast into this type */
333 void *clientdata; /* language specific type data */
334 int owndata; /* flag if the structure owns the clientdata */
335 } swig_type_info;
336
337 /* Structure to store a type and conversion function used for casting */
338 typedef struct swig_cast_info {
339 swig_type_info *type; /* pointer to type that is equivalent to this type */
340 swig_converter_func converter; /* function to cast the void pointers */
341 struct swig_cast_info *next; /* pointer to next cast in linked list */
342 struct swig_cast_info *prev; /* pointer to the previous cast */
343 } swig_cast_info;
344
345 /* Structure used to store module information
346 * Each module generates one structure like this, and the runtime collects
347 * all of these structures and stores them in a circularly linked list.*/
348 typedef struct swig_module_info {
349 swig_type_info **types; /* Array of pointers to swig_type_info structures that are in this module */
350 size_t size; /* Number of types in this module */
351 struct swig_module_info *next; /* Pointer to next element in circularly linked list */
352 swig_type_info **type_initial; /* Array of initially generated type structures */
353 swig_cast_info **cast_initial; /* Array of initially generated casting structures */
354 void *clientdata; /* Language specific module data */
355 } swig_module_info;
356
357 /*
358 Compare two type names skipping the space characters, therefore
359 "char*" == "char *" and "Class<int>" == "Class<int >", etc.
360
361 Return 0 when the two name types are equivalent, as in
362 strncmp, but skipping ' '.
363 */
364 SWIGRUNTIME int
SWIG_TypeNameComp(const char * f1,const char * l1,const char * f2,const char * l2)365 SWIG_TypeNameComp(const char *f1, const char *l1,
366 const char *f2, const char *l2) {
367 for (;(f1 != l1) && (f2 != l2); ++f1, ++f2) {
368 while ((*f1 == ' ') && (f1 != l1)) ++f1;
369 while ((*f2 == ' ') && (f2 != l2)) ++f2;
370 if (*f1 != *f2) return (*f1 > *f2) ? 1 : -1;
371 }
372 return (int)((l1 - f1) - (l2 - f2));
373 }
374
375 /*
376 Check type equivalence in a name list like <name1>|<name2>|...
377 Return 0 if equal, -1 if nb < tb, 1 if nb > tb
378 */
379 SWIGRUNTIME int
SWIG_TypeCmp(const char * nb,const char * tb)380 SWIG_TypeCmp(const char *nb, const char *tb) {
381 int equiv = 1;
382 const char* te = tb + strlen(tb);
383 const char* ne = nb;
384 while (equiv != 0 && *ne) {
385 for (nb = ne; *ne; ++ne) {
386 if (*ne == '|') break;
387 }
388 equiv = SWIG_TypeNameComp(nb, ne, tb, te);
389 if (*ne) ++ne;
390 }
391 return equiv;
392 }
393
394 /*
395 Check type equivalence in a name list like <name1>|<name2>|...
396 Return 0 if not equal, 1 if equal
397 */
398 SWIGRUNTIME int
SWIG_TypeEquiv(const char * nb,const char * tb)399 SWIG_TypeEquiv(const char *nb, const char *tb) {
400 return SWIG_TypeCmp(nb, tb) == 0 ? 1 : 0;
401 }
402
403 /*
404 Check the typename
405 */
406 SWIGRUNTIME swig_cast_info *
SWIG_TypeCheck(const char * c,swig_type_info * ty)407 SWIG_TypeCheck(const char *c, swig_type_info *ty) {
408 if (ty) {
409 swig_cast_info *iter = ty->cast;
410 while (iter) {
411 if (strcmp(iter->type->name, c) == 0) {
412 if (iter == ty->cast)
413 return iter;
414 /* Move iter to the top of the linked list */
415 iter->prev->next = iter->next;
416 if (iter->next)
417 iter->next->prev = iter->prev;
418 iter->next = ty->cast;
419 iter->prev = 0;
420 if (ty->cast) ty->cast->prev = iter;
421 ty->cast = iter;
422 return iter;
423 }
424 iter = iter->next;
425 }
426 }
427 return 0;
428 }
429
430 /*
431 Identical to SWIG_TypeCheck, except strcmp is replaced with a pointer comparison
432 */
433 SWIGRUNTIME swig_cast_info *
SWIG_TypeCheckStruct(swig_type_info * from,swig_type_info * ty)434 SWIG_TypeCheckStruct(swig_type_info *from, swig_type_info *ty) {
435 if (ty) {
436 swig_cast_info *iter = ty->cast;
437 while (iter) {
438 if (iter->type == from) {
439 if (iter == ty->cast)
440 return iter;
441 /* Move iter to the top of the linked list */
442 iter->prev->next = iter->next;
443 if (iter->next)
444 iter->next->prev = iter->prev;
445 iter->next = ty->cast;
446 iter->prev = 0;
447 if (ty->cast) ty->cast->prev = iter;
448 ty->cast = iter;
449 return iter;
450 }
451 iter = iter->next;
452 }
453 }
454 return 0;
455 }
456
457 /*
458 Cast a pointer up an inheritance hierarchy
459 */
460 SWIGRUNTIMEINLINE void *
SWIG_TypeCast(swig_cast_info * ty,void * ptr,int * newmemory)461 SWIG_TypeCast(swig_cast_info *ty, void *ptr, int *newmemory) {
462 return ((!ty) || (!ty->converter)) ? ptr : (*ty->converter)(ptr, newmemory);
463 }
464
465 /*
466 Dynamic pointer casting. Down an inheritance hierarchy
467 */
468 SWIGRUNTIME swig_type_info *
SWIG_TypeDynamicCast(swig_type_info * ty,void ** ptr)469 SWIG_TypeDynamicCast(swig_type_info *ty, void **ptr) {
470 swig_type_info *lastty = ty;
471 if (!ty || !ty->dcast) return ty;
472 while (ty && (ty->dcast)) {
473 ty = (*ty->dcast)(ptr);
474 if (ty) lastty = ty;
475 }
476 return lastty;
477 }
478
479 /*
480 Return the name associated with this type
481 */
482 SWIGRUNTIMEINLINE const char *
SWIG_TypeName(const swig_type_info * ty)483 SWIG_TypeName(const swig_type_info *ty) {
484 return ty->name;
485 }
486
487 /*
488 Return the pretty name associated with this type,
489 that is an unmangled type name in a form presentable to the user.
490 */
491 SWIGRUNTIME const char *
SWIG_TypePrettyName(const swig_type_info * type)492 SWIG_TypePrettyName(const swig_type_info *type) {
493 /* The "str" field contains the equivalent pretty names of the
494 type, separated by vertical-bar characters. We choose
495 to print the last name, as it is often (?) the most
496 specific. */
497 if (!type) return NULL;
498 if (type->str != NULL) {
499 const char *last_name = type->str;
500 const char *s;
501 for (s = type->str; *s; s++)
502 if (*s == '|') last_name = s+1;
503 return last_name;
504 }
505 else
506 return type->name;
507 }
508
509 /*
510 Set the clientdata field for a type
511 */
512 SWIGRUNTIME void
SWIG_TypeClientData(swig_type_info * ti,void * clientdata)513 SWIG_TypeClientData(swig_type_info *ti, void *clientdata) {
514 swig_cast_info *cast = ti->cast;
515 /* if (ti->clientdata == clientdata) return; */
516 ti->clientdata = clientdata;
517
518 while (cast) {
519 if (!cast->converter) {
520 swig_type_info *tc = cast->type;
521 if (!tc->clientdata) {
522 SWIG_TypeClientData(tc, clientdata);
523 }
524 }
525 cast = cast->next;
526 }
527 }
528 SWIGRUNTIME void
SWIG_TypeNewClientData(swig_type_info * ti,void * clientdata)529 SWIG_TypeNewClientData(swig_type_info *ti, void *clientdata) {
530 SWIG_TypeClientData(ti, clientdata);
531 ti->owndata = 1;
532 }
533
534 /*
535 Search for a swig_type_info structure only by mangled name
536 Search is a O(log #types)
537
538 We start searching at module start, and finish searching when start == end.
539 Note: if start == end at the beginning of the function, we go all the way around
540 the circular list.
541 */
542 SWIGRUNTIME swig_type_info *
SWIG_MangledTypeQueryModule(swig_module_info * start,swig_module_info * end,const char * name)543 SWIG_MangledTypeQueryModule(swig_module_info *start,
544 swig_module_info *end,
545 const char *name) {
546 swig_module_info *iter = start;
547 do {
548 if (iter->size) {
549 size_t l = 0;
550 size_t r = iter->size - 1;
551 do {
552 /* since l+r >= 0, we can (>> 1) instead (/ 2) */
553 size_t i = (l + r) >> 1;
554 const char *iname = iter->types[i]->name;
555 if (iname) {
556 int compare = strcmp(name, iname);
557 if (compare == 0) {
558 return iter->types[i];
559 } else if (compare < 0) {
560 if (i) {
561 r = i - 1;
562 } else {
563 break;
564 }
565 } else if (compare > 0) {
566 l = i + 1;
567 }
568 } else {
569 break; /* should never happen */
570 }
571 } while (l <= r);
572 }
573 iter = iter->next;
574 } while (iter != end);
575 return 0;
576 }
577
578 /*
579 Search for a swig_type_info structure for either a mangled name or a human readable name.
580 It first searches the mangled names of the types, which is a O(log #types)
581 If a type is not found it then searches the human readable names, which is O(#types).
582
583 We start searching at module start, and finish searching when start == end.
584 Note: if start == end at the beginning of the function, we go all the way around
585 the circular list.
586 */
587 SWIGRUNTIME swig_type_info *
SWIG_TypeQueryModule(swig_module_info * start,swig_module_info * end,const char * name)588 SWIG_TypeQueryModule(swig_module_info *start,
589 swig_module_info *end,
590 const char *name) {
591 /* STEP 1: Search the name field using binary search */
592 swig_type_info *ret = SWIG_MangledTypeQueryModule(start, end, name);
593 if (ret) {
594 return ret;
595 } else {
596 /* STEP 2: If the type hasn't been found, do a complete search
597 of the str field (the human readable name) */
598 swig_module_info *iter = start;
599 do {
600 size_t i = 0;
601 for (; i < iter->size; ++i) {
602 if (iter->types[i]->str && (SWIG_TypeEquiv(iter->types[i]->str, name)))
603 return iter->types[i];
604 }
605 iter = iter->next;
606 } while (iter != end);
607 }
608
609 /* neither found a match */
610 return 0;
611 }
612
613 /*
614 Pack binary data into a string
615 */
616 SWIGRUNTIME char *
SWIG_PackData(char * c,void * ptr,size_t sz)617 SWIG_PackData(char *c, void *ptr, size_t sz) {
618 static const char hex[17] = "0123456789abcdef";
619 const unsigned char *u = (unsigned char *) ptr;
620 const unsigned char *eu = u + sz;
621 for (; u != eu; ++u) {
622 unsigned char uu = *u;
623 *(c++) = hex[(uu & 0xf0) >> 4];
624 *(c++) = hex[uu & 0xf];
625 }
626 return c;
627 }
628
629 /*
630 Unpack binary data from a string
631 */
632 SWIGRUNTIME const char *
SWIG_UnpackData(const char * c,void * ptr,size_t sz)633 SWIG_UnpackData(const char *c, void *ptr, size_t sz) {
634 unsigned char *u = (unsigned char *) ptr;
635 const unsigned char *eu = u + sz;
636 for (; u != eu; ++u) {
637 char d = *(c++);
638 unsigned char uu;
639 if ((d >= '0') && (d <= '9'))
640 uu = (unsigned char)((d - '0') << 4);
641 else if ((d >= 'a') && (d <= 'f'))
642 uu = (unsigned char)((d - ('a'-10)) << 4);
643 else
644 return (char *) 0;
645 d = *(c++);
646 if ((d >= '0') && (d <= '9'))
647 uu |= (unsigned char)(d - '0');
648 else if ((d >= 'a') && (d <= 'f'))
649 uu |= (unsigned char)(d - ('a'-10));
650 else
651 return (char *) 0;
652 *u = uu;
653 }
654 return c;
655 }
656
657 /*
658 Pack 'void *' into a string buffer.
659 */
660 SWIGRUNTIME char *
SWIG_PackVoidPtr(char * buff,void * ptr,const char * name,size_t bsz)661 SWIG_PackVoidPtr(char *buff, void *ptr, const char *name, size_t bsz) {
662 char *r = buff;
663 if ((2*sizeof(void *) + 2) > bsz) return 0;
664 *(r++) = '_';
665 r = SWIG_PackData(r,&ptr,sizeof(void *));
666 if (strlen(name) + 1 > (bsz - (r - buff))) return 0;
667 strcpy(r,name);
668 return buff;
669 }
670
671 SWIGRUNTIME const char *
SWIG_UnpackVoidPtr(const char * c,void ** ptr,const char * name)672 SWIG_UnpackVoidPtr(const char *c, void **ptr, const char *name) {
673 if (*c != '_') {
674 if (strcmp(c,"NULL") == 0) {
675 *ptr = (void *) 0;
676 return name;
677 } else {
678 return 0;
679 }
680 }
681 return SWIG_UnpackData(++c,ptr,sizeof(void *));
682 }
683
684 SWIGRUNTIME char *
SWIG_PackDataName(char * buff,void * ptr,size_t sz,const char * name,size_t bsz)685 SWIG_PackDataName(char *buff, void *ptr, size_t sz, const char *name, size_t bsz) {
686 char *r = buff;
687 size_t lname = (name ? strlen(name) : 0);
688 if ((2*sz + 2 + lname) > bsz) return 0;
689 *(r++) = '_';
690 r = SWIG_PackData(r,ptr,sz);
691 if (lname) {
692 strncpy(r,name,lname+1);
693 } else {
694 *r = 0;
695 }
696 return buff;
697 }
698
699 SWIGRUNTIME const char *
SWIG_UnpackDataName(const char * c,void * ptr,size_t sz,const char * name)700 SWIG_UnpackDataName(const char *c, void *ptr, size_t sz, const char *name) {
701 if (*c != '_') {
702 if (strcmp(c,"NULL") == 0) {
703 memset(ptr,0,sz);
704 return name;
705 } else {
706 return 0;
707 }
708 }
709 return SWIG_UnpackData(++c,ptr,sz);
710 }
711
712 #ifdef __cplusplus
713 }
714 #endif
715
716 /* Errors in SWIG */
717 #define SWIG_UnknownError -1
718 #define SWIG_IOError -2
719 #define SWIG_RuntimeError -3
720 #define SWIG_IndexError -4
721 #define SWIG_TypeError -5
722 #define SWIG_DivisionByZero -6
723 #define SWIG_OverflowError -7
724 #define SWIG_SyntaxError -8
725 #define SWIG_ValueError -9
726 #define SWIG_SystemError -10
727 #define SWIG_AttributeError -11
728 #define SWIG_MemoryError -12
729 #define SWIG_NullReferenceError -13
730
731
732
733 #ifdef __cplusplus
734 /* Needed on some windows machines---since MS plays funny games with the header files under C++ */
735 #include <math.h>
736 #include <stdlib.h>
737 extern "C" {
738 #endif
739 #include "EXTERN.h"
740 #include "perl.h"
741 #include "XSUB.h"
742
743 /* Add in functionality missing in older versions of Perl. Much of this is based on Devel-PPPort on cpan. */
744
745 /* Add PERL_REVISION, PERL_VERSION, PERL_SUBVERSION if missing */
746 #ifndef PERL_REVISION
747 # if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
748 # define PERL_PATCHLEVEL_H_IMPLICIT
749 # include <patchlevel.h>
750 # endif
751 # if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
752 # include <could_not_find_Perl_patchlevel.h>
753 # endif
754 # ifndef PERL_REVISION
755 # define PERL_REVISION (5)
756 # define PERL_VERSION PATCHLEVEL
757 # define PERL_SUBVERSION SUBVERSION
758 # endif
759 #endif
760
761 #if defined(WIN32) && defined(PERL_OBJECT) && !defined(PerlIO_exportFILE)
762 #define PerlIO_exportFILE(fh,fl) (FILE*)(fh)
763 #endif
764
765 #ifndef SvIOK_UV
766 # define SvIOK_UV(sv) (SvIOK(sv) && (SvUVX(sv) == SvIVX(sv)))
767 #endif
768
769 #ifndef SvUOK
770 # define SvUOK(sv) SvIOK_UV(sv)
771 #endif
772
773 #if ((PERL_VERSION < 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION <= 5)))
774 # define PL_sv_undef sv_undef
775 # define PL_na na
776 # define PL_errgv errgv
777 # define PL_sv_no sv_no
778 # define PL_sv_yes sv_yes
779 # define PL_markstack_ptr markstack_ptr
780 #endif
781
782 #ifndef IVSIZE
783 # ifdef LONGSIZE
784 # define IVSIZE LONGSIZE
785 # else
786 # define IVSIZE 4 /* A bold guess, but the best we can make. */
787 # endif
788 #endif
789
790 #ifndef INT2PTR
791 # if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE)
792 # define PTRV UV
793 # define INT2PTR(any,d) (any)(d)
794 # else
795 # if PTRSIZE == LONGSIZE
796 # define PTRV unsigned long
797 # else
798 # define PTRV unsigned
799 # endif
800 # define INT2PTR(any,d) (any)(PTRV)(d)
801 # endif
802
803 # define NUM2PTR(any,d) (any)(PTRV)(d)
804 # define PTR2IV(p) INT2PTR(IV,p)
805 # define PTR2UV(p) INT2PTR(UV,p)
806 # define PTR2NV(p) NUM2PTR(NV,p)
807
808 # if PTRSIZE == LONGSIZE
809 # define PTR2ul(p) (unsigned long)(p)
810 # else
811 # define PTR2ul(p) INT2PTR(unsigned long,p)
812 # endif
813 #endif /* !INT2PTR */
814
815 #ifndef SvPV_nolen
816 # define SvPV_nolen(x) SvPV(x,PL_na)
817 #endif
818
819 #ifndef get_sv
820 # define get_sv perl_get_sv
821 #endif
822
823 #ifndef ERRSV
824 # define ERRSV get_sv("@",FALSE)
825 #endif
826
827 #ifndef pTHX_
828 #define pTHX_
829 #endif
830
831 #include <string.h>
832 #ifdef __cplusplus
833 }
834 #endif
835
836 /* -----------------------------------------------------------------------------
837 * error manipulation
838 * ----------------------------------------------------------------------------- */
839
840 SWIGINTERN const char*
SWIG_Perl_ErrorType(int code)841 SWIG_Perl_ErrorType(int code) {
842 switch(code) {
843 case SWIG_MemoryError:
844 return "MemoryError";
845 case SWIG_IOError:
846 return "IOError";
847 case SWIG_RuntimeError:
848 return "RuntimeError";
849 case SWIG_IndexError:
850 return "IndexError";
851 case SWIG_TypeError:
852 return "TypeError";
853 case SWIG_DivisionByZero:
854 return "ZeroDivisionError";
855 case SWIG_OverflowError:
856 return "OverflowError";
857 case SWIG_SyntaxError:
858 return "SyntaxError";
859 case SWIG_ValueError:
860 return "ValueError";
861 case SWIG_SystemError:
862 return "SystemError";
863 case SWIG_AttributeError:
864 return "AttributeError";
865 default:
866 return "RuntimeError";
867 }
868 }
869
870
871 /* -----------------------------------------------------------------------------
872 * perlrun.swg
873 *
874 * This file contains the runtime support for Perl modules
875 * and includes code for managing global variables and pointer
876 * type checking.
877 * ----------------------------------------------------------------------------- */
878
879 #ifdef PERL_OBJECT
880 #define SWIG_PERL_OBJECT_DECL CPerlObj *SWIGUNUSEDPARM(pPerl),
881 #define SWIG_PERL_OBJECT_CALL pPerl,
882 #else
883 #define SWIG_PERL_OBJECT_DECL
884 #define SWIG_PERL_OBJECT_CALL
885 #endif
886
887 /* Common SWIG API */
888
889 /* for raw pointers */
890 #define SWIG_ConvertPtr(obj, pp, type, flags) SWIG_Perl_ConvertPtr(SWIG_PERL_OBJECT_CALL obj, pp, type, flags)
891 #define SWIG_ConvertPtrAndOwn(obj, pp, type, flags,own) SWIG_Perl_ConvertPtrAndOwn(SWIG_PERL_OBJECT_CALL obj, pp, type, flags, own)
892 #define SWIG_NewPointerObj(p, type, flags) SWIG_Perl_NewPointerObj(SWIG_PERL_OBJECT_CALL p, type, flags)
893 #define SWIG_AcquirePtr(ptr, src) SWIG_Perl_AcquirePtr(ptr, src)
894 #define swig_owntype int
895
896 /* for raw packed data */
897 #define SWIG_ConvertPacked(obj, p, s, type) SWIG_Perl_ConvertPacked(SWIG_PERL_OBJECT_CALL obj, p, s, type)
898 #define SWIG_NewPackedObj(p, s, type) SWIG_Perl_NewPackedObj(SWIG_PERL_OBJECT_CALL p, s, type)
899
900 /* for class or struct pointers */
901 #define SWIG_ConvertInstance(obj, pptr, type, flags) SWIG_ConvertPtr(obj, pptr, type, flags)
902 #define SWIG_NewInstanceObj(ptr, type, flags) SWIG_NewPointerObj(ptr, type, flags)
903
904 /* for C or C++ function pointers */
905 #define SWIG_ConvertFunctionPtr(obj, pptr, type) SWIG_ConvertPtr(obj, pptr, type, 0)
906 #define SWIG_NewFunctionPtrObj(ptr, type) SWIG_NewPointerObj(ptr, type, 0)
907
908 /* for C++ member pointers, ie, member methods */
909 #define SWIG_ConvertMember(obj, ptr, sz, ty) SWIG_ConvertPacked(obj, ptr, sz, ty)
910 #define SWIG_NewMemberObj(ptr, sz, type) SWIG_NewPackedObj(ptr, sz, type)
911
912
913 /* Runtime API */
914
915 #define SWIG_GetModule(clientdata) SWIG_Perl_GetModule(clientdata)
916 #define SWIG_SetModule(clientdata, pointer) SWIG_Perl_SetModule(pointer)
917
918
919 /* Error manipulation */
920
921 #define SWIG_ErrorType(code) SWIG_Perl_ErrorType(code)
922 #define SWIG_Error(code, msg) sv_setpvf(get_sv("@", GV_ADD), "%s %s", SWIG_ErrorType(code), msg)
923 #define SWIG_fail goto fail
924
925 /* Perl-specific SWIG API */
926
927 #define SWIG_MakePtr(sv, ptr, type, flags) SWIG_Perl_MakePtr(SWIG_PERL_OBJECT_CALL sv, ptr, type, flags)
928 #define SWIG_MakePackedObj(sv, p, s, type) SWIG_Perl_MakePackedObj(SWIG_PERL_OBJECT_CALL sv, p, s, type)
929 #define SWIG_SetError(str) SWIG_Error(SWIG_RuntimeError, str)
930
931
932 #define SWIG_PERL_DECL_ARGS_1(arg1) (SWIG_PERL_OBJECT_DECL arg1)
933 #define SWIG_PERL_CALL_ARGS_1(arg1) (SWIG_PERL_OBJECT_CALL arg1)
934 #define SWIG_PERL_DECL_ARGS_2(arg1, arg2) (SWIG_PERL_OBJECT_DECL arg1, arg2)
935 #define SWIG_PERL_CALL_ARGS_2(arg1, arg2) (SWIG_PERL_OBJECT_CALL arg1, arg2)
936
937 /* -----------------------------------------------------------------------------
938 * pointers/data manipulation
939 * ----------------------------------------------------------------------------- */
940
941 /* For backward compatibility only */
942 #define SWIG_POINTER_EXCEPTION 0
943
944 #ifdef __cplusplus
945 extern "C" {
946 #endif
947
948 #define SWIG_OWNER SWIG_POINTER_OWN
949 #define SWIG_SHADOW SWIG_OWNER << 1
950
951 #define SWIG_MAYBE_PERL_OBJECT SWIG_PERL_OBJECT_DECL
952
953 /* SWIG Perl macros */
954
955 /* Macro to declare an XS function */
956 #ifndef XSPROTO
957 # define XSPROTO(name) void name(pTHX_ CV* cv)
958 #endif
959
960 /* Macro to call an XS function */
961 #ifdef PERL_OBJECT
962 # define SWIG_CALLXS(_name) _name(cv,pPerl)
963 #else
964 # ifndef MULTIPLICITY
965 # define SWIG_CALLXS(_name) _name(cv)
966 # else
967 # define SWIG_CALLXS(_name) _name(PERL_GET_THX, cv)
968 # endif
969 #endif
970
971 #ifdef PERL_OBJECT
972 #define MAGIC_PPERL CPerlObj *pPerl = (CPerlObj *) this;
973
974 #ifdef __cplusplus
975 extern "C" {
976 #endif
977 typedef int (CPerlObj::*SwigMagicFunc)(SV *, MAGIC *);
978 #ifdef __cplusplus
979 }
980 #endif
981
982 #define SWIG_MAGIC(a,b) (SV *a, MAGIC *b)
983 #define SWIGCLASS_STATIC
984
985 #else /* PERL_OBJECT */
986
987 #define MAGIC_PPERL
988 #define SWIGCLASS_STATIC static SWIGUNUSED
989
990 #ifndef MULTIPLICITY
991 #define SWIG_MAGIC(a,b) (SV *a, MAGIC *b)
992
993 #ifdef __cplusplus
994 extern "C" {
995 #endif
996 typedef int (*SwigMagicFunc)(SV *, MAGIC *);
997 #ifdef __cplusplus
998 }
999 #endif
1000
1001 #else /* MULTIPLICITY */
1002
1003 #define SWIG_MAGIC(a,b) (struct interpreter *interp, SV *a, MAGIC *b)
1004
1005 #ifdef __cplusplus
1006 extern "C" {
1007 #endif
1008 typedef int (*SwigMagicFunc)(struct interpreter *, SV *, MAGIC *);
1009 #ifdef __cplusplus
1010 }
1011 #endif
1012
1013 #endif /* MULTIPLICITY */
1014 #endif /* PERL_OBJECT */
1015
1016 # ifdef PERL_OBJECT
1017 # define SWIG_croak_null() SWIG_Perl_croak_null(pPerl)
SWIG_Perl_croak_null(CPerlObj * pPerl)1018 static void SWIGUNUSED SWIG_Perl_croak_null(CPerlObj *pPerl)
1019 # else
1020 static void SWIGUNUSED SWIG_croak_null()
1021 # endif
1022 {
1023 SV *err = get_sv("@", GV_ADD);
1024 # if (PERL_VERSION < 6)
1025 croak("%_", err);
1026 # else
1027 if (sv_isobject(err))
1028 croak(0);
1029 else
1030 croak("%s", SvPV_nolen(err));
1031 # endif
1032 }
1033
1034
1035 /*
1036 Define how strict is the cast between strings and integers/doubles
1037 when overloading between these types occurs.
1038
1039 The default is making it as strict as possible by using SWIG_AddCast
1040 when needed.
1041
1042 You can use -DSWIG_PERL_NO_STRICT_STR2NUM at compilation time to
1043 disable the SWIG_AddCast, making the casting between string and
1044 numbers less strict.
1045
1046 In the end, we try to solve the overloading between strings and
1047 numerical types in the more natural way, but if you can avoid it,
1048 well, avoid it using %rename, for example.
1049 */
1050 #ifndef SWIG_PERL_NO_STRICT_STR2NUM
1051 # ifndef SWIG_PERL_STRICT_STR2NUM
1052 # define SWIG_PERL_STRICT_STR2NUM
1053 # endif
1054 #endif
1055 #ifdef SWIG_PERL_STRICT_STR2NUM
1056 /* string takes precedence */
1057 #define SWIG_Str2NumCast(x) SWIG_AddCast(x)
1058 #else
1059 /* number takes precedence */
1060 #define SWIG_Str2NumCast(x) x
1061 #endif
1062
1063
1064
1065 #include <stdlib.h>
1066
1067 SWIGRUNTIME const char *
SWIG_Perl_TypeProxyName(const swig_type_info * type)1068 SWIG_Perl_TypeProxyName(const swig_type_info *type) {
1069 if (!type) return NULL;
1070 if (type->clientdata != NULL) {
1071 return (const char*) type->clientdata;
1072 }
1073 else {
1074 return type->name;
1075 }
1076 }
1077
1078 /* Identical to SWIG_TypeCheck, except for strcmp comparison */
1079 SWIGRUNTIME swig_cast_info *
SWIG_TypeProxyCheck(const char * c,swig_type_info * ty)1080 SWIG_TypeProxyCheck(const char *c, swig_type_info *ty) {
1081 if (ty) {
1082 swig_cast_info *iter = ty->cast;
1083 while (iter) {
1084 if (strcmp(SWIG_Perl_TypeProxyName(iter->type), c) == 0) {
1085 if (iter == ty->cast)
1086 return iter;
1087 /* Move iter to the top of the linked list */
1088 iter->prev->next = iter->next;
1089 if (iter->next)
1090 iter->next->prev = iter->prev;
1091 iter->next = ty->cast;
1092 iter->prev = 0;
1093 if (ty->cast) ty->cast->prev = iter;
1094 ty->cast = iter;
1095 return iter;
1096 }
1097 iter = iter->next;
1098 }
1099 }
1100 return 0;
1101 }
1102
1103 /* Acquire a pointer value */
1104
1105 SWIGRUNTIME int
SWIG_Perl_AcquirePtr(SWIG_MAYBE_PERL_OBJECT SV * sv,int own)1106 SWIG_Perl_AcquirePtr(SWIG_MAYBE_PERL_OBJECT SV *sv, int own) {
1107 /* TODO */
1108 return 0;
1109 }
1110
1111 /* Function for getting a pointer value */
1112
1113 SWIGRUNTIME int
SWIG_Perl_ConvertPtrAndOwn(SWIG_MAYBE_PERL_OBJECT SV * sv,void ** ptr,swig_type_info * _t,int flags,int * own)1114 SWIG_Perl_ConvertPtrAndOwn(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_info *_t, int flags, int *own) {
1115 swig_cast_info *tc;
1116 void *voidptr = (void *)0;
1117 SV *tsv = 0;
1118
1119 if (own)
1120 *own = 0;
1121
1122 /* If magical, apply more magic */
1123 if (SvGMAGICAL(sv))
1124 mg_get(sv);
1125
1126 /* Check to see if this is an object */
1127 if (sv_isobject(sv)) {
1128 IV tmp = 0;
1129 tsv = (SV*) SvRV(sv);
1130 if ((SvTYPE(tsv) == SVt_PVHV)) {
1131 MAGIC *mg;
1132 if (SvMAGICAL(tsv)) {
1133 mg = mg_find(tsv,'P');
1134 if (mg) {
1135 sv = mg->mg_obj;
1136 if (sv_isobject(sv)) {
1137 tsv = (SV*)SvRV(sv);
1138 tmp = SvIV(tsv);
1139 }
1140 }
1141 } else {
1142 return SWIG_ERROR;
1143 }
1144 } else {
1145 tmp = SvIV(tsv);
1146 }
1147 voidptr = INT2PTR(void *,tmp);
1148 } else if (! SvOK(sv)) { /* Check for undef */
1149 *(ptr) = (void *) 0;
1150 return (flags & SWIG_POINTER_NO_NULL) ? SWIG_NullReferenceError : SWIG_OK;
1151 } else if (SvTYPE(sv) == SVt_RV) { /* Check for NULL pointer */
1152 if (!SvROK(sv)) {
1153 /* In Perl 5.12 and later, SVt_RV == SVt_IV, so sv could be a valid integer value. */
1154 if (SvIOK(sv)) {
1155 return SWIG_ERROR;
1156 } else {
1157 /* NULL pointer (reference to undef). */
1158 *(ptr) = (void *) 0;
1159 return SWIG_OK;
1160 }
1161 } else {
1162 return SWIG_ERROR;
1163 }
1164 } else { /* Don't know what it is */
1165 return SWIG_ERROR;
1166 }
1167 if (_t) {
1168 /* Now see if the types match */
1169 char *_c = HvNAME(SvSTASH(SvRV(sv)));
1170 tc = SWIG_TypeProxyCheck(_c,_t);
1171 #ifdef SWIG_DIRECTORS
1172 if (!tc && !sv_derived_from(sv,SWIG_Perl_TypeProxyName(_t))) {
1173 #else
1174 if (!tc) {
1175 #endif
1176 return SWIG_ERROR;
1177 }
1178 {
1179 int newmemory = 0;
1180 *ptr = SWIG_TypeCast(tc,voidptr,&newmemory);
1181 if (newmemory == SWIG_CAST_NEW_MEMORY) {
1182 assert(own); /* badly formed typemap which will lead to a memory leak - it must set and use own to delete *ptr */
1183 if (own)
1184 *own = *own | SWIG_CAST_NEW_MEMORY;
1185 }
1186 }
1187 } else {
1188 *ptr = voidptr;
1189 }
1190
1191 /*
1192 * DISOWN implementation: we need a perl guru to check this one.
1193 */
1194 if (tsv && (flags & SWIG_POINTER_DISOWN)) {
1195 /*
1196 * almost copy paste code from below SWIG_POINTER_OWN setting
1197 */
1198 SV *obj = sv;
1199 HV *stash = SvSTASH(SvRV(obj));
1200 GV *gv = *(GV**)hv_fetch(stash, "OWNER", 5, TRUE);
1201 if (isGV(gv)) {
1202 HV *hv = GvHVn(gv);
1203 /*
1204 * To set ownership (see below), a newSViv(1) entry is added.
1205 * Hence, to remove ownership, we delete the entry.
1206 */
1207 if (hv_exists_ent(hv, obj, 0)) {
1208 hv_delete_ent(hv, obj, 0, 0);
1209 }
1210 }
1211 }
1212 return SWIG_OK;
1213 }
1214
1215 SWIGRUNTIME int
1216 SWIG_Perl_ConvertPtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_info *_t, int flags) {
1217 return SWIG_Perl_ConvertPtrAndOwn(sv, ptr, _t, flags, 0);
1218 }
1219
1220 SWIGRUNTIME void
1221 SWIG_Perl_MakePtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void *ptr, swig_type_info *t, int flags) {
1222 if (ptr && (flags & (SWIG_SHADOW | SWIG_POINTER_OWN))) {
1223 SV *self;
1224 SV *obj=newSV(0);
1225 HV *hash=newHV();
1226 HV *stash;
1227 sv_setref_pv(obj, SWIG_Perl_TypeProxyName(t), ptr);
1228 stash=SvSTASH(SvRV(obj));
1229 if (flags & SWIG_POINTER_OWN) {
1230 HV *hv;
1231 GV *gv = *(GV**)hv_fetch(stash, "OWNER", 5, TRUE);
1232 if (!isGV(gv))
1233 gv_init(gv, stash, "OWNER", 5, FALSE);
1234 hv=GvHVn(gv);
1235 hv_store_ent(hv, obj, newSViv(1), 0);
1236 }
1237 sv_magic((SV *)hash, (SV *)obj, 'P', Nullch, 0);
1238 SvREFCNT_dec(obj);
1239 self=newRV_noinc((SV *)hash);
1240 sv_setsv(sv, self);
1241 SvREFCNT_dec((SV *)self);
1242 sv_bless(sv, stash);
1243 }
1244 else {
1245 sv_setref_pv(sv, SWIG_Perl_TypeProxyName(t), ptr);
1246 }
1247 }
1248
1249 SWIGRUNTIMEINLINE SV *
1250 SWIG_Perl_NewPointerObj(SWIG_MAYBE_PERL_OBJECT void *ptr, swig_type_info *t, int flags) {
1251 SV *result = sv_newmortal();
1252 SWIG_MakePtr(result, ptr, t, flags);
1253 return result;
1254 }
1255
1256 SWIGRUNTIME void
1257 SWIG_Perl_MakePackedObj(SWIG_MAYBE_PERL_OBJECT SV *sv, void *ptr, int sz, swig_type_info *type) {
1258 char result[1024];
1259 char *r = result;
1260 if ((2*sz + 1 + strlen(SWIG_Perl_TypeProxyName(type))) > 1000) return;
1261 *(r++) = '_';
1262 r = SWIG_PackData(r,ptr,sz);
1263 strcpy(r,SWIG_Perl_TypeProxyName(type));
1264 sv_setpv(sv, result);
1265 }
1266
1267 SWIGRUNTIME SV *
1268 SWIG_Perl_NewPackedObj(SWIG_MAYBE_PERL_OBJECT void *ptr, int sz, swig_type_info *type) {
1269 SV *result = sv_newmortal();
1270 SWIG_Perl_MakePackedObj(result, ptr, sz, type);
1271 return result;
1272 }
1273
1274 /* Convert a packed pointer value */
1275 SWIGRUNTIME int
1276 SWIG_Perl_ConvertPacked(SWIG_MAYBE_PERL_OBJECT SV *obj, void *ptr, int sz, swig_type_info *ty) {
1277 swig_cast_info *tc;
1278 const char *c = 0;
1279
1280 if ((!obj) || (!SvOK(obj))) return SWIG_ERROR;
1281 c = SvPV_nolen(obj);
1282 /* Pointer values must start with leading underscore */
1283 if (*c != '_') return SWIG_ERROR;
1284 c++;
1285 c = SWIG_UnpackData(c,ptr,sz);
1286 if (ty) {
1287 tc = SWIG_TypeCheck(c,ty);
1288 if (!tc) return SWIG_ERROR;
1289 }
1290 return SWIG_OK;
1291 }
1292
1293
1294 /* Macros for low-level exception handling */
1295 #define SWIG_croak(x) { SWIG_Error(SWIG_RuntimeError, x); SWIG_fail; }
1296
1297
1298 typedef XSPROTO(SwigPerlWrapper);
1299 typedef SwigPerlWrapper *SwigPerlWrapperPtr;
1300
1301 /* Structure for command table */
1302 typedef struct {
1303 const char *name;
1304 SwigPerlWrapperPtr wrapper;
1305 } swig_command_info;
1306
1307 /* Information for constant table */
1308
1309 #define SWIG_INT 1
1310 #define SWIG_FLOAT 2
1311 #define SWIG_STRING 3
1312 #define SWIG_POINTER 4
1313 #define SWIG_BINARY 5
1314
1315 /* Constant information structure */
1316 typedef struct swig_constant_info {
1317 int type;
1318 const char *name;
1319 long lvalue;
1320 double dvalue;
1321 void *pvalue;
1322 swig_type_info **ptype;
1323 } swig_constant_info;
1324
1325
1326 /* Structure for variable table */
1327 typedef struct {
1328 const char *name;
1329 SwigMagicFunc set;
1330 SwigMagicFunc get;
1331 swig_type_info **type;
1332 } swig_variable_info;
1333
1334 /* Magic variable code */
1335 #ifndef PERL_OBJECT
1336 # ifdef __cplusplus
1337 # define swig_create_magic(s,a,b,c) _swig_create_magic(s,const_cast<char*>(a),b,c)
1338 # else
1339 # define swig_create_magic(s,a,b,c) _swig_create_magic(s,(char*)(a),b,c)
1340 # endif
1341 # ifndef MULTIPLICITY
1342 SWIGRUNTIME void _swig_create_magic(SV *sv, char *name, int (*set)(SV *, MAGIC *), int (*get)(SV *,MAGIC *))
1343 # else
1344 SWIGRUNTIME void _swig_create_magic(SV *sv, char *name, int (*set)(struct interpreter*, SV *, MAGIC *), int (*get)(struct interpreter*, SV *,MAGIC *))
1345 # endif
1346 #else
1347 # define swig_create_magic(s,a,b,c) _swig_create_magic(pPerl,s,a,b,c)
1348 SWIGRUNTIME void _swig_create_magic(CPerlObj *pPerl, SV *sv, const char *name, int (CPerlObj::*set)(SV *, MAGIC *), int (CPerlObj::*get)(SV *, MAGIC *))
1349 #endif
1350 {
1351 MAGIC *mg;
1352 sv_magic(sv,sv,'U',name,strlen(name));
1353 mg = mg_find(sv,'U');
1354 mg->mg_virtual = (MGVTBL *) malloc(sizeof(MGVTBL));
1355 mg->mg_virtual->svt_get = (SwigMagicFunc) get;
1356 mg->mg_virtual->svt_set = (SwigMagicFunc) set;
1357 mg->mg_virtual->svt_len = 0;
1358 mg->mg_virtual->svt_clear = 0;
1359 mg->mg_virtual->svt_free = 0;
1360 }
1361
1362
1363 SWIGRUNTIME swig_module_info *
1364 SWIG_Perl_GetModule(void *SWIGUNUSEDPARM(clientdata)) {
1365 static void *type_pointer = (void *)0;
1366 SV *pointer;
1367
1368 /* first check if pointer already created */
1369 if (!type_pointer) {
1370 pointer = get_sv("swig_runtime_data::type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME, FALSE | GV_ADDMULTI);
1371 if (pointer && SvOK(pointer)) {
1372 type_pointer = INT2PTR(swig_type_info **, SvIV(pointer));
1373 }
1374 }
1375
1376 return (swig_module_info *) type_pointer;
1377 }
1378
1379 SWIGRUNTIME void
1380 SWIG_Perl_SetModule(swig_module_info *module) {
1381 SV *pointer;
1382
1383 /* create a new pointer */
1384 pointer = get_sv("swig_runtime_data::type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME, TRUE | GV_ADDMULTI);
1385 sv_setiv(pointer, PTR2IV(module));
1386 }
1387
1388 #ifdef __cplusplus
1389 }
1390 #endif
1391
1392 /* Workaround perl5 global namespace pollution. Note that undefining library
1393 * functions like fopen will not solve the problem on all platforms as fopen
1394 * might be a macro on Windows but not necessarily on other operating systems. */
1395 #ifdef do_open
1396 #undef do_open
1397 #endif
1398 #ifdef do_close
1399 #undef do_close
1400 #endif
1401 #ifdef do_exec
1402 #undef do_exec
1403 #endif
1404 #ifdef scalar
1405 #undef scalar
1406 #endif
1407 #ifdef list
1408 #undef list
1409 #endif
1410 #ifdef apply
1411 #undef apply
1412 #endif
1413 #ifdef convert
1414 #undef convert
1415 #endif
1416 #ifdef Error
1417 #undef Error
1418 #endif
1419 #ifdef form
1420 #undef form
1421 #endif
1422 #ifdef vform
1423 #undef vform
1424 #endif
1425 #ifdef LABEL
1426 #undef LABEL
1427 #endif
1428 #ifdef METHOD
1429 #undef METHOD
1430 #endif
1431 #ifdef Move
1432 #undef Move
1433 #endif
1434 #ifdef yylex
1435 #undef yylex
1436 #endif
1437 #ifdef yyparse
1438 #undef yyparse
1439 #endif
1440 #ifdef yyerror
1441 #undef yyerror
1442 #endif
1443 #ifdef invert
1444 #undef invert
1445 #endif
1446 #ifdef ref
1447 #undef ref
1448 #endif
1449 #ifdef read
1450 #undef read
1451 #endif
1452 #ifdef write
1453 #undef write
1454 #endif
1455 #ifdef eof
1456 #undef eof
1457 #endif
1458 #ifdef close
1459 #undef close
1460 #endif
1461 #ifdef rewind
1462 #undef rewind
1463 #endif
1464 #ifdef free
1465 #undef free
1466 #endif
1467 #ifdef malloc
1468 #undef malloc
1469 #endif
1470 #ifdef calloc
1471 #undef calloc
1472 #endif
1473 #ifdef Stat
1474 #undef Stat
1475 #endif
1476 #ifdef check
1477 #undef check
1478 #endif
1479 #ifdef seekdir
1480 #undef seekdir
1481 #endif
1482 #ifdef open
1483 #undef open
1484 #endif
1485 #ifdef readdir
1486 #undef readdir
1487 #endif
1488 #ifdef bind
1489 #undef bind
1490 #endif
1491 #ifdef access
1492 #undef access
1493 #endif
1494 #ifdef stat
1495 #undef stat
1496 #endif
1497 #ifdef seed
1498 #undef seed
1499 #endif
1500
1501 #ifdef bool
1502 /* Leave if macro is from C99 stdbool.h */
1503 #ifndef __bool_true_false_are_defined
1504 #undef bool
1505 #endif
1506 #endif
1507
1508
1509
1510
1511 #define SWIG_exception_fail(code, msg) do { SWIG_Error(code, msg); SWIG_fail; } while(0)
1512
1513 #define SWIG_contract_assert(expr, msg) if (!(expr)) { SWIG_Error(SWIG_RuntimeError, msg); SWIG_fail; } else
1514
1515
1516
1517 /* -------- TYPES TABLE (BEGIN) -------- */
1518
1519 #define SWIGTYPE_p_FILE swig_types[0]
1520 #define SWIGTYPE_p_char swig_types[1]
1521 #define SWIGTYPE_p_double swig_types[2]
1522 #define SWIGTYPE_p_f_double_a___double_p_void__int swig_types[3]
1523 #define SWIGTYPE_p_f_double_p_void__double swig_types[4]
1524 #define SWIGTYPE_p_f_double_p_void_p_double_p_double__void swig_types[5]
1525 #define SWIGTYPE_p_f_p_double_p_void__int swig_types[6]
1526 #define SWIGTYPE_p_f_p_gsl_matrix_p_gsl_vector_p_void__int swig_types[7]
1527 #define SWIGTYPE_p_f_p_gsl_vector_p_gsl_vector_p_gsl_vector_p_void__int swig_types[8]
1528 #define SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void swig_types[9]
1529 #define SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void swig_types[10]
1530 #define SWIGTYPE_p_f_p_q_const__gsl_vector_p_gsl_vector__int swig_types[11]
1531 #define SWIGTYPE_p_f_p_q_const__void__p_gsl_matrix swig_types[12]
1532 #define SWIGTYPE_p_f_p_q_const__void__p_gsl_vector swig_types[13]
1533 #define SWIGTYPE_p_f_p_void__int swig_types[14]
1534 #define SWIGTYPE_p_f_p_void__void swig_types[15]
1535 #define SWIGTYPE_p_f_q_const__double_p_gsl_vector_p_double_p_double_p_void__int swig_types[16]
1536 #define SWIGTYPE_p_f_q_const__size_t__p_void swig_types[17]
1537 #define SWIGTYPE_p_gsl_function_fdf_struct swig_types[18]
1538 #define SWIGTYPE_p_gsl_function_struct swig_types[19]
1539 #define SWIGTYPE_p_gsl_function_vec_struct swig_types[20]
1540 #define SWIGTYPE_p_gsl_matrix swig_types[21]
1541 #define SWIGTYPE_p_gsl_multifit_linear_workspace swig_types[22]
1542 #define SWIGTYPE_p_gsl_multifit_robust_stats swig_types[23]
1543 #define SWIGTYPE_p_gsl_multifit_robust_type swig_types[24]
1544 #define SWIGTYPE_p_gsl_multifit_robust_workspace swig_types[25]
1545 #define SWIGTYPE_p_gsl_multilarge_linear_type swig_types[26]
1546 #define SWIGTYPE_p_gsl_multilarge_linear_workspace swig_types[27]
1547 #define SWIGTYPE_p_gsl_permutation_struct swig_types[28]
1548 #define SWIGTYPE_p_gsl_vector swig_types[29]
1549 #define SWIGTYPE_p_size_t swig_types[30]
1550 #define SWIGTYPE_p_void swig_types[31]
1551 static swig_type_info *swig_types[33];
1552 static swig_module_info swig_module = {swig_types, 32, 0, 0, 0, 0};
1553 #define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
1554 #define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
1555
1556 /* -------- TYPES TABLE (END) -------- */
1557
1558 #define SWIG_init boot_Math__GSL__Multilarge
1559
1560 #define SWIG_name "Math::GSL::Multilargec::boot_Math__GSL__Multilarge"
1561 #define SWIG_prefix "Math::GSL::Multilargec::"
1562
1563 #define SWIGVERSION 0x040001
1564 #define SWIG_VERSION SWIGVERSION
1565
1566
1567 #define SWIG_as_voidptr(a) (void *)((const void *)(a))
1568 #define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a),(void**)(a))
1569
1570
1571 #ifdef __cplusplus
1572 extern "C"
1573 #endif
1574 #ifndef PERL_OBJECT
1575 #ifndef MULTIPLICITY
1576 SWIGEXPORT void SWIG_init (CV* cv);
1577 #else
1578 SWIGEXPORT void SWIG_init (pTHXo_ CV* cv);
1579 #endif
1580 #else
1581 SWIGEXPORT void SWIG_init (CV *cv, CPerlObj *);
1582 #endif
1583
1584
1585 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(double value)1586 SWIG_From_double SWIG_PERL_DECL_ARGS_1(double value)
1587 {
1588 return sv_2mortal(newSVnv(value));
1589 }
1590
1591
1592 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(long value)1593 SWIG_From_long SWIG_PERL_DECL_ARGS_1(long value)
1594 {
1595 SV *sv;
1596 if (IVSIZE >= sizeof(value) || (value >= IV_MIN && value <= IV_MAX))
1597 sv = newSViv(value);
1598 else
1599 sv = newSVpvf("%ld", value);
1600 return sv_2mortal(sv);
1601 }
1602
1603
1604 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(int value)1605 SWIG_From_int SWIG_PERL_DECL_ARGS_1(int value)
1606 {
1607 return SWIG_From_long SWIG_PERL_CALL_ARGS_1(value);
1608 }
1609
1610
1611 SWIGINTERN swig_type_info*
SWIG_pchar_descriptor(void)1612 SWIG_pchar_descriptor(void)
1613 {
1614 static int init = 0;
1615 static swig_type_info* info = 0;
1616 if (!init) {
1617 info = SWIG_TypeQuery("_p_char");
1618 init = 1;
1619 }
1620 return info;
1621 }
1622
1623
1624 SWIGINTERN int
SWIG_AsCharPtrAndSize(SV * obj,char ** cptr,size_t * psize,int * alloc)1625 SWIG_AsCharPtrAndSize(SV *obj, char** cptr, size_t* psize, int *alloc)
1626 {
1627 if (SvMAGICAL(obj)) {
1628 SV *tmp = sv_newmortal();
1629 SvSetSV(tmp, obj);
1630 obj = tmp;
1631 }
1632 if (SvPOK(obj)) {
1633 STRLEN len = 0;
1634 char *cstr = SvPV(obj, len);
1635 size_t size = len + 1;
1636 if (cptr) {
1637 if (alloc) {
1638 if (*alloc == SWIG_NEWOBJ) {
1639 *cptr = (char *)memcpy(malloc((size)*sizeof(char)), cstr, sizeof(char)*(size));
1640 } else {
1641 *cptr = cstr;
1642 *alloc = SWIG_OLDOBJ;
1643 }
1644 }
1645 }
1646 if (psize) *psize = size;
1647 return SWIG_OK;
1648 } else {
1649 swig_type_info* pchar_descriptor = SWIG_pchar_descriptor();
1650 if (pchar_descriptor) {
1651 char* vptr = 0;
1652 if (SWIG_ConvertPtr(obj, (void**)&vptr, pchar_descriptor, 0) == SWIG_OK) {
1653 if (cptr) *cptr = vptr;
1654 if (psize) *psize = vptr ? (strlen(vptr) + 1) : 0;
1655 if (alloc) *alloc = SWIG_OLDOBJ;
1656 return SWIG_OK;
1657 }
1658 }
1659 }
1660 return SWIG_TypeError;
1661 }
1662
1663
1664
1665
1666
1667 #include <limits.h>
1668 #if !defined(SWIG_NO_LLONG_MAX)
1669 # if !defined(LLONG_MAX) && defined(__GNUC__) && defined (__LONG_LONG_MAX__)
1670 # define LLONG_MAX __LONG_LONG_MAX__
1671 # define LLONG_MIN (-LLONG_MAX - 1LL)
1672 # define ULLONG_MAX (LLONG_MAX * 2ULL + 1ULL)
1673 # endif
1674 #endif
1675
1676
1677 #include <stdlib.h>
1678 #ifdef _MSC_VER
1679 # ifndef strtoull
1680 # define strtoull _strtoui64
1681 # endif
1682 # ifndef strtoll
1683 # define strtoll _strtoi64
1684 # endif
1685 #endif
1686
1687
1688 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,double * val)1689 SWIG_AsVal_double SWIG_PERL_DECL_ARGS_2(SV *obj, double *val)
1690 {
1691 if (SvNIOK(obj)) {
1692 if (val) *val = SvNV(obj);
1693 return SWIG_OK;
1694 } else if (SvIOK(obj)) {
1695 if (val) *val = (double) SvIV(obj);
1696 return SWIG_AddCast(SWIG_OK);
1697 } else {
1698 const char *nptr = SvPV_nolen(obj);
1699 if (nptr) {
1700 char *endptr;
1701 double v;
1702 errno = 0;
1703 v = strtod(nptr, &endptr);
1704 if (errno == ERANGE) {
1705 errno = 0;
1706 return SWIG_OverflowError;
1707 } else {
1708 if (*endptr == '\0') {
1709 if (val) *val = v;
1710 return SWIG_Str2NumCast(SWIG_OK);
1711 }
1712 }
1713 }
1714 }
1715 return SWIG_TypeError;
1716 }
1717
1718
1719 #include <float.h>
1720
1721
1722 #include <math.h>
1723
1724
1725 SWIGINTERNINLINE int
SWIG_CanCastAsInteger(double * d,double min,double max)1726 SWIG_CanCastAsInteger(double *d, double min, double max) {
1727 double x = *d;
1728 if ((min <= x && x <= max)) {
1729 double fx = floor(x);
1730 double cx = ceil(x);
1731 double rd = ((x - fx) < 0.5) ? fx : cx; /* simple rint */
1732 if ((errno == EDOM) || (errno == ERANGE)) {
1733 errno = 0;
1734 } else {
1735 double summ, reps, diff;
1736 if (rd < x) {
1737 diff = x - rd;
1738 } else if (rd > x) {
1739 diff = rd - x;
1740 } else {
1741 return 1;
1742 }
1743 summ = rd + x;
1744 reps = diff/summ;
1745 if (reps < 8*DBL_EPSILON) {
1746 *d = rd;
1747 return 1;
1748 }
1749 }
1750 }
1751 return 0;
1752 }
1753
1754
1755 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,long * val)1756 SWIG_AsVal_long SWIG_PERL_DECL_ARGS_2(SV *obj, long* val)
1757 {
1758 if (SvUOK(obj)) {
1759 UV v = SvUV(obj);
1760 if (UVSIZE < sizeof(*val) || v <= LONG_MAX) {
1761 if (val) *val = v;
1762 return SWIG_OK;
1763 }
1764 return SWIG_OverflowError;
1765 } else if (SvIOK(obj)) {
1766 IV v = SvIV(obj);
1767 if (IVSIZE <= sizeof(*val) || (v >= LONG_MIN && v <= LONG_MAX)) {
1768 if(val) *val = v;
1769 return SWIG_OK;
1770 }
1771 return SWIG_OverflowError;
1772 } else {
1773 int dispatch = 0;
1774 const char *nptr = SvPV_nolen(obj);
1775 if (nptr) {
1776 char *endptr;
1777 long v;
1778 errno = 0;
1779 v = strtol(nptr, &endptr,0);
1780 if (errno == ERANGE) {
1781 errno = 0;
1782 return SWIG_OverflowError;
1783 } else {
1784 if (*endptr == '\0') {
1785 if (val) *val = v;
1786 return SWIG_Str2NumCast(SWIG_OK);
1787 }
1788 }
1789 }
1790 if (!dispatch) {
1791 double d;
1792 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
1793 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, LONG_MIN, LONG_MAX)) {
1794 if (val) *val = (long)(d);
1795 return res;
1796 }
1797 }
1798 }
1799 return SWIG_TypeError;
1800 }
1801
1802
1803 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,int * val)1804 SWIG_AsVal_int SWIG_PERL_DECL_ARGS_2(SV * obj, int *val)
1805 {
1806 long v;
1807 int res = SWIG_AsVal_long SWIG_PERL_CALL_ARGS_2(obj, &v);
1808 if (SWIG_IsOK(res)) {
1809 if ((v < INT_MIN || v > INT_MAX)) {
1810 return SWIG_OverflowError;
1811 } else {
1812 if (val) *val = (int)(v);
1813 }
1814 }
1815 return res;
1816 }
1817
1818
1819 SWIGINTERNINLINE SV *
SWIG_FromCharPtrAndSize(const char * carray,size_t size)1820 SWIG_FromCharPtrAndSize(const char* carray, size_t size)
1821 {
1822 SV *obj = sv_newmortal();
1823 if (carray) {
1824 sv_setpvn(obj, carray, size);
1825 } else {
1826 sv_setsv(obj, &PL_sv_undef);
1827 }
1828 return obj;
1829 }
1830
1831
1832 SWIGINTERNINLINE SV *
SWIG_FromCharPtr(const char * cptr)1833 SWIG_FromCharPtr(const char *cptr)
1834 {
1835 return SWIG_FromCharPtrAndSize(cptr, (cptr ? strlen(cptr) : 0));
1836 }
1837
1838
1839 #include "gsl/gsl_nan.h"
1840 #include "gsl/gsl_errno.h"
1841 #include "gsl/gsl_math.h"
1842 #include "gsl/gsl_monte.h"
1843
1844
1845 struct perl_array {
1846 I32 len;
1847 AV *array;
1848 };
1849
1850
1851
1852 enum awType { awDouble, awFloat, awInt, awUnsigned };
1853
1854 typedef struct {
1855 I32 size;
1856 enum awType type;
1857 void * data;
1858 } array_wrapper;
1859
array_wrapper_alloc(int numelem,enum awType type)1860 array_wrapper * array_wrapper_alloc(int numelem, enum awType type){
1861 array_wrapper * rv = malloc(sizeof(array_wrapper));
1862
1863 if (rv == NULL)
1864 croak("array_wrapper_alloc: can't malloc wrapper\n");
1865
1866 switch (type){
1867 case awDouble:
1868 rv->data = malloc(sizeof(double) * numelem);
1869 break;
1870 case awFloat:
1871 rv->data = malloc(sizeof(float) * numelem);
1872 break;
1873 case awInt:
1874 rv->data = malloc(sizeof(int) * numelem);
1875 break;
1876 case awUnsigned:
1877 rv->data = malloc(sizeof(unsigned int) * numelem);
1878 break;
1879 default:
1880 croak("array_wrapper_alloc: type should be awDouble, awFloat, awInt, or awUnsigned");
1881 }
1882
1883 if (rv->data == NULL)
1884 croak("array_wrapper_alloc: can't malloc data");
1885
1886 rv->size = numelem;
1887 rv->type = type;
1888 return rv;
1889 }
1890
array_wrapper_free(array_wrapper * daw)1891 void array_wrapper_free(array_wrapper * daw){
1892 free(daw->data);
1893 free(daw);
1894 }
1895
1896
1897 /* structure to hold required information while the gsl function call
1898 for each callback
1899 */
1900 struct gsl_function_perl {
1901 gsl_function C_gsl_function;
1902 SV * function;
1903 SV * params;
1904 };
1905
1906 struct gsl_function_fdf_perl {
1907 gsl_function_fdf C_gsl_function_fdf;
1908 SV * f;
1909 SV * df;
1910 SV * fdf;
1911 SV * params;
1912 };
1913
1914 struct gsl_monte_function_perl {
1915 gsl_monte_function C_gsl_monte_function;
1916 SV * f;
1917 SV * dim;
1918 SV * params;
1919 };
1920
gsl_function_perl_free(struct gsl_function_perl * perl_f)1921 void gsl_function_perl_free(struct gsl_function_perl * perl_f){
1922 if (perl_f != NULL) {
1923 SvREFCNT_dec(perl_f->function);
1924 SvREFCNT_dec(perl_f->params);
1925 Safefree(perl_f);
1926 }
1927 }
1928
gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf)1929 void gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf){
1930 if (perl_fdf != NULL) {
1931 SvREFCNT_dec(perl_fdf->f);
1932 SvREFCNT_dec(perl_fdf->df);
1933 SvREFCNT_dec(perl_fdf->fdf);
1934 SvREFCNT_dec(perl_fdf->params);
1935 Safefree(perl_fdf);
1936 }
1937 }
1938
1939 /* These functions (C callbacks) calls the perl callbacks.
1940 Info for perl callback can be found using the 'void*params' parameter
1941 */
call_gsl_function_x_params(SV * function,double x,SV * params)1942 double call_gsl_function_x_params(SV* function, double x, SV *params){
1943 unsigned int count;
1944 double y;
1945 dSP;
1946
1947 //fprintf(stderr, "LOOKUP CALLBACK\n");
1948 ENTER;
1949 SAVETMPS;
1950
1951 PUSHMARK(SP);
1952 XPUSHs(sv_2mortal(newSVnv((double)x)));
1953 XPUSHs(params);
1954 PUTBACK; /* make local stack pointer global */
1955
1956 count = call_sv(function, G_SCALAR);
1957 SPAGAIN;
1958
1959 if (count != 1)
1960 croak("Expected to call subroutine in scalar context!");
1961
1962 y = POPn;
1963
1964 PUTBACK; /* make local stack pointer global */
1965 FREETMPS;
1966 LEAVE;
1967
1968 return y;
1969 }
1970
call_gsl_function(double x,void * params)1971 double call_gsl_function(double x , void *params){
1972 struct gsl_function_perl *F=(struct gsl_function_perl*)params;
1973 return call_gsl_function_x_params( F->function, x, F->params );
1974 }
1975
call_gsl_function_fdf_f(double x,void * params)1976 double call_gsl_function_fdf_f(double x , void *params){
1977 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1978 return call_gsl_function_x_params( F->f, x, F->params );
1979 }
1980
call_gsl_function_fdf_df(double x,void * params)1981 double call_gsl_function_fdf_df(double x , void *params){
1982 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1983 return call_gsl_function_x_params( F->df, x, F->params );
1984 }
1985
call_gsl_function_fdf_fdf(double x,void * params,double * f,double * df)1986 void call_gsl_function_fdf_fdf(double x , void *params, double *f, double *df ){
1987 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1988
1989 dSP;
1990
1991 ENTER;
1992 SAVETMPS;
1993
1994 PUSHMARK(SP);
1995 EXTEND(SP, 2);
1996 PUSHs(sv_2mortal(newSVnv((double)x)));
1997 PUSHs(F->params);
1998 PUTBACK; /* make local stack pointer global */
1999
2000 {
2001 unsigned int count = call_sv(F->fdf, G_ARRAY);
2002 SPAGAIN;
2003
2004 if (count != 2)
2005 croak( "Expected two return values, got %d", count );
2006 }
2007
2008 *df = POPn;
2009 *f = POPn;
2010
2011 PUTBACK; /* make local stack pointer global */
2012 FREETMPS;
2013 LEAVE;
2014 }
2015
call_gsl_monte_function(double * x_array,size_t dim,void * params)2016 double call_gsl_monte_function(double *x_array , size_t dim, void *params){
2017 struct gsl_monte_function_perl *F=(struct gsl_monte_function_perl*)params;
2018 unsigned int count;
2019 unsigned int i;
2020 AV* perl_array;
2021 double y;
2022 dSP;
2023
2024 //fprintf(stderr, "LOOKUP CALLBACK\n");
2025 ENTER;
2026 SAVETMPS;
2027
2028 PUSHMARK(SP);
2029 perl_array=newAV();
2030 sv_2mortal((SV*)perl_array);
2031 XPUSHs(sv_2mortal(newRV((SV *)perl_array)));
2032 for(i=0; i<dim; i++) {
2033 /* no mortal : it is referenced by the array */
2034 av_push(perl_array, newSVnv(x_array[i]));
2035 }
2036 XPUSHs(sv_2mortal(newSViv(dim)));
2037 XPUSHs(F->params);
2038 PUTBACK; /* make local stack pointer global */
2039
2040 count = call_sv(F->f, G_SCALAR);
2041 SPAGAIN;
2042
2043 if (count != 1)
2044 croak("Expected to call subroutine in scalar context!");
2045
2046 y = POPn;
2047
2048 PUTBACK; /* make local stack pointer global */
2049 FREETMPS;
2050 LEAVE;
2051
2052 return y;
2053 }
2054
2055
gsl_function_fdf_extract(char * param_name,HV * hash,SV * func[])2056 void gsl_function_fdf_extract( char* param_name, HV* hash, SV* func[] ) {
2057 static const char *keys[3] = { "f", "df", "fdf" };
2058
2059 int ikey;
2060
2061 for ( ikey = 0 ; ikey < 3 ; ++ikey ) {
2062 func[ikey] = 0;
2063 const char* key = keys[ikey];
2064 /* it just so happens that strlen(keys[ikey]) == ikey + 1 */
2065 SV** pp_sv = hv_fetch( hash, key, ikey+1, 0 );
2066 SV* function;
2067
2068 if ( !pp_sv )
2069 croak("Math::GSL : %s: missing key %s!", param_name, key);
2070
2071 function = *pp_sv;
2072
2073 if ( SvPOK(function) || ( SvROK( function ) && SvTYPE(SvRV(function)) == SVt_PVCV ) ) {
2074 /* hold on to SV after the enclosing hash goes away */
2075 SvREFCNT_inc( function );
2076 func[ikey] = function;
2077 }
2078 else {
2079 croak( "Math::GSL : %s: key %s is not a reference to code!", param_name, key);
2080 }
2081 }
2082 }
2083
2084
2085
2086 #include "gsl/gsl_inline.h"
2087 #include "gsl/gsl_types.h"
2088 #include "gsl/gsl_math.h"
2089 #include "gsl/gsl_vector.h"
2090 #include "gsl/gsl_matrix.h"
2091 #include "gsl/gsl_permutation.h"
2092 #include "gsl/gsl_multifit.h"
2093 #include "gsl/gsl_multilarge.h"
2094
2095
2096 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long * val)2097 SWIG_AsVal_unsigned_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long *val)
2098 {
2099 if (SvUOK(obj)) {
2100 UV v = SvUV(obj);
2101 if (UVSIZE <= sizeof(*val) || v <= ULONG_MAX) {
2102 if (val) *val = v;
2103 return SWIG_OK;
2104 }
2105 return SWIG_OverflowError;
2106 } else if (SvIOK(obj)) {
2107 IV v = SvIV(obj);
2108 if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULONG_MAX)) {
2109 if (val) *val = v;
2110 return SWIG_OK;
2111 }
2112 return SWIG_OverflowError;
2113 } else {
2114 int dispatch = 0;
2115 const char *nptr = SvPV_nolen(obj);
2116 if (nptr) {
2117 char *endptr;
2118 unsigned long v;
2119 errno = 0;
2120 v = strtoul(nptr, &endptr,0);
2121 if (errno == ERANGE) {
2122 errno = 0;
2123 return SWIG_OverflowError;
2124 } else {
2125 if (*endptr == '\0') {
2126 if (val) *val = v;
2127 return SWIG_Str2NumCast(SWIG_OK);
2128 }
2129 }
2130 }
2131 if (!dispatch) {
2132 double d;
2133 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2134 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, ULONG_MAX)) {
2135 if (val) *val = (unsigned long)(d);
2136 return res;
2137 }
2138 }
2139 }
2140 return SWIG_TypeError;
2141 }
2142
2143
2144 #if defined(LLONG_MAX) && !defined(SWIG_LONG_LONG_AVAILABLE)
2145 # define SWIG_LONG_LONG_AVAILABLE
2146 #endif
2147
2148
2149 #ifdef SWIG_LONG_LONG_AVAILABLE
2150 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long long * val)2151 SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long long *val)
2152 {
2153 if (SvUOK(obj)) {
2154 /* pretty sure this should be conditional on
2155 * (UVSIZE <= sizeof(*val) || v <= ULLONG_MAX) */
2156 if (val) *val = SvUV(obj);
2157 return SWIG_OK;
2158 } else if (SvIOK(obj)) {
2159 IV v = SvIV(obj);
2160 if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULLONG_MAX)) {
2161 if (val) *val = v;
2162 return SWIG_OK;
2163 } else {
2164 return SWIG_OverflowError;
2165 }
2166 } else {
2167 int dispatch = 0;
2168 const char *nptr = SvPV_nolen(obj);
2169 if (nptr) {
2170 char *endptr;
2171 unsigned long long v;
2172 errno = 0;
2173 v = strtoull(nptr, &endptr,0);
2174 if (errno == ERANGE) {
2175 errno = 0;
2176 return SWIG_OverflowError;
2177 } else {
2178 if (*endptr == '\0') {
2179 if (val) *val = v;
2180 return SWIG_Str2NumCast(SWIG_OK);
2181 }
2182 }
2183 }
2184 if (!dispatch) {
2185 const double mant_max = 1LL << DBL_MANT_DIG;
2186 double d;
2187 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2188 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, mant_max)) {
2189 if (val) *val = (unsigned long long)(d);
2190 return res;
2191 }
2192 }
2193 }
2194 return SWIG_TypeError;
2195 }
2196 #endif
2197
2198
2199 SWIGINTERNINLINE int
SWIG_PERL_DECL_ARGS_2(SV * obj,size_t * val)2200 SWIG_AsVal_size_t SWIG_PERL_DECL_ARGS_2(SV * obj, size_t *val)
2201 {
2202 int res = SWIG_TypeError;
2203 #ifdef SWIG_LONG_LONG_AVAILABLE
2204 if (sizeof(size_t) <= sizeof(unsigned long)) {
2205 #endif
2206 unsigned long v;
2207 res = SWIG_AsVal_unsigned_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2208 if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2209 #ifdef SWIG_LONG_LONG_AVAILABLE
2210 } else if (sizeof(size_t) <= sizeof(unsigned long long)) {
2211 unsigned long long v;
2212 res = SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2213 if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2214 }
2215 #endif
2216 return res;
2217 }
2218
2219
2220 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long value)2221 SWIG_From_unsigned_SS_long SWIG_PERL_DECL_ARGS_1(unsigned long value)
2222 {
2223 SV *sv;
2224 if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2225 sv = newSVuv(value);
2226 else
2227 sv = newSVpvf("%lu", value);
2228 return sv_2mortal(sv);
2229 }
2230
2231
2232 #include <stdio.h>
2233 #if (defined(_MSC_VER) && (_MSC_VER < 1900)) || defined(__BORLANDC__) || defined(_WATCOM)
2234 # ifndef snprintf
2235 # define snprintf _snprintf
2236 # endif
2237 #endif
2238
2239
2240 #ifdef SWIG_LONG_LONG_AVAILABLE
2241 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long long value)2242 SWIG_From_unsigned_SS_long_SS_long SWIG_PERL_DECL_ARGS_1(unsigned long long value)
2243 {
2244 SV *sv;
2245 if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2246 sv = newSVuv((UV)(value));
2247 else {
2248 //sv = newSVpvf("%llu", value); doesn't work in non 64bit Perl
2249 char temp[256];
2250 sprintf(temp, "%llu", value);
2251 sv = newSVpv(temp, 0);
2252 }
2253 return sv_2mortal(sv);
2254 }
2255 #endif
2256
2257
2258 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(size_t value)2259 SWIG_From_size_t SWIG_PERL_DECL_ARGS_1(size_t value)
2260 {
2261 #ifdef SWIG_LONG_LONG_AVAILABLE
2262 if (sizeof(size_t) <= sizeof(unsigned long)) {
2263 #endif
2264 return SWIG_From_unsigned_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long)(value));
2265 #ifdef SWIG_LONG_LONG_AVAILABLE
2266 } else {
2267 /* assume sizeof(size_t) <= sizeof(unsigned long long) */
2268 return SWIG_From_unsigned_SS_long_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long long)(value));
2269 }
2270 #endif
2271 }
2272
2273 #ifdef __cplusplus
2274 extern "C" {
2275 #endif
2276
2277 #ifdef PERL_OBJECT
2278 #define MAGIC_CLASS _wrap_Math__GSL__Multilarge_var::
2279 class _wrap_Math__GSL__Multilarge_var : public CPerlObj {
2280 public:
2281 #else
2282 #define MAGIC_CLASS
2283 #endif
swig_magic_readonly(pTHX_ SV * SWIGUNUSEDPARM (sv),MAGIC * SWIGUNUSEDPARM (mg))2284 SWIGCLASS_STATIC int swig_magic_readonly(pTHX_ SV *SWIGUNUSEDPARM(sv), MAGIC *SWIGUNUSEDPARM(mg)) {
2285 MAGIC_PPERL
2286 croak("Value is read-only.");
2287 return 0;
2288 }
_wrap_gsl_multifit_robust_default_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2289 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_default_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2290 MAGIC_PPERL
2291 {
2292 void *argp = 0;
2293 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_multifit_robust_type, 0 );
2294 if (!SWIG_IsOK(res)) {
2295 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_multifit_robust_default""' of type '""gsl_multifit_robust_type const *""'");
2296 }
2297 gsl_multifit_robust_default = (gsl_multifit_robust_type *)(argp);
2298 }
2299 fail:
2300 return 1;
2301 }
2302
2303
_wrap_gsl_multifit_robust_default_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2304 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_default_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2305 MAGIC_PPERL
2306 sv_setiv(SvRV(sv),PTR2IV(gsl_multifit_robust_default));
2307 return 1;
2308 }
2309
2310
_wrap_gsl_multifit_robust_bisquare_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2311 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_bisquare_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2312 MAGIC_PPERL
2313 {
2314 void *argp = 0;
2315 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_multifit_robust_type, 0 );
2316 if (!SWIG_IsOK(res)) {
2317 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_multifit_robust_bisquare""' of type '""gsl_multifit_robust_type const *""'");
2318 }
2319 gsl_multifit_robust_bisquare = (gsl_multifit_robust_type *)(argp);
2320 }
2321 fail:
2322 return 1;
2323 }
2324
2325
_wrap_gsl_multifit_robust_bisquare_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2326 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_bisquare_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2327 MAGIC_PPERL
2328 sv_setiv(SvRV(sv),PTR2IV(gsl_multifit_robust_bisquare));
2329 return 1;
2330 }
2331
2332
_wrap_gsl_multifit_robust_cauchy_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2333 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_cauchy_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2334 MAGIC_PPERL
2335 {
2336 void *argp = 0;
2337 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_multifit_robust_type, 0 );
2338 if (!SWIG_IsOK(res)) {
2339 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_multifit_robust_cauchy""' of type '""gsl_multifit_robust_type const *""'");
2340 }
2341 gsl_multifit_robust_cauchy = (gsl_multifit_robust_type *)(argp);
2342 }
2343 fail:
2344 return 1;
2345 }
2346
2347
_wrap_gsl_multifit_robust_cauchy_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2348 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_cauchy_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2349 MAGIC_PPERL
2350 sv_setiv(SvRV(sv),PTR2IV(gsl_multifit_robust_cauchy));
2351 return 1;
2352 }
2353
2354
_wrap_gsl_multifit_robust_fair_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2355 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_fair_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2356 MAGIC_PPERL
2357 {
2358 void *argp = 0;
2359 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_multifit_robust_type, 0 );
2360 if (!SWIG_IsOK(res)) {
2361 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_multifit_robust_fair""' of type '""gsl_multifit_robust_type const *""'");
2362 }
2363 gsl_multifit_robust_fair = (gsl_multifit_robust_type *)(argp);
2364 }
2365 fail:
2366 return 1;
2367 }
2368
2369
_wrap_gsl_multifit_robust_fair_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2370 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_fair_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2371 MAGIC_PPERL
2372 sv_setiv(SvRV(sv),PTR2IV(gsl_multifit_robust_fair));
2373 return 1;
2374 }
2375
2376
_wrap_gsl_multifit_robust_huber_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2377 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_huber_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2378 MAGIC_PPERL
2379 {
2380 void *argp = 0;
2381 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_multifit_robust_type, 0 );
2382 if (!SWIG_IsOK(res)) {
2383 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_multifit_robust_huber""' of type '""gsl_multifit_robust_type const *""'");
2384 }
2385 gsl_multifit_robust_huber = (gsl_multifit_robust_type *)(argp);
2386 }
2387 fail:
2388 return 1;
2389 }
2390
2391
_wrap_gsl_multifit_robust_huber_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2392 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_huber_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2393 MAGIC_PPERL
2394 sv_setiv(SvRV(sv),PTR2IV(gsl_multifit_robust_huber));
2395 return 1;
2396 }
2397
2398
_wrap_gsl_multifit_robust_ols_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2399 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_ols_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2400 MAGIC_PPERL
2401 {
2402 void *argp = 0;
2403 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_multifit_robust_type, 0 );
2404 if (!SWIG_IsOK(res)) {
2405 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_multifit_robust_ols""' of type '""gsl_multifit_robust_type const *""'");
2406 }
2407 gsl_multifit_robust_ols = (gsl_multifit_robust_type *)(argp);
2408 }
2409 fail:
2410 return 1;
2411 }
2412
2413
_wrap_gsl_multifit_robust_ols_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2414 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_ols_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2415 MAGIC_PPERL
2416 sv_setiv(SvRV(sv),PTR2IV(gsl_multifit_robust_ols));
2417 return 1;
2418 }
2419
2420
_wrap_gsl_multifit_robust_welsch_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2421 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_welsch_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2422 MAGIC_PPERL
2423 {
2424 void *argp = 0;
2425 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_multifit_robust_type, 0 );
2426 if (!SWIG_IsOK(res)) {
2427 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_multifit_robust_welsch""' of type '""gsl_multifit_robust_type const *""'");
2428 }
2429 gsl_multifit_robust_welsch = (gsl_multifit_robust_type *)(argp);
2430 }
2431 fail:
2432 return 1;
2433 }
2434
2435
_wrap_gsl_multifit_robust_welsch_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2436 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_welsch_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2437 MAGIC_PPERL
2438 sv_setiv(SvRV(sv),PTR2IV(gsl_multifit_robust_welsch));
2439 return 1;
2440 }
2441
2442
_wrap_gsl_multilarge_linear_normal_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2443 SWIGCLASS_STATIC int _wrap_gsl_multilarge_linear_normal_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2444 MAGIC_PPERL
2445 {
2446 void *argp = 0;
2447 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_multilarge_linear_type, 0 );
2448 if (!SWIG_IsOK(res)) {
2449 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_multilarge_linear_normal""' of type '""gsl_multilarge_linear_type const *""'");
2450 }
2451 gsl_multilarge_linear_normal = (gsl_multilarge_linear_type *)(argp);
2452 }
2453 fail:
2454 return 1;
2455 }
2456
2457
_wrap_gsl_multilarge_linear_normal_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2458 SWIGCLASS_STATIC int _wrap_gsl_multilarge_linear_normal_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2459 MAGIC_PPERL
2460 sv_setiv(SvRV(sv),PTR2IV(gsl_multilarge_linear_normal));
2461 return 1;
2462 }
2463
2464
_wrap_gsl_multilarge_linear_tsqr_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2465 SWIGCLASS_STATIC int _wrap_gsl_multilarge_linear_tsqr_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2466 MAGIC_PPERL
2467 {
2468 void *argp = 0;
2469 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_multilarge_linear_type, 0 );
2470 if (!SWIG_IsOK(res)) {
2471 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_multilarge_linear_tsqr""' of type '""gsl_multilarge_linear_type const *""'");
2472 }
2473 gsl_multilarge_linear_tsqr = (gsl_multilarge_linear_type *)(argp);
2474 }
2475 fail:
2476 return 1;
2477 }
2478
2479
_wrap_gsl_multilarge_linear_tsqr_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2480 SWIGCLASS_STATIC int _wrap_gsl_multilarge_linear_tsqr_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2481 MAGIC_PPERL
2482 sv_setiv(SvRV(sv),PTR2IV(gsl_multilarge_linear_tsqr));
2483 return 1;
2484 }
2485
2486
2487
2488
2489 #ifdef PERL_OBJECT
2490 };
2491 #endif
2492
2493 #ifdef __cplusplus
2494 }
2495 #endif
2496
2497 #ifdef __cplusplus
2498 extern "C" {
2499 #endif
XS(_wrap_gsl_error)2500 XS(_wrap_gsl_error) {
2501 {
2502 char *arg1 = (char *) 0 ;
2503 char *arg2 = (char *) 0 ;
2504 int arg3 ;
2505 int arg4 ;
2506 int res1 ;
2507 char *buf1 = 0 ;
2508 int alloc1 = 0 ;
2509 int res2 ;
2510 char *buf2 = 0 ;
2511 int alloc2 = 0 ;
2512 int val3 ;
2513 int ecode3 = 0 ;
2514 int val4 ;
2515 int ecode4 = 0 ;
2516 int argvi = 0;
2517 dXSARGS;
2518
2519 if ((items < 4) || (items > 4)) {
2520 SWIG_croak("Usage: gsl_error(reason,file,line,gsl_errno);");
2521 }
2522 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2523 if (!SWIG_IsOK(res1)) {
2524 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_error" "', argument " "1"" of type '" "char const *""'");
2525 }
2526 arg1 = (char *)(buf1);
2527 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2528 if (!SWIG_IsOK(res2)) {
2529 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_error" "', argument " "2"" of type '" "char const *""'");
2530 }
2531 arg2 = (char *)(buf2);
2532 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2533 if (!SWIG_IsOK(ecode3)) {
2534 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_error" "', argument " "3"" of type '" "int""'");
2535 }
2536 arg3 = (int)(val3);
2537 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
2538 if (!SWIG_IsOK(ecode4)) {
2539 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_error" "', argument " "4"" of type '" "int""'");
2540 }
2541 arg4 = (int)(val4);
2542 gsl_error((char const *)arg1,(char const *)arg2,arg3,arg4);
2543 ST(argvi) = &PL_sv_undef;
2544 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2545 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2546
2547
2548 XSRETURN(argvi);
2549 fail:
2550 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2551 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2552
2553
2554 SWIG_croak_null();
2555 }
2556 }
2557
2558
XS(_wrap_gsl_stream_printf)2559 XS(_wrap_gsl_stream_printf) {
2560 {
2561 char *arg1 = (char *) 0 ;
2562 char *arg2 = (char *) 0 ;
2563 int arg3 ;
2564 char *arg4 = (char *) 0 ;
2565 int res1 ;
2566 char *buf1 = 0 ;
2567 int alloc1 = 0 ;
2568 int res2 ;
2569 char *buf2 = 0 ;
2570 int alloc2 = 0 ;
2571 int val3 ;
2572 int ecode3 = 0 ;
2573 int res4 ;
2574 char *buf4 = 0 ;
2575 int alloc4 = 0 ;
2576 int argvi = 0;
2577 dXSARGS;
2578
2579 if ((items < 4) || (items > 4)) {
2580 SWIG_croak("Usage: gsl_stream_printf(label,file,line,reason);");
2581 }
2582 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2583 if (!SWIG_IsOK(res1)) {
2584 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_stream_printf" "', argument " "1"" of type '" "char const *""'");
2585 }
2586 arg1 = (char *)(buf1);
2587 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2588 if (!SWIG_IsOK(res2)) {
2589 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_stream_printf" "', argument " "2"" of type '" "char const *""'");
2590 }
2591 arg2 = (char *)(buf2);
2592 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2593 if (!SWIG_IsOK(ecode3)) {
2594 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_stream_printf" "', argument " "3"" of type '" "int""'");
2595 }
2596 arg3 = (int)(val3);
2597 res4 = SWIG_AsCharPtrAndSize(ST(3), &buf4, NULL, &alloc4);
2598 if (!SWIG_IsOK(res4)) {
2599 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_stream_printf" "', argument " "4"" of type '" "char const *""'");
2600 }
2601 arg4 = (char *)(buf4);
2602 gsl_stream_printf((char const *)arg1,(char const *)arg2,arg3,(char const *)arg4);
2603 ST(argvi) = &PL_sv_undef;
2604 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2605 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2606
2607 if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2608 XSRETURN(argvi);
2609 fail:
2610 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2611 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2612
2613 if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2614 SWIG_croak_null();
2615 }
2616 }
2617
2618
XS(_wrap_gsl_strerror)2619 XS(_wrap_gsl_strerror) {
2620 {
2621 int arg1 ;
2622 int val1 ;
2623 int ecode1 = 0 ;
2624 int argvi = 0;
2625 char *result = 0 ;
2626 dXSARGS;
2627
2628 if ((items < 1) || (items > 1)) {
2629 SWIG_croak("Usage: gsl_strerror(gsl_errno);");
2630 }
2631 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2632 if (!SWIG_IsOK(ecode1)) {
2633 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_strerror" "', argument " "1"" of type '" "int""'");
2634 }
2635 arg1 = (int)(val1);
2636 result = (char *)gsl_strerror(arg1);
2637 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
2638
2639 XSRETURN(argvi);
2640 fail:
2641
2642 SWIG_croak_null();
2643 }
2644 }
2645
2646
XS(_wrap_gsl_set_error_handler)2647 XS(_wrap_gsl_set_error_handler) {
2648 {
2649 gsl_error_handler_t *arg1 = (gsl_error_handler_t *) 0 ;
2650 int argvi = 0;
2651 gsl_error_handler_t *result = 0 ;
2652 dXSARGS;
2653
2654 if ((items < 1) || (items > 1)) {
2655 SWIG_croak("Usage: gsl_set_error_handler(new_handler);");
2656 }
2657 {
2658 int res = SWIG_ConvertFunctionPtr(ST(0), (void**)(&arg1), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void);
2659 if (!SWIG_IsOK(res)) {
2660 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_error_handler" "', argument " "1"" of type '" "gsl_error_handler_t *""'");
2661 }
2662 }
2663 result = (gsl_error_handler_t *)gsl_set_error_handler(arg1);
2664 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2665
2666 XSRETURN(argvi);
2667 fail:
2668
2669 SWIG_croak_null();
2670 }
2671 }
2672
2673
XS(_wrap_gsl_set_error_handler_off)2674 XS(_wrap_gsl_set_error_handler_off) {
2675 {
2676 int argvi = 0;
2677 gsl_error_handler_t *result = 0 ;
2678 dXSARGS;
2679
2680 if ((items < 0) || (items > 0)) {
2681 SWIG_croak("Usage: gsl_set_error_handler_off();");
2682 }
2683 result = (gsl_error_handler_t *)gsl_set_error_handler_off();
2684 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2685 XSRETURN(argvi);
2686 fail:
2687 SWIG_croak_null();
2688 }
2689 }
2690
2691
XS(_wrap_gsl_set_stream_handler)2692 XS(_wrap_gsl_set_stream_handler) {
2693 {
2694 gsl_stream_handler_t *arg1 = (gsl_stream_handler_t *) 0 ;
2695 int argvi = 0;
2696 gsl_stream_handler_t *result = 0 ;
2697 dXSARGS;
2698
2699 if ((items < 1) || (items > 1)) {
2700 SWIG_croak("Usage: gsl_set_stream_handler(new_handler);");
2701 }
2702 {
2703 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);
2704 if (!SWIG_IsOK(res)) {
2705 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_stream_handler" "', argument " "1"" of type '" "gsl_stream_handler_t *""'");
2706 }
2707 }
2708 result = (gsl_stream_handler_t *)gsl_set_stream_handler(arg1);
2709 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void); argvi++ ;
2710
2711 XSRETURN(argvi);
2712 fail:
2713
2714 SWIG_croak_null();
2715 }
2716 }
2717
2718
XS(_wrap_gsl_set_stream)2719 XS(_wrap_gsl_set_stream) {
2720 {
2721 FILE *arg1 = (FILE *) 0 ;
2722 void *argp1 = 0 ;
2723 int res1 = 0 ;
2724 int argvi = 0;
2725 FILE *result = 0 ;
2726 dXSARGS;
2727
2728 if ((items < 1) || (items > 1)) {
2729 SWIG_croak("Usage: gsl_set_stream(new_stream);");
2730 }
2731 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
2732 if (!SWIG_IsOK(res1)) {
2733 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_set_stream" "', argument " "1"" of type '" "FILE *""'");
2734 }
2735 arg1 = (FILE *)(argp1);
2736 result = (FILE *)gsl_set_stream(arg1);
2737 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_FILE, 0 | 0); argvi++ ;
2738
2739 XSRETURN(argvi);
2740 fail:
2741
2742 SWIG_croak_null();
2743 }
2744 }
2745
2746
XS(_wrap_gsl_function_struct_function_set)2747 XS(_wrap_gsl_function_struct_function_set) {
2748 {
2749 struct gsl_function_struct *arg1 = (struct gsl_function_struct *) 0 ;
2750 double (*arg2)(double,void *) = (double (*)(double,void *)) 0 ;
2751 void *argp1 = 0 ;
2752 int res1 = 0 ;
2753 int argvi = 0;
2754 dXSARGS;
2755
2756 if ((items < 2) || (items > 2)) {
2757 SWIG_croak("Usage: gsl_function_struct_function_set(self,function);");
2758 }
2759 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_struct, 0 | 0 );
2760 if (!SWIG_IsOK(res1)) {
2761 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_struct_function_set" "', argument " "1"" of type '" "struct gsl_function_struct *""'");
2762 }
2763 arg1 = (struct gsl_function_struct *)(argp1);
2764 {
2765 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_double_p_void__double);
2766 if (!SWIG_IsOK(res)) {
2767 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_function_struct_function_set" "', argument " "2"" of type '" "double (*)(double,void *)""'");
2768 }
2769 }
2770 if (arg1) (arg1)->function = arg2;
2771 ST(argvi) = &PL_sv_undef;
2772
2773
2774 XSRETURN(argvi);
2775 fail:
2776
2777
2778 SWIG_croak_null();
2779 }
2780 }
2781
2782
XS(_wrap_gsl_function_struct_function_get)2783 XS(_wrap_gsl_function_struct_function_get) {
2784 {
2785 struct gsl_function_struct *arg1 = (struct gsl_function_struct *) 0 ;
2786 void *argp1 = 0 ;
2787 int res1 = 0 ;
2788 int argvi = 0;
2789 double (*result)(double,void *) = 0 ;
2790 dXSARGS;
2791
2792 if ((items < 1) || (items > 1)) {
2793 SWIG_croak("Usage: gsl_function_struct_function_get(self);");
2794 }
2795 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_struct, 0 | 0 );
2796 if (!SWIG_IsOK(res1)) {
2797 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_struct_function_get" "', argument " "1"" of type '" "struct gsl_function_struct *""'");
2798 }
2799 arg1 = (struct gsl_function_struct *)(argp1);
2800 result = (double (*)(double,void *)) ((arg1)->function);
2801 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_double_p_void__double); argvi++ ;
2802
2803 XSRETURN(argvi);
2804 fail:
2805
2806 SWIG_croak_null();
2807 }
2808 }
2809
2810
XS(_wrap_gsl_function_struct_params_set)2811 XS(_wrap_gsl_function_struct_params_set) {
2812 {
2813 struct gsl_function_struct *arg1 = (struct gsl_function_struct *) 0 ;
2814 void *arg2 = (void *) 0 ;
2815 void *argp1 = 0 ;
2816 int res1 = 0 ;
2817 int res2 ;
2818 int argvi = 0;
2819 dXSARGS;
2820
2821 if ((items < 2) || (items > 2)) {
2822 SWIG_croak("Usage: gsl_function_struct_params_set(self,params);");
2823 }
2824 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_struct, 0 | 0 );
2825 if (!SWIG_IsOK(res1)) {
2826 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_struct_params_set" "', argument " "1"" of type '" "struct gsl_function_struct *""'");
2827 }
2828 arg1 = (struct gsl_function_struct *)(argp1);
2829 res2 = SWIG_ConvertPtr(ST(1),SWIG_as_voidptrptr(&arg2), 0, SWIG_POINTER_DISOWN);
2830 if (!SWIG_IsOK(res2)) {
2831 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_function_struct_params_set" "', argument " "2"" of type '" "void *""'");
2832 }
2833 if (arg1) (arg1)->params = arg2;
2834 ST(argvi) = &PL_sv_undef;
2835
2836
2837 XSRETURN(argvi);
2838 fail:
2839
2840
2841 SWIG_croak_null();
2842 }
2843 }
2844
2845
XS(_wrap_gsl_function_struct_params_get)2846 XS(_wrap_gsl_function_struct_params_get) {
2847 {
2848 struct gsl_function_struct *arg1 = (struct gsl_function_struct *) 0 ;
2849 void *argp1 = 0 ;
2850 int res1 = 0 ;
2851 int argvi = 0;
2852 void *result = 0 ;
2853 dXSARGS;
2854
2855 if ((items < 1) || (items > 1)) {
2856 SWIG_croak("Usage: gsl_function_struct_params_get(self);");
2857 }
2858 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_struct, 0 | 0 );
2859 if (!SWIG_IsOK(res1)) {
2860 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_struct_params_get" "', argument " "1"" of type '" "struct gsl_function_struct *""'");
2861 }
2862 arg1 = (struct gsl_function_struct *)(argp1);
2863 result = (void *) ((arg1)->params);
2864 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_void, 0 | 0); argvi++ ;
2865
2866 XSRETURN(argvi);
2867 fail:
2868
2869 SWIG_croak_null();
2870 }
2871 }
2872
2873
XS(_wrap_new_gsl_function_struct)2874 XS(_wrap_new_gsl_function_struct) {
2875 {
2876 int argvi = 0;
2877 struct gsl_function_struct *result = 0 ;
2878 dXSARGS;
2879
2880 if ((items < 0) || (items > 0)) {
2881 SWIG_croak("Usage: new_gsl_function_struct();");
2882 }
2883 result = (struct gsl_function_struct *)calloc(1, sizeof(struct gsl_function_struct));
2884 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_function_struct, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
2885 XSRETURN(argvi);
2886 fail:
2887 SWIG_croak_null();
2888 }
2889 }
2890
2891
XS(_wrap_delete_gsl_function_struct)2892 XS(_wrap_delete_gsl_function_struct) {
2893 {
2894 struct gsl_function_struct *arg1 = (struct gsl_function_struct *) 0 ;
2895 void *argp1 = 0 ;
2896 int res1 = 0 ;
2897 int argvi = 0;
2898 dXSARGS;
2899
2900 if ((items < 1) || (items > 1)) {
2901 SWIG_croak("Usage: delete_gsl_function_struct(self);");
2902 }
2903 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_struct, SWIG_POINTER_DISOWN | 0 );
2904 if (!SWIG_IsOK(res1)) {
2905 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_function_struct" "', argument " "1"" of type '" "struct gsl_function_struct *""'");
2906 }
2907 arg1 = (struct gsl_function_struct *)(argp1);
2908 free((char *) arg1);
2909 ST(argvi) = &PL_sv_undef;
2910
2911 XSRETURN(argvi);
2912 fail:
2913
2914 SWIG_croak_null();
2915 }
2916 }
2917
2918
XS(_wrap_gsl_function_fdf_struct_f_set)2919 XS(_wrap_gsl_function_fdf_struct_f_set) {
2920 {
2921 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
2922 double (*arg2)(double,void *) = (double (*)(double,void *)) 0 ;
2923 void *argp1 = 0 ;
2924 int res1 = 0 ;
2925 int argvi = 0;
2926 dXSARGS;
2927
2928 if ((items < 2) || (items > 2)) {
2929 SWIG_croak("Usage: gsl_function_fdf_struct_f_set(self,f);");
2930 }
2931 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
2932 if (!SWIG_IsOK(res1)) {
2933 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_f_set" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
2934 }
2935 arg1 = (struct gsl_function_fdf_struct *)(argp1);
2936 {
2937 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_double_p_void__double);
2938 if (!SWIG_IsOK(res)) {
2939 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_function_fdf_struct_f_set" "', argument " "2"" of type '" "double (*)(double,void *)""'");
2940 }
2941 }
2942 if (arg1) (arg1)->f = arg2;
2943 ST(argvi) = &PL_sv_undef;
2944
2945
2946 XSRETURN(argvi);
2947 fail:
2948
2949
2950 SWIG_croak_null();
2951 }
2952 }
2953
2954
XS(_wrap_gsl_function_fdf_struct_f_get)2955 XS(_wrap_gsl_function_fdf_struct_f_get) {
2956 {
2957 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
2958 void *argp1 = 0 ;
2959 int res1 = 0 ;
2960 int argvi = 0;
2961 double (*result)(double,void *) = 0 ;
2962 dXSARGS;
2963
2964 if ((items < 1) || (items > 1)) {
2965 SWIG_croak("Usage: gsl_function_fdf_struct_f_get(self);");
2966 }
2967 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
2968 if (!SWIG_IsOK(res1)) {
2969 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_f_get" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
2970 }
2971 arg1 = (struct gsl_function_fdf_struct *)(argp1);
2972 result = (double (*)(double,void *)) ((arg1)->f);
2973 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_double_p_void__double); argvi++ ;
2974
2975 XSRETURN(argvi);
2976 fail:
2977
2978 SWIG_croak_null();
2979 }
2980 }
2981
2982
XS(_wrap_gsl_function_fdf_struct_df_set)2983 XS(_wrap_gsl_function_fdf_struct_df_set) {
2984 {
2985 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
2986 double (*arg2)(double,void *) = (double (*)(double,void *)) 0 ;
2987 void *argp1 = 0 ;
2988 int res1 = 0 ;
2989 int argvi = 0;
2990 dXSARGS;
2991
2992 if ((items < 2) || (items > 2)) {
2993 SWIG_croak("Usage: gsl_function_fdf_struct_df_set(self,df);");
2994 }
2995 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
2996 if (!SWIG_IsOK(res1)) {
2997 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_df_set" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
2998 }
2999 arg1 = (struct gsl_function_fdf_struct *)(argp1);
3000 {
3001 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_double_p_void__double);
3002 if (!SWIG_IsOK(res)) {
3003 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_function_fdf_struct_df_set" "', argument " "2"" of type '" "double (*)(double,void *)""'");
3004 }
3005 }
3006 if (arg1) (arg1)->df = arg2;
3007 ST(argvi) = &PL_sv_undef;
3008
3009
3010 XSRETURN(argvi);
3011 fail:
3012
3013
3014 SWIG_croak_null();
3015 }
3016 }
3017
3018
XS(_wrap_gsl_function_fdf_struct_df_get)3019 XS(_wrap_gsl_function_fdf_struct_df_get) {
3020 {
3021 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
3022 void *argp1 = 0 ;
3023 int res1 = 0 ;
3024 int argvi = 0;
3025 double (*result)(double,void *) = 0 ;
3026 dXSARGS;
3027
3028 if ((items < 1) || (items > 1)) {
3029 SWIG_croak("Usage: gsl_function_fdf_struct_df_get(self);");
3030 }
3031 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
3032 if (!SWIG_IsOK(res1)) {
3033 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_df_get" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
3034 }
3035 arg1 = (struct gsl_function_fdf_struct *)(argp1);
3036 result = (double (*)(double,void *)) ((arg1)->df);
3037 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_double_p_void__double); argvi++ ;
3038
3039 XSRETURN(argvi);
3040 fail:
3041
3042 SWIG_croak_null();
3043 }
3044 }
3045
3046
XS(_wrap_gsl_function_fdf_struct_fdf_set)3047 XS(_wrap_gsl_function_fdf_struct_fdf_set) {
3048 {
3049 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
3050 void (*arg2)(double,void *,double *,double *) = (void (*)(double,void *,double *,double *)) 0 ;
3051 void *argp1 = 0 ;
3052 int res1 = 0 ;
3053 int argvi = 0;
3054 dXSARGS;
3055
3056 if ((items < 2) || (items > 2)) {
3057 SWIG_croak("Usage: gsl_function_fdf_struct_fdf_set(self,fdf);");
3058 }
3059 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
3060 if (!SWIG_IsOK(res1)) {
3061 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_fdf_set" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
3062 }
3063 arg1 = (struct gsl_function_fdf_struct *)(argp1);
3064 {
3065 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_double_p_void_p_double_p_double__void);
3066 if (!SWIG_IsOK(res)) {
3067 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_function_fdf_struct_fdf_set" "', argument " "2"" of type '" "void (*)(double,void *,double *,double *)""'");
3068 }
3069 }
3070 if (arg1) (arg1)->fdf = arg2;
3071 ST(argvi) = &PL_sv_undef;
3072
3073
3074 XSRETURN(argvi);
3075 fail:
3076
3077
3078 SWIG_croak_null();
3079 }
3080 }
3081
3082
XS(_wrap_gsl_function_fdf_struct_fdf_get)3083 XS(_wrap_gsl_function_fdf_struct_fdf_get) {
3084 {
3085 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
3086 void *argp1 = 0 ;
3087 int res1 = 0 ;
3088 int argvi = 0;
3089 void (*result)(double,void *,double *,double *) = 0 ;
3090 dXSARGS;
3091
3092 if ((items < 1) || (items > 1)) {
3093 SWIG_croak("Usage: gsl_function_fdf_struct_fdf_get(self);");
3094 }
3095 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
3096 if (!SWIG_IsOK(res1)) {
3097 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_fdf_get" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
3098 }
3099 arg1 = (struct gsl_function_fdf_struct *)(argp1);
3100 result = (void (*)(double,void *,double *,double *)) ((arg1)->fdf);
3101 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_double_p_void_p_double_p_double__void); argvi++ ;
3102
3103 XSRETURN(argvi);
3104 fail:
3105
3106 SWIG_croak_null();
3107 }
3108 }
3109
3110
XS(_wrap_gsl_function_fdf_struct_params_set)3111 XS(_wrap_gsl_function_fdf_struct_params_set) {
3112 {
3113 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
3114 void *arg2 = (void *) 0 ;
3115 void *argp1 = 0 ;
3116 int res1 = 0 ;
3117 int res2 ;
3118 int argvi = 0;
3119 dXSARGS;
3120
3121 if ((items < 2) || (items > 2)) {
3122 SWIG_croak("Usage: gsl_function_fdf_struct_params_set(self,params);");
3123 }
3124 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
3125 if (!SWIG_IsOK(res1)) {
3126 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_params_set" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
3127 }
3128 arg1 = (struct gsl_function_fdf_struct *)(argp1);
3129 res2 = SWIG_ConvertPtr(ST(1),SWIG_as_voidptrptr(&arg2), 0, SWIG_POINTER_DISOWN);
3130 if (!SWIG_IsOK(res2)) {
3131 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_function_fdf_struct_params_set" "', argument " "2"" of type '" "void *""'");
3132 }
3133 if (arg1) (arg1)->params = arg2;
3134 ST(argvi) = &PL_sv_undef;
3135
3136
3137 XSRETURN(argvi);
3138 fail:
3139
3140
3141 SWIG_croak_null();
3142 }
3143 }
3144
3145
XS(_wrap_gsl_function_fdf_struct_params_get)3146 XS(_wrap_gsl_function_fdf_struct_params_get) {
3147 {
3148 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
3149 void *argp1 = 0 ;
3150 int res1 = 0 ;
3151 int argvi = 0;
3152 void *result = 0 ;
3153 dXSARGS;
3154
3155 if ((items < 1) || (items > 1)) {
3156 SWIG_croak("Usage: gsl_function_fdf_struct_params_get(self);");
3157 }
3158 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
3159 if (!SWIG_IsOK(res1)) {
3160 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_params_get" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
3161 }
3162 arg1 = (struct gsl_function_fdf_struct *)(argp1);
3163 result = (void *) ((arg1)->params);
3164 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_void, 0 | 0); argvi++ ;
3165
3166 XSRETURN(argvi);
3167 fail:
3168
3169 SWIG_croak_null();
3170 }
3171 }
3172
3173
XS(_wrap_new_gsl_function_fdf_struct)3174 XS(_wrap_new_gsl_function_fdf_struct) {
3175 {
3176 int argvi = 0;
3177 struct gsl_function_fdf_struct *result = 0 ;
3178 dXSARGS;
3179
3180 if ((items < 0) || (items > 0)) {
3181 SWIG_croak("Usage: new_gsl_function_fdf_struct();");
3182 }
3183 result = (struct gsl_function_fdf_struct *)calloc(1, sizeof(struct gsl_function_fdf_struct));
3184 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_function_fdf_struct, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
3185 XSRETURN(argvi);
3186 fail:
3187 SWIG_croak_null();
3188 }
3189 }
3190
3191
XS(_wrap_delete_gsl_function_fdf_struct)3192 XS(_wrap_delete_gsl_function_fdf_struct) {
3193 {
3194 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
3195 void *argp1 = 0 ;
3196 int res1 = 0 ;
3197 int argvi = 0;
3198 dXSARGS;
3199
3200 if ((items < 1) || (items > 1)) {
3201 SWIG_croak("Usage: delete_gsl_function_fdf_struct(self);");
3202 }
3203 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, SWIG_POINTER_DISOWN | 0 );
3204 if (!SWIG_IsOK(res1)) {
3205 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_function_fdf_struct" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
3206 }
3207 arg1 = (struct gsl_function_fdf_struct *)(argp1);
3208 free((char *) arg1);
3209 ST(argvi) = &PL_sv_undef;
3210
3211 XSRETURN(argvi);
3212 fail:
3213
3214 SWIG_croak_null();
3215 }
3216 }
3217
3218
XS(_wrap_gsl_function_vec_struct_function_set)3219 XS(_wrap_gsl_function_vec_struct_function_set) {
3220 {
3221 struct gsl_function_vec_struct *arg1 = (struct gsl_function_vec_struct *) 0 ;
3222 int (*arg2)(double,double [],void *) = (int (*)(double,double [],void *)) 0 ;
3223 void *argp1 = 0 ;
3224 int res1 = 0 ;
3225 int argvi = 0;
3226 dXSARGS;
3227
3228 if ((items < 2) || (items > 2)) {
3229 SWIG_croak("Usage: gsl_function_vec_struct_function_set(self,function);");
3230 }
3231 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_vec_struct, 0 | 0 );
3232 if (!SWIG_IsOK(res1)) {
3233 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_vec_struct_function_set" "', argument " "1"" of type '" "struct gsl_function_vec_struct *""'");
3234 }
3235 arg1 = (struct gsl_function_vec_struct *)(argp1);
3236 {
3237 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_double_a___double_p_void__int);
3238 if (!SWIG_IsOK(res)) {
3239 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_function_vec_struct_function_set" "', argument " "2"" of type '" "int (*)(double,double [],void *)""'");
3240 }
3241 }
3242 if (arg1) (arg1)->function = arg2;
3243 ST(argvi) = &PL_sv_undef;
3244
3245
3246 XSRETURN(argvi);
3247 fail:
3248
3249
3250 SWIG_croak_null();
3251 }
3252 }
3253
3254
XS(_wrap_gsl_function_vec_struct_function_get)3255 XS(_wrap_gsl_function_vec_struct_function_get) {
3256 {
3257 struct gsl_function_vec_struct *arg1 = (struct gsl_function_vec_struct *) 0 ;
3258 void *argp1 = 0 ;
3259 int res1 = 0 ;
3260 int argvi = 0;
3261 int (*result)(double,double [],void *) = 0 ;
3262 dXSARGS;
3263
3264 if ((items < 1) || (items > 1)) {
3265 SWIG_croak("Usage: gsl_function_vec_struct_function_get(self);");
3266 }
3267 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_vec_struct, 0 | 0 );
3268 if (!SWIG_IsOK(res1)) {
3269 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_vec_struct_function_get" "', argument " "1"" of type '" "struct gsl_function_vec_struct *""'");
3270 }
3271 arg1 = (struct gsl_function_vec_struct *)(argp1);
3272 result = (int (*)(double,double [],void *)) ((arg1)->function);
3273 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_double_a___double_p_void__int); argvi++ ;
3274
3275 XSRETURN(argvi);
3276 fail:
3277
3278 SWIG_croak_null();
3279 }
3280 }
3281
3282
XS(_wrap_gsl_function_vec_struct_params_set)3283 XS(_wrap_gsl_function_vec_struct_params_set) {
3284 {
3285 struct gsl_function_vec_struct *arg1 = (struct gsl_function_vec_struct *) 0 ;
3286 void *arg2 = (void *) 0 ;
3287 void *argp1 = 0 ;
3288 int res1 = 0 ;
3289 int res2 ;
3290 int argvi = 0;
3291 dXSARGS;
3292
3293 if ((items < 2) || (items > 2)) {
3294 SWIG_croak("Usage: gsl_function_vec_struct_params_set(self,params);");
3295 }
3296 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_vec_struct, 0 | 0 );
3297 if (!SWIG_IsOK(res1)) {
3298 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_vec_struct_params_set" "', argument " "1"" of type '" "struct gsl_function_vec_struct *""'");
3299 }
3300 arg1 = (struct gsl_function_vec_struct *)(argp1);
3301 res2 = SWIG_ConvertPtr(ST(1),SWIG_as_voidptrptr(&arg2), 0, SWIG_POINTER_DISOWN);
3302 if (!SWIG_IsOK(res2)) {
3303 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_function_vec_struct_params_set" "', argument " "2"" of type '" "void *""'");
3304 }
3305 if (arg1) (arg1)->params = arg2;
3306 ST(argvi) = &PL_sv_undef;
3307
3308
3309 XSRETURN(argvi);
3310 fail:
3311
3312
3313 SWIG_croak_null();
3314 }
3315 }
3316
3317
XS(_wrap_gsl_function_vec_struct_params_get)3318 XS(_wrap_gsl_function_vec_struct_params_get) {
3319 {
3320 struct gsl_function_vec_struct *arg1 = (struct gsl_function_vec_struct *) 0 ;
3321 void *argp1 = 0 ;
3322 int res1 = 0 ;
3323 int argvi = 0;
3324 void *result = 0 ;
3325 dXSARGS;
3326
3327 if ((items < 1) || (items > 1)) {
3328 SWIG_croak("Usage: gsl_function_vec_struct_params_get(self);");
3329 }
3330 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_vec_struct, 0 | 0 );
3331 if (!SWIG_IsOK(res1)) {
3332 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_vec_struct_params_get" "', argument " "1"" of type '" "struct gsl_function_vec_struct *""'");
3333 }
3334 arg1 = (struct gsl_function_vec_struct *)(argp1);
3335 result = (void *) ((arg1)->params);
3336 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_void, 0 | 0); argvi++ ;
3337
3338 XSRETURN(argvi);
3339 fail:
3340
3341 SWIG_croak_null();
3342 }
3343 }
3344
3345
XS(_wrap_new_gsl_function_vec_struct)3346 XS(_wrap_new_gsl_function_vec_struct) {
3347 {
3348 int argvi = 0;
3349 struct gsl_function_vec_struct *result = 0 ;
3350 dXSARGS;
3351
3352 if ((items < 0) || (items > 0)) {
3353 SWIG_croak("Usage: new_gsl_function_vec_struct();");
3354 }
3355 result = (struct gsl_function_vec_struct *)calloc(1, sizeof(struct gsl_function_vec_struct));
3356 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_function_vec_struct, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
3357 XSRETURN(argvi);
3358 fail:
3359 SWIG_croak_null();
3360 }
3361 }
3362
3363
XS(_wrap_delete_gsl_function_vec_struct)3364 XS(_wrap_delete_gsl_function_vec_struct) {
3365 {
3366 struct gsl_function_vec_struct *arg1 = (struct gsl_function_vec_struct *) 0 ;
3367 void *argp1 = 0 ;
3368 int res1 = 0 ;
3369 int argvi = 0;
3370 dXSARGS;
3371
3372 if ((items < 1) || (items > 1)) {
3373 SWIG_croak("Usage: delete_gsl_function_vec_struct(self);");
3374 }
3375 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_vec_struct, SWIG_POINTER_DISOWN | 0 );
3376 if (!SWIG_IsOK(res1)) {
3377 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_function_vec_struct" "', argument " "1"" of type '" "struct gsl_function_vec_struct *""'");
3378 }
3379 arg1 = (struct gsl_function_vec_struct *)(argp1);
3380 free((char *) arg1);
3381 ST(argvi) = &PL_sv_undef;
3382
3383 XSRETURN(argvi);
3384 fail:
3385
3386 SWIG_croak_null();
3387 }
3388 }
3389
3390
XS(_wrap_gsl_permutation_struct_size_set)3391 XS(_wrap_gsl_permutation_struct_size_set) {
3392 {
3393 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
3394 size_t arg2 ;
3395 void *argp1 = 0 ;
3396 int res1 = 0 ;
3397 size_t val2 ;
3398 int ecode2 = 0 ;
3399 int argvi = 0;
3400 dXSARGS;
3401
3402 if ((items < 2) || (items > 2)) {
3403 SWIG_croak("Usage: gsl_permutation_struct_size_set(self,size);");
3404 }
3405 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3406 if (!SWIG_IsOK(res1)) {
3407 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_size_set" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
3408 }
3409 arg1 = (struct gsl_permutation_struct *)(argp1);
3410 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3411 if (!SWIG_IsOK(ecode2)) {
3412 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_struct_size_set" "', argument " "2"" of type '" "size_t""'");
3413 }
3414 arg2 = (size_t)(val2);
3415 if (arg1) (arg1)->size = arg2;
3416 ST(argvi) = &PL_sv_undef;
3417
3418
3419 XSRETURN(argvi);
3420 fail:
3421
3422
3423 SWIG_croak_null();
3424 }
3425 }
3426
3427
XS(_wrap_gsl_permutation_struct_size_get)3428 XS(_wrap_gsl_permutation_struct_size_get) {
3429 {
3430 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
3431 void *argp1 = 0 ;
3432 int res1 = 0 ;
3433 int argvi = 0;
3434 size_t result;
3435 dXSARGS;
3436
3437 if ((items < 1) || (items > 1)) {
3438 SWIG_croak("Usage: gsl_permutation_struct_size_get(self);");
3439 }
3440 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3441 if (!SWIG_IsOK(res1)) {
3442 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_size_get" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
3443 }
3444 arg1 = (struct gsl_permutation_struct *)(argp1);
3445 result = ((arg1)->size);
3446 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
3447
3448 XSRETURN(argvi);
3449 fail:
3450
3451 SWIG_croak_null();
3452 }
3453 }
3454
3455
XS(_wrap_gsl_permutation_struct_data_set)3456 XS(_wrap_gsl_permutation_struct_data_set) {
3457 {
3458 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
3459 size_t *arg2 = (size_t *) 0 ;
3460 void *argp1 = 0 ;
3461 int res1 = 0 ;
3462 void *argp2 = 0 ;
3463 int res2 = 0 ;
3464 int argvi = 0;
3465 dXSARGS;
3466
3467 if ((items < 2) || (items > 2)) {
3468 SWIG_croak("Usage: gsl_permutation_struct_data_set(self,data);");
3469 }
3470 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3471 if (!SWIG_IsOK(res1)) {
3472 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_data_set" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
3473 }
3474 arg1 = (struct gsl_permutation_struct *)(argp1);
3475 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_size_t, SWIG_POINTER_DISOWN | 0 );
3476 if (!SWIG_IsOK(res2)) {
3477 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_struct_data_set" "', argument " "2"" of type '" "size_t *""'");
3478 }
3479 arg2 = (size_t *)(argp2);
3480 if (arg1) (arg1)->data = arg2;
3481 ST(argvi) = &PL_sv_undef;
3482
3483
3484 XSRETURN(argvi);
3485 fail:
3486
3487
3488 SWIG_croak_null();
3489 }
3490 }
3491
3492
XS(_wrap_gsl_permutation_struct_data_get)3493 XS(_wrap_gsl_permutation_struct_data_get) {
3494 {
3495 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
3496 void *argp1 = 0 ;
3497 int res1 = 0 ;
3498 int argvi = 0;
3499 size_t *result = 0 ;
3500 dXSARGS;
3501
3502 if ((items < 1) || (items > 1)) {
3503 SWIG_croak("Usage: gsl_permutation_struct_data_get(self);");
3504 }
3505 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3506 if (!SWIG_IsOK(res1)) {
3507 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_data_get" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
3508 }
3509 arg1 = (struct gsl_permutation_struct *)(argp1);
3510 result = (size_t *) ((arg1)->data);
3511 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
3512
3513 XSRETURN(argvi);
3514 fail:
3515
3516 SWIG_croak_null();
3517 }
3518 }
3519
3520
XS(_wrap_new_gsl_permutation_struct)3521 XS(_wrap_new_gsl_permutation_struct) {
3522 {
3523 int argvi = 0;
3524 struct gsl_permutation_struct *result = 0 ;
3525 dXSARGS;
3526
3527 if ((items < 0) || (items > 0)) {
3528 SWIG_croak("Usage: new_gsl_permutation_struct();");
3529 }
3530 result = (struct gsl_permutation_struct *)calloc(1, sizeof(struct gsl_permutation_struct));
3531 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
3532 XSRETURN(argvi);
3533 fail:
3534 SWIG_croak_null();
3535 }
3536 }
3537
3538
XS(_wrap_delete_gsl_permutation_struct)3539 XS(_wrap_delete_gsl_permutation_struct) {
3540 {
3541 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
3542 void *argp1 = 0 ;
3543 int res1 = 0 ;
3544 int argvi = 0;
3545 dXSARGS;
3546
3547 if ((items < 1) || (items > 1)) {
3548 SWIG_croak("Usage: delete_gsl_permutation_struct(self);");
3549 }
3550 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, SWIG_POINTER_DISOWN | 0 );
3551 if (!SWIG_IsOK(res1)) {
3552 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_permutation_struct" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
3553 }
3554 arg1 = (struct gsl_permutation_struct *)(argp1);
3555 free((char *) arg1);
3556 ST(argvi) = &PL_sv_undef;
3557
3558 XSRETURN(argvi);
3559 fail:
3560
3561 SWIG_croak_null();
3562 }
3563 }
3564
3565
XS(_wrap_gsl_permutation_alloc)3566 XS(_wrap_gsl_permutation_alloc) {
3567 {
3568 size_t arg1 ;
3569 size_t val1 ;
3570 int ecode1 = 0 ;
3571 int argvi = 0;
3572 gsl_permutation *result = 0 ;
3573 dXSARGS;
3574
3575 if ((items < 1) || (items > 1)) {
3576 SWIG_croak("Usage: gsl_permutation_alloc(n);");
3577 }
3578 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
3579 if (!SWIG_IsOK(ecode1)) {
3580 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_permutation_alloc" "', argument " "1"" of type '" "size_t""'");
3581 }
3582 arg1 = (size_t)(val1);
3583 result = (gsl_permutation *)gsl_permutation_alloc(arg1);
3584 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, 0 | SWIG_SHADOW); argvi++ ;
3585
3586 XSRETURN(argvi);
3587 fail:
3588
3589 SWIG_croak_null();
3590 }
3591 }
3592
3593
XS(_wrap_gsl_permutation_calloc)3594 XS(_wrap_gsl_permutation_calloc) {
3595 {
3596 size_t arg1 ;
3597 size_t val1 ;
3598 int ecode1 = 0 ;
3599 int argvi = 0;
3600 gsl_permutation *result = 0 ;
3601 dXSARGS;
3602
3603 if ((items < 1) || (items > 1)) {
3604 SWIG_croak("Usage: gsl_permutation_calloc(n);");
3605 }
3606 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
3607 if (!SWIG_IsOK(ecode1)) {
3608 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_permutation_calloc" "', argument " "1"" of type '" "size_t""'");
3609 }
3610 arg1 = (size_t)(val1);
3611 result = (gsl_permutation *)gsl_permutation_calloc(arg1);
3612 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, 0 | SWIG_SHADOW); argvi++ ;
3613
3614 XSRETURN(argvi);
3615 fail:
3616
3617 SWIG_croak_null();
3618 }
3619 }
3620
3621
XS(_wrap_gsl_permutation_init)3622 XS(_wrap_gsl_permutation_init) {
3623 {
3624 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
3625 void *argp1 = 0 ;
3626 int res1 = 0 ;
3627 int argvi = 0;
3628 dXSARGS;
3629
3630 if ((items < 1) || (items > 1)) {
3631 SWIG_croak("Usage: gsl_permutation_init(p);");
3632 }
3633 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3634 if (!SWIG_IsOK(res1)) {
3635 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_init" "', argument " "1"" of type '" "gsl_permutation *""'");
3636 }
3637 arg1 = (gsl_permutation *)(argp1);
3638 gsl_permutation_init(arg1);
3639 ST(argvi) = &PL_sv_undef;
3640
3641 XSRETURN(argvi);
3642 fail:
3643
3644 SWIG_croak_null();
3645 }
3646 }
3647
3648
XS(_wrap_gsl_permutation_free)3649 XS(_wrap_gsl_permutation_free) {
3650 {
3651 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
3652 void *argp1 = 0 ;
3653 int res1 = 0 ;
3654 int argvi = 0;
3655 dXSARGS;
3656
3657 if ((items < 1) || (items > 1)) {
3658 SWIG_croak("Usage: gsl_permutation_free(p);");
3659 }
3660 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3661 if (!SWIG_IsOK(res1)) {
3662 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_free" "', argument " "1"" of type '" "gsl_permutation *""'");
3663 }
3664 arg1 = (gsl_permutation *)(argp1);
3665 gsl_permutation_free(arg1);
3666 ST(argvi) = &PL_sv_undef;
3667
3668 XSRETURN(argvi);
3669 fail:
3670
3671 SWIG_croak_null();
3672 }
3673 }
3674
3675
XS(_wrap_gsl_permutation_memcpy)3676 XS(_wrap_gsl_permutation_memcpy) {
3677 {
3678 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
3679 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3680 void *argp1 = 0 ;
3681 int res1 = 0 ;
3682 void *argp2 = 0 ;
3683 int res2 = 0 ;
3684 int argvi = 0;
3685 int result;
3686 dXSARGS;
3687
3688 if ((items < 2) || (items > 2)) {
3689 SWIG_croak("Usage: gsl_permutation_memcpy(dest,src);");
3690 }
3691 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3692 if (!SWIG_IsOK(res1)) {
3693 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_memcpy" "', argument " "1"" of type '" "gsl_permutation *""'");
3694 }
3695 arg1 = (gsl_permutation *)(argp1);
3696 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3697 if (!SWIG_IsOK(res2)) {
3698 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_memcpy" "', argument " "2"" of type '" "gsl_permutation const *""'");
3699 }
3700 arg2 = (gsl_permutation *)(argp2);
3701 result = (int)gsl_permutation_memcpy(arg1,(struct gsl_permutation_struct const *)arg2);
3702 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3703
3704
3705 XSRETURN(argvi);
3706 fail:
3707
3708
3709 SWIG_croak_null();
3710 }
3711 }
3712
3713
XS(_wrap_gsl_permutation_fread)3714 XS(_wrap_gsl_permutation_fread) {
3715 {
3716 FILE *arg1 = (FILE *) 0 ;
3717 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3718 void *argp1 = 0 ;
3719 int res1 = 0 ;
3720 void *argp2 = 0 ;
3721 int res2 = 0 ;
3722 int argvi = 0;
3723 int result;
3724 dXSARGS;
3725
3726 if ((items < 2) || (items > 2)) {
3727 SWIG_croak("Usage: gsl_permutation_fread(stream,p);");
3728 }
3729 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
3730 if (!SWIG_IsOK(res1)) {
3731 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fread" "', argument " "1"" of type '" "FILE *""'");
3732 }
3733 arg1 = (FILE *)(argp1);
3734 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3735 if (!SWIG_IsOK(res2)) {
3736 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fread" "', argument " "2"" of type '" "gsl_permutation *""'");
3737 }
3738 arg2 = (gsl_permutation *)(argp2);
3739 result = (int)gsl_permutation_fread(arg1,arg2);
3740 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3741
3742
3743 XSRETURN(argvi);
3744 fail:
3745
3746
3747 SWIG_croak_null();
3748 }
3749 }
3750
3751
XS(_wrap_gsl_permutation_fwrite)3752 XS(_wrap_gsl_permutation_fwrite) {
3753 {
3754 FILE *arg1 = (FILE *) 0 ;
3755 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3756 void *argp1 = 0 ;
3757 int res1 = 0 ;
3758 void *argp2 = 0 ;
3759 int res2 = 0 ;
3760 int argvi = 0;
3761 int result;
3762 dXSARGS;
3763
3764 if ((items < 2) || (items > 2)) {
3765 SWIG_croak("Usage: gsl_permutation_fwrite(stream,p);");
3766 }
3767 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
3768 if (!SWIG_IsOK(res1)) {
3769 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fwrite" "', argument " "1"" of type '" "FILE *""'");
3770 }
3771 arg1 = (FILE *)(argp1);
3772 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3773 if (!SWIG_IsOK(res2)) {
3774 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fwrite" "', argument " "2"" of type '" "gsl_permutation const *""'");
3775 }
3776 arg2 = (gsl_permutation *)(argp2);
3777 result = (int)gsl_permutation_fwrite(arg1,(struct gsl_permutation_struct const *)arg2);
3778 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3779
3780
3781 XSRETURN(argvi);
3782 fail:
3783
3784
3785 SWIG_croak_null();
3786 }
3787 }
3788
3789
XS(_wrap_gsl_permutation_fscanf)3790 XS(_wrap_gsl_permutation_fscanf) {
3791 {
3792 FILE *arg1 = (FILE *) 0 ;
3793 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3794 void *argp1 = 0 ;
3795 int res1 = 0 ;
3796 void *argp2 = 0 ;
3797 int res2 = 0 ;
3798 int argvi = 0;
3799 int result;
3800 dXSARGS;
3801
3802 if ((items < 2) || (items > 2)) {
3803 SWIG_croak("Usage: gsl_permutation_fscanf(stream,p);");
3804 }
3805 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
3806 if (!SWIG_IsOK(res1)) {
3807 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fscanf" "', argument " "1"" of type '" "FILE *""'");
3808 }
3809 arg1 = (FILE *)(argp1);
3810 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3811 if (!SWIG_IsOK(res2)) {
3812 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fscanf" "', argument " "2"" of type '" "gsl_permutation *""'");
3813 }
3814 arg2 = (gsl_permutation *)(argp2);
3815 result = (int)gsl_permutation_fscanf(arg1,arg2);
3816 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3817
3818
3819 XSRETURN(argvi);
3820 fail:
3821
3822
3823 SWIG_croak_null();
3824 }
3825 }
3826
3827
XS(_wrap_gsl_permutation_fprintf)3828 XS(_wrap_gsl_permutation_fprintf) {
3829 {
3830 FILE *arg1 = (FILE *) 0 ;
3831 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3832 char *arg3 = (char *) 0 ;
3833 void *argp1 = 0 ;
3834 int res1 = 0 ;
3835 void *argp2 = 0 ;
3836 int res2 = 0 ;
3837 int res3 ;
3838 char *buf3 = 0 ;
3839 int alloc3 = 0 ;
3840 int argvi = 0;
3841 int result;
3842 dXSARGS;
3843
3844 if ((items < 3) || (items > 3)) {
3845 SWIG_croak("Usage: gsl_permutation_fprintf(stream,p,format);");
3846 }
3847 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
3848 if (!SWIG_IsOK(res1)) {
3849 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fprintf" "', argument " "1"" of type '" "FILE *""'");
3850 }
3851 arg1 = (FILE *)(argp1);
3852 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3853 if (!SWIG_IsOK(res2)) {
3854 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fprintf" "', argument " "2"" of type '" "gsl_permutation const *""'");
3855 }
3856 arg2 = (gsl_permutation *)(argp2);
3857 res3 = SWIG_AsCharPtrAndSize(ST(2), &buf3, NULL, &alloc3);
3858 if (!SWIG_IsOK(res3)) {
3859 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_permutation_fprintf" "', argument " "3"" of type '" "char const *""'");
3860 }
3861 arg3 = (char *)(buf3);
3862 result = (int)gsl_permutation_fprintf(arg1,(struct gsl_permutation_struct const *)arg2,(char const *)arg3);
3863 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3864
3865
3866 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
3867 XSRETURN(argvi);
3868 fail:
3869
3870
3871 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
3872 SWIG_croak_null();
3873 }
3874 }
3875
3876
XS(_wrap_gsl_permutation_size)3877 XS(_wrap_gsl_permutation_size) {
3878 {
3879 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
3880 void *argp1 = 0 ;
3881 int res1 = 0 ;
3882 int argvi = 0;
3883 size_t result;
3884 dXSARGS;
3885
3886 if ((items < 1) || (items > 1)) {
3887 SWIG_croak("Usage: gsl_permutation_size(p);");
3888 }
3889 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3890 if (!SWIG_IsOK(res1)) {
3891 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_size" "', argument " "1"" of type '" "gsl_permutation const *""'");
3892 }
3893 arg1 = (gsl_permutation *)(argp1);
3894 result = gsl_permutation_size((struct gsl_permutation_struct const *)arg1);
3895 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
3896
3897 XSRETURN(argvi);
3898 fail:
3899
3900 SWIG_croak_null();
3901 }
3902 }
3903
3904
XS(_wrap_gsl_permutation_data)3905 XS(_wrap_gsl_permutation_data) {
3906 {
3907 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
3908 void *argp1 = 0 ;
3909 int res1 = 0 ;
3910 int argvi = 0;
3911 size_t *result = 0 ;
3912 dXSARGS;
3913
3914 if ((items < 1) || (items > 1)) {
3915 SWIG_croak("Usage: gsl_permutation_data(p);");
3916 }
3917 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3918 if (!SWIG_IsOK(res1)) {
3919 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_data" "', argument " "1"" of type '" "gsl_permutation const *""'");
3920 }
3921 arg1 = (gsl_permutation *)(argp1);
3922 result = (size_t *)gsl_permutation_data((struct gsl_permutation_struct const *)arg1);
3923 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
3924
3925 XSRETURN(argvi);
3926 fail:
3927
3928 SWIG_croak_null();
3929 }
3930 }
3931
3932
XS(_wrap_gsl_permutation_swap)3933 XS(_wrap_gsl_permutation_swap) {
3934 {
3935 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
3936 size_t arg2 ;
3937 size_t arg3 ;
3938 void *argp1 = 0 ;
3939 int res1 = 0 ;
3940 size_t val2 ;
3941 int ecode2 = 0 ;
3942 size_t val3 ;
3943 int ecode3 = 0 ;
3944 int argvi = 0;
3945 int result;
3946 dXSARGS;
3947
3948 if ((items < 3) || (items > 3)) {
3949 SWIG_croak("Usage: gsl_permutation_swap(p,i,j);");
3950 }
3951 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3952 if (!SWIG_IsOK(res1)) {
3953 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_swap" "', argument " "1"" of type '" "gsl_permutation *""'");
3954 }
3955 arg1 = (gsl_permutation *)(argp1);
3956 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3957 if (!SWIG_IsOK(ecode2)) {
3958 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_swap" "', argument " "2"" of type '" "size_t""'");
3959 }
3960 arg2 = (size_t)(val2);
3961 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
3962 if (!SWIG_IsOK(ecode3)) {
3963 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_permutation_swap" "', argument " "3"" of type '" "size_t""'");
3964 }
3965 arg3 = (size_t)(val3);
3966 result = (int)gsl_permutation_swap(arg1,arg2,arg3);
3967 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3968
3969
3970
3971 XSRETURN(argvi);
3972 fail:
3973
3974
3975
3976 SWIG_croak_null();
3977 }
3978 }
3979
3980
XS(_wrap_gsl_permutation_valid)3981 XS(_wrap_gsl_permutation_valid) {
3982 {
3983 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
3984 void *argp1 = 0 ;
3985 int res1 = 0 ;
3986 int argvi = 0;
3987 int result;
3988 dXSARGS;
3989
3990 if ((items < 1) || (items > 1)) {
3991 SWIG_croak("Usage: gsl_permutation_valid(p);");
3992 }
3993 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3994 if (!SWIG_IsOK(res1)) {
3995 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_valid" "', argument " "1"" of type '" "gsl_permutation const *""'");
3996 }
3997 arg1 = (gsl_permutation *)(argp1);
3998 result = (int)gsl_permutation_valid((struct gsl_permutation_struct const *)arg1);
3999 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4000
4001 XSRETURN(argvi);
4002 fail:
4003
4004 SWIG_croak_null();
4005 }
4006 }
4007
4008
XS(_wrap_gsl_permutation_reverse)4009 XS(_wrap_gsl_permutation_reverse) {
4010 {
4011 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4012 void *argp1 = 0 ;
4013 int res1 = 0 ;
4014 int argvi = 0;
4015 dXSARGS;
4016
4017 if ((items < 1) || (items > 1)) {
4018 SWIG_croak("Usage: gsl_permutation_reverse(p);");
4019 }
4020 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4021 if (!SWIG_IsOK(res1)) {
4022 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_reverse" "', argument " "1"" of type '" "gsl_permutation *""'");
4023 }
4024 arg1 = (gsl_permutation *)(argp1);
4025 gsl_permutation_reverse(arg1);
4026 ST(argvi) = &PL_sv_undef;
4027
4028 XSRETURN(argvi);
4029 fail:
4030
4031 SWIG_croak_null();
4032 }
4033 }
4034
4035
XS(_wrap_gsl_permutation_inverse)4036 XS(_wrap_gsl_permutation_inverse) {
4037 {
4038 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4039 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4040 void *argp1 = 0 ;
4041 int res1 = 0 ;
4042 void *argp2 = 0 ;
4043 int res2 = 0 ;
4044 int argvi = 0;
4045 int result;
4046 dXSARGS;
4047
4048 if ((items < 2) || (items > 2)) {
4049 SWIG_croak("Usage: gsl_permutation_inverse(inv,p);");
4050 }
4051 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4052 if (!SWIG_IsOK(res1)) {
4053 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_inverse" "', argument " "1"" of type '" "gsl_permutation *""'");
4054 }
4055 arg1 = (gsl_permutation *)(argp1);
4056 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4057 if (!SWIG_IsOK(res2)) {
4058 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_inverse" "', argument " "2"" of type '" "gsl_permutation const *""'");
4059 }
4060 arg2 = (gsl_permutation *)(argp2);
4061 result = (int)gsl_permutation_inverse(arg1,(struct gsl_permutation_struct const *)arg2);
4062 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4063
4064
4065 XSRETURN(argvi);
4066 fail:
4067
4068
4069 SWIG_croak_null();
4070 }
4071 }
4072
4073
XS(_wrap_gsl_permutation_next)4074 XS(_wrap_gsl_permutation_next) {
4075 {
4076 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4077 void *argp1 = 0 ;
4078 int res1 = 0 ;
4079 int argvi = 0;
4080 int result;
4081 dXSARGS;
4082
4083 if ((items < 1) || (items > 1)) {
4084 SWIG_croak("Usage: gsl_permutation_next(p);");
4085 }
4086 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4087 if (!SWIG_IsOK(res1)) {
4088 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_next" "', argument " "1"" of type '" "gsl_permutation *""'");
4089 }
4090 arg1 = (gsl_permutation *)(argp1);
4091 result = (int)gsl_permutation_next(arg1);
4092 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4093
4094 XSRETURN(argvi);
4095 fail:
4096
4097 SWIG_croak_null();
4098 }
4099 }
4100
4101
XS(_wrap_gsl_permutation_prev)4102 XS(_wrap_gsl_permutation_prev) {
4103 {
4104 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4105 void *argp1 = 0 ;
4106 int res1 = 0 ;
4107 int argvi = 0;
4108 int result;
4109 dXSARGS;
4110
4111 if ((items < 1) || (items > 1)) {
4112 SWIG_croak("Usage: gsl_permutation_prev(p);");
4113 }
4114 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4115 if (!SWIG_IsOK(res1)) {
4116 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_prev" "', argument " "1"" of type '" "gsl_permutation *""'");
4117 }
4118 arg1 = (gsl_permutation *)(argp1);
4119 result = (int)gsl_permutation_prev(arg1);
4120 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4121
4122 XSRETURN(argvi);
4123 fail:
4124
4125 SWIG_croak_null();
4126 }
4127 }
4128
4129
XS(_wrap_gsl_permutation_mul)4130 XS(_wrap_gsl_permutation_mul) {
4131 {
4132 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4133 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4134 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
4135 void *argp1 = 0 ;
4136 int res1 = 0 ;
4137 void *argp2 = 0 ;
4138 int res2 = 0 ;
4139 void *argp3 = 0 ;
4140 int res3 = 0 ;
4141 int argvi = 0;
4142 int result;
4143 dXSARGS;
4144
4145 if ((items < 3) || (items > 3)) {
4146 SWIG_croak("Usage: gsl_permutation_mul(p,pa,pb);");
4147 }
4148 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4149 if (!SWIG_IsOK(res1)) {
4150 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_mul" "', argument " "1"" of type '" "gsl_permutation *""'");
4151 }
4152 arg1 = (gsl_permutation *)(argp1);
4153 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4154 if (!SWIG_IsOK(res2)) {
4155 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_mul" "', argument " "2"" of type '" "gsl_permutation const *""'");
4156 }
4157 arg2 = (gsl_permutation *)(argp2);
4158 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4159 if (!SWIG_IsOK(res3)) {
4160 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_permutation_mul" "', argument " "3"" of type '" "gsl_permutation const *""'");
4161 }
4162 arg3 = (gsl_permutation *)(argp3);
4163 result = (int)gsl_permutation_mul(arg1,(struct gsl_permutation_struct const *)arg2,(struct gsl_permutation_struct const *)arg3);
4164 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4165
4166
4167
4168 XSRETURN(argvi);
4169 fail:
4170
4171
4172
4173 SWIG_croak_null();
4174 }
4175 }
4176
4177
XS(_wrap_gsl_permutation_linear_to_canonical)4178 XS(_wrap_gsl_permutation_linear_to_canonical) {
4179 {
4180 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4181 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4182 void *argp1 = 0 ;
4183 int res1 = 0 ;
4184 void *argp2 = 0 ;
4185 int res2 = 0 ;
4186 int argvi = 0;
4187 int result;
4188 dXSARGS;
4189
4190 if ((items < 2) || (items > 2)) {
4191 SWIG_croak("Usage: gsl_permutation_linear_to_canonical(q,p);");
4192 }
4193 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4194 if (!SWIG_IsOK(res1)) {
4195 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_linear_to_canonical" "', argument " "1"" of type '" "gsl_permutation *""'");
4196 }
4197 arg1 = (gsl_permutation *)(argp1);
4198 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4199 if (!SWIG_IsOK(res2)) {
4200 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_linear_to_canonical" "', argument " "2"" of type '" "gsl_permutation const *""'");
4201 }
4202 arg2 = (gsl_permutation *)(argp2);
4203 result = (int)gsl_permutation_linear_to_canonical(arg1,(struct gsl_permutation_struct const *)arg2);
4204 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4205
4206
4207 XSRETURN(argvi);
4208 fail:
4209
4210
4211 SWIG_croak_null();
4212 }
4213 }
4214
4215
XS(_wrap_gsl_permutation_canonical_to_linear)4216 XS(_wrap_gsl_permutation_canonical_to_linear) {
4217 {
4218 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4219 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4220 void *argp1 = 0 ;
4221 int res1 = 0 ;
4222 void *argp2 = 0 ;
4223 int res2 = 0 ;
4224 int argvi = 0;
4225 int result;
4226 dXSARGS;
4227
4228 if ((items < 2) || (items > 2)) {
4229 SWIG_croak("Usage: gsl_permutation_canonical_to_linear(p,q);");
4230 }
4231 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4232 if (!SWIG_IsOK(res1)) {
4233 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_canonical_to_linear" "', argument " "1"" of type '" "gsl_permutation *""'");
4234 }
4235 arg1 = (gsl_permutation *)(argp1);
4236 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4237 if (!SWIG_IsOK(res2)) {
4238 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_canonical_to_linear" "', argument " "2"" of type '" "gsl_permutation const *""'");
4239 }
4240 arg2 = (gsl_permutation *)(argp2);
4241 result = (int)gsl_permutation_canonical_to_linear(arg1,(struct gsl_permutation_struct const *)arg2);
4242 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4243
4244
4245 XSRETURN(argvi);
4246 fail:
4247
4248
4249 SWIG_croak_null();
4250 }
4251 }
4252
4253
XS(_wrap_gsl_permutation_inversions)4254 XS(_wrap_gsl_permutation_inversions) {
4255 {
4256 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4257 void *argp1 = 0 ;
4258 int res1 = 0 ;
4259 int argvi = 0;
4260 size_t result;
4261 dXSARGS;
4262
4263 if ((items < 1) || (items > 1)) {
4264 SWIG_croak("Usage: gsl_permutation_inversions(p);");
4265 }
4266 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4267 if (!SWIG_IsOK(res1)) {
4268 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_inversions" "', argument " "1"" of type '" "gsl_permutation const *""'");
4269 }
4270 arg1 = (gsl_permutation *)(argp1);
4271 result = gsl_permutation_inversions((struct gsl_permutation_struct const *)arg1);
4272 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4273
4274 XSRETURN(argvi);
4275 fail:
4276
4277 SWIG_croak_null();
4278 }
4279 }
4280
4281
XS(_wrap_gsl_permutation_linear_cycles)4282 XS(_wrap_gsl_permutation_linear_cycles) {
4283 {
4284 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4285 void *argp1 = 0 ;
4286 int res1 = 0 ;
4287 int argvi = 0;
4288 size_t result;
4289 dXSARGS;
4290
4291 if ((items < 1) || (items > 1)) {
4292 SWIG_croak("Usage: gsl_permutation_linear_cycles(p);");
4293 }
4294 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4295 if (!SWIG_IsOK(res1)) {
4296 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_linear_cycles" "', argument " "1"" of type '" "gsl_permutation const *""'");
4297 }
4298 arg1 = (gsl_permutation *)(argp1);
4299 result = gsl_permutation_linear_cycles((struct gsl_permutation_struct const *)arg1);
4300 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4301
4302 XSRETURN(argvi);
4303 fail:
4304
4305 SWIG_croak_null();
4306 }
4307 }
4308
4309
XS(_wrap_gsl_permutation_canonical_cycles)4310 XS(_wrap_gsl_permutation_canonical_cycles) {
4311 {
4312 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4313 void *argp1 = 0 ;
4314 int res1 = 0 ;
4315 int argvi = 0;
4316 size_t result;
4317 dXSARGS;
4318
4319 if ((items < 1) || (items > 1)) {
4320 SWIG_croak("Usage: gsl_permutation_canonical_cycles(q);");
4321 }
4322 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4323 if (!SWIG_IsOK(res1)) {
4324 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_canonical_cycles" "', argument " "1"" of type '" "gsl_permutation const *""'");
4325 }
4326 arg1 = (gsl_permutation *)(argp1);
4327 result = gsl_permutation_canonical_cycles((struct gsl_permutation_struct const *)arg1);
4328 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4329
4330 XSRETURN(argvi);
4331 fail:
4332
4333 SWIG_croak_null();
4334 }
4335 }
4336
4337
XS(_wrap_gsl_permutation_get)4338 XS(_wrap_gsl_permutation_get) {
4339 {
4340 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4341 size_t arg2 ;
4342 void *argp1 = 0 ;
4343 int res1 = 0 ;
4344 size_t val2 ;
4345 int ecode2 = 0 ;
4346 int argvi = 0;
4347 size_t result;
4348 dXSARGS;
4349
4350 if ((items < 2) || (items > 2)) {
4351 SWIG_croak("Usage: gsl_permutation_get(p,i);");
4352 }
4353 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4354 if (!SWIG_IsOK(res1)) {
4355 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_get" "', argument " "1"" of type '" "gsl_permutation const *""'");
4356 }
4357 arg1 = (gsl_permutation *)(argp1);
4358 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4359 if (!SWIG_IsOK(ecode2)) {
4360 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_get" "', argument " "2"" of type '" "size_t""'");
4361 }
4362 arg2 = (size_t)(val2);
4363 result = gsl_permutation_get((struct gsl_permutation_struct const *)arg1,arg2);
4364 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4365
4366
4367 XSRETURN(argvi);
4368 fail:
4369
4370
4371 SWIG_croak_null();
4372 }
4373 }
4374
4375
XS(_wrap_gsl_multifit_linear_workspace_nmax_set)4376 XS(_wrap_gsl_multifit_linear_workspace_nmax_set) {
4377 {
4378 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4379 size_t arg2 ;
4380 void *argp1 = 0 ;
4381 int res1 = 0 ;
4382 size_t val2 ;
4383 int ecode2 = 0 ;
4384 int argvi = 0;
4385 dXSARGS;
4386
4387 if ((items < 2) || (items > 2)) {
4388 SWIG_croak("Usage: gsl_multifit_linear_workspace_nmax_set(self,nmax);");
4389 }
4390 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
4391 if (!SWIG_IsOK(res1)) {
4392 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_nmax_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4393 }
4394 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4395 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4396 if (!SWIG_IsOK(ecode2)) {
4397 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_linear_workspace_nmax_set" "', argument " "2"" of type '" "size_t""'");
4398 }
4399 arg2 = (size_t)(val2);
4400 if (arg1) (arg1)->nmax = arg2;
4401 ST(argvi) = &PL_sv_undef;
4402
4403
4404 XSRETURN(argvi);
4405 fail:
4406
4407
4408 SWIG_croak_null();
4409 }
4410 }
4411
4412
XS(_wrap_gsl_multifit_linear_workspace_nmax_get)4413 XS(_wrap_gsl_multifit_linear_workspace_nmax_get) {
4414 {
4415 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4416 void *argp1 = 0 ;
4417 int res1 = 0 ;
4418 int argvi = 0;
4419 size_t result;
4420 dXSARGS;
4421
4422 if ((items < 1) || (items > 1)) {
4423 SWIG_croak("Usage: gsl_multifit_linear_workspace_nmax_get(self);");
4424 }
4425 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
4426 if (!SWIG_IsOK(res1)) {
4427 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_nmax_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4428 }
4429 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4430 result = ((arg1)->nmax);
4431 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4432
4433 XSRETURN(argvi);
4434 fail:
4435
4436 SWIG_croak_null();
4437 }
4438 }
4439
4440
XS(_wrap_gsl_multifit_linear_workspace_pmax_set)4441 XS(_wrap_gsl_multifit_linear_workspace_pmax_set) {
4442 {
4443 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4444 size_t arg2 ;
4445 void *argp1 = 0 ;
4446 int res1 = 0 ;
4447 size_t val2 ;
4448 int ecode2 = 0 ;
4449 int argvi = 0;
4450 dXSARGS;
4451
4452 if ((items < 2) || (items > 2)) {
4453 SWIG_croak("Usage: gsl_multifit_linear_workspace_pmax_set(self,pmax);");
4454 }
4455 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
4456 if (!SWIG_IsOK(res1)) {
4457 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_pmax_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4458 }
4459 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4460 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4461 if (!SWIG_IsOK(ecode2)) {
4462 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_linear_workspace_pmax_set" "', argument " "2"" of type '" "size_t""'");
4463 }
4464 arg2 = (size_t)(val2);
4465 if (arg1) (arg1)->pmax = arg2;
4466 ST(argvi) = &PL_sv_undef;
4467
4468
4469 XSRETURN(argvi);
4470 fail:
4471
4472
4473 SWIG_croak_null();
4474 }
4475 }
4476
4477
XS(_wrap_gsl_multifit_linear_workspace_pmax_get)4478 XS(_wrap_gsl_multifit_linear_workspace_pmax_get) {
4479 {
4480 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4481 void *argp1 = 0 ;
4482 int res1 = 0 ;
4483 int argvi = 0;
4484 size_t result;
4485 dXSARGS;
4486
4487 if ((items < 1) || (items > 1)) {
4488 SWIG_croak("Usage: gsl_multifit_linear_workspace_pmax_get(self);");
4489 }
4490 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
4491 if (!SWIG_IsOK(res1)) {
4492 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_pmax_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4493 }
4494 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4495 result = ((arg1)->pmax);
4496 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4497
4498 XSRETURN(argvi);
4499 fail:
4500
4501 SWIG_croak_null();
4502 }
4503 }
4504
4505
XS(_wrap_gsl_multifit_linear_workspace_n_set)4506 XS(_wrap_gsl_multifit_linear_workspace_n_set) {
4507 {
4508 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4509 size_t arg2 ;
4510 void *argp1 = 0 ;
4511 int res1 = 0 ;
4512 size_t val2 ;
4513 int ecode2 = 0 ;
4514 int argvi = 0;
4515 dXSARGS;
4516
4517 if ((items < 2) || (items > 2)) {
4518 SWIG_croak("Usage: gsl_multifit_linear_workspace_n_set(self,n);");
4519 }
4520 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
4521 if (!SWIG_IsOK(res1)) {
4522 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_n_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4523 }
4524 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4525 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4526 if (!SWIG_IsOK(ecode2)) {
4527 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_linear_workspace_n_set" "', argument " "2"" of type '" "size_t""'");
4528 }
4529 arg2 = (size_t)(val2);
4530 if (arg1) (arg1)->n = arg2;
4531 ST(argvi) = &PL_sv_undef;
4532
4533
4534 XSRETURN(argvi);
4535 fail:
4536
4537
4538 SWIG_croak_null();
4539 }
4540 }
4541
4542
XS(_wrap_gsl_multifit_linear_workspace_n_get)4543 XS(_wrap_gsl_multifit_linear_workspace_n_get) {
4544 {
4545 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4546 void *argp1 = 0 ;
4547 int res1 = 0 ;
4548 int argvi = 0;
4549 size_t result;
4550 dXSARGS;
4551
4552 if ((items < 1) || (items > 1)) {
4553 SWIG_croak("Usage: gsl_multifit_linear_workspace_n_get(self);");
4554 }
4555 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
4556 if (!SWIG_IsOK(res1)) {
4557 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_n_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4558 }
4559 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4560 result = ((arg1)->n);
4561 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4562
4563 XSRETURN(argvi);
4564 fail:
4565
4566 SWIG_croak_null();
4567 }
4568 }
4569
4570
XS(_wrap_gsl_multifit_linear_workspace_p_set)4571 XS(_wrap_gsl_multifit_linear_workspace_p_set) {
4572 {
4573 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4574 size_t arg2 ;
4575 void *argp1 = 0 ;
4576 int res1 = 0 ;
4577 size_t val2 ;
4578 int ecode2 = 0 ;
4579 int argvi = 0;
4580 dXSARGS;
4581
4582 if ((items < 2) || (items > 2)) {
4583 SWIG_croak("Usage: gsl_multifit_linear_workspace_p_set(self,p);");
4584 }
4585 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
4586 if (!SWIG_IsOK(res1)) {
4587 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_p_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4588 }
4589 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4590 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4591 if (!SWIG_IsOK(ecode2)) {
4592 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_linear_workspace_p_set" "', argument " "2"" of type '" "size_t""'");
4593 }
4594 arg2 = (size_t)(val2);
4595 if (arg1) (arg1)->p = arg2;
4596 ST(argvi) = &PL_sv_undef;
4597
4598
4599 XSRETURN(argvi);
4600 fail:
4601
4602
4603 SWIG_croak_null();
4604 }
4605 }
4606
4607
XS(_wrap_gsl_multifit_linear_workspace_p_get)4608 XS(_wrap_gsl_multifit_linear_workspace_p_get) {
4609 {
4610 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4611 void *argp1 = 0 ;
4612 int res1 = 0 ;
4613 int argvi = 0;
4614 size_t result;
4615 dXSARGS;
4616
4617 if ((items < 1) || (items > 1)) {
4618 SWIG_croak("Usage: gsl_multifit_linear_workspace_p_get(self);");
4619 }
4620 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
4621 if (!SWIG_IsOK(res1)) {
4622 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_p_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4623 }
4624 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4625 result = ((arg1)->p);
4626 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4627
4628 XSRETURN(argvi);
4629 fail:
4630
4631 SWIG_croak_null();
4632 }
4633 }
4634
4635
XS(_wrap_gsl_multifit_linear_workspace_A_set)4636 XS(_wrap_gsl_multifit_linear_workspace_A_set) {
4637 {
4638 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4639 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
4640 void *argp1 = 0 ;
4641 int res1 = 0 ;
4642 void *argp2 = 0 ;
4643 int res2 = 0 ;
4644 int argvi = 0;
4645 dXSARGS;
4646
4647 if ((items < 2) || (items > 2)) {
4648 SWIG_croak("Usage: gsl_multifit_linear_workspace_A_set(self,A);");
4649 }
4650 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
4651 if (!SWIG_IsOK(res1)) {
4652 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_A_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4653 }
4654 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4655 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, SWIG_POINTER_DISOWN | 0 );
4656 if (!SWIG_IsOK(res2)) {
4657 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_workspace_A_set" "', argument " "2"" of type '" "gsl_matrix *""'");
4658 }
4659 arg2 = (gsl_matrix *)(argp2);
4660 if (arg1) (arg1)->A = arg2;
4661 ST(argvi) = &PL_sv_undef;
4662
4663
4664 XSRETURN(argvi);
4665 fail:
4666
4667
4668 SWIG_croak_null();
4669 }
4670 }
4671
4672
XS(_wrap_gsl_multifit_linear_workspace_A_get)4673 XS(_wrap_gsl_multifit_linear_workspace_A_get) {
4674 {
4675 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4676 void *argp1 = 0 ;
4677 int res1 = 0 ;
4678 int argvi = 0;
4679 gsl_matrix *result = 0 ;
4680 dXSARGS;
4681
4682 if ((items < 1) || (items > 1)) {
4683 SWIG_croak("Usage: gsl_multifit_linear_workspace_A_get(self);");
4684 }
4685 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
4686 if (!SWIG_IsOK(res1)) {
4687 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_A_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4688 }
4689 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4690 result = (gsl_matrix *) ((arg1)->A);
4691 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_matrix, 0 | 0); argvi++ ;
4692
4693 XSRETURN(argvi);
4694 fail:
4695
4696 SWIG_croak_null();
4697 }
4698 }
4699
4700
XS(_wrap_gsl_multifit_linear_workspace_Q_set)4701 XS(_wrap_gsl_multifit_linear_workspace_Q_set) {
4702 {
4703 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4704 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
4705 void *argp1 = 0 ;
4706 int res1 = 0 ;
4707 void *argp2 = 0 ;
4708 int res2 = 0 ;
4709 int argvi = 0;
4710 dXSARGS;
4711
4712 if ((items < 2) || (items > 2)) {
4713 SWIG_croak("Usage: gsl_multifit_linear_workspace_Q_set(self,Q);");
4714 }
4715 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
4716 if (!SWIG_IsOK(res1)) {
4717 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_Q_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4718 }
4719 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4720 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, SWIG_POINTER_DISOWN | 0 );
4721 if (!SWIG_IsOK(res2)) {
4722 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_workspace_Q_set" "', argument " "2"" of type '" "gsl_matrix *""'");
4723 }
4724 arg2 = (gsl_matrix *)(argp2);
4725 if (arg1) (arg1)->Q = arg2;
4726 ST(argvi) = &PL_sv_undef;
4727
4728
4729 XSRETURN(argvi);
4730 fail:
4731
4732
4733 SWIG_croak_null();
4734 }
4735 }
4736
4737
XS(_wrap_gsl_multifit_linear_workspace_Q_get)4738 XS(_wrap_gsl_multifit_linear_workspace_Q_get) {
4739 {
4740 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4741 void *argp1 = 0 ;
4742 int res1 = 0 ;
4743 int argvi = 0;
4744 gsl_matrix *result = 0 ;
4745 dXSARGS;
4746
4747 if ((items < 1) || (items > 1)) {
4748 SWIG_croak("Usage: gsl_multifit_linear_workspace_Q_get(self);");
4749 }
4750 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
4751 if (!SWIG_IsOK(res1)) {
4752 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_Q_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4753 }
4754 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4755 result = (gsl_matrix *) ((arg1)->Q);
4756 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_matrix, 0 | 0); argvi++ ;
4757
4758 XSRETURN(argvi);
4759 fail:
4760
4761 SWIG_croak_null();
4762 }
4763 }
4764
4765
XS(_wrap_gsl_multifit_linear_workspace_QSI_set)4766 XS(_wrap_gsl_multifit_linear_workspace_QSI_set) {
4767 {
4768 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4769 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
4770 void *argp1 = 0 ;
4771 int res1 = 0 ;
4772 void *argp2 = 0 ;
4773 int res2 = 0 ;
4774 int argvi = 0;
4775 dXSARGS;
4776
4777 if ((items < 2) || (items > 2)) {
4778 SWIG_croak("Usage: gsl_multifit_linear_workspace_QSI_set(self,QSI);");
4779 }
4780 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
4781 if (!SWIG_IsOK(res1)) {
4782 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_QSI_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4783 }
4784 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4785 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, SWIG_POINTER_DISOWN | 0 );
4786 if (!SWIG_IsOK(res2)) {
4787 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_workspace_QSI_set" "', argument " "2"" of type '" "gsl_matrix *""'");
4788 }
4789 arg2 = (gsl_matrix *)(argp2);
4790 if (arg1) (arg1)->QSI = arg2;
4791 ST(argvi) = &PL_sv_undef;
4792
4793
4794 XSRETURN(argvi);
4795 fail:
4796
4797
4798 SWIG_croak_null();
4799 }
4800 }
4801
4802
XS(_wrap_gsl_multifit_linear_workspace_QSI_get)4803 XS(_wrap_gsl_multifit_linear_workspace_QSI_get) {
4804 {
4805 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4806 void *argp1 = 0 ;
4807 int res1 = 0 ;
4808 int argvi = 0;
4809 gsl_matrix *result = 0 ;
4810 dXSARGS;
4811
4812 if ((items < 1) || (items > 1)) {
4813 SWIG_croak("Usage: gsl_multifit_linear_workspace_QSI_get(self);");
4814 }
4815 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
4816 if (!SWIG_IsOK(res1)) {
4817 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_QSI_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4818 }
4819 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4820 result = (gsl_matrix *) ((arg1)->QSI);
4821 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_matrix, 0 | 0); argvi++ ;
4822
4823 XSRETURN(argvi);
4824 fail:
4825
4826 SWIG_croak_null();
4827 }
4828 }
4829
4830
XS(_wrap_gsl_multifit_linear_workspace_S_set)4831 XS(_wrap_gsl_multifit_linear_workspace_S_set) {
4832 {
4833 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4834 gsl_vector *arg2 = (gsl_vector *) 0 ;
4835 void *argp1 = 0 ;
4836 int res1 = 0 ;
4837 void *argp2 = 0 ;
4838 int res2 = 0 ;
4839 int argvi = 0;
4840 dXSARGS;
4841
4842 if ((items < 2) || (items > 2)) {
4843 SWIG_croak("Usage: gsl_multifit_linear_workspace_S_set(self,S);");
4844 }
4845 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
4846 if (!SWIG_IsOK(res1)) {
4847 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_S_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4848 }
4849 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4850 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
4851 if (!SWIG_IsOK(res2)) {
4852 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_workspace_S_set" "', argument " "2"" of type '" "gsl_vector *""'");
4853 }
4854 arg2 = (gsl_vector *)(argp2);
4855 if (arg1) (arg1)->S = arg2;
4856 ST(argvi) = &PL_sv_undef;
4857
4858
4859 XSRETURN(argvi);
4860 fail:
4861
4862
4863 SWIG_croak_null();
4864 }
4865 }
4866
4867
XS(_wrap_gsl_multifit_linear_workspace_S_get)4868 XS(_wrap_gsl_multifit_linear_workspace_S_get) {
4869 {
4870 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4871 void *argp1 = 0 ;
4872 int res1 = 0 ;
4873 int argvi = 0;
4874 gsl_vector *result = 0 ;
4875 dXSARGS;
4876
4877 if ((items < 1) || (items > 1)) {
4878 SWIG_croak("Usage: gsl_multifit_linear_workspace_S_get(self);");
4879 }
4880 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
4881 if (!SWIG_IsOK(res1)) {
4882 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_S_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4883 }
4884 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4885 result = (gsl_vector *) ((arg1)->S);
4886 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
4887
4888 XSRETURN(argvi);
4889 fail:
4890
4891 SWIG_croak_null();
4892 }
4893 }
4894
4895
XS(_wrap_gsl_multifit_linear_workspace_t_set)4896 XS(_wrap_gsl_multifit_linear_workspace_t_set) {
4897 {
4898 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4899 gsl_vector *arg2 = (gsl_vector *) 0 ;
4900 void *argp1 = 0 ;
4901 int res1 = 0 ;
4902 void *argp2 = 0 ;
4903 int res2 = 0 ;
4904 int argvi = 0;
4905 dXSARGS;
4906
4907 if ((items < 2) || (items > 2)) {
4908 SWIG_croak("Usage: gsl_multifit_linear_workspace_t_set(self,t);");
4909 }
4910 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
4911 if (!SWIG_IsOK(res1)) {
4912 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_t_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4913 }
4914 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4915 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
4916 if (!SWIG_IsOK(res2)) {
4917 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_workspace_t_set" "', argument " "2"" of type '" "gsl_vector *""'");
4918 }
4919 arg2 = (gsl_vector *)(argp2);
4920 if (arg1) (arg1)->t = arg2;
4921 ST(argvi) = &PL_sv_undef;
4922
4923
4924 XSRETURN(argvi);
4925 fail:
4926
4927
4928 SWIG_croak_null();
4929 }
4930 }
4931
4932
XS(_wrap_gsl_multifit_linear_workspace_t_get)4933 XS(_wrap_gsl_multifit_linear_workspace_t_get) {
4934 {
4935 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4936 void *argp1 = 0 ;
4937 int res1 = 0 ;
4938 int argvi = 0;
4939 gsl_vector *result = 0 ;
4940 dXSARGS;
4941
4942 if ((items < 1) || (items > 1)) {
4943 SWIG_croak("Usage: gsl_multifit_linear_workspace_t_get(self);");
4944 }
4945 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
4946 if (!SWIG_IsOK(res1)) {
4947 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_t_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4948 }
4949 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4950 result = (gsl_vector *) ((arg1)->t);
4951 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
4952
4953 XSRETURN(argvi);
4954 fail:
4955
4956 SWIG_croak_null();
4957 }
4958 }
4959
4960
XS(_wrap_gsl_multifit_linear_workspace_xt_set)4961 XS(_wrap_gsl_multifit_linear_workspace_xt_set) {
4962 {
4963 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4964 gsl_vector *arg2 = (gsl_vector *) 0 ;
4965 void *argp1 = 0 ;
4966 int res1 = 0 ;
4967 void *argp2 = 0 ;
4968 int res2 = 0 ;
4969 int argvi = 0;
4970 dXSARGS;
4971
4972 if ((items < 2) || (items > 2)) {
4973 SWIG_croak("Usage: gsl_multifit_linear_workspace_xt_set(self,xt);");
4974 }
4975 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
4976 if (!SWIG_IsOK(res1)) {
4977 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_xt_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4978 }
4979 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4980 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
4981 if (!SWIG_IsOK(res2)) {
4982 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_workspace_xt_set" "', argument " "2"" of type '" "gsl_vector *""'");
4983 }
4984 arg2 = (gsl_vector *)(argp2);
4985 if (arg1) (arg1)->xt = arg2;
4986 ST(argvi) = &PL_sv_undef;
4987
4988
4989 XSRETURN(argvi);
4990 fail:
4991
4992
4993 SWIG_croak_null();
4994 }
4995 }
4996
4997
XS(_wrap_gsl_multifit_linear_workspace_xt_get)4998 XS(_wrap_gsl_multifit_linear_workspace_xt_get) {
4999 {
5000 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
5001 void *argp1 = 0 ;
5002 int res1 = 0 ;
5003 int argvi = 0;
5004 gsl_vector *result = 0 ;
5005 dXSARGS;
5006
5007 if ((items < 1) || (items > 1)) {
5008 SWIG_croak("Usage: gsl_multifit_linear_workspace_xt_get(self);");
5009 }
5010 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
5011 if (!SWIG_IsOK(res1)) {
5012 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_xt_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
5013 }
5014 arg1 = (gsl_multifit_linear_workspace *)(argp1);
5015 result = (gsl_vector *) ((arg1)->xt);
5016 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
5017
5018 XSRETURN(argvi);
5019 fail:
5020
5021 SWIG_croak_null();
5022 }
5023 }
5024
5025
XS(_wrap_gsl_multifit_linear_workspace_D_set)5026 XS(_wrap_gsl_multifit_linear_workspace_D_set) {
5027 {
5028 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
5029 gsl_vector *arg2 = (gsl_vector *) 0 ;
5030 void *argp1 = 0 ;
5031 int res1 = 0 ;
5032 void *argp2 = 0 ;
5033 int res2 = 0 ;
5034 int argvi = 0;
5035 dXSARGS;
5036
5037 if ((items < 2) || (items > 2)) {
5038 SWIG_croak("Usage: gsl_multifit_linear_workspace_D_set(self,D);");
5039 }
5040 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
5041 if (!SWIG_IsOK(res1)) {
5042 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_D_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
5043 }
5044 arg1 = (gsl_multifit_linear_workspace *)(argp1);
5045 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
5046 if (!SWIG_IsOK(res2)) {
5047 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_workspace_D_set" "', argument " "2"" of type '" "gsl_vector *""'");
5048 }
5049 arg2 = (gsl_vector *)(argp2);
5050 if (arg1) (arg1)->D = arg2;
5051 ST(argvi) = &PL_sv_undef;
5052
5053
5054 XSRETURN(argvi);
5055 fail:
5056
5057
5058 SWIG_croak_null();
5059 }
5060 }
5061
5062
XS(_wrap_gsl_multifit_linear_workspace_D_get)5063 XS(_wrap_gsl_multifit_linear_workspace_D_get) {
5064 {
5065 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
5066 void *argp1 = 0 ;
5067 int res1 = 0 ;
5068 int argvi = 0;
5069 gsl_vector *result = 0 ;
5070 dXSARGS;
5071
5072 if ((items < 1) || (items > 1)) {
5073 SWIG_croak("Usage: gsl_multifit_linear_workspace_D_get(self);");
5074 }
5075 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
5076 if (!SWIG_IsOK(res1)) {
5077 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_D_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
5078 }
5079 arg1 = (gsl_multifit_linear_workspace *)(argp1);
5080 result = (gsl_vector *) ((arg1)->D);
5081 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
5082
5083 XSRETURN(argvi);
5084 fail:
5085
5086 SWIG_croak_null();
5087 }
5088 }
5089
5090
XS(_wrap_gsl_multifit_linear_workspace_rcond_set)5091 XS(_wrap_gsl_multifit_linear_workspace_rcond_set) {
5092 {
5093 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
5094 double arg2 ;
5095 void *argp1 = 0 ;
5096 int res1 = 0 ;
5097 double val2 ;
5098 int ecode2 = 0 ;
5099 int argvi = 0;
5100 dXSARGS;
5101
5102 if ((items < 2) || (items > 2)) {
5103 SWIG_croak("Usage: gsl_multifit_linear_workspace_rcond_set(self,rcond);");
5104 }
5105 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
5106 if (!SWIG_IsOK(res1)) {
5107 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_rcond_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
5108 }
5109 arg1 = (gsl_multifit_linear_workspace *)(argp1);
5110 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5111 if (!SWIG_IsOK(ecode2)) {
5112 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_linear_workspace_rcond_set" "', argument " "2"" of type '" "double""'");
5113 }
5114 arg2 = (double)(val2);
5115 if (arg1) (arg1)->rcond = arg2;
5116 ST(argvi) = &PL_sv_undef;
5117
5118
5119 XSRETURN(argvi);
5120 fail:
5121
5122
5123 SWIG_croak_null();
5124 }
5125 }
5126
5127
XS(_wrap_gsl_multifit_linear_workspace_rcond_get)5128 XS(_wrap_gsl_multifit_linear_workspace_rcond_get) {
5129 {
5130 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
5131 void *argp1 = 0 ;
5132 int res1 = 0 ;
5133 int argvi = 0;
5134 double result;
5135 dXSARGS;
5136
5137 if ((items < 1) || (items > 1)) {
5138 SWIG_croak("Usage: gsl_multifit_linear_workspace_rcond_get(self);");
5139 }
5140 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
5141 if (!SWIG_IsOK(res1)) {
5142 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_rcond_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
5143 }
5144 arg1 = (gsl_multifit_linear_workspace *)(argp1);
5145 result = (double) ((arg1)->rcond);
5146 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
5147
5148 XSRETURN(argvi);
5149 fail:
5150
5151 SWIG_croak_null();
5152 }
5153 }
5154
5155
XS(_wrap_new_gsl_multifit_linear_workspace)5156 XS(_wrap_new_gsl_multifit_linear_workspace) {
5157 {
5158 int argvi = 0;
5159 gsl_multifit_linear_workspace *result = 0 ;
5160 dXSARGS;
5161
5162 if ((items < 0) || (items > 0)) {
5163 SWIG_croak("Usage: new_gsl_multifit_linear_workspace();");
5164 }
5165 result = (gsl_multifit_linear_workspace *)calloc(1, sizeof(gsl_multifit_linear_workspace));
5166 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_linear_workspace, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
5167 XSRETURN(argvi);
5168 fail:
5169 SWIG_croak_null();
5170 }
5171 }
5172
5173
XS(_wrap_delete_gsl_multifit_linear_workspace)5174 XS(_wrap_delete_gsl_multifit_linear_workspace) {
5175 {
5176 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
5177 void *argp1 = 0 ;
5178 int res1 = 0 ;
5179 int argvi = 0;
5180 dXSARGS;
5181
5182 if ((items < 1) || (items > 1)) {
5183 SWIG_croak("Usage: delete_gsl_multifit_linear_workspace(self);");
5184 }
5185 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, SWIG_POINTER_DISOWN | 0 );
5186 if (!SWIG_IsOK(res1)) {
5187 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_multifit_linear_workspace" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
5188 }
5189 arg1 = (gsl_multifit_linear_workspace *)(argp1);
5190 free((char *) arg1);
5191 ST(argvi) = &PL_sv_undef;
5192
5193 XSRETURN(argvi);
5194 fail:
5195
5196 SWIG_croak_null();
5197 }
5198 }
5199
5200
XS(_wrap_gsl_multifit_linear_alloc)5201 XS(_wrap_gsl_multifit_linear_alloc) {
5202 {
5203 size_t arg1 ;
5204 size_t arg2 ;
5205 size_t val1 ;
5206 int ecode1 = 0 ;
5207 size_t val2 ;
5208 int ecode2 = 0 ;
5209 int argvi = 0;
5210 gsl_multifit_linear_workspace *result = 0 ;
5211 dXSARGS;
5212
5213 if ((items < 2) || (items > 2)) {
5214 SWIG_croak("Usage: gsl_multifit_linear_alloc(n,p);");
5215 }
5216 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5217 if (!SWIG_IsOK(ecode1)) {
5218 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_multifit_linear_alloc" "', argument " "1"" of type '" "size_t""'");
5219 }
5220 arg1 = (size_t)(val1);
5221 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5222 if (!SWIG_IsOK(ecode2)) {
5223 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_linear_alloc" "', argument " "2"" of type '" "size_t""'");
5224 }
5225 arg2 = (size_t)(val2);
5226 result = (gsl_multifit_linear_workspace *)gsl_multifit_linear_alloc(arg1,arg2);
5227 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | SWIG_SHADOW); argvi++ ;
5228
5229
5230 XSRETURN(argvi);
5231 fail:
5232
5233
5234 SWIG_croak_null();
5235 }
5236 }
5237
5238
XS(_wrap_gsl_multifit_linear_free)5239 XS(_wrap_gsl_multifit_linear_free) {
5240 {
5241 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
5242 void *argp1 = 0 ;
5243 int res1 = 0 ;
5244 int argvi = 0;
5245 dXSARGS;
5246
5247 if ((items < 1) || (items > 1)) {
5248 SWIG_croak("Usage: gsl_multifit_linear_free(w);");
5249 }
5250 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
5251 if (!SWIG_IsOK(res1)) {
5252 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_free" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
5253 }
5254 arg1 = (gsl_multifit_linear_workspace *)(argp1);
5255 gsl_multifit_linear_free(arg1);
5256 ST(argvi) = &PL_sv_undef;
5257
5258 XSRETURN(argvi);
5259 fail:
5260
5261 SWIG_croak_null();
5262 }
5263 }
5264
5265
XS(_wrap_gsl_multifit_linear)5266 XS(_wrap_gsl_multifit_linear) {
5267 {
5268 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5269 gsl_vector *arg2 = (gsl_vector *) 0 ;
5270 gsl_vector *arg3 = (gsl_vector *) 0 ;
5271 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
5272 double *arg5 = (double *) 0 ;
5273 gsl_multifit_linear_workspace *arg6 = (gsl_multifit_linear_workspace *) 0 ;
5274 void *argp1 = 0 ;
5275 int res1 = 0 ;
5276 void *argp2 = 0 ;
5277 int res2 = 0 ;
5278 void *argp3 = 0 ;
5279 int res3 = 0 ;
5280 void *argp4 = 0 ;
5281 int res4 = 0 ;
5282 void *argp5 = 0 ;
5283 int res5 = 0 ;
5284 void *argp6 = 0 ;
5285 int res6 = 0 ;
5286 int argvi = 0;
5287 int result;
5288 dXSARGS;
5289
5290 if ((items < 6) || (items > 6)) {
5291 SWIG_croak("Usage: gsl_multifit_linear(X,y,c,cov,chisq,work);");
5292 }
5293 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5294 if (!SWIG_IsOK(res1)) {
5295 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear" "', argument " "1"" of type '" "gsl_matrix const *""'");
5296 }
5297 arg1 = (gsl_matrix *)(argp1);
5298 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5299 if (!SWIG_IsOK(res2)) {
5300 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear" "', argument " "2"" of type '" "gsl_vector const *""'");
5301 }
5302 arg2 = (gsl_vector *)(argp2);
5303 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5304 if (!SWIG_IsOK(res3)) {
5305 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear" "', argument " "3"" of type '" "gsl_vector *""'");
5306 }
5307 arg3 = (gsl_vector *)(argp3);
5308 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5309 if (!SWIG_IsOK(res4)) {
5310 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear" "', argument " "4"" of type '" "gsl_matrix *""'");
5311 }
5312 arg4 = (gsl_matrix *)(argp4);
5313 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_double, 0 | 0 );
5314 if (!SWIG_IsOK(res5)) {
5315 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear" "', argument " "5"" of type '" "double *""'");
5316 }
5317 arg5 = (double *)(argp5);
5318 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
5319 if (!SWIG_IsOK(res6)) {
5320 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear" "', argument " "6"" of type '" "gsl_multifit_linear_workspace *""'");
5321 }
5322 arg6 = (gsl_multifit_linear_workspace *)(argp6);
5323 result = (int)gsl_multifit_linear((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4,arg5,arg6);
5324 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5325
5326
5327
5328
5329
5330
5331 XSRETURN(argvi);
5332 fail:
5333
5334
5335
5336
5337
5338
5339 SWIG_croak_null();
5340 }
5341 }
5342
5343
XS(_wrap_gsl_multifit_linear_tsvd)5344 XS(_wrap_gsl_multifit_linear_tsvd) {
5345 {
5346 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5347 gsl_vector *arg2 = (gsl_vector *) 0 ;
5348 double arg3 ;
5349 gsl_vector *arg4 = (gsl_vector *) 0 ;
5350 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
5351 double *arg6 = (double *) 0 ;
5352 size_t *arg7 = (size_t *) 0 ;
5353 gsl_multifit_linear_workspace *arg8 = (gsl_multifit_linear_workspace *) 0 ;
5354 void *argp1 = 0 ;
5355 int res1 = 0 ;
5356 void *argp2 = 0 ;
5357 int res2 = 0 ;
5358 double val3 ;
5359 int ecode3 = 0 ;
5360 void *argp4 = 0 ;
5361 int res4 = 0 ;
5362 void *argp5 = 0 ;
5363 int res5 = 0 ;
5364 void *argp6 = 0 ;
5365 int res6 = 0 ;
5366 void *argp7 = 0 ;
5367 int res7 = 0 ;
5368 void *argp8 = 0 ;
5369 int res8 = 0 ;
5370 int argvi = 0;
5371 int result;
5372 dXSARGS;
5373
5374 if ((items < 8) || (items > 8)) {
5375 SWIG_croak("Usage: gsl_multifit_linear_tsvd(X,y,tol,c,cov,chisq,rank,work);");
5376 }
5377 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5378 if (!SWIG_IsOK(res1)) {
5379 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_tsvd" "', argument " "1"" of type '" "gsl_matrix const *""'");
5380 }
5381 arg1 = (gsl_matrix *)(argp1);
5382 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5383 if (!SWIG_IsOK(res2)) {
5384 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_tsvd" "', argument " "2"" of type '" "gsl_vector const *""'");
5385 }
5386 arg2 = (gsl_vector *)(argp2);
5387 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
5388 if (!SWIG_IsOK(ecode3)) {
5389 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_multifit_linear_tsvd" "', argument " "3"" of type '" "double""'");
5390 }
5391 arg3 = (double)(val3);
5392 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5393 if (!SWIG_IsOK(res4)) {
5394 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_tsvd" "', argument " "4"" of type '" "gsl_vector *""'");
5395 }
5396 arg4 = (gsl_vector *)(argp4);
5397 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5398 if (!SWIG_IsOK(res5)) {
5399 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_tsvd" "', argument " "5"" of type '" "gsl_matrix *""'");
5400 }
5401 arg5 = (gsl_matrix *)(argp5);
5402 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_double, 0 | 0 );
5403 if (!SWIG_IsOK(res6)) {
5404 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear_tsvd" "', argument " "6"" of type '" "double *""'");
5405 }
5406 arg6 = (double *)(argp6);
5407 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_size_t, 0 | 0 );
5408 if (!SWIG_IsOK(res7)) {
5409 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_linear_tsvd" "', argument " "7"" of type '" "size_t *""'");
5410 }
5411 arg7 = (size_t *)(argp7);
5412 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
5413 if (!SWIG_IsOK(res8)) {
5414 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_multifit_linear_tsvd" "', argument " "8"" of type '" "gsl_multifit_linear_workspace *""'");
5415 }
5416 arg8 = (gsl_multifit_linear_workspace *)(argp8);
5417 result = (int)gsl_multifit_linear_tsvd((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4,arg5,arg6,arg7,arg8);
5418 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5419
5420
5421
5422
5423
5424
5425
5426
5427 XSRETURN(argvi);
5428 fail:
5429
5430
5431
5432
5433
5434
5435
5436
5437 SWIG_croak_null();
5438 }
5439 }
5440
5441
XS(_wrap_gsl_multifit_linear_svd)5442 XS(_wrap_gsl_multifit_linear_svd) {
5443 {
5444 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5445 gsl_multifit_linear_workspace *arg2 = (gsl_multifit_linear_workspace *) 0 ;
5446 void *argp1 = 0 ;
5447 int res1 = 0 ;
5448 void *argp2 = 0 ;
5449 int res2 = 0 ;
5450 int argvi = 0;
5451 int result;
5452 dXSARGS;
5453
5454 if ((items < 2) || (items > 2)) {
5455 SWIG_croak("Usage: gsl_multifit_linear_svd(X,work);");
5456 }
5457 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5458 if (!SWIG_IsOK(res1)) {
5459 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_svd" "', argument " "1"" of type '" "gsl_matrix const *""'");
5460 }
5461 arg1 = (gsl_matrix *)(argp1);
5462 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
5463 if (!SWIG_IsOK(res2)) {
5464 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_svd" "', argument " "2"" of type '" "gsl_multifit_linear_workspace *""'");
5465 }
5466 arg2 = (gsl_multifit_linear_workspace *)(argp2);
5467 result = (int)gsl_multifit_linear_svd((gsl_matrix const *)arg1,arg2);
5468 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5469
5470
5471 XSRETURN(argvi);
5472 fail:
5473
5474
5475 SWIG_croak_null();
5476 }
5477 }
5478
5479
XS(_wrap_gsl_multifit_linear_bsvd)5480 XS(_wrap_gsl_multifit_linear_bsvd) {
5481 {
5482 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5483 gsl_multifit_linear_workspace *arg2 = (gsl_multifit_linear_workspace *) 0 ;
5484 void *argp1 = 0 ;
5485 int res1 = 0 ;
5486 void *argp2 = 0 ;
5487 int res2 = 0 ;
5488 int argvi = 0;
5489 int result;
5490 dXSARGS;
5491
5492 if ((items < 2) || (items > 2)) {
5493 SWIG_croak("Usage: gsl_multifit_linear_bsvd(X,work);");
5494 }
5495 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5496 if (!SWIG_IsOK(res1)) {
5497 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_bsvd" "', argument " "1"" of type '" "gsl_matrix const *""'");
5498 }
5499 arg1 = (gsl_matrix *)(argp1);
5500 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
5501 if (!SWIG_IsOK(res2)) {
5502 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_bsvd" "', argument " "2"" of type '" "gsl_multifit_linear_workspace *""'");
5503 }
5504 arg2 = (gsl_multifit_linear_workspace *)(argp2);
5505 result = (int)gsl_multifit_linear_bsvd((gsl_matrix const *)arg1,arg2);
5506 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5507
5508
5509 XSRETURN(argvi);
5510 fail:
5511
5512
5513 SWIG_croak_null();
5514 }
5515 }
5516
5517
XS(_wrap_gsl_multifit_linear_rank)5518 XS(_wrap_gsl_multifit_linear_rank) {
5519 {
5520 double arg1 ;
5521 gsl_multifit_linear_workspace *arg2 = (gsl_multifit_linear_workspace *) 0 ;
5522 double val1 ;
5523 int ecode1 = 0 ;
5524 void *argp2 = 0 ;
5525 int res2 = 0 ;
5526 int argvi = 0;
5527 size_t result;
5528 dXSARGS;
5529
5530 if ((items < 2) || (items > 2)) {
5531 SWIG_croak("Usage: gsl_multifit_linear_rank(tol,work);");
5532 }
5533 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5534 if (!SWIG_IsOK(ecode1)) {
5535 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_multifit_linear_rank" "', argument " "1"" of type '" "double""'");
5536 }
5537 arg1 = (double)(val1);
5538 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
5539 if (!SWIG_IsOK(res2)) {
5540 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_rank" "', argument " "2"" of type '" "gsl_multifit_linear_workspace const *""'");
5541 }
5542 arg2 = (gsl_multifit_linear_workspace *)(argp2);
5543 result = gsl_multifit_linear_rank(arg1,(gsl_multifit_linear_workspace const *)arg2);
5544 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
5545
5546
5547 XSRETURN(argvi);
5548 fail:
5549
5550
5551 SWIG_croak_null();
5552 }
5553 }
5554
5555
XS(_wrap_gsl_multifit_linear_solve)5556 XS(_wrap_gsl_multifit_linear_solve) {
5557 {
5558 double arg1 ;
5559 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5560 gsl_vector *arg3 = (gsl_vector *) 0 ;
5561 gsl_vector *arg4 = (gsl_vector *) 0 ;
5562 double *arg5 = (double *) 0 ;
5563 double *arg6 = (double *) 0 ;
5564 gsl_multifit_linear_workspace *arg7 = (gsl_multifit_linear_workspace *) 0 ;
5565 double val1 ;
5566 int ecode1 = 0 ;
5567 void *argp2 = 0 ;
5568 int res2 = 0 ;
5569 void *argp3 = 0 ;
5570 int res3 = 0 ;
5571 void *argp4 = 0 ;
5572 int res4 = 0 ;
5573 double temp5 ;
5574 int res5 = SWIG_TMPOBJ ;
5575 double temp6 ;
5576 int res6 = SWIG_TMPOBJ ;
5577 void *argp7 = 0 ;
5578 int res7 = 0 ;
5579 int argvi = 0;
5580 int result;
5581 dXSARGS;
5582
5583 arg5 = &temp5;
5584 arg6 = &temp6;
5585 if ((items < 5) || (items > 5)) {
5586 SWIG_croak("Usage: gsl_multifit_linear_solve(lambda,X,y,c,work);");
5587 }
5588 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5589 if (!SWIG_IsOK(ecode1)) {
5590 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_multifit_linear_solve" "', argument " "1"" of type '" "double""'");
5591 }
5592 arg1 = (double)(val1);
5593 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5594 if (!SWIG_IsOK(res2)) {
5595 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_solve" "', argument " "2"" of type '" "gsl_matrix const *""'");
5596 }
5597 arg2 = (gsl_matrix *)(argp2);
5598 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5599 if (!SWIG_IsOK(res3)) {
5600 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
5601 }
5602 arg3 = (gsl_vector *)(argp3);
5603 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5604 if (!SWIG_IsOK(res4)) {
5605 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_solve" "', argument " "4"" of type '" "gsl_vector *""'");
5606 }
5607 arg4 = (gsl_vector *)(argp4);
5608 res7 = SWIG_ConvertPtr(ST(4), &argp7,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
5609 if (!SWIG_IsOK(res7)) {
5610 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_linear_solve" "', argument " "7"" of type '" "gsl_multifit_linear_workspace *""'");
5611 }
5612 arg7 = (gsl_multifit_linear_workspace *)(argp7);
5613 result = (int)gsl_multifit_linear_solve(arg1,(gsl_matrix const *)arg2,(gsl_vector const *)arg3,arg4,arg5,arg6,arg7);
5614 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5615 if (SWIG_IsTmpObj(res5)) {
5616 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg5)); argvi++ ;
5617 } else {
5618 int new_flags = SWIG_IsNewObj(res5) ? (SWIG_POINTER_OWN | 0) : 0;
5619 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg5), SWIGTYPE_p_double, new_flags); argvi++ ;
5620 }
5621 if (SWIG_IsTmpObj(res6)) {
5622 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg6)); argvi++ ;
5623 } else {
5624 int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN | 0) : 0;
5625 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_double, new_flags); argvi++ ;
5626 }
5627
5628
5629
5630
5631
5632
5633
5634 XSRETURN(argvi);
5635 fail:
5636
5637
5638
5639
5640
5641
5642
5643 SWIG_croak_null();
5644 }
5645 }
5646
5647
XS(_wrap_gsl_multifit_linear_applyW)5648 XS(_wrap_gsl_multifit_linear_applyW) {
5649 {
5650 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5651 gsl_vector *arg2 = (gsl_vector *) 0 ;
5652 gsl_vector *arg3 = (gsl_vector *) 0 ;
5653 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
5654 gsl_vector *arg5 = (gsl_vector *) 0 ;
5655 void *argp1 = 0 ;
5656 int res1 = 0 ;
5657 void *argp2 = 0 ;
5658 int res2 = 0 ;
5659 void *argp3 = 0 ;
5660 int res3 = 0 ;
5661 void *argp4 = 0 ;
5662 int res4 = 0 ;
5663 void *argp5 = 0 ;
5664 int res5 = 0 ;
5665 int argvi = 0;
5666 int result;
5667 dXSARGS;
5668
5669 if ((items < 5) || (items > 5)) {
5670 SWIG_croak("Usage: gsl_multifit_linear_applyW(X,w,y,WX,Wy);");
5671 }
5672 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5673 if (!SWIG_IsOK(res1)) {
5674 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_applyW" "', argument " "1"" of type '" "gsl_matrix const *""'");
5675 }
5676 arg1 = (gsl_matrix *)(argp1);
5677 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5678 if (!SWIG_IsOK(res2)) {
5679 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_applyW" "', argument " "2"" of type '" "gsl_vector const *""'");
5680 }
5681 arg2 = (gsl_vector *)(argp2);
5682 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5683 if (!SWIG_IsOK(res3)) {
5684 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_applyW" "', argument " "3"" of type '" "gsl_vector const *""'");
5685 }
5686 arg3 = (gsl_vector *)(argp3);
5687 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5688 if (!SWIG_IsOK(res4)) {
5689 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_applyW" "', argument " "4"" of type '" "gsl_matrix *""'");
5690 }
5691 arg4 = (gsl_matrix *)(argp4);
5692 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5693 if (!SWIG_IsOK(res5)) {
5694 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_applyW" "', argument " "5"" of type '" "gsl_vector *""'");
5695 }
5696 arg5 = (gsl_vector *)(argp5);
5697 result = (int)gsl_multifit_linear_applyW((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5);
5698 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5699
5700
5701
5702
5703
5704 XSRETURN(argvi);
5705 fail:
5706
5707
5708
5709
5710
5711 SWIG_croak_null();
5712 }
5713 }
5714
5715
XS(_wrap_gsl_multifit_linear_stdform1)5716 XS(_wrap_gsl_multifit_linear_stdform1) {
5717 {
5718 gsl_vector *arg1 = (gsl_vector *) 0 ;
5719 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5720 gsl_vector *arg3 = (gsl_vector *) 0 ;
5721 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
5722 gsl_vector *arg5 = (gsl_vector *) 0 ;
5723 gsl_multifit_linear_workspace *arg6 = (gsl_multifit_linear_workspace *) 0 ;
5724 void *argp1 = 0 ;
5725 int res1 = 0 ;
5726 void *argp2 = 0 ;
5727 int res2 = 0 ;
5728 void *argp3 = 0 ;
5729 int res3 = 0 ;
5730 void *argp4 = 0 ;
5731 int res4 = 0 ;
5732 void *argp5 = 0 ;
5733 int res5 = 0 ;
5734 void *argp6 = 0 ;
5735 int res6 = 0 ;
5736 int argvi = 0;
5737 int result;
5738 dXSARGS;
5739
5740 if ((items < 6) || (items > 6)) {
5741 SWIG_croak("Usage: gsl_multifit_linear_stdform1(L,X,y,Xs,ys,work);");
5742 }
5743 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
5744 if (!SWIG_IsOK(res1)) {
5745 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_stdform1" "', argument " "1"" of type '" "gsl_vector const *""'");
5746 }
5747 arg1 = (gsl_vector *)(argp1);
5748 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5749 if (!SWIG_IsOK(res2)) {
5750 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_stdform1" "', argument " "2"" of type '" "gsl_matrix const *""'");
5751 }
5752 arg2 = (gsl_matrix *)(argp2);
5753 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5754 if (!SWIG_IsOK(res3)) {
5755 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_stdform1" "', argument " "3"" of type '" "gsl_vector const *""'");
5756 }
5757 arg3 = (gsl_vector *)(argp3);
5758 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5759 if (!SWIG_IsOK(res4)) {
5760 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_stdform1" "', argument " "4"" of type '" "gsl_matrix *""'");
5761 }
5762 arg4 = (gsl_matrix *)(argp4);
5763 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5764 if (!SWIG_IsOK(res5)) {
5765 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_stdform1" "', argument " "5"" of type '" "gsl_vector *""'");
5766 }
5767 arg5 = (gsl_vector *)(argp5);
5768 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
5769 if (!SWIG_IsOK(res6)) {
5770 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear_stdform1" "', argument " "6"" of type '" "gsl_multifit_linear_workspace *""'");
5771 }
5772 arg6 = (gsl_multifit_linear_workspace *)(argp6);
5773 result = (int)gsl_multifit_linear_stdform1((gsl_vector const *)arg1,(gsl_matrix const *)arg2,(gsl_vector const *)arg3,arg4,arg5,arg6);
5774 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5775
5776
5777
5778
5779
5780
5781 XSRETURN(argvi);
5782 fail:
5783
5784
5785
5786
5787
5788
5789 SWIG_croak_null();
5790 }
5791 }
5792
5793
XS(_wrap_gsl_multifit_linear_wstdform1)5794 XS(_wrap_gsl_multifit_linear_wstdform1) {
5795 {
5796 gsl_vector *arg1 = (gsl_vector *) 0 ;
5797 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5798 gsl_vector *arg3 = (gsl_vector *) 0 ;
5799 gsl_vector *arg4 = (gsl_vector *) 0 ;
5800 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
5801 gsl_vector *arg6 = (gsl_vector *) 0 ;
5802 gsl_multifit_linear_workspace *arg7 = (gsl_multifit_linear_workspace *) 0 ;
5803 void *argp1 = 0 ;
5804 int res1 = 0 ;
5805 void *argp2 = 0 ;
5806 int res2 = 0 ;
5807 void *argp3 = 0 ;
5808 int res3 = 0 ;
5809 void *argp4 = 0 ;
5810 int res4 = 0 ;
5811 void *argp5 = 0 ;
5812 int res5 = 0 ;
5813 void *argp6 = 0 ;
5814 int res6 = 0 ;
5815 void *argp7 = 0 ;
5816 int res7 = 0 ;
5817 int argvi = 0;
5818 int result;
5819 dXSARGS;
5820
5821 if ((items < 7) || (items > 7)) {
5822 SWIG_croak("Usage: gsl_multifit_linear_wstdform1(L,X,w,y,Xs,ys,work);");
5823 }
5824 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
5825 if (!SWIG_IsOK(res1)) {
5826 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_wstdform1" "', argument " "1"" of type '" "gsl_vector const *""'");
5827 }
5828 arg1 = (gsl_vector *)(argp1);
5829 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5830 if (!SWIG_IsOK(res2)) {
5831 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_wstdform1" "', argument " "2"" of type '" "gsl_matrix const *""'");
5832 }
5833 arg2 = (gsl_matrix *)(argp2);
5834 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5835 if (!SWIG_IsOK(res3)) {
5836 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_wstdform1" "', argument " "3"" of type '" "gsl_vector const *""'");
5837 }
5838 arg3 = (gsl_vector *)(argp3);
5839 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5840 if (!SWIG_IsOK(res4)) {
5841 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_wstdform1" "', argument " "4"" of type '" "gsl_vector const *""'");
5842 }
5843 arg4 = (gsl_vector *)(argp4);
5844 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5845 if (!SWIG_IsOK(res5)) {
5846 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_wstdform1" "', argument " "5"" of type '" "gsl_matrix *""'");
5847 }
5848 arg5 = (gsl_matrix *)(argp5);
5849 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
5850 if (!SWIG_IsOK(res6)) {
5851 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear_wstdform1" "', argument " "6"" of type '" "gsl_vector *""'");
5852 }
5853 arg6 = (gsl_vector *)(argp6);
5854 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
5855 if (!SWIG_IsOK(res7)) {
5856 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_linear_wstdform1" "', argument " "7"" of type '" "gsl_multifit_linear_workspace *""'");
5857 }
5858 arg7 = (gsl_multifit_linear_workspace *)(argp7);
5859 result = (int)gsl_multifit_linear_wstdform1((gsl_vector const *)arg1,(gsl_matrix const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5,arg6,arg7);
5860 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5861
5862
5863
5864
5865
5866
5867
5868 XSRETURN(argvi);
5869 fail:
5870
5871
5872
5873
5874
5875
5876
5877 SWIG_croak_null();
5878 }
5879 }
5880
5881
XS(_wrap_gsl_multifit_linear_L_decomp)5882 XS(_wrap_gsl_multifit_linear_L_decomp) {
5883 {
5884 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5885 gsl_vector *arg2 = (gsl_vector *) 0 ;
5886 void *argp1 = 0 ;
5887 int res1 = 0 ;
5888 void *argp2 = 0 ;
5889 int res2 = 0 ;
5890 int argvi = 0;
5891 int result;
5892 dXSARGS;
5893
5894 if ((items < 2) || (items > 2)) {
5895 SWIG_croak("Usage: gsl_multifit_linear_L_decomp(L,tau);");
5896 }
5897 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5898 if (!SWIG_IsOK(res1)) {
5899 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_L_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
5900 }
5901 arg1 = (gsl_matrix *)(argp1);
5902 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5903 if (!SWIG_IsOK(res2)) {
5904 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_L_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
5905 }
5906 arg2 = (gsl_vector *)(argp2);
5907 result = (int)gsl_multifit_linear_L_decomp(arg1,arg2);
5908 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5909
5910
5911 XSRETURN(argvi);
5912 fail:
5913
5914
5915 SWIG_croak_null();
5916 }
5917 }
5918
5919
XS(_wrap_gsl_multifit_linear_stdform2)5920 XS(_wrap_gsl_multifit_linear_stdform2) {
5921 {
5922 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5923 gsl_vector *arg2 = (gsl_vector *) 0 ;
5924 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
5925 gsl_vector *arg4 = (gsl_vector *) 0 ;
5926 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
5927 gsl_vector *arg6 = (gsl_vector *) 0 ;
5928 gsl_matrix *arg7 = (gsl_matrix *) 0 ;
5929 gsl_multifit_linear_workspace *arg8 = (gsl_multifit_linear_workspace *) 0 ;
5930 void *argp1 = 0 ;
5931 int res1 = 0 ;
5932 void *argp2 = 0 ;
5933 int res2 = 0 ;
5934 void *argp3 = 0 ;
5935 int res3 = 0 ;
5936 void *argp4 = 0 ;
5937 int res4 = 0 ;
5938 void *argp5 = 0 ;
5939 int res5 = 0 ;
5940 void *argp6 = 0 ;
5941 int res6 = 0 ;
5942 void *argp7 = 0 ;
5943 int res7 = 0 ;
5944 void *argp8 = 0 ;
5945 int res8 = 0 ;
5946 int argvi = 0;
5947 int result;
5948 dXSARGS;
5949
5950 if ((items < 8) || (items > 8)) {
5951 SWIG_croak("Usage: gsl_multifit_linear_stdform2(LQR,Ltau,X,y,Xs,ys,M,work);");
5952 }
5953 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5954 if (!SWIG_IsOK(res1)) {
5955 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_stdform2" "', argument " "1"" of type '" "gsl_matrix const *""'");
5956 }
5957 arg1 = (gsl_matrix *)(argp1);
5958 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5959 if (!SWIG_IsOK(res2)) {
5960 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_stdform2" "', argument " "2"" of type '" "gsl_vector const *""'");
5961 }
5962 arg2 = (gsl_vector *)(argp2);
5963 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5964 if (!SWIG_IsOK(res3)) {
5965 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_stdform2" "', argument " "3"" of type '" "gsl_matrix const *""'");
5966 }
5967 arg3 = (gsl_matrix *)(argp3);
5968 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5969 if (!SWIG_IsOK(res4)) {
5970 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_stdform2" "', argument " "4"" of type '" "gsl_vector const *""'");
5971 }
5972 arg4 = (gsl_vector *)(argp4);
5973 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5974 if (!SWIG_IsOK(res5)) {
5975 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_stdform2" "', argument " "5"" of type '" "gsl_matrix *""'");
5976 }
5977 arg5 = (gsl_matrix *)(argp5);
5978 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
5979 if (!SWIG_IsOK(res6)) {
5980 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear_stdform2" "', argument " "6"" of type '" "gsl_vector *""'");
5981 }
5982 arg6 = (gsl_vector *)(argp6);
5983 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5984 if (!SWIG_IsOK(res7)) {
5985 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_linear_stdform2" "', argument " "7"" of type '" "gsl_matrix *""'");
5986 }
5987 arg7 = (gsl_matrix *)(argp7);
5988 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
5989 if (!SWIG_IsOK(res8)) {
5990 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_multifit_linear_stdform2" "', argument " "8"" of type '" "gsl_multifit_linear_workspace *""'");
5991 }
5992 arg8 = (gsl_multifit_linear_workspace *)(argp8);
5993 result = (int)gsl_multifit_linear_stdform2((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_matrix const *)arg3,(gsl_vector const *)arg4,arg5,arg6,arg7,arg8);
5994 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5995
5996
5997
5998
5999
6000
6001
6002
6003 XSRETURN(argvi);
6004 fail:
6005
6006
6007
6008
6009
6010
6011
6012
6013 SWIG_croak_null();
6014 }
6015 }
6016
6017
XS(_wrap_gsl_multifit_linear_wstdform2)6018 XS(_wrap_gsl_multifit_linear_wstdform2) {
6019 {
6020 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6021 gsl_vector *arg2 = (gsl_vector *) 0 ;
6022 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
6023 gsl_vector *arg4 = (gsl_vector *) 0 ;
6024 gsl_vector *arg5 = (gsl_vector *) 0 ;
6025 gsl_matrix *arg6 = (gsl_matrix *) 0 ;
6026 gsl_vector *arg7 = (gsl_vector *) 0 ;
6027 gsl_matrix *arg8 = (gsl_matrix *) 0 ;
6028 gsl_multifit_linear_workspace *arg9 = (gsl_multifit_linear_workspace *) 0 ;
6029 void *argp1 = 0 ;
6030 int res1 = 0 ;
6031 void *argp2 = 0 ;
6032 int res2 = 0 ;
6033 void *argp3 = 0 ;
6034 int res3 = 0 ;
6035 void *argp4 = 0 ;
6036 int res4 = 0 ;
6037 void *argp5 = 0 ;
6038 int res5 = 0 ;
6039 void *argp6 = 0 ;
6040 int res6 = 0 ;
6041 void *argp7 = 0 ;
6042 int res7 = 0 ;
6043 void *argp8 = 0 ;
6044 int res8 = 0 ;
6045 void *argp9 = 0 ;
6046 int res9 = 0 ;
6047 int argvi = 0;
6048 int result;
6049 dXSARGS;
6050
6051 if ((items < 9) || (items > 9)) {
6052 SWIG_croak("Usage: gsl_multifit_linear_wstdform2(LQR,Ltau,X,w,y,Xs,ys,M,work);");
6053 }
6054 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6055 if (!SWIG_IsOK(res1)) {
6056 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_wstdform2" "', argument " "1"" of type '" "gsl_matrix const *""'");
6057 }
6058 arg1 = (gsl_matrix *)(argp1);
6059 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6060 if (!SWIG_IsOK(res2)) {
6061 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_wstdform2" "', argument " "2"" of type '" "gsl_vector const *""'");
6062 }
6063 arg2 = (gsl_vector *)(argp2);
6064 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6065 if (!SWIG_IsOK(res3)) {
6066 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_wstdform2" "', argument " "3"" of type '" "gsl_matrix const *""'");
6067 }
6068 arg3 = (gsl_matrix *)(argp3);
6069 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6070 if (!SWIG_IsOK(res4)) {
6071 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_wstdform2" "', argument " "4"" of type '" "gsl_vector const *""'");
6072 }
6073 arg4 = (gsl_vector *)(argp4);
6074 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6075 if (!SWIG_IsOK(res5)) {
6076 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_wstdform2" "', argument " "5"" of type '" "gsl_vector const *""'");
6077 }
6078 arg5 = (gsl_vector *)(argp5);
6079 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6080 if (!SWIG_IsOK(res6)) {
6081 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear_wstdform2" "', argument " "6"" of type '" "gsl_matrix *""'");
6082 }
6083 arg6 = (gsl_matrix *)(argp6);
6084 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
6085 if (!SWIG_IsOK(res7)) {
6086 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_linear_wstdform2" "', argument " "7"" of type '" "gsl_vector *""'");
6087 }
6088 arg7 = (gsl_vector *)(argp7);
6089 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6090 if (!SWIG_IsOK(res8)) {
6091 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_multifit_linear_wstdform2" "', argument " "8"" of type '" "gsl_matrix *""'");
6092 }
6093 arg8 = (gsl_matrix *)(argp8);
6094 res9 = SWIG_ConvertPtr(ST(8), &argp9,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
6095 if (!SWIG_IsOK(res9)) {
6096 SWIG_exception_fail(SWIG_ArgError(res9), "in method '" "gsl_multifit_linear_wstdform2" "', argument " "9"" of type '" "gsl_multifit_linear_workspace *""'");
6097 }
6098 arg9 = (gsl_multifit_linear_workspace *)(argp9);
6099 result = (int)gsl_multifit_linear_wstdform2((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_matrix const *)arg3,(gsl_vector const *)arg4,(gsl_vector const *)arg5,arg6,arg7,arg8,arg9);
6100 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6101
6102
6103
6104
6105
6106
6107
6108
6109
6110 XSRETURN(argvi);
6111 fail:
6112
6113
6114
6115
6116
6117
6118
6119
6120
6121 SWIG_croak_null();
6122 }
6123 }
6124
6125
XS(_wrap_gsl_multifit_linear_genform1)6126 XS(_wrap_gsl_multifit_linear_genform1) {
6127 {
6128 gsl_vector *arg1 = (gsl_vector *) 0 ;
6129 gsl_vector *arg2 = (gsl_vector *) 0 ;
6130 gsl_vector *arg3 = (gsl_vector *) 0 ;
6131 gsl_multifit_linear_workspace *arg4 = (gsl_multifit_linear_workspace *) 0 ;
6132 void *argp1 = 0 ;
6133 int res1 = 0 ;
6134 void *argp2 = 0 ;
6135 int res2 = 0 ;
6136 void *argp3 = 0 ;
6137 int res3 = 0 ;
6138 void *argp4 = 0 ;
6139 int res4 = 0 ;
6140 int argvi = 0;
6141 int result;
6142 dXSARGS;
6143
6144 if ((items < 4) || (items > 4)) {
6145 SWIG_croak("Usage: gsl_multifit_linear_genform1(L,cs,c,work);");
6146 }
6147 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
6148 if (!SWIG_IsOK(res1)) {
6149 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_genform1" "', argument " "1"" of type '" "gsl_vector const *""'");
6150 }
6151 arg1 = (gsl_vector *)(argp1);
6152 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6153 if (!SWIG_IsOK(res2)) {
6154 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_genform1" "', argument " "2"" of type '" "gsl_vector const *""'");
6155 }
6156 arg2 = (gsl_vector *)(argp2);
6157 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6158 if (!SWIG_IsOK(res3)) {
6159 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_genform1" "', argument " "3"" of type '" "gsl_vector *""'");
6160 }
6161 arg3 = (gsl_vector *)(argp3);
6162 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
6163 if (!SWIG_IsOK(res4)) {
6164 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_genform1" "', argument " "4"" of type '" "gsl_multifit_linear_workspace *""'");
6165 }
6166 arg4 = (gsl_multifit_linear_workspace *)(argp4);
6167 result = (int)gsl_multifit_linear_genform1((gsl_vector const *)arg1,(gsl_vector const *)arg2,arg3,arg4);
6168 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6169
6170
6171
6172
6173 XSRETURN(argvi);
6174 fail:
6175
6176
6177
6178
6179 SWIG_croak_null();
6180 }
6181 }
6182
6183
XS(_wrap_gsl_multifit_linear_genform2)6184 XS(_wrap_gsl_multifit_linear_genform2) {
6185 {
6186 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6187 gsl_vector *arg2 = (gsl_vector *) 0 ;
6188 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
6189 gsl_vector *arg4 = (gsl_vector *) 0 ;
6190 gsl_vector *arg5 = (gsl_vector *) 0 ;
6191 gsl_matrix *arg6 = (gsl_matrix *) 0 ;
6192 gsl_vector *arg7 = (gsl_vector *) 0 ;
6193 gsl_multifit_linear_workspace *arg8 = (gsl_multifit_linear_workspace *) 0 ;
6194 void *argp1 = 0 ;
6195 int res1 = 0 ;
6196 void *argp2 = 0 ;
6197 int res2 = 0 ;
6198 void *argp3 = 0 ;
6199 int res3 = 0 ;
6200 void *argp4 = 0 ;
6201 int res4 = 0 ;
6202 void *argp5 = 0 ;
6203 int res5 = 0 ;
6204 void *argp6 = 0 ;
6205 int res6 = 0 ;
6206 void *argp7 = 0 ;
6207 int res7 = 0 ;
6208 void *argp8 = 0 ;
6209 int res8 = 0 ;
6210 int argvi = 0;
6211 int result;
6212 dXSARGS;
6213
6214 if ((items < 8) || (items > 8)) {
6215 SWIG_croak("Usage: gsl_multifit_linear_genform2(LQR,Ltau,X,y,cs,M,c,work);");
6216 }
6217 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6218 if (!SWIG_IsOK(res1)) {
6219 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_genform2" "', argument " "1"" of type '" "gsl_matrix const *""'");
6220 }
6221 arg1 = (gsl_matrix *)(argp1);
6222 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6223 if (!SWIG_IsOK(res2)) {
6224 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_genform2" "', argument " "2"" of type '" "gsl_vector const *""'");
6225 }
6226 arg2 = (gsl_vector *)(argp2);
6227 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6228 if (!SWIG_IsOK(res3)) {
6229 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_genform2" "', argument " "3"" of type '" "gsl_matrix const *""'");
6230 }
6231 arg3 = (gsl_matrix *)(argp3);
6232 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6233 if (!SWIG_IsOK(res4)) {
6234 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_genform2" "', argument " "4"" of type '" "gsl_vector const *""'");
6235 }
6236 arg4 = (gsl_vector *)(argp4);
6237 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6238 if (!SWIG_IsOK(res5)) {
6239 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_genform2" "', argument " "5"" of type '" "gsl_vector const *""'");
6240 }
6241 arg5 = (gsl_vector *)(argp5);
6242 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6243 if (!SWIG_IsOK(res6)) {
6244 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear_genform2" "', argument " "6"" of type '" "gsl_matrix const *""'");
6245 }
6246 arg6 = (gsl_matrix *)(argp6);
6247 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
6248 if (!SWIG_IsOK(res7)) {
6249 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_linear_genform2" "', argument " "7"" of type '" "gsl_vector *""'");
6250 }
6251 arg7 = (gsl_vector *)(argp7);
6252 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
6253 if (!SWIG_IsOK(res8)) {
6254 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_multifit_linear_genform2" "', argument " "8"" of type '" "gsl_multifit_linear_workspace *""'");
6255 }
6256 arg8 = (gsl_multifit_linear_workspace *)(argp8);
6257 result = (int)gsl_multifit_linear_genform2((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_matrix const *)arg3,(gsl_vector const *)arg4,(gsl_vector const *)arg5,(gsl_matrix const *)arg6,arg7,arg8);
6258 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6259
6260
6261
6262
6263
6264
6265
6266
6267 XSRETURN(argvi);
6268 fail:
6269
6270
6271
6272
6273
6274
6275
6276
6277 SWIG_croak_null();
6278 }
6279 }
6280
6281
XS(_wrap_gsl_multifit_linear_wgenform2)6282 XS(_wrap_gsl_multifit_linear_wgenform2) {
6283 {
6284 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6285 gsl_vector *arg2 = (gsl_vector *) 0 ;
6286 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
6287 gsl_vector *arg4 = (gsl_vector *) 0 ;
6288 gsl_vector *arg5 = (gsl_vector *) 0 ;
6289 gsl_vector *arg6 = (gsl_vector *) 0 ;
6290 gsl_matrix *arg7 = (gsl_matrix *) 0 ;
6291 gsl_vector *arg8 = (gsl_vector *) 0 ;
6292 gsl_multifit_linear_workspace *arg9 = (gsl_multifit_linear_workspace *) 0 ;
6293 void *argp1 = 0 ;
6294 int res1 = 0 ;
6295 void *argp2 = 0 ;
6296 int res2 = 0 ;
6297 void *argp3 = 0 ;
6298 int res3 = 0 ;
6299 void *argp4 = 0 ;
6300 int res4 = 0 ;
6301 void *argp5 = 0 ;
6302 int res5 = 0 ;
6303 void *argp6 = 0 ;
6304 int res6 = 0 ;
6305 void *argp7 = 0 ;
6306 int res7 = 0 ;
6307 void *argp8 = 0 ;
6308 int res8 = 0 ;
6309 void *argp9 = 0 ;
6310 int res9 = 0 ;
6311 int argvi = 0;
6312 int result;
6313 dXSARGS;
6314
6315 if ((items < 9) || (items > 9)) {
6316 SWIG_croak("Usage: gsl_multifit_linear_wgenform2(LQR,Ltau,X,w,y,cs,M,c,work);");
6317 }
6318 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6319 if (!SWIG_IsOK(res1)) {
6320 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_wgenform2" "', argument " "1"" of type '" "gsl_matrix const *""'");
6321 }
6322 arg1 = (gsl_matrix *)(argp1);
6323 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6324 if (!SWIG_IsOK(res2)) {
6325 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_wgenform2" "', argument " "2"" of type '" "gsl_vector const *""'");
6326 }
6327 arg2 = (gsl_vector *)(argp2);
6328 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6329 if (!SWIG_IsOK(res3)) {
6330 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_wgenform2" "', argument " "3"" of type '" "gsl_matrix const *""'");
6331 }
6332 arg3 = (gsl_matrix *)(argp3);
6333 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6334 if (!SWIG_IsOK(res4)) {
6335 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_wgenform2" "', argument " "4"" of type '" "gsl_vector const *""'");
6336 }
6337 arg4 = (gsl_vector *)(argp4);
6338 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6339 if (!SWIG_IsOK(res5)) {
6340 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_wgenform2" "', argument " "5"" of type '" "gsl_vector const *""'");
6341 }
6342 arg5 = (gsl_vector *)(argp5);
6343 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
6344 if (!SWIG_IsOK(res6)) {
6345 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear_wgenform2" "', argument " "6"" of type '" "gsl_vector const *""'");
6346 }
6347 arg6 = (gsl_vector *)(argp6);
6348 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6349 if (!SWIG_IsOK(res7)) {
6350 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_linear_wgenform2" "', argument " "7"" of type '" "gsl_matrix const *""'");
6351 }
6352 arg7 = (gsl_matrix *)(argp7);
6353 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_vector, 0 | 0 );
6354 if (!SWIG_IsOK(res8)) {
6355 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_multifit_linear_wgenform2" "', argument " "8"" of type '" "gsl_vector *""'");
6356 }
6357 arg8 = (gsl_vector *)(argp8);
6358 res9 = SWIG_ConvertPtr(ST(8), &argp9,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
6359 if (!SWIG_IsOK(res9)) {
6360 SWIG_exception_fail(SWIG_ArgError(res9), "in method '" "gsl_multifit_linear_wgenform2" "', argument " "9"" of type '" "gsl_multifit_linear_workspace *""'");
6361 }
6362 arg9 = (gsl_multifit_linear_workspace *)(argp9);
6363 result = (int)gsl_multifit_linear_wgenform2((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_matrix const *)arg3,(gsl_vector const *)arg4,(gsl_vector const *)arg5,(gsl_vector const *)arg6,(gsl_matrix const *)arg7,arg8,arg9);
6364 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6365
6366
6367
6368
6369
6370
6371
6372
6373
6374 XSRETURN(argvi);
6375 fail:
6376
6377
6378
6379
6380
6381
6382
6383
6384
6385 SWIG_croak_null();
6386 }
6387 }
6388
6389
XS(_wrap_gsl_multifit_linear_lreg)6390 XS(_wrap_gsl_multifit_linear_lreg) {
6391 {
6392 double arg1 ;
6393 double arg2 ;
6394 gsl_vector *arg3 = (gsl_vector *) 0 ;
6395 double val1 ;
6396 int ecode1 = 0 ;
6397 double val2 ;
6398 int ecode2 = 0 ;
6399 void *argp3 = 0 ;
6400 int res3 = 0 ;
6401 int argvi = 0;
6402 int result;
6403 dXSARGS;
6404
6405 if ((items < 3) || (items > 3)) {
6406 SWIG_croak("Usage: gsl_multifit_linear_lreg(smin,smax,reg_param);");
6407 }
6408 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
6409 if (!SWIG_IsOK(ecode1)) {
6410 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_multifit_linear_lreg" "', argument " "1"" of type '" "double""'");
6411 }
6412 arg1 = (double)(val1);
6413 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6414 if (!SWIG_IsOK(ecode2)) {
6415 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_linear_lreg" "', argument " "2"" of type '" "double""'");
6416 }
6417 arg2 = (double)(val2);
6418 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6419 if (!SWIG_IsOK(res3)) {
6420 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_lreg" "', argument " "3"" of type '" "gsl_vector *""'");
6421 }
6422 arg3 = (gsl_vector *)(argp3);
6423 result = (int)gsl_multifit_linear_lreg(arg1,arg2,arg3);
6424 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6425
6426
6427
6428 XSRETURN(argvi);
6429 fail:
6430
6431
6432
6433 SWIG_croak_null();
6434 }
6435 }
6436
6437
XS(_wrap_gsl_multifit_linear_lcurve)6438 XS(_wrap_gsl_multifit_linear_lcurve) {
6439 {
6440 gsl_vector *arg1 = (gsl_vector *) 0 ;
6441 gsl_vector *arg2 = (gsl_vector *) 0 ;
6442 gsl_vector *arg3 = (gsl_vector *) 0 ;
6443 gsl_vector *arg4 = (gsl_vector *) 0 ;
6444 gsl_multifit_linear_workspace *arg5 = (gsl_multifit_linear_workspace *) 0 ;
6445 void *argp1 = 0 ;
6446 int res1 = 0 ;
6447 void *argp2 = 0 ;
6448 int res2 = 0 ;
6449 void *argp3 = 0 ;
6450 int res3 = 0 ;
6451 void *argp4 = 0 ;
6452 int res4 = 0 ;
6453 void *argp5 = 0 ;
6454 int res5 = 0 ;
6455 int argvi = 0;
6456 int result;
6457 dXSARGS;
6458
6459 if ((items < 5) || (items > 5)) {
6460 SWIG_croak("Usage: gsl_multifit_linear_lcurve(y,reg_param,rho,eta,work);");
6461 }
6462 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
6463 if (!SWIG_IsOK(res1)) {
6464 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_lcurve" "', argument " "1"" of type '" "gsl_vector const *""'");
6465 }
6466 arg1 = (gsl_vector *)(argp1);
6467 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6468 if (!SWIG_IsOK(res2)) {
6469 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_lcurve" "', argument " "2"" of type '" "gsl_vector *""'");
6470 }
6471 arg2 = (gsl_vector *)(argp2);
6472 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6473 if (!SWIG_IsOK(res3)) {
6474 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_lcurve" "', argument " "3"" of type '" "gsl_vector *""'");
6475 }
6476 arg3 = (gsl_vector *)(argp3);
6477 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6478 if (!SWIG_IsOK(res4)) {
6479 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_lcurve" "', argument " "4"" of type '" "gsl_vector *""'");
6480 }
6481 arg4 = (gsl_vector *)(argp4);
6482 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
6483 if (!SWIG_IsOK(res5)) {
6484 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_lcurve" "', argument " "5"" of type '" "gsl_multifit_linear_workspace *""'");
6485 }
6486 arg5 = (gsl_multifit_linear_workspace *)(argp5);
6487 result = (int)gsl_multifit_linear_lcurve((gsl_vector const *)arg1,arg2,arg3,arg4,arg5);
6488 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6489
6490
6491
6492
6493
6494 XSRETURN(argvi);
6495 fail:
6496
6497
6498
6499
6500
6501 SWIG_croak_null();
6502 }
6503 }
6504
6505
XS(_wrap_gsl_multifit_linear_lcurvature)6506 XS(_wrap_gsl_multifit_linear_lcurvature) {
6507 {
6508 gsl_vector *arg1 = (gsl_vector *) 0 ;
6509 gsl_vector *arg2 = (gsl_vector *) 0 ;
6510 gsl_vector *arg3 = (gsl_vector *) 0 ;
6511 gsl_vector *arg4 = (gsl_vector *) 0 ;
6512 gsl_vector *arg5 = (gsl_vector *) 0 ;
6513 gsl_multifit_linear_workspace *arg6 = (gsl_multifit_linear_workspace *) 0 ;
6514 void *argp1 = 0 ;
6515 int res1 = 0 ;
6516 void *argp2 = 0 ;
6517 int res2 = 0 ;
6518 void *argp3 = 0 ;
6519 int res3 = 0 ;
6520 void *argp4 = 0 ;
6521 int res4 = 0 ;
6522 void *argp5 = 0 ;
6523 int res5 = 0 ;
6524 void *argp6 = 0 ;
6525 int res6 = 0 ;
6526 int argvi = 0;
6527 int result;
6528 dXSARGS;
6529
6530 if ((items < 6) || (items > 6)) {
6531 SWIG_croak("Usage: gsl_multifit_linear_lcurvature(y,reg_param,rho,eta,kappa,work);");
6532 }
6533 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
6534 if (!SWIG_IsOK(res1)) {
6535 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_lcurvature" "', argument " "1"" of type '" "gsl_vector const *""'");
6536 }
6537 arg1 = (gsl_vector *)(argp1);
6538 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6539 if (!SWIG_IsOK(res2)) {
6540 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_lcurvature" "', argument " "2"" of type '" "gsl_vector const *""'");
6541 }
6542 arg2 = (gsl_vector *)(argp2);
6543 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6544 if (!SWIG_IsOK(res3)) {
6545 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_lcurvature" "', argument " "3"" of type '" "gsl_vector const *""'");
6546 }
6547 arg3 = (gsl_vector *)(argp3);
6548 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6549 if (!SWIG_IsOK(res4)) {
6550 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_lcurvature" "', argument " "4"" of type '" "gsl_vector const *""'");
6551 }
6552 arg4 = (gsl_vector *)(argp4);
6553 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6554 if (!SWIG_IsOK(res5)) {
6555 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_lcurvature" "', argument " "5"" of type '" "gsl_vector *""'");
6556 }
6557 arg5 = (gsl_vector *)(argp5);
6558 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
6559 if (!SWIG_IsOK(res6)) {
6560 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear_lcurvature" "', argument " "6"" of type '" "gsl_multifit_linear_workspace *""'");
6561 }
6562 arg6 = (gsl_multifit_linear_workspace *)(argp6);
6563 result = (int)gsl_multifit_linear_lcurvature((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5,arg6);
6564 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6565
6566
6567
6568
6569
6570
6571 XSRETURN(argvi);
6572 fail:
6573
6574
6575
6576
6577
6578
6579 SWIG_croak_null();
6580 }
6581 }
6582
6583
XS(_wrap_gsl_multifit_linear_lcorner)6584 XS(_wrap_gsl_multifit_linear_lcorner) {
6585 {
6586 gsl_vector *arg1 = (gsl_vector *) 0 ;
6587 gsl_vector *arg2 = (gsl_vector *) 0 ;
6588 size_t *arg3 = (size_t *) 0 ;
6589 void *argp1 = 0 ;
6590 int res1 = 0 ;
6591 void *argp2 = 0 ;
6592 int res2 = 0 ;
6593 void *argp3 = 0 ;
6594 int res3 = 0 ;
6595 int argvi = 0;
6596 int result;
6597 dXSARGS;
6598
6599 if ((items < 3) || (items > 3)) {
6600 SWIG_croak("Usage: gsl_multifit_linear_lcorner(rho,eta,idx);");
6601 }
6602 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
6603 if (!SWIG_IsOK(res1)) {
6604 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_lcorner" "', argument " "1"" of type '" "gsl_vector const *""'");
6605 }
6606 arg1 = (gsl_vector *)(argp1);
6607 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6608 if (!SWIG_IsOK(res2)) {
6609 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_lcorner" "', argument " "2"" of type '" "gsl_vector const *""'");
6610 }
6611 arg2 = (gsl_vector *)(argp2);
6612 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_size_t, 0 | 0 );
6613 if (!SWIG_IsOK(res3)) {
6614 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_lcorner" "', argument " "3"" of type '" "size_t *""'");
6615 }
6616 arg3 = (size_t *)(argp3);
6617 result = (int)gsl_multifit_linear_lcorner((gsl_vector const *)arg1,(gsl_vector const *)arg2,arg3);
6618 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6619
6620
6621
6622 XSRETURN(argvi);
6623 fail:
6624
6625
6626
6627 SWIG_croak_null();
6628 }
6629 }
6630
6631
XS(_wrap_gsl_multifit_linear_lcorner2)6632 XS(_wrap_gsl_multifit_linear_lcorner2) {
6633 {
6634 gsl_vector *arg1 = (gsl_vector *) 0 ;
6635 gsl_vector *arg2 = (gsl_vector *) 0 ;
6636 size_t *arg3 = (size_t *) 0 ;
6637 void *argp1 = 0 ;
6638 int res1 = 0 ;
6639 void *argp2 = 0 ;
6640 int res2 = 0 ;
6641 void *argp3 = 0 ;
6642 int res3 = 0 ;
6643 int argvi = 0;
6644 int result;
6645 dXSARGS;
6646
6647 if ((items < 3) || (items > 3)) {
6648 SWIG_croak("Usage: gsl_multifit_linear_lcorner2(reg_param,eta,idx);");
6649 }
6650 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
6651 if (!SWIG_IsOK(res1)) {
6652 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_lcorner2" "', argument " "1"" of type '" "gsl_vector const *""'");
6653 }
6654 arg1 = (gsl_vector *)(argp1);
6655 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6656 if (!SWIG_IsOK(res2)) {
6657 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_lcorner2" "', argument " "2"" of type '" "gsl_vector const *""'");
6658 }
6659 arg2 = (gsl_vector *)(argp2);
6660 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_size_t, 0 | 0 );
6661 if (!SWIG_IsOK(res3)) {
6662 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_lcorner2" "', argument " "3"" of type '" "size_t *""'");
6663 }
6664 arg3 = (size_t *)(argp3);
6665 result = (int)gsl_multifit_linear_lcorner2((gsl_vector const *)arg1,(gsl_vector const *)arg2,arg3);
6666 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6667
6668
6669
6670 XSRETURN(argvi);
6671 fail:
6672
6673
6674
6675 SWIG_croak_null();
6676 }
6677 }
6678
6679
XS(_wrap_gsl_multifit_linear_Lk)6680 XS(_wrap_gsl_multifit_linear_Lk) {
6681 {
6682 size_t arg1 ;
6683 size_t arg2 ;
6684 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
6685 size_t val1 ;
6686 int ecode1 = 0 ;
6687 size_t val2 ;
6688 int ecode2 = 0 ;
6689 void *argp3 = 0 ;
6690 int res3 = 0 ;
6691 int argvi = 0;
6692 int result;
6693 dXSARGS;
6694
6695 if ((items < 3) || (items > 3)) {
6696 SWIG_croak("Usage: gsl_multifit_linear_Lk(p,k,L);");
6697 }
6698 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
6699 if (!SWIG_IsOK(ecode1)) {
6700 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_multifit_linear_Lk" "', argument " "1"" of type '" "size_t""'");
6701 }
6702 arg1 = (size_t)(val1);
6703 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6704 if (!SWIG_IsOK(ecode2)) {
6705 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_linear_Lk" "', argument " "2"" of type '" "size_t""'");
6706 }
6707 arg2 = (size_t)(val2);
6708 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6709 if (!SWIG_IsOK(res3)) {
6710 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_Lk" "', argument " "3"" of type '" "gsl_matrix *""'");
6711 }
6712 arg3 = (gsl_matrix *)(argp3);
6713 result = (int)gsl_multifit_linear_Lk(arg1,arg2,arg3);
6714 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6715
6716
6717
6718 XSRETURN(argvi);
6719 fail:
6720
6721
6722
6723 SWIG_croak_null();
6724 }
6725 }
6726
6727
XS(_wrap_gsl_multifit_linear_Lsobolev)6728 XS(_wrap_gsl_multifit_linear_Lsobolev) {
6729 {
6730 size_t arg1 ;
6731 size_t arg2 ;
6732 gsl_vector *arg3 = (gsl_vector *) 0 ;
6733 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
6734 gsl_multifit_linear_workspace *arg5 = (gsl_multifit_linear_workspace *) 0 ;
6735 size_t val1 ;
6736 int ecode1 = 0 ;
6737 size_t val2 ;
6738 int ecode2 = 0 ;
6739 void *argp3 = 0 ;
6740 int res3 = 0 ;
6741 void *argp4 = 0 ;
6742 int res4 = 0 ;
6743 void *argp5 = 0 ;
6744 int res5 = 0 ;
6745 int argvi = 0;
6746 int result;
6747 dXSARGS;
6748
6749 if ((items < 5) || (items > 5)) {
6750 SWIG_croak("Usage: gsl_multifit_linear_Lsobolev(p,kmax,alpha,L,work);");
6751 }
6752 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
6753 if (!SWIG_IsOK(ecode1)) {
6754 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_multifit_linear_Lsobolev" "', argument " "1"" of type '" "size_t""'");
6755 }
6756 arg1 = (size_t)(val1);
6757 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6758 if (!SWIG_IsOK(ecode2)) {
6759 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_linear_Lsobolev" "', argument " "2"" of type '" "size_t""'");
6760 }
6761 arg2 = (size_t)(val2);
6762 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6763 if (!SWIG_IsOK(res3)) {
6764 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_Lsobolev" "', argument " "3"" of type '" "gsl_vector const *""'");
6765 }
6766 arg3 = (gsl_vector *)(argp3);
6767 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6768 if (!SWIG_IsOK(res4)) {
6769 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_Lsobolev" "', argument " "4"" of type '" "gsl_matrix *""'");
6770 }
6771 arg4 = (gsl_matrix *)(argp4);
6772 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
6773 if (!SWIG_IsOK(res5)) {
6774 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_Lsobolev" "', argument " "5"" of type '" "gsl_multifit_linear_workspace *""'");
6775 }
6776 arg5 = (gsl_multifit_linear_workspace *)(argp5);
6777 result = (int)gsl_multifit_linear_Lsobolev(arg1,arg2,(gsl_vector const *)arg3,arg4,arg5);
6778 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6779
6780
6781
6782
6783
6784 XSRETURN(argvi);
6785 fail:
6786
6787
6788
6789
6790
6791 SWIG_croak_null();
6792 }
6793 }
6794
6795
XS(_wrap_gsl_multifit_wlinear)6796 XS(_wrap_gsl_multifit_wlinear) {
6797 {
6798 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6799 gsl_vector *arg2 = (gsl_vector *) 0 ;
6800 gsl_vector *arg3 = (gsl_vector *) 0 ;
6801 gsl_vector *arg4 = (gsl_vector *) 0 ;
6802 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
6803 double *arg6 = (double *) 0 ;
6804 gsl_multifit_linear_workspace *arg7 = (gsl_multifit_linear_workspace *) 0 ;
6805 void *argp1 = 0 ;
6806 int res1 = 0 ;
6807 void *argp2 = 0 ;
6808 int res2 = 0 ;
6809 void *argp3 = 0 ;
6810 int res3 = 0 ;
6811 void *argp4 = 0 ;
6812 int res4 = 0 ;
6813 void *argp5 = 0 ;
6814 int res5 = 0 ;
6815 void *argp6 = 0 ;
6816 int res6 = 0 ;
6817 void *argp7 = 0 ;
6818 int res7 = 0 ;
6819 int argvi = 0;
6820 int result;
6821 dXSARGS;
6822
6823 if ((items < 7) || (items > 7)) {
6824 SWIG_croak("Usage: gsl_multifit_wlinear(X,w,y,c,cov,chisq,work);");
6825 }
6826 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6827 if (!SWIG_IsOK(res1)) {
6828 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_wlinear" "', argument " "1"" of type '" "gsl_matrix const *""'");
6829 }
6830 arg1 = (gsl_matrix *)(argp1);
6831 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6832 if (!SWIG_IsOK(res2)) {
6833 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_wlinear" "', argument " "2"" of type '" "gsl_vector const *""'");
6834 }
6835 arg2 = (gsl_vector *)(argp2);
6836 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6837 if (!SWIG_IsOK(res3)) {
6838 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_wlinear" "', argument " "3"" of type '" "gsl_vector const *""'");
6839 }
6840 arg3 = (gsl_vector *)(argp3);
6841 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6842 if (!SWIG_IsOK(res4)) {
6843 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_wlinear" "', argument " "4"" of type '" "gsl_vector *""'");
6844 }
6845 arg4 = (gsl_vector *)(argp4);
6846 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6847 if (!SWIG_IsOK(res5)) {
6848 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_wlinear" "', argument " "5"" of type '" "gsl_matrix *""'");
6849 }
6850 arg5 = (gsl_matrix *)(argp5);
6851 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_double, 0 | 0 );
6852 if (!SWIG_IsOK(res6)) {
6853 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_wlinear" "', argument " "6"" of type '" "double *""'");
6854 }
6855 arg6 = (double *)(argp6);
6856 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
6857 if (!SWIG_IsOK(res7)) {
6858 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_wlinear" "', argument " "7"" of type '" "gsl_multifit_linear_workspace *""'");
6859 }
6860 arg7 = (gsl_multifit_linear_workspace *)(argp7);
6861 result = (int)gsl_multifit_wlinear((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5,arg6,arg7);
6862 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6863
6864
6865
6866
6867
6868
6869
6870 XSRETURN(argvi);
6871 fail:
6872
6873
6874
6875
6876
6877
6878
6879 SWIG_croak_null();
6880 }
6881 }
6882
6883
XS(_wrap_gsl_multifit_wlinear_tsvd)6884 XS(_wrap_gsl_multifit_wlinear_tsvd) {
6885 {
6886 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6887 gsl_vector *arg2 = (gsl_vector *) 0 ;
6888 gsl_vector *arg3 = (gsl_vector *) 0 ;
6889 double arg4 ;
6890 gsl_vector *arg5 = (gsl_vector *) 0 ;
6891 gsl_matrix *arg6 = (gsl_matrix *) 0 ;
6892 double *arg7 = (double *) 0 ;
6893 size_t *arg8 = (size_t *) 0 ;
6894 gsl_multifit_linear_workspace *arg9 = (gsl_multifit_linear_workspace *) 0 ;
6895 void *argp1 = 0 ;
6896 int res1 = 0 ;
6897 void *argp2 = 0 ;
6898 int res2 = 0 ;
6899 void *argp3 = 0 ;
6900 int res3 = 0 ;
6901 double val4 ;
6902 int ecode4 = 0 ;
6903 void *argp5 = 0 ;
6904 int res5 = 0 ;
6905 void *argp6 = 0 ;
6906 int res6 = 0 ;
6907 void *argp7 = 0 ;
6908 int res7 = 0 ;
6909 void *argp8 = 0 ;
6910 int res8 = 0 ;
6911 void *argp9 = 0 ;
6912 int res9 = 0 ;
6913 int argvi = 0;
6914 int result;
6915 dXSARGS;
6916
6917 if ((items < 9) || (items > 9)) {
6918 SWIG_croak("Usage: gsl_multifit_wlinear_tsvd(X,w,y,tol,c,cov,chisq,rank,work);");
6919 }
6920 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6921 if (!SWIG_IsOK(res1)) {
6922 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_wlinear_tsvd" "', argument " "1"" of type '" "gsl_matrix const *""'");
6923 }
6924 arg1 = (gsl_matrix *)(argp1);
6925 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6926 if (!SWIG_IsOK(res2)) {
6927 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_wlinear_tsvd" "', argument " "2"" of type '" "gsl_vector const *""'");
6928 }
6929 arg2 = (gsl_vector *)(argp2);
6930 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6931 if (!SWIG_IsOK(res3)) {
6932 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_wlinear_tsvd" "', argument " "3"" of type '" "gsl_vector const *""'");
6933 }
6934 arg3 = (gsl_vector *)(argp3);
6935 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
6936 if (!SWIG_IsOK(ecode4)) {
6937 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_multifit_wlinear_tsvd" "', argument " "4"" of type '" "double""'");
6938 }
6939 arg4 = (double)(val4);
6940 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6941 if (!SWIG_IsOK(res5)) {
6942 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_wlinear_tsvd" "', argument " "5"" of type '" "gsl_vector *""'");
6943 }
6944 arg5 = (gsl_vector *)(argp5);
6945 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6946 if (!SWIG_IsOK(res6)) {
6947 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_wlinear_tsvd" "', argument " "6"" of type '" "gsl_matrix *""'");
6948 }
6949 arg6 = (gsl_matrix *)(argp6);
6950 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_double, 0 | 0 );
6951 if (!SWIG_IsOK(res7)) {
6952 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_wlinear_tsvd" "', argument " "7"" of type '" "double *""'");
6953 }
6954 arg7 = (double *)(argp7);
6955 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_size_t, 0 | 0 );
6956 if (!SWIG_IsOK(res8)) {
6957 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_multifit_wlinear_tsvd" "', argument " "8"" of type '" "size_t *""'");
6958 }
6959 arg8 = (size_t *)(argp8);
6960 res9 = SWIG_ConvertPtr(ST(8), &argp9,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
6961 if (!SWIG_IsOK(res9)) {
6962 SWIG_exception_fail(SWIG_ArgError(res9), "in method '" "gsl_multifit_wlinear_tsvd" "', argument " "9"" of type '" "gsl_multifit_linear_workspace *""'");
6963 }
6964 arg9 = (gsl_multifit_linear_workspace *)(argp9);
6965 result = (int)gsl_multifit_wlinear_tsvd((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5,arg6,arg7,arg8,arg9);
6966 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6967
6968
6969
6970
6971
6972
6973
6974
6975
6976 XSRETURN(argvi);
6977 fail:
6978
6979
6980
6981
6982
6983
6984
6985
6986
6987 SWIG_croak_null();
6988 }
6989 }
6990
6991
XS(_wrap_gsl_multifit_wlinear_svd)6992 XS(_wrap_gsl_multifit_wlinear_svd) {
6993 {
6994 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6995 gsl_vector *arg2 = (gsl_vector *) 0 ;
6996 gsl_vector *arg3 = (gsl_vector *) 0 ;
6997 double arg4 ;
6998 size_t *arg5 = (size_t *) 0 ;
6999 gsl_vector *arg6 = (gsl_vector *) 0 ;
7000 gsl_matrix *arg7 = (gsl_matrix *) 0 ;
7001 double *arg8 = (double *) 0 ;
7002 gsl_multifit_linear_workspace *arg9 = (gsl_multifit_linear_workspace *) 0 ;
7003 void *argp1 = 0 ;
7004 int res1 = 0 ;
7005 void *argp2 = 0 ;
7006 int res2 = 0 ;
7007 void *argp3 = 0 ;
7008 int res3 = 0 ;
7009 double val4 ;
7010 int ecode4 = 0 ;
7011 void *argp5 = 0 ;
7012 int res5 = 0 ;
7013 void *argp6 = 0 ;
7014 int res6 = 0 ;
7015 void *argp7 = 0 ;
7016 int res7 = 0 ;
7017 void *argp8 = 0 ;
7018 int res8 = 0 ;
7019 void *argp9 = 0 ;
7020 int res9 = 0 ;
7021 int argvi = 0;
7022 int result;
7023 dXSARGS;
7024
7025 if ((items < 9) || (items > 9)) {
7026 SWIG_croak("Usage: gsl_multifit_wlinear_svd(X,w,y,tol,rank,c,cov,chisq,work);");
7027 }
7028 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7029 if (!SWIG_IsOK(res1)) {
7030 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_wlinear_svd" "', argument " "1"" of type '" "gsl_matrix const *""'");
7031 }
7032 arg1 = (gsl_matrix *)(argp1);
7033 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7034 if (!SWIG_IsOK(res2)) {
7035 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_wlinear_svd" "', argument " "2"" of type '" "gsl_vector const *""'");
7036 }
7037 arg2 = (gsl_vector *)(argp2);
7038 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7039 if (!SWIG_IsOK(res3)) {
7040 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_wlinear_svd" "', argument " "3"" of type '" "gsl_vector const *""'");
7041 }
7042 arg3 = (gsl_vector *)(argp3);
7043 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
7044 if (!SWIG_IsOK(ecode4)) {
7045 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_multifit_wlinear_svd" "', argument " "4"" of type '" "double""'");
7046 }
7047 arg4 = (double)(val4);
7048 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_size_t, 0 | 0 );
7049 if (!SWIG_IsOK(res5)) {
7050 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_wlinear_svd" "', argument " "5"" of type '" "size_t *""'");
7051 }
7052 arg5 = (size_t *)(argp5);
7053 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
7054 if (!SWIG_IsOK(res6)) {
7055 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_wlinear_svd" "', argument " "6"" of type '" "gsl_vector *""'");
7056 }
7057 arg6 = (gsl_vector *)(argp6);
7058 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7059 if (!SWIG_IsOK(res7)) {
7060 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_wlinear_svd" "', argument " "7"" of type '" "gsl_matrix *""'");
7061 }
7062 arg7 = (gsl_matrix *)(argp7);
7063 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_double, 0 | 0 );
7064 if (!SWIG_IsOK(res8)) {
7065 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_multifit_wlinear_svd" "', argument " "8"" of type '" "double *""'");
7066 }
7067 arg8 = (double *)(argp8);
7068 res9 = SWIG_ConvertPtr(ST(8), &argp9,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
7069 if (!SWIG_IsOK(res9)) {
7070 SWIG_exception_fail(SWIG_ArgError(res9), "in method '" "gsl_multifit_wlinear_svd" "', argument " "9"" of type '" "gsl_multifit_linear_workspace *""'");
7071 }
7072 arg9 = (gsl_multifit_linear_workspace *)(argp9);
7073 result = (int)gsl_multifit_wlinear_svd((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5,arg6,arg7,arg8,arg9);
7074 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7075
7076
7077
7078
7079
7080
7081
7082
7083
7084 XSRETURN(argvi);
7085 fail:
7086
7087
7088
7089
7090
7091
7092
7093
7094
7095 SWIG_croak_null();
7096 }
7097 }
7098
7099
XS(_wrap_gsl_multifit_wlinear_usvd)7100 XS(_wrap_gsl_multifit_wlinear_usvd) {
7101 {
7102 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7103 gsl_vector *arg2 = (gsl_vector *) 0 ;
7104 gsl_vector *arg3 = (gsl_vector *) 0 ;
7105 double arg4 ;
7106 size_t *arg5 = (size_t *) 0 ;
7107 gsl_vector *arg6 = (gsl_vector *) 0 ;
7108 gsl_matrix *arg7 = (gsl_matrix *) 0 ;
7109 double *arg8 = (double *) 0 ;
7110 gsl_multifit_linear_workspace *arg9 = (gsl_multifit_linear_workspace *) 0 ;
7111 void *argp1 = 0 ;
7112 int res1 = 0 ;
7113 void *argp2 = 0 ;
7114 int res2 = 0 ;
7115 void *argp3 = 0 ;
7116 int res3 = 0 ;
7117 double val4 ;
7118 int ecode4 = 0 ;
7119 void *argp5 = 0 ;
7120 int res5 = 0 ;
7121 void *argp6 = 0 ;
7122 int res6 = 0 ;
7123 void *argp7 = 0 ;
7124 int res7 = 0 ;
7125 void *argp8 = 0 ;
7126 int res8 = 0 ;
7127 void *argp9 = 0 ;
7128 int res9 = 0 ;
7129 int argvi = 0;
7130 int result;
7131 dXSARGS;
7132
7133 if ((items < 9) || (items > 9)) {
7134 SWIG_croak("Usage: gsl_multifit_wlinear_usvd(X,w,y,tol,rank,c,cov,chisq,work);");
7135 }
7136 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7137 if (!SWIG_IsOK(res1)) {
7138 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_wlinear_usvd" "', argument " "1"" of type '" "gsl_matrix const *""'");
7139 }
7140 arg1 = (gsl_matrix *)(argp1);
7141 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7142 if (!SWIG_IsOK(res2)) {
7143 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_wlinear_usvd" "', argument " "2"" of type '" "gsl_vector const *""'");
7144 }
7145 arg2 = (gsl_vector *)(argp2);
7146 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7147 if (!SWIG_IsOK(res3)) {
7148 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_wlinear_usvd" "', argument " "3"" of type '" "gsl_vector const *""'");
7149 }
7150 arg3 = (gsl_vector *)(argp3);
7151 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
7152 if (!SWIG_IsOK(ecode4)) {
7153 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_multifit_wlinear_usvd" "', argument " "4"" of type '" "double""'");
7154 }
7155 arg4 = (double)(val4);
7156 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_size_t, 0 | 0 );
7157 if (!SWIG_IsOK(res5)) {
7158 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_wlinear_usvd" "', argument " "5"" of type '" "size_t *""'");
7159 }
7160 arg5 = (size_t *)(argp5);
7161 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
7162 if (!SWIG_IsOK(res6)) {
7163 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_wlinear_usvd" "', argument " "6"" of type '" "gsl_vector *""'");
7164 }
7165 arg6 = (gsl_vector *)(argp6);
7166 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7167 if (!SWIG_IsOK(res7)) {
7168 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_wlinear_usvd" "', argument " "7"" of type '" "gsl_matrix *""'");
7169 }
7170 arg7 = (gsl_matrix *)(argp7);
7171 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_double, 0 | 0 );
7172 if (!SWIG_IsOK(res8)) {
7173 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_multifit_wlinear_usvd" "', argument " "8"" of type '" "double *""'");
7174 }
7175 arg8 = (double *)(argp8);
7176 res9 = SWIG_ConvertPtr(ST(8), &argp9,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
7177 if (!SWIG_IsOK(res9)) {
7178 SWIG_exception_fail(SWIG_ArgError(res9), "in method '" "gsl_multifit_wlinear_usvd" "', argument " "9"" of type '" "gsl_multifit_linear_workspace *""'");
7179 }
7180 arg9 = (gsl_multifit_linear_workspace *)(argp9);
7181 result = (int)gsl_multifit_wlinear_usvd((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5,arg6,arg7,arg8,arg9);
7182 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7183
7184
7185
7186
7187
7188
7189
7190
7191
7192 XSRETURN(argvi);
7193 fail:
7194
7195
7196
7197
7198
7199
7200
7201
7202
7203 SWIG_croak_null();
7204 }
7205 }
7206
7207
XS(_wrap_gsl_multifit_linear_est)7208 XS(_wrap_gsl_multifit_linear_est) {
7209 {
7210 gsl_vector *arg1 = (gsl_vector *) 0 ;
7211 gsl_vector *arg2 = (gsl_vector *) 0 ;
7212 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
7213 double *arg4 = (double *) 0 ;
7214 double *arg5 = (double *) 0 ;
7215 void *argp1 = 0 ;
7216 int res1 = 0 ;
7217 void *argp2 = 0 ;
7218 int res2 = 0 ;
7219 void *argp3 = 0 ;
7220 int res3 = 0 ;
7221 void *argp4 = 0 ;
7222 int res4 = 0 ;
7223 void *argp5 = 0 ;
7224 int res5 = 0 ;
7225 int argvi = 0;
7226 int result;
7227 dXSARGS;
7228
7229 if ((items < 5) || (items > 5)) {
7230 SWIG_croak("Usage: gsl_multifit_linear_est(x,c,cov,y,y_err);");
7231 }
7232 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7233 if (!SWIG_IsOK(res1)) {
7234 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_est" "', argument " "1"" of type '" "gsl_vector const *""'");
7235 }
7236 arg1 = (gsl_vector *)(argp1);
7237 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7238 if (!SWIG_IsOK(res2)) {
7239 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_est" "', argument " "2"" of type '" "gsl_vector const *""'");
7240 }
7241 arg2 = (gsl_vector *)(argp2);
7242 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7243 if (!SWIG_IsOK(res3)) {
7244 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_est" "', argument " "3"" of type '" "gsl_matrix const *""'");
7245 }
7246 arg3 = (gsl_matrix *)(argp3);
7247 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_double, 0 | 0 );
7248 if (!SWIG_IsOK(res4)) {
7249 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_est" "', argument " "4"" of type '" "double *""'");
7250 }
7251 arg4 = (double *)(argp4);
7252 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_double, 0 | 0 );
7253 if (!SWIG_IsOK(res5)) {
7254 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_est" "', argument " "5"" of type '" "double *""'");
7255 }
7256 arg5 = (double *)(argp5);
7257 result = (int)gsl_multifit_linear_est((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_matrix const *)arg3,arg4,arg5);
7258 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7259
7260
7261
7262
7263
7264 XSRETURN(argvi);
7265 fail:
7266
7267
7268
7269
7270
7271 SWIG_croak_null();
7272 }
7273 }
7274
7275
XS(_wrap_gsl_multifit_linear_rcond)7276 XS(_wrap_gsl_multifit_linear_rcond) {
7277 {
7278 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
7279 void *argp1 = 0 ;
7280 int res1 = 0 ;
7281 int argvi = 0;
7282 double result;
7283 dXSARGS;
7284
7285 if ((items < 1) || (items > 1)) {
7286 SWIG_croak("Usage: gsl_multifit_linear_rcond(w);");
7287 }
7288 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
7289 if (!SWIG_IsOK(res1)) {
7290 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_rcond" "', argument " "1"" of type '" "gsl_multifit_linear_workspace const *""'");
7291 }
7292 arg1 = (gsl_multifit_linear_workspace *)(argp1);
7293 result = (double)gsl_multifit_linear_rcond((gsl_multifit_linear_workspace const *)arg1);
7294 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
7295
7296 XSRETURN(argvi);
7297 fail:
7298
7299 SWIG_croak_null();
7300 }
7301 }
7302
7303
XS(_wrap_gsl_multifit_linear_residuals)7304 XS(_wrap_gsl_multifit_linear_residuals) {
7305 {
7306 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7307 gsl_vector *arg2 = (gsl_vector *) 0 ;
7308 gsl_vector *arg3 = (gsl_vector *) 0 ;
7309 gsl_vector *arg4 = (gsl_vector *) 0 ;
7310 void *argp1 = 0 ;
7311 int res1 = 0 ;
7312 void *argp2 = 0 ;
7313 int res2 = 0 ;
7314 void *argp3 = 0 ;
7315 int res3 = 0 ;
7316 void *argp4 = 0 ;
7317 int res4 = 0 ;
7318 int argvi = 0;
7319 int result;
7320 dXSARGS;
7321
7322 if ((items < 4) || (items > 4)) {
7323 SWIG_croak("Usage: gsl_multifit_linear_residuals(X,y,c,r);");
7324 }
7325 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7326 if (!SWIG_IsOK(res1)) {
7327 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_residuals" "', argument " "1"" of type '" "gsl_matrix const *""'");
7328 }
7329 arg1 = (gsl_matrix *)(argp1);
7330 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7331 if (!SWIG_IsOK(res2)) {
7332 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_residuals" "', argument " "2"" of type '" "gsl_vector const *""'");
7333 }
7334 arg2 = (gsl_vector *)(argp2);
7335 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7336 if (!SWIG_IsOK(res3)) {
7337 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_residuals" "', argument " "3"" of type '" "gsl_vector const *""'");
7338 }
7339 arg3 = (gsl_vector *)(argp3);
7340 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7341 if (!SWIG_IsOK(res4)) {
7342 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_residuals" "', argument " "4"" of type '" "gsl_vector *""'");
7343 }
7344 arg4 = (gsl_vector *)(argp4);
7345 result = (int)gsl_multifit_linear_residuals((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
7346 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7347
7348
7349
7350
7351 XSRETURN(argvi);
7352 fail:
7353
7354
7355
7356
7357 SWIG_croak_null();
7358 }
7359 }
7360
7361
XS(_wrap_gsl_multifit_linear_gcv_init)7362 XS(_wrap_gsl_multifit_linear_gcv_init) {
7363 {
7364 gsl_vector *arg1 = (gsl_vector *) 0 ;
7365 gsl_vector *arg2 = (gsl_vector *) 0 ;
7366 gsl_vector *arg3 = (gsl_vector *) 0 ;
7367 double *arg4 = (double *) 0 ;
7368 gsl_multifit_linear_workspace *arg5 = (gsl_multifit_linear_workspace *) 0 ;
7369 void *argp1 = 0 ;
7370 int res1 = 0 ;
7371 void *argp2 = 0 ;
7372 int res2 = 0 ;
7373 void *argp3 = 0 ;
7374 int res3 = 0 ;
7375 void *argp4 = 0 ;
7376 int res4 = 0 ;
7377 void *argp5 = 0 ;
7378 int res5 = 0 ;
7379 int argvi = 0;
7380 int result;
7381 dXSARGS;
7382
7383 if ((items < 5) || (items > 5)) {
7384 SWIG_croak("Usage: gsl_multifit_linear_gcv_init(y,reg_param,UTy,delta0,work);");
7385 }
7386 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7387 if (!SWIG_IsOK(res1)) {
7388 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_gcv_init" "', argument " "1"" of type '" "gsl_vector const *""'");
7389 }
7390 arg1 = (gsl_vector *)(argp1);
7391 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7392 if (!SWIG_IsOK(res2)) {
7393 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_gcv_init" "', argument " "2"" of type '" "gsl_vector *""'");
7394 }
7395 arg2 = (gsl_vector *)(argp2);
7396 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7397 if (!SWIG_IsOK(res3)) {
7398 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_gcv_init" "', argument " "3"" of type '" "gsl_vector *""'");
7399 }
7400 arg3 = (gsl_vector *)(argp3);
7401 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_double, 0 | 0 );
7402 if (!SWIG_IsOK(res4)) {
7403 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_gcv_init" "', argument " "4"" of type '" "double *""'");
7404 }
7405 arg4 = (double *)(argp4);
7406 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
7407 if (!SWIG_IsOK(res5)) {
7408 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_gcv_init" "', argument " "5"" of type '" "gsl_multifit_linear_workspace *""'");
7409 }
7410 arg5 = (gsl_multifit_linear_workspace *)(argp5);
7411 result = (int)gsl_multifit_linear_gcv_init((gsl_vector const *)arg1,arg2,arg3,arg4,arg5);
7412 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7413
7414
7415
7416
7417
7418 XSRETURN(argvi);
7419 fail:
7420
7421
7422
7423
7424
7425 SWIG_croak_null();
7426 }
7427 }
7428
7429
XS(_wrap_gsl_multifit_linear_gcv_curve)7430 XS(_wrap_gsl_multifit_linear_gcv_curve) {
7431 {
7432 gsl_vector *arg1 = (gsl_vector *) 0 ;
7433 gsl_vector *arg2 = (gsl_vector *) 0 ;
7434 double arg3 ;
7435 gsl_vector *arg4 = (gsl_vector *) 0 ;
7436 gsl_multifit_linear_workspace *arg5 = (gsl_multifit_linear_workspace *) 0 ;
7437 void *argp1 = 0 ;
7438 int res1 = 0 ;
7439 void *argp2 = 0 ;
7440 int res2 = 0 ;
7441 double val3 ;
7442 int ecode3 = 0 ;
7443 void *argp4 = 0 ;
7444 int res4 = 0 ;
7445 void *argp5 = 0 ;
7446 int res5 = 0 ;
7447 int argvi = 0;
7448 int result;
7449 dXSARGS;
7450
7451 if ((items < 5) || (items > 5)) {
7452 SWIG_croak("Usage: gsl_multifit_linear_gcv_curve(reg_param,UTy,delta0,G,work);");
7453 }
7454 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7455 if (!SWIG_IsOK(res1)) {
7456 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_gcv_curve" "', argument " "1"" of type '" "gsl_vector const *""'");
7457 }
7458 arg1 = (gsl_vector *)(argp1);
7459 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7460 if (!SWIG_IsOK(res2)) {
7461 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_gcv_curve" "', argument " "2"" of type '" "gsl_vector const *""'");
7462 }
7463 arg2 = (gsl_vector *)(argp2);
7464 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
7465 if (!SWIG_IsOK(ecode3)) {
7466 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_multifit_linear_gcv_curve" "', argument " "3"" of type '" "double""'");
7467 }
7468 arg3 = (double)(val3);
7469 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7470 if (!SWIG_IsOK(res4)) {
7471 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_gcv_curve" "', argument " "4"" of type '" "gsl_vector *""'");
7472 }
7473 arg4 = (gsl_vector *)(argp4);
7474 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
7475 if (!SWIG_IsOK(res5)) {
7476 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_gcv_curve" "', argument " "5"" of type '" "gsl_multifit_linear_workspace *""'");
7477 }
7478 arg5 = (gsl_multifit_linear_workspace *)(argp5);
7479 result = (int)gsl_multifit_linear_gcv_curve((gsl_vector const *)arg1,(gsl_vector const *)arg2,arg3,arg4,arg5);
7480 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7481
7482
7483
7484
7485
7486 XSRETURN(argvi);
7487 fail:
7488
7489
7490
7491
7492
7493 SWIG_croak_null();
7494 }
7495 }
7496
7497
XS(_wrap_gsl_multifit_linear_gcv_min)7498 XS(_wrap_gsl_multifit_linear_gcv_min) {
7499 {
7500 gsl_vector *arg1 = (gsl_vector *) 0 ;
7501 gsl_vector *arg2 = (gsl_vector *) 0 ;
7502 gsl_vector *arg3 = (gsl_vector *) 0 ;
7503 double arg4 ;
7504 double *arg5 = (double *) 0 ;
7505 gsl_multifit_linear_workspace *arg6 = (gsl_multifit_linear_workspace *) 0 ;
7506 void *argp1 = 0 ;
7507 int res1 = 0 ;
7508 void *argp2 = 0 ;
7509 int res2 = 0 ;
7510 void *argp3 = 0 ;
7511 int res3 = 0 ;
7512 double val4 ;
7513 int ecode4 = 0 ;
7514 void *argp5 = 0 ;
7515 int res5 = 0 ;
7516 void *argp6 = 0 ;
7517 int res6 = 0 ;
7518 int argvi = 0;
7519 int result;
7520 dXSARGS;
7521
7522 if ((items < 6) || (items > 6)) {
7523 SWIG_croak("Usage: gsl_multifit_linear_gcv_min(reg_param,UTy,G,delta0,lambda,work);");
7524 }
7525 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7526 if (!SWIG_IsOK(res1)) {
7527 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_gcv_min" "', argument " "1"" of type '" "gsl_vector const *""'");
7528 }
7529 arg1 = (gsl_vector *)(argp1);
7530 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7531 if (!SWIG_IsOK(res2)) {
7532 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_gcv_min" "', argument " "2"" of type '" "gsl_vector const *""'");
7533 }
7534 arg2 = (gsl_vector *)(argp2);
7535 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7536 if (!SWIG_IsOK(res3)) {
7537 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_gcv_min" "', argument " "3"" of type '" "gsl_vector const *""'");
7538 }
7539 arg3 = (gsl_vector *)(argp3);
7540 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
7541 if (!SWIG_IsOK(ecode4)) {
7542 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_multifit_linear_gcv_min" "', argument " "4"" of type '" "double""'");
7543 }
7544 arg4 = (double)(val4);
7545 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_double, 0 | 0 );
7546 if (!SWIG_IsOK(res5)) {
7547 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_gcv_min" "', argument " "5"" of type '" "double *""'");
7548 }
7549 arg5 = (double *)(argp5);
7550 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
7551 if (!SWIG_IsOK(res6)) {
7552 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear_gcv_min" "', argument " "6"" of type '" "gsl_multifit_linear_workspace *""'");
7553 }
7554 arg6 = (gsl_multifit_linear_workspace *)(argp6);
7555 result = (int)gsl_multifit_linear_gcv_min((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5,arg6);
7556 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7557
7558
7559
7560
7561
7562
7563 XSRETURN(argvi);
7564 fail:
7565
7566
7567
7568
7569
7570
7571 SWIG_croak_null();
7572 }
7573 }
7574
7575
XS(_wrap_gsl_multifit_linear_gcv_calc)7576 XS(_wrap_gsl_multifit_linear_gcv_calc) {
7577 {
7578 double arg1 ;
7579 gsl_vector *arg2 = (gsl_vector *) 0 ;
7580 double arg3 ;
7581 gsl_multifit_linear_workspace *arg4 = (gsl_multifit_linear_workspace *) 0 ;
7582 double val1 ;
7583 int ecode1 = 0 ;
7584 void *argp2 = 0 ;
7585 int res2 = 0 ;
7586 double val3 ;
7587 int ecode3 = 0 ;
7588 void *argp4 = 0 ;
7589 int res4 = 0 ;
7590 int argvi = 0;
7591 double result;
7592 dXSARGS;
7593
7594 if ((items < 4) || (items > 4)) {
7595 SWIG_croak("Usage: gsl_multifit_linear_gcv_calc(lambda,UTy,delta0,work);");
7596 }
7597 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
7598 if (!SWIG_IsOK(ecode1)) {
7599 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_multifit_linear_gcv_calc" "', argument " "1"" of type '" "double""'");
7600 }
7601 arg1 = (double)(val1);
7602 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7603 if (!SWIG_IsOK(res2)) {
7604 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_gcv_calc" "', argument " "2"" of type '" "gsl_vector const *""'");
7605 }
7606 arg2 = (gsl_vector *)(argp2);
7607 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
7608 if (!SWIG_IsOK(ecode3)) {
7609 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_multifit_linear_gcv_calc" "', argument " "3"" of type '" "double""'");
7610 }
7611 arg3 = (double)(val3);
7612 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
7613 if (!SWIG_IsOK(res4)) {
7614 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_gcv_calc" "', argument " "4"" of type '" "gsl_multifit_linear_workspace *""'");
7615 }
7616 arg4 = (gsl_multifit_linear_workspace *)(argp4);
7617 result = (double)gsl_multifit_linear_gcv_calc(arg1,(gsl_vector const *)arg2,arg3,arg4);
7618 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
7619
7620
7621
7622
7623 XSRETURN(argvi);
7624 fail:
7625
7626
7627
7628
7629 SWIG_croak_null();
7630 }
7631 }
7632
7633
XS(_wrap_gsl_multifit_linear_gcv)7634 XS(_wrap_gsl_multifit_linear_gcv) {
7635 {
7636 gsl_vector *arg1 = (gsl_vector *) 0 ;
7637 gsl_vector *arg2 = (gsl_vector *) 0 ;
7638 gsl_vector *arg3 = (gsl_vector *) 0 ;
7639 double *arg4 = (double *) 0 ;
7640 double *arg5 = (double *) 0 ;
7641 gsl_multifit_linear_workspace *arg6 = (gsl_multifit_linear_workspace *) 0 ;
7642 void *argp1 = 0 ;
7643 int res1 = 0 ;
7644 void *argp2 = 0 ;
7645 int res2 = 0 ;
7646 void *argp3 = 0 ;
7647 int res3 = 0 ;
7648 void *argp4 = 0 ;
7649 int res4 = 0 ;
7650 void *argp5 = 0 ;
7651 int res5 = 0 ;
7652 void *argp6 = 0 ;
7653 int res6 = 0 ;
7654 int argvi = 0;
7655 int result;
7656 dXSARGS;
7657
7658 if ((items < 6) || (items > 6)) {
7659 SWIG_croak("Usage: gsl_multifit_linear_gcv(y,reg_param,G,lambda,G_lambda,work);");
7660 }
7661 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7662 if (!SWIG_IsOK(res1)) {
7663 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_gcv" "', argument " "1"" of type '" "gsl_vector const *""'");
7664 }
7665 arg1 = (gsl_vector *)(argp1);
7666 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7667 if (!SWIG_IsOK(res2)) {
7668 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_gcv" "', argument " "2"" of type '" "gsl_vector *""'");
7669 }
7670 arg2 = (gsl_vector *)(argp2);
7671 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7672 if (!SWIG_IsOK(res3)) {
7673 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_gcv" "', argument " "3"" of type '" "gsl_vector *""'");
7674 }
7675 arg3 = (gsl_vector *)(argp3);
7676 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_double, 0 | 0 );
7677 if (!SWIG_IsOK(res4)) {
7678 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_gcv" "', argument " "4"" of type '" "double *""'");
7679 }
7680 arg4 = (double *)(argp4);
7681 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_double, 0 | 0 );
7682 if (!SWIG_IsOK(res5)) {
7683 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_gcv" "', argument " "5"" of type '" "double *""'");
7684 }
7685 arg5 = (double *)(argp5);
7686 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
7687 if (!SWIG_IsOK(res6)) {
7688 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear_gcv" "', argument " "6"" of type '" "gsl_multifit_linear_workspace *""'");
7689 }
7690 arg6 = (gsl_multifit_linear_workspace *)(argp6);
7691 result = (int)gsl_multifit_linear_gcv((gsl_vector const *)arg1,arg2,arg3,arg4,arg5,arg6);
7692 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7693
7694
7695
7696
7697
7698
7699 XSRETURN(argvi);
7700 fail:
7701
7702
7703
7704
7705
7706
7707 SWIG_croak_null();
7708 }
7709 }
7710
7711
XS(_wrap_gsl_multifit_robust_type_name_set)7712 XS(_wrap_gsl_multifit_robust_type_name_set) {
7713 {
7714 gsl_multifit_robust_type *arg1 = (gsl_multifit_robust_type *) 0 ;
7715 char *arg2 = (char *) 0 ;
7716 void *argp1 = 0 ;
7717 int res1 = 0 ;
7718 int res2 ;
7719 char *buf2 = 0 ;
7720 int alloc2 = 0 ;
7721 int argvi = 0;
7722 dXSARGS;
7723
7724 if ((items < 2) || (items > 2)) {
7725 SWIG_croak("Usage: gsl_multifit_robust_type_name_set(self,name);");
7726 }
7727 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_type, 0 | 0 );
7728 if (!SWIG_IsOK(res1)) {
7729 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_type_name_set" "', argument " "1"" of type '" "gsl_multifit_robust_type *""'");
7730 }
7731 arg1 = (gsl_multifit_robust_type *)(argp1);
7732 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
7733 if (!SWIG_IsOK(res2)) {
7734 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_type_name_set" "', argument " "2"" of type '" "char const *""'");
7735 }
7736 arg2 = (char *)(buf2);
7737 if (arg2) {
7738 size_t size = strlen((const char *)((const char *)(arg2))) + 1;
7739 arg1->name = (char const *)(char *)memcpy(malloc((size)*sizeof(char)), arg2, sizeof(char)*(size));
7740 } else {
7741 arg1->name = 0;
7742 }
7743 ST(argvi) = &PL_sv_undef;
7744
7745 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
7746 XSRETURN(argvi);
7747 fail:
7748
7749 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
7750 SWIG_croak_null();
7751 }
7752 }
7753
7754
XS(_wrap_gsl_multifit_robust_type_name_get)7755 XS(_wrap_gsl_multifit_robust_type_name_get) {
7756 {
7757 gsl_multifit_robust_type *arg1 = (gsl_multifit_robust_type *) 0 ;
7758 void *argp1 = 0 ;
7759 int res1 = 0 ;
7760 int argvi = 0;
7761 char *result = 0 ;
7762 dXSARGS;
7763
7764 if ((items < 1) || (items > 1)) {
7765 SWIG_croak("Usage: gsl_multifit_robust_type_name_get(self);");
7766 }
7767 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_type, 0 | 0 );
7768 if (!SWIG_IsOK(res1)) {
7769 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_type_name_get" "', argument " "1"" of type '" "gsl_multifit_robust_type *""'");
7770 }
7771 arg1 = (gsl_multifit_robust_type *)(argp1);
7772 result = (char *) ((arg1)->name);
7773 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
7774
7775 XSRETURN(argvi);
7776 fail:
7777
7778 SWIG_croak_null();
7779 }
7780 }
7781
7782
XS(_wrap_gsl_multifit_robust_type_wfun_set)7783 XS(_wrap_gsl_multifit_robust_type_wfun_set) {
7784 {
7785 gsl_multifit_robust_type *arg1 = (gsl_multifit_robust_type *) 0 ;
7786 int (*arg2)(gsl_vector const *,gsl_vector *) = (int (*)(gsl_vector const *,gsl_vector *)) 0 ;
7787 void *argp1 = 0 ;
7788 int res1 = 0 ;
7789 int argvi = 0;
7790 dXSARGS;
7791
7792 if ((items < 2) || (items > 2)) {
7793 SWIG_croak("Usage: gsl_multifit_robust_type_wfun_set(self,wfun);");
7794 }
7795 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_type, 0 | 0 );
7796 if (!SWIG_IsOK(res1)) {
7797 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_type_wfun_set" "', argument " "1"" of type '" "gsl_multifit_robust_type *""'");
7798 }
7799 arg1 = (gsl_multifit_robust_type *)(argp1);
7800 {
7801 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_q_const__gsl_vector_p_gsl_vector__int);
7802 if (!SWIG_IsOK(res)) {
7803 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multifit_robust_type_wfun_set" "', argument " "2"" of type '" "int (*)(gsl_vector const *,gsl_vector *)""'");
7804 }
7805 }
7806 if (arg1) (arg1)->wfun = arg2;
7807 ST(argvi) = &PL_sv_undef;
7808
7809
7810 XSRETURN(argvi);
7811 fail:
7812
7813
7814 SWIG_croak_null();
7815 }
7816 }
7817
7818
XS(_wrap_gsl_multifit_robust_type_wfun_get)7819 XS(_wrap_gsl_multifit_robust_type_wfun_get) {
7820 {
7821 gsl_multifit_robust_type *arg1 = (gsl_multifit_robust_type *) 0 ;
7822 void *argp1 = 0 ;
7823 int res1 = 0 ;
7824 int argvi = 0;
7825 int (*result)(gsl_vector const *,gsl_vector *) = 0 ;
7826 dXSARGS;
7827
7828 if ((items < 1) || (items > 1)) {
7829 SWIG_croak("Usage: gsl_multifit_robust_type_wfun_get(self);");
7830 }
7831 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_type, 0 | 0 );
7832 if (!SWIG_IsOK(res1)) {
7833 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_type_wfun_get" "', argument " "1"" of type '" "gsl_multifit_robust_type *""'");
7834 }
7835 arg1 = (gsl_multifit_robust_type *)(argp1);
7836 result = (int (*)(gsl_vector const *,gsl_vector *)) ((arg1)->wfun);
7837 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__gsl_vector_p_gsl_vector__int); argvi++ ;
7838
7839 XSRETURN(argvi);
7840 fail:
7841
7842 SWIG_croak_null();
7843 }
7844 }
7845
7846
XS(_wrap_gsl_multifit_robust_type_psi_deriv_set)7847 XS(_wrap_gsl_multifit_robust_type_psi_deriv_set) {
7848 {
7849 gsl_multifit_robust_type *arg1 = (gsl_multifit_robust_type *) 0 ;
7850 int (*arg2)(gsl_vector const *,gsl_vector *) = (int (*)(gsl_vector const *,gsl_vector *)) 0 ;
7851 void *argp1 = 0 ;
7852 int res1 = 0 ;
7853 int argvi = 0;
7854 dXSARGS;
7855
7856 if ((items < 2) || (items > 2)) {
7857 SWIG_croak("Usage: gsl_multifit_robust_type_psi_deriv_set(self,psi_deriv);");
7858 }
7859 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_type, 0 | 0 );
7860 if (!SWIG_IsOK(res1)) {
7861 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_type_psi_deriv_set" "', argument " "1"" of type '" "gsl_multifit_robust_type *""'");
7862 }
7863 arg1 = (gsl_multifit_robust_type *)(argp1);
7864 {
7865 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_q_const__gsl_vector_p_gsl_vector__int);
7866 if (!SWIG_IsOK(res)) {
7867 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multifit_robust_type_psi_deriv_set" "', argument " "2"" of type '" "int (*)(gsl_vector const *,gsl_vector *)""'");
7868 }
7869 }
7870 if (arg1) (arg1)->psi_deriv = arg2;
7871 ST(argvi) = &PL_sv_undef;
7872
7873
7874 XSRETURN(argvi);
7875 fail:
7876
7877
7878 SWIG_croak_null();
7879 }
7880 }
7881
7882
XS(_wrap_gsl_multifit_robust_type_psi_deriv_get)7883 XS(_wrap_gsl_multifit_robust_type_psi_deriv_get) {
7884 {
7885 gsl_multifit_robust_type *arg1 = (gsl_multifit_robust_type *) 0 ;
7886 void *argp1 = 0 ;
7887 int res1 = 0 ;
7888 int argvi = 0;
7889 int (*result)(gsl_vector const *,gsl_vector *) = 0 ;
7890 dXSARGS;
7891
7892 if ((items < 1) || (items > 1)) {
7893 SWIG_croak("Usage: gsl_multifit_robust_type_psi_deriv_get(self);");
7894 }
7895 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_type, 0 | 0 );
7896 if (!SWIG_IsOK(res1)) {
7897 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_type_psi_deriv_get" "', argument " "1"" of type '" "gsl_multifit_robust_type *""'");
7898 }
7899 arg1 = (gsl_multifit_robust_type *)(argp1);
7900 result = (int (*)(gsl_vector const *,gsl_vector *)) ((arg1)->psi_deriv);
7901 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__gsl_vector_p_gsl_vector__int); argvi++ ;
7902
7903 XSRETURN(argvi);
7904 fail:
7905
7906 SWIG_croak_null();
7907 }
7908 }
7909
7910
XS(_wrap_gsl_multifit_robust_type_tuning_default_set)7911 XS(_wrap_gsl_multifit_robust_type_tuning_default_set) {
7912 {
7913 gsl_multifit_robust_type *arg1 = (gsl_multifit_robust_type *) 0 ;
7914 double arg2 ;
7915 void *argp1 = 0 ;
7916 int res1 = 0 ;
7917 double val2 ;
7918 int ecode2 = 0 ;
7919 int argvi = 0;
7920 dXSARGS;
7921
7922 if ((items < 2) || (items > 2)) {
7923 SWIG_croak("Usage: gsl_multifit_robust_type_tuning_default_set(self,tuning_default);");
7924 }
7925 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_type, 0 | 0 );
7926 if (!SWIG_IsOK(res1)) {
7927 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_type_tuning_default_set" "', argument " "1"" of type '" "gsl_multifit_robust_type *""'");
7928 }
7929 arg1 = (gsl_multifit_robust_type *)(argp1);
7930 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7931 if (!SWIG_IsOK(ecode2)) {
7932 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_type_tuning_default_set" "', argument " "2"" of type '" "double""'");
7933 }
7934 arg2 = (double)(val2);
7935 if (arg1) (arg1)->tuning_default = arg2;
7936 ST(argvi) = &PL_sv_undef;
7937
7938
7939 XSRETURN(argvi);
7940 fail:
7941
7942
7943 SWIG_croak_null();
7944 }
7945 }
7946
7947
XS(_wrap_gsl_multifit_robust_type_tuning_default_get)7948 XS(_wrap_gsl_multifit_robust_type_tuning_default_get) {
7949 {
7950 gsl_multifit_robust_type *arg1 = (gsl_multifit_robust_type *) 0 ;
7951 void *argp1 = 0 ;
7952 int res1 = 0 ;
7953 int argvi = 0;
7954 double result;
7955 dXSARGS;
7956
7957 if ((items < 1) || (items > 1)) {
7958 SWIG_croak("Usage: gsl_multifit_robust_type_tuning_default_get(self);");
7959 }
7960 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_type, 0 | 0 );
7961 if (!SWIG_IsOK(res1)) {
7962 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_type_tuning_default_get" "', argument " "1"" of type '" "gsl_multifit_robust_type *""'");
7963 }
7964 arg1 = (gsl_multifit_robust_type *)(argp1);
7965 result = (double) ((arg1)->tuning_default);
7966 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
7967
7968 XSRETURN(argvi);
7969 fail:
7970
7971 SWIG_croak_null();
7972 }
7973 }
7974
7975
XS(_wrap_new_gsl_multifit_robust_type)7976 XS(_wrap_new_gsl_multifit_robust_type) {
7977 {
7978 int argvi = 0;
7979 gsl_multifit_robust_type *result = 0 ;
7980 dXSARGS;
7981
7982 if ((items < 0) || (items > 0)) {
7983 SWIG_croak("Usage: new_gsl_multifit_robust_type();");
7984 }
7985 result = (gsl_multifit_robust_type *)calloc(1, sizeof(gsl_multifit_robust_type));
7986 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_robust_type, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
7987 XSRETURN(argvi);
7988 fail:
7989 SWIG_croak_null();
7990 }
7991 }
7992
7993
XS(_wrap_delete_gsl_multifit_robust_type)7994 XS(_wrap_delete_gsl_multifit_robust_type) {
7995 {
7996 gsl_multifit_robust_type *arg1 = (gsl_multifit_robust_type *) 0 ;
7997 void *argp1 = 0 ;
7998 int res1 = 0 ;
7999 int argvi = 0;
8000 dXSARGS;
8001
8002 if ((items < 1) || (items > 1)) {
8003 SWIG_croak("Usage: delete_gsl_multifit_robust_type(self);");
8004 }
8005 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_type, SWIG_POINTER_DISOWN | 0 );
8006 if (!SWIG_IsOK(res1)) {
8007 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_multifit_robust_type" "', argument " "1"" of type '" "gsl_multifit_robust_type *""'");
8008 }
8009 arg1 = (gsl_multifit_robust_type *)(argp1);
8010 free((char *) arg1);
8011 ST(argvi) = &PL_sv_undef;
8012
8013 XSRETURN(argvi);
8014 fail:
8015
8016 SWIG_croak_null();
8017 }
8018 }
8019
8020
XS(_wrap_gsl_multifit_robust_stats_sigma_ols_set)8021 XS(_wrap_gsl_multifit_robust_stats_sigma_ols_set) {
8022 {
8023 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8024 double arg2 ;
8025 void *argp1 = 0 ;
8026 int res1 = 0 ;
8027 double val2 ;
8028 int ecode2 = 0 ;
8029 int argvi = 0;
8030 dXSARGS;
8031
8032 if ((items < 2) || (items > 2)) {
8033 SWIG_croak("Usage: gsl_multifit_robust_stats_sigma_ols_set(self,sigma_ols);");
8034 }
8035 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8036 if (!SWIG_IsOK(res1)) {
8037 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_sigma_ols_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8038 }
8039 arg1 = (gsl_multifit_robust_stats *)(argp1);
8040 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8041 if (!SWIG_IsOK(ecode2)) {
8042 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_stats_sigma_ols_set" "', argument " "2"" of type '" "double""'");
8043 }
8044 arg2 = (double)(val2);
8045 if (arg1) (arg1)->sigma_ols = arg2;
8046 ST(argvi) = &PL_sv_undef;
8047
8048
8049 XSRETURN(argvi);
8050 fail:
8051
8052
8053 SWIG_croak_null();
8054 }
8055 }
8056
8057
XS(_wrap_gsl_multifit_robust_stats_sigma_ols_get)8058 XS(_wrap_gsl_multifit_robust_stats_sigma_ols_get) {
8059 {
8060 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8061 void *argp1 = 0 ;
8062 int res1 = 0 ;
8063 int argvi = 0;
8064 double result;
8065 dXSARGS;
8066
8067 if ((items < 1) || (items > 1)) {
8068 SWIG_croak("Usage: gsl_multifit_robust_stats_sigma_ols_get(self);");
8069 }
8070 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8071 if (!SWIG_IsOK(res1)) {
8072 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_sigma_ols_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8073 }
8074 arg1 = (gsl_multifit_robust_stats *)(argp1);
8075 result = (double) ((arg1)->sigma_ols);
8076 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8077
8078 XSRETURN(argvi);
8079 fail:
8080
8081 SWIG_croak_null();
8082 }
8083 }
8084
8085
XS(_wrap_gsl_multifit_robust_stats_sigma_mad_set)8086 XS(_wrap_gsl_multifit_robust_stats_sigma_mad_set) {
8087 {
8088 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8089 double arg2 ;
8090 void *argp1 = 0 ;
8091 int res1 = 0 ;
8092 double val2 ;
8093 int ecode2 = 0 ;
8094 int argvi = 0;
8095 dXSARGS;
8096
8097 if ((items < 2) || (items > 2)) {
8098 SWIG_croak("Usage: gsl_multifit_robust_stats_sigma_mad_set(self,sigma_mad);");
8099 }
8100 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8101 if (!SWIG_IsOK(res1)) {
8102 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_sigma_mad_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8103 }
8104 arg1 = (gsl_multifit_robust_stats *)(argp1);
8105 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8106 if (!SWIG_IsOK(ecode2)) {
8107 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_stats_sigma_mad_set" "', argument " "2"" of type '" "double""'");
8108 }
8109 arg2 = (double)(val2);
8110 if (arg1) (arg1)->sigma_mad = arg2;
8111 ST(argvi) = &PL_sv_undef;
8112
8113
8114 XSRETURN(argvi);
8115 fail:
8116
8117
8118 SWIG_croak_null();
8119 }
8120 }
8121
8122
XS(_wrap_gsl_multifit_robust_stats_sigma_mad_get)8123 XS(_wrap_gsl_multifit_robust_stats_sigma_mad_get) {
8124 {
8125 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8126 void *argp1 = 0 ;
8127 int res1 = 0 ;
8128 int argvi = 0;
8129 double result;
8130 dXSARGS;
8131
8132 if ((items < 1) || (items > 1)) {
8133 SWIG_croak("Usage: gsl_multifit_robust_stats_sigma_mad_get(self);");
8134 }
8135 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8136 if (!SWIG_IsOK(res1)) {
8137 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_sigma_mad_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8138 }
8139 arg1 = (gsl_multifit_robust_stats *)(argp1);
8140 result = (double) ((arg1)->sigma_mad);
8141 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8142
8143 XSRETURN(argvi);
8144 fail:
8145
8146 SWIG_croak_null();
8147 }
8148 }
8149
8150
XS(_wrap_gsl_multifit_robust_stats_sigma_rob_set)8151 XS(_wrap_gsl_multifit_robust_stats_sigma_rob_set) {
8152 {
8153 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8154 double arg2 ;
8155 void *argp1 = 0 ;
8156 int res1 = 0 ;
8157 double val2 ;
8158 int ecode2 = 0 ;
8159 int argvi = 0;
8160 dXSARGS;
8161
8162 if ((items < 2) || (items > 2)) {
8163 SWIG_croak("Usage: gsl_multifit_robust_stats_sigma_rob_set(self,sigma_rob);");
8164 }
8165 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8166 if (!SWIG_IsOK(res1)) {
8167 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_sigma_rob_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8168 }
8169 arg1 = (gsl_multifit_robust_stats *)(argp1);
8170 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8171 if (!SWIG_IsOK(ecode2)) {
8172 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_stats_sigma_rob_set" "', argument " "2"" of type '" "double""'");
8173 }
8174 arg2 = (double)(val2);
8175 if (arg1) (arg1)->sigma_rob = arg2;
8176 ST(argvi) = &PL_sv_undef;
8177
8178
8179 XSRETURN(argvi);
8180 fail:
8181
8182
8183 SWIG_croak_null();
8184 }
8185 }
8186
8187
XS(_wrap_gsl_multifit_robust_stats_sigma_rob_get)8188 XS(_wrap_gsl_multifit_robust_stats_sigma_rob_get) {
8189 {
8190 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8191 void *argp1 = 0 ;
8192 int res1 = 0 ;
8193 int argvi = 0;
8194 double result;
8195 dXSARGS;
8196
8197 if ((items < 1) || (items > 1)) {
8198 SWIG_croak("Usage: gsl_multifit_robust_stats_sigma_rob_get(self);");
8199 }
8200 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8201 if (!SWIG_IsOK(res1)) {
8202 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_sigma_rob_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8203 }
8204 arg1 = (gsl_multifit_robust_stats *)(argp1);
8205 result = (double) ((arg1)->sigma_rob);
8206 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8207
8208 XSRETURN(argvi);
8209 fail:
8210
8211 SWIG_croak_null();
8212 }
8213 }
8214
8215
XS(_wrap_gsl_multifit_robust_stats_sigma_set)8216 XS(_wrap_gsl_multifit_robust_stats_sigma_set) {
8217 {
8218 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8219 double arg2 ;
8220 void *argp1 = 0 ;
8221 int res1 = 0 ;
8222 double val2 ;
8223 int ecode2 = 0 ;
8224 int argvi = 0;
8225 dXSARGS;
8226
8227 if ((items < 2) || (items > 2)) {
8228 SWIG_croak("Usage: gsl_multifit_robust_stats_sigma_set(self,sigma);");
8229 }
8230 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8231 if (!SWIG_IsOK(res1)) {
8232 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_sigma_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8233 }
8234 arg1 = (gsl_multifit_robust_stats *)(argp1);
8235 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8236 if (!SWIG_IsOK(ecode2)) {
8237 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_stats_sigma_set" "', argument " "2"" of type '" "double""'");
8238 }
8239 arg2 = (double)(val2);
8240 if (arg1) (arg1)->sigma = arg2;
8241 ST(argvi) = &PL_sv_undef;
8242
8243
8244 XSRETURN(argvi);
8245 fail:
8246
8247
8248 SWIG_croak_null();
8249 }
8250 }
8251
8252
XS(_wrap_gsl_multifit_robust_stats_sigma_get)8253 XS(_wrap_gsl_multifit_robust_stats_sigma_get) {
8254 {
8255 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8256 void *argp1 = 0 ;
8257 int res1 = 0 ;
8258 int argvi = 0;
8259 double result;
8260 dXSARGS;
8261
8262 if ((items < 1) || (items > 1)) {
8263 SWIG_croak("Usage: gsl_multifit_robust_stats_sigma_get(self);");
8264 }
8265 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8266 if (!SWIG_IsOK(res1)) {
8267 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_sigma_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8268 }
8269 arg1 = (gsl_multifit_robust_stats *)(argp1);
8270 result = (double) ((arg1)->sigma);
8271 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8272
8273 XSRETURN(argvi);
8274 fail:
8275
8276 SWIG_croak_null();
8277 }
8278 }
8279
8280
XS(_wrap_gsl_multifit_robust_stats_Rsq_set)8281 XS(_wrap_gsl_multifit_robust_stats_Rsq_set) {
8282 {
8283 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8284 double arg2 ;
8285 void *argp1 = 0 ;
8286 int res1 = 0 ;
8287 double val2 ;
8288 int ecode2 = 0 ;
8289 int argvi = 0;
8290 dXSARGS;
8291
8292 if ((items < 2) || (items > 2)) {
8293 SWIG_croak("Usage: gsl_multifit_robust_stats_Rsq_set(self,Rsq);");
8294 }
8295 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8296 if (!SWIG_IsOK(res1)) {
8297 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_Rsq_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8298 }
8299 arg1 = (gsl_multifit_robust_stats *)(argp1);
8300 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8301 if (!SWIG_IsOK(ecode2)) {
8302 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_stats_Rsq_set" "', argument " "2"" of type '" "double""'");
8303 }
8304 arg2 = (double)(val2);
8305 if (arg1) (arg1)->Rsq = arg2;
8306 ST(argvi) = &PL_sv_undef;
8307
8308
8309 XSRETURN(argvi);
8310 fail:
8311
8312
8313 SWIG_croak_null();
8314 }
8315 }
8316
8317
XS(_wrap_gsl_multifit_robust_stats_Rsq_get)8318 XS(_wrap_gsl_multifit_robust_stats_Rsq_get) {
8319 {
8320 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8321 void *argp1 = 0 ;
8322 int res1 = 0 ;
8323 int argvi = 0;
8324 double result;
8325 dXSARGS;
8326
8327 if ((items < 1) || (items > 1)) {
8328 SWIG_croak("Usage: gsl_multifit_robust_stats_Rsq_get(self);");
8329 }
8330 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8331 if (!SWIG_IsOK(res1)) {
8332 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_Rsq_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8333 }
8334 arg1 = (gsl_multifit_robust_stats *)(argp1);
8335 result = (double) ((arg1)->Rsq);
8336 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8337
8338 XSRETURN(argvi);
8339 fail:
8340
8341 SWIG_croak_null();
8342 }
8343 }
8344
8345
XS(_wrap_gsl_multifit_robust_stats_adj_Rsq_set)8346 XS(_wrap_gsl_multifit_robust_stats_adj_Rsq_set) {
8347 {
8348 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8349 double arg2 ;
8350 void *argp1 = 0 ;
8351 int res1 = 0 ;
8352 double val2 ;
8353 int ecode2 = 0 ;
8354 int argvi = 0;
8355 dXSARGS;
8356
8357 if ((items < 2) || (items > 2)) {
8358 SWIG_croak("Usage: gsl_multifit_robust_stats_adj_Rsq_set(self,adj_Rsq);");
8359 }
8360 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8361 if (!SWIG_IsOK(res1)) {
8362 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_adj_Rsq_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8363 }
8364 arg1 = (gsl_multifit_robust_stats *)(argp1);
8365 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8366 if (!SWIG_IsOK(ecode2)) {
8367 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_stats_adj_Rsq_set" "', argument " "2"" of type '" "double""'");
8368 }
8369 arg2 = (double)(val2);
8370 if (arg1) (arg1)->adj_Rsq = arg2;
8371 ST(argvi) = &PL_sv_undef;
8372
8373
8374 XSRETURN(argvi);
8375 fail:
8376
8377
8378 SWIG_croak_null();
8379 }
8380 }
8381
8382
XS(_wrap_gsl_multifit_robust_stats_adj_Rsq_get)8383 XS(_wrap_gsl_multifit_robust_stats_adj_Rsq_get) {
8384 {
8385 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8386 void *argp1 = 0 ;
8387 int res1 = 0 ;
8388 int argvi = 0;
8389 double result;
8390 dXSARGS;
8391
8392 if ((items < 1) || (items > 1)) {
8393 SWIG_croak("Usage: gsl_multifit_robust_stats_adj_Rsq_get(self);");
8394 }
8395 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8396 if (!SWIG_IsOK(res1)) {
8397 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_adj_Rsq_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8398 }
8399 arg1 = (gsl_multifit_robust_stats *)(argp1);
8400 result = (double) ((arg1)->adj_Rsq);
8401 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8402
8403 XSRETURN(argvi);
8404 fail:
8405
8406 SWIG_croak_null();
8407 }
8408 }
8409
8410
XS(_wrap_gsl_multifit_robust_stats_rmse_set)8411 XS(_wrap_gsl_multifit_robust_stats_rmse_set) {
8412 {
8413 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8414 double arg2 ;
8415 void *argp1 = 0 ;
8416 int res1 = 0 ;
8417 double val2 ;
8418 int ecode2 = 0 ;
8419 int argvi = 0;
8420 dXSARGS;
8421
8422 if ((items < 2) || (items > 2)) {
8423 SWIG_croak("Usage: gsl_multifit_robust_stats_rmse_set(self,rmse);");
8424 }
8425 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8426 if (!SWIG_IsOK(res1)) {
8427 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_rmse_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8428 }
8429 arg1 = (gsl_multifit_robust_stats *)(argp1);
8430 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8431 if (!SWIG_IsOK(ecode2)) {
8432 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_stats_rmse_set" "', argument " "2"" of type '" "double""'");
8433 }
8434 arg2 = (double)(val2);
8435 if (arg1) (arg1)->rmse = arg2;
8436 ST(argvi) = &PL_sv_undef;
8437
8438
8439 XSRETURN(argvi);
8440 fail:
8441
8442
8443 SWIG_croak_null();
8444 }
8445 }
8446
8447
XS(_wrap_gsl_multifit_robust_stats_rmse_get)8448 XS(_wrap_gsl_multifit_robust_stats_rmse_get) {
8449 {
8450 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8451 void *argp1 = 0 ;
8452 int res1 = 0 ;
8453 int argvi = 0;
8454 double result;
8455 dXSARGS;
8456
8457 if ((items < 1) || (items > 1)) {
8458 SWIG_croak("Usage: gsl_multifit_robust_stats_rmse_get(self);");
8459 }
8460 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8461 if (!SWIG_IsOK(res1)) {
8462 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_rmse_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8463 }
8464 arg1 = (gsl_multifit_robust_stats *)(argp1);
8465 result = (double) ((arg1)->rmse);
8466 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8467
8468 XSRETURN(argvi);
8469 fail:
8470
8471 SWIG_croak_null();
8472 }
8473 }
8474
8475
XS(_wrap_gsl_multifit_robust_stats_sse_set)8476 XS(_wrap_gsl_multifit_robust_stats_sse_set) {
8477 {
8478 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8479 double arg2 ;
8480 void *argp1 = 0 ;
8481 int res1 = 0 ;
8482 double val2 ;
8483 int ecode2 = 0 ;
8484 int argvi = 0;
8485 dXSARGS;
8486
8487 if ((items < 2) || (items > 2)) {
8488 SWIG_croak("Usage: gsl_multifit_robust_stats_sse_set(self,sse);");
8489 }
8490 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8491 if (!SWIG_IsOK(res1)) {
8492 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_sse_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8493 }
8494 arg1 = (gsl_multifit_robust_stats *)(argp1);
8495 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8496 if (!SWIG_IsOK(ecode2)) {
8497 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_stats_sse_set" "', argument " "2"" of type '" "double""'");
8498 }
8499 arg2 = (double)(val2);
8500 if (arg1) (arg1)->sse = arg2;
8501 ST(argvi) = &PL_sv_undef;
8502
8503
8504 XSRETURN(argvi);
8505 fail:
8506
8507
8508 SWIG_croak_null();
8509 }
8510 }
8511
8512
XS(_wrap_gsl_multifit_robust_stats_sse_get)8513 XS(_wrap_gsl_multifit_robust_stats_sse_get) {
8514 {
8515 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8516 void *argp1 = 0 ;
8517 int res1 = 0 ;
8518 int argvi = 0;
8519 double result;
8520 dXSARGS;
8521
8522 if ((items < 1) || (items > 1)) {
8523 SWIG_croak("Usage: gsl_multifit_robust_stats_sse_get(self);");
8524 }
8525 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8526 if (!SWIG_IsOK(res1)) {
8527 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_sse_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8528 }
8529 arg1 = (gsl_multifit_robust_stats *)(argp1);
8530 result = (double) ((arg1)->sse);
8531 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8532
8533 XSRETURN(argvi);
8534 fail:
8535
8536 SWIG_croak_null();
8537 }
8538 }
8539
8540
XS(_wrap_gsl_multifit_robust_stats_dof_set)8541 XS(_wrap_gsl_multifit_robust_stats_dof_set) {
8542 {
8543 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8544 size_t arg2 ;
8545 void *argp1 = 0 ;
8546 int res1 = 0 ;
8547 size_t val2 ;
8548 int ecode2 = 0 ;
8549 int argvi = 0;
8550 dXSARGS;
8551
8552 if ((items < 2) || (items > 2)) {
8553 SWIG_croak("Usage: gsl_multifit_robust_stats_dof_set(self,dof);");
8554 }
8555 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8556 if (!SWIG_IsOK(res1)) {
8557 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_dof_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8558 }
8559 arg1 = (gsl_multifit_robust_stats *)(argp1);
8560 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8561 if (!SWIG_IsOK(ecode2)) {
8562 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_stats_dof_set" "', argument " "2"" of type '" "size_t""'");
8563 }
8564 arg2 = (size_t)(val2);
8565 if (arg1) (arg1)->dof = arg2;
8566 ST(argvi) = &PL_sv_undef;
8567
8568
8569 XSRETURN(argvi);
8570 fail:
8571
8572
8573 SWIG_croak_null();
8574 }
8575 }
8576
8577
XS(_wrap_gsl_multifit_robust_stats_dof_get)8578 XS(_wrap_gsl_multifit_robust_stats_dof_get) {
8579 {
8580 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8581 void *argp1 = 0 ;
8582 int res1 = 0 ;
8583 int argvi = 0;
8584 size_t result;
8585 dXSARGS;
8586
8587 if ((items < 1) || (items > 1)) {
8588 SWIG_croak("Usage: gsl_multifit_robust_stats_dof_get(self);");
8589 }
8590 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8591 if (!SWIG_IsOK(res1)) {
8592 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_dof_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8593 }
8594 arg1 = (gsl_multifit_robust_stats *)(argp1);
8595 result = ((arg1)->dof);
8596 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
8597
8598 XSRETURN(argvi);
8599 fail:
8600
8601 SWIG_croak_null();
8602 }
8603 }
8604
8605
XS(_wrap_gsl_multifit_robust_stats_numit_set)8606 XS(_wrap_gsl_multifit_robust_stats_numit_set) {
8607 {
8608 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8609 size_t arg2 ;
8610 void *argp1 = 0 ;
8611 int res1 = 0 ;
8612 size_t val2 ;
8613 int ecode2 = 0 ;
8614 int argvi = 0;
8615 dXSARGS;
8616
8617 if ((items < 2) || (items > 2)) {
8618 SWIG_croak("Usage: gsl_multifit_robust_stats_numit_set(self,numit);");
8619 }
8620 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8621 if (!SWIG_IsOK(res1)) {
8622 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_numit_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8623 }
8624 arg1 = (gsl_multifit_robust_stats *)(argp1);
8625 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8626 if (!SWIG_IsOK(ecode2)) {
8627 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_stats_numit_set" "', argument " "2"" of type '" "size_t""'");
8628 }
8629 arg2 = (size_t)(val2);
8630 if (arg1) (arg1)->numit = arg2;
8631 ST(argvi) = &PL_sv_undef;
8632
8633
8634 XSRETURN(argvi);
8635 fail:
8636
8637
8638 SWIG_croak_null();
8639 }
8640 }
8641
8642
XS(_wrap_gsl_multifit_robust_stats_numit_get)8643 XS(_wrap_gsl_multifit_robust_stats_numit_get) {
8644 {
8645 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8646 void *argp1 = 0 ;
8647 int res1 = 0 ;
8648 int argvi = 0;
8649 size_t result;
8650 dXSARGS;
8651
8652 if ((items < 1) || (items > 1)) {
8653 SWIG_croak("Usage: gsl_multifit_robust_stats_numit_get(self);");
8654 }
8655 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8656 if (!SWIG_IsOK(res1)) {
8657 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_numit_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8658 }
8659 arg1 = (gsl_multifit_robust_stats *)(argp1);
8660 result = ((arg1)->numit);
8661 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
8662
8663 XSRETURN(argvi);
8664 fail:
8665
8666 SWIG_croak_null();
8667 }
8668 }
8669
8670
XS(_wrap_gsl_multifit_robust_stats_weights_set)8671 XS(_wrap_gsl_multifit_robust_stats_weights_set) {
8672 {
8673 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8674 gsl_vector *arg2 = (gsl_vector *) 0 ;
8675 void *argp1 = 0 ;
8676 int res1 = 0 ;
8677 void *argp2 = 0 ;
8678 int res2 = 0 ;
8679 int argvi = 0;
8680 dXSARGS;
8681
8682 if ((items < 2) || (items > 2)) {
8683 SWIG_croak("Usage: gsl_multifit_robust_stats_weights_set(self,weights);");
8684 }
8685 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8686 if (!SWIG_IsOK(res1)) {
8687 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_weights_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8688 }
8689 arg1 = (gsl_multifit_robust_stats *)(argp1);
8690 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
8691 if (!SWIG_IsOK(res2)) {
8692 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_stats_weights_set" "', argument " "2"" of type '" "gsl_vector *""'");
8693 }
8694 arg2 = (gsl_vector *)(argp2);
8695 if (arg1) (arg1)->weights = arg2;
8696 ST(argvi) = &PL_sv_undef;
8697
8698
8699 XSRETURN(argvi);
8700 fail:
8701
8702
8703 SWIG_croak_null();
8704 }
8705 }
8706
8707
XS(_wrap_gsl_multifit_robust_stats_weights_get)8708 XS(_wrap_gsl_multifit_robust_stats_weights_get) {
8709 {
8710 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8711 void *argp1 = 0 ;
8712 int res1 = 0 ;
8713 int argvi = 0;
8714 gsl_vector *result = 0 ;
8715 dXSARGS;
8716
8717 if ((items < 1) || (items > 1)) {
8718 SWIG_croak("Usage: gsl_multifit_robust_stats_weights_get(self);");
8719 }
8720 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8721 if (!SWIG_IsOK(res1)) {
8722 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_weights_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8723 }
8724 arg1 = (gsl_multifit_robust_stats *)(argp1);
8725 result = (gsl_vector *) ((arg1)->weights);
8726 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
8727
8728 XSRETURN(argvi);
8729 fail:
8730
8731 SWIG_croak_null();
8732 }
8733 }
8734
8735
XS(_wrap_gsl_multifit_robust_stats_r_set)8736 XS(_wrap_gsl_multifit_robust_stats_r_set) {
8737 {
8738 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8739 gsl_vector *arg2 = (gsl_vector *) 0 ;
8740 void *argp1 = 0 ;
8741 int res1 = 0 ;
8742 void *argp2 = 0 ;
8743 int res2 = 0 ;
8744 int argvi = 0;
8745 dXSARGS;
8746
8747 if ((items < 2) || (items > 2)) {
8748 SWIG_croak("Usage: gsl_multifit_robust_stats_r_set(self,r);");
8749 }
8750 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8751 if (!SWIG_IsOK(res1)) {
8752 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_r_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8753 }
8754 arg1 = (gsl_multifit_robust_stats *)(argp1);
8755 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
8756 if (!SWIG_IsOK(res2)) {
8757 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_stats_r_set" "', argument " "2"" of type '" "gsl_vector *""'");
8758 }
8759 arg2 = (gsl_vector *)(argp2);
8760 if (arg1) (arg1)->r = arg2;
8761 ST(argvi) = &PL_sv_undef;
8762
8763
8764 XSRETURN(argvi);
8765 fail:
8766
8767
8768 SWIG_croak_null();
8769 }
8770 }
8771
8772
XS(_wrap_gsl_multifit_robust_stats_r_get)8773 XS(_wrap_gsl_multifit_robust_stats_r_get) {
8774 {
8775 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8776 void *argp1 = 0 ;
8777 int res1 = 0 ;
8778 int argvi = 0;
8779 gsl_vector *result = 0 ;
8780 dXSARGS;
8781
8782 if ((items < 1) || (items > 1)) {
8783 SWIG_croak("Usage: gsl_multifit_robust_stats_r_get(self);");
8784 }
8785 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8786 if (!SWIG_IsOK(res1)) {
8787 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_r_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8788 }
8789 arg1 = (gsl_multifit_robust_stats *)(argp1);
8790 result = (gsl_vector *) ((arg1)->r);
8791 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
8792
8793 XSRETURN(argvi);
8794 fail:
8795
8796 SWIG_croak_null();
8797 }
8798 }
8799
8800
XS(_wrap_new_gsl_multifit_robust_stats)8801 XS(_wrap_new_gsl_multifit_robust_stats) {
8802 {
8803 int argvi = 0;
8804 gsl_multifit_robust_stats *result = 0 ;
8805 dXSARGS;
8806
8807 if ((items < 0) || (items > 0)) {
8808 SWIG_croak("Usage: new_gsl_multifit_robust_stats();");
8809 }
8810 result = (gsl_multifit_robust_stats *)calloc(1, sizeof(gsl_multifit_robust_stats));
8811 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_robust_stats, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
8812 XSRETURN(argvi);
8813 fail:
8814 SWIG_croak_null();
8815 }
8816 }
8817
8818
XS(_wrap_delete_gsl_multifit_robust_stats)8819 XS(_wrap_delete_gsl_multifit_robust_stats) {
8820 {
8821 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8822 void *argp1 = 0 ;
8823 int res1 = 0 ;
8824 int argvi = 0;
8825 dXSARGS;
8826
8827 if ((items < 1) || (items > 1)) {
8828 SWIG_croak("Usage: delete_gsl_multifit_robust_stats(self);");
8829 }
8830 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, SWIG_POINTER_DISOWN | 0 );
8831 if (!SWIG_IsOK(res1)) {
8832 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_multifit_robust_stats" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8833 }
8834 arg1 = (gsl_multifit_robust_stats *)(argp1);
8835 free((char *) arg1);
8836 ST(argvi) = &PL_sv_undef;
8837
8838 XSRETURN(argvi);
8839 fail:
8840
8841 SWIG_croak_null();
8842 }
8843 }
8844
8845
XS(_wrap_gsl_multifit_robust_workspace_n_set)8846 XS(_wrap_gsl_multifit_robust_workspace_n_set) {
8847 {
8848 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
8849 size_t arg2 ;
8850 void *argp1 = 0 ;
8851 int res1 = 0 ;
8852 size_t val2 ;
8853 int ecode2 = 0 ;
8854 int argvi = 0;
8855 dXSARGS;
8856
8857 if ((items < 2) || (items > 2)) {
8858 SWIG_croak("Usage: gsl_multifit_robust_workspace_n_set(self,n);");
8859 }
8860 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
8861 if (!SWIG_IsOK(res1)) {
8862 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_n_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
8863 }
8864 arg1 = (gsl_multifit_robust_workspace *)(argp1);
8865 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8866 if (!SWIG_IsOK(ecode2)) {
8867 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_workspace_n_set" "', argument " "2"" of type '" "size_t""'");
8868 }
8869 arg2 = (size_t)(val2);
8870 if (arg1) (arg1)->n = arg2;
8871 ST(argvi) = &PL_sv_undef;
8872
8873
8874 XSRETURN(argvi);
8875 fail:
8876
8877
8878 SWIG_croak_null();
8879 }
8880 }
8881
8882
XS(_wrap_gsl_multifit_robust_workspace_n_get)8883 XS(_wrap_gsl_multifit_robust_workspace_n_get) {
8884 {
8885 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
8886 void *argp1 = 0 ;
8887 int res1 = 0 ;
8888 int argvi = 0;
8889 size_t result;
8890 dXSARGS;
8891
8892 if ((items < 1) || (items > 1)) {
8893 SWIG_croak("Usage: gsl_multifit_robust_workspace_n_get(self);");
8894 }
8895 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
8896 if (!SWIG_IsOK(res1)) {
8897 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_n_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
8898 }
8899 arg1 = (gsl_multifit_robust_workspace *)(argp1);
8900 result = ((arg1)->n);
8901 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
8902
8903 XSRETURN(argvi);
8904 fail:
8905
8906 SWIG_croak_null();
8907 }
8908 }
8909
8910
XS(_wrap_gsl_multifit_robust_workspace_p_set)8911 XS(_wrap_gsl_multifit_robust_workspace_p_set) {
8912 {
8913 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
8914 size_t arg2 ;
8915 void *argp1 = 0 ;
8916 int res1 = 0 ;
8917 size_t val2 ;
8918 int ecode2 = 0 ;
8919 int argvi = 0;
8920 dXSARGS;
8921
8922 if ((items < 2) || (items > 2)) {
8923 SWIG_croak("Usage: gsl_multifit_robust_workspace_p_set(self,p);");
8924 }
8925 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
8926 if (!SWIG_IsOK(res1)) {
8927 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_p_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
8928 }
8929 arg1 = (gsl_multifit_robust_workspace *)(argp1);
8930 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8931 if (!SWIG_IsOK(ecode2)) {
8932 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_workspace_p_set" "', argument " "2"" of type '" "size_t""'");
8933 }
8934 arg2 = (size_t)(val2);
8935 if (arg1) (arg1)->p = arg2;
8936 ST(argvi) = &PL_sv_undef;
8937
8938
8939 XSRETURN(argvi);
8940 fail:
8941
8942
8943 SWIG_croak_null();
8944 }
8945 }
8946
8947
XS(_wrap_gsl_multifit_robust_workspace_p_get)8948 XS(_wrap_gsl_multifit_robust_workspace_p_get) {
8949 {
8950 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
8951 void *argp1 = 0 ;
8952 int res1 = 0 ;
8953 int argvi = 0;
8954 size_t result;
8955 dXSARGS;
8956
8957 if ((items < 1) || (items > 1)) {
8958 SWIG_croak("Usage: gsl_multifit_robust_workspace_p_get(self);");
8959 }
8960 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
8961 if (!SWIG_IsOK(res1)) {
8962 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_p_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
8963 }
8964 arg1 = (gsl_multifit_robust_workspace *)(argp1);
8965 result = ((arg1)->p);
8966 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
8967
8968 XSRETURN(argvi);
8969 fail:
8970
8971 SWIG_croak_null();
8972 }
8973 }
8974
8975
XS(_wrap_gsl_multifit_robust_workspace_numit_set)8976 XS(_wrap_gsl_multifit_robust_workspace_numit_set) {
8977 {
8978 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
8979 size_t arg2 ;
8980 void *argp1 = 0 ;
8981 int res1 = 0 ;
8982 size_t val2 ;
8983 int ecode2 = 0 ;
8984 int argvi = 0;
8985 dXSARGS;
8986
8987 if ((items < 2) || (items > 2)) {
8988 SWIG_croak("Usage: gsl_multifit_robust_workspace_numit_set(self,numit);");
8989 }
8990 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
8991 if (!SWIG_IsOK(res1)) {
8992 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_numit_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
8993 }
8994 arg1 = (gsl_multifit_robust_workspace *)(argp1);
8995 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8996 if (!SWIG_IsOK(ecode2)) {
8997 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_workspace_numit_set" "', argument " "2"" of type '" "size_t""'");
8998 }
8999 arg2 = (size_t)(val2);
9000 if (arg1) (arg1)->numit = arg2;
9001 ST(argvi) = &PL_sv_undef;
9002
9003
9004 XSRETURN(argvi);
9005 fail:
9006
9007
9008 SWIG_croak_null();
9009 }
9010 }
9011
9012
XS(_wrap_gsl_multifit_robust_workspace_numit_get)9013 XS(_wrap_gsl_multifit_robust_workspace_numit_get) {
9014 {
9015 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9016 void *argp1 = 0 ;
9017 int res1 = 0 ;
9018 int argvi = 0;
9019 size_t result;
9020 dXSARGS;
9021
9022 if ((items < 1) || (items > 1)) {
9023 SWIG_croak("Usage: gsl_multifit_robust_workspace_numit_get(self);");
9024 }
9025 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9026 if (!SWIG_IsOK(res1)) {
9027 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_numit_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9028 }
9029 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9030 result = ((arg1)->numit);
9031 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9032
9033 XSRETURN(argvi);
9034 fail:
9035
9036 SWIG_croak_null();
9037 }
9038 }
9039
9040
XS(_wrap_gsl_multifit_robust_workspace_maxiter_set)9041 XS(_wrap_gsl_multifit_robust_workspace_maxiter_set) {
9042 {
9043 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9044 size_t arg2 ;
9045 void *argp1 = 0 ;
9046 int res1 = 0 ;
9047 size_t val2 ;
9048 int ecode2 = 0 ;
9049 int argvi = 0;
9050 dXSARGS;
9051
9052 if ((items < 2) || (items > 2)) {
9053 SWIG_croak("Usage: gsl_multifit_robust_workspace_maxiter_set(self,maxiter);");
9054 }
9055 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9056 if (!SWIG_IsOK(res1)) {
9057 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_maxiter_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9058 }
9059 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9060 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9061 if (!SWIG_IsOK(ecode2)) {
9062 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_workspace_maxiter_set" "', argument " "2"" of type '" "size_t""'");
9063 }
9064 arg2 = (size_t)(val2);
9065 if (arg1) (arg1)->maxiter = arg2;
9066 ST(argvi) = &PL_sv_undef;
9067
9068
9069 XSRETURN(argvi);
9070 fail:
9071
9072
9073 SWIG_croak_null();
9074 }
9075 }
9076
9077
XS(_wrap_gsl_multifit_robust_workspace_maxiter_get)9078 XS(_wrap_gsl_multifit_robust_workspace_maxiter_get) {
9079 {
9080 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9081 void *argp1 = 0 ;
9082 int res1 = 0 ;
9083 int argvi = 0;
9084 size_t result;
9085 dXSARGS;
9086
9087 if ((items < 1) || (items > 1)) {
9088 SWIG_croak("Usage: gsl_multifit_robust_workspace_maxiter_get(self);");
9089 }
9090 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9091 if (!SWIG_IsOK(res1)) {
9092 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_maxiter_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9093 }
9094 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9095 result = ((arg1)->maxiter);
9096 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9097
9098 XSRETURN(argvi);
9099 fail:
9100
9101 SWIG_croak_null();
9102 }
9103 }
9104
9105
XS(_wrap_gsl_multifit_robust_workspace_type_set)9106 XS(_wrap_gsl_multifit_robust_workspace_type_set) {
9107 {
9108 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9109 gsl_multifit_robust_type *arg2 = (gsl_multifit_robust_type *) 0 ;
9110 void *argp1 = 0 ;
9111 int res1 = 0 ;
9112 void *argp2 = 0 ;
9113 int res2 = 0 ;
9114 int argvi = 0;
9115 dXSARGS;
9116
9117 if ((items < 2) || (items > 2)) {
9118 SWIG_croak("Usage: gsl_multifit_robust_workspace_type_set(self,type);");
9119 }
9120 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9121 if (!SWIG_IsOK(res1)) {
9122 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_type_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9123 }
9124 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9125 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_robust_type, SWIG_POINTER_DISOWN | 0 );
9126 if (!SWIG_IsOK(res2)) {
9127 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_type_set" "', argument " "2"" of type '" "gsl_multifit_robust_type const *""'");
9128 }
9129 arg2 = (gsl_multifit_robust_type *)(argp2);
9130 if (arg1) (arg1)->type = (gsl_multifit_robust_type const *)arg2;
9131 ST(argvi) = &PL_sv_undef;
9132
9133
9134 XSRETURN(argvi);
9135 fail:
9136
9137
9138 SWIG_croak_null();
9139 }
9140 }
9141
9142
XS(_wrap_gsl_multifit_robust_workspace_type_get)9143 XS(_wrap_gsl_multifit_robust_workspace_type_get) {
9144 {
9145 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9146 void *argp1 = 0 ;
9147 int res1 = 0 ;
9148 int argvi = 0;
9149 gsl_multifit_robust_type *result = 0 ;
9150 dXSARGS;
9151
9152 if ((items < 1) || (items > 1)) {
9153 SWIG_croak("Usage: gsl_multifit_robust_workspace_type_get(self);");
9154 }
9155 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9156 if (!SWIG_IsOK(res1)) {
9157 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_type_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9158 }
9159 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9160 result = (gsl_multifit_robust_type *) ((arg1)->type);
9161 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_robust_type, 0 | SWIG_SHADOW); argvi++ ;
9162
9163 XSRETURN(argvi);
9164 fail:
9165
9166 SWIG_croak_null();
9167 }
9168 }
9169
9170
XS(_wrap_gsl_multifit_robust_workspace_tune_set)9171 XS(_wrap_gsl_multifit_robust_workspace_tune_set) {
9172 {
9173 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9174 double arg2 ;
9175 void *argp1 = 0 ;
9176 int res1 = 0 ;
9177 double val2 ;
9178 int ecode2 = 0 ;
9179 int argvi = 0;
9180 dXSARGS;
9181
9182 if ((items < 2) || (items > 2)) {
9183 SWIG_croak("Usage: gsl_multifit_robust_workspace_tune_set(self,tune);");
9184 }
9185 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9186 if (!SWIG_IsOK(res1)) {
9187 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_tune_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9188 }
9189 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9190 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9191 if (!SWIG_IsOK(ecode2)) {
9192 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_workspace_tune_set" "', argument " "2"" of type '" "double""'");
9193 }
9194 arg2 = (double)(val2);
9195 if (arg1) (arg1)->tune = arg2;
9196 ST(argvi) = &PL_sv_undef;
9197
9198
9199 XSRETURN(argvi);
9200 fail:
9201
9202
9203 SWIG_croak_null();
9204 }
9205 }
9206
9207
XS(_wrap_gsl_multifit_robust_workspace_tune_get)9208 XS(_wrap_gsl_multifit_robust_workspace_tune_get) {
9209 {
9210 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9211 void *argp1 = 0 ;
9212 int res1 = 0 ;
9213 int argvi = 0;
9214 double result;
9215 dXSARGS;
9216
9217 if ((items < 1) || (items > 1)) {
9218 SWIG_croak("Usage: gsl_multifit_robust_workspace_tune_get(self);");
9219 }
9220 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9221 if (!SWIG_IsOK(res1)) {
9222 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_tune_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9223 }
9224 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9225 result = (double) ((arg1)->tune);
9226 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9227
9228 XSRETURN(argvi);
9229 fail:
9230
9231 SWIG_croak_null();
9232 }
9233 }
9234
9235
XS(_wrap_gsl_multifit_robust_workspace_r_set)9236 XS(_wrap_gsl_multifit_robust_workspace_r_set) {
9237 {
9238 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9239 gsl_vector *arg2 = (gsl_vector *) 0 ;
9240 void *argp1 = 0 ;
9241 int res1 = 0 ;
9242 void *argp2 = 0 ;
9243 int res2 = 0 ;
9244 int argvi = 0;
9245 dXSARGS;
9246
9247 if ((items < 2) || (items > 2)) {
9248 SWIG_croak("Usage: gsl_multifit_robust_workspace_r_set(self,r);");
9249 }
9250 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9251 if (!SWIG_IsOK(res1)) {
9252 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_r_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9253 }
9254 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9255 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
9256 if (!SWIG_IsOK(res2)) {
9257 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_r_set" "', argument " "2"" of type '" "gsl_vector *""'");
9258 }
9259 arg2 = (gsl_vector *)(argp2);
9260 if (arg1) (arg1)->r = arg2;
9261 ST(argvi) = &PL_sv_undef;
9262
9263
9264 XSRETURN(argvi);
9265 fail:
9266
9267
9268 SWIG_croak_null();
9269 }
9270 }
9271
9272
XS(_wrap_gsl_multifit_robust_workspace_r_get)9273 XS(_wrap_gsl_multifit_robust_workspace_r_get) {
9274 {
9275 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9276 void *argp1 = 0 ;
9277 int res1 = 0 ;
9278 int argvi = 0;
9279 gsl_vector *result = 0 ;
9280 dXSARGS;
9281
9282 if ((items < 1) || (items > 1)) {
9283 SWIG_croak("Usage: gsl_multifit_robust_workspace_r_get(self);");
9284 }
9285 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9286 if (!SWIG_IsOK(res1)) {
9287 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_r_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9288 }
9289 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9290 result = (gsl_vector *) ((arg1)->r);
9291 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
9292
9293 XSRETURN(argvi);
9294 fail:
9295
9296 SWIG_croak_null();
9297 }
9298 }
9299
9300
XS(_wrap_gsl_multifit_robust_workspace_weights_set)9301 XS(_wrap_gsl_multifit_robust_workspace_weights_set) {
9302 {
9303 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9304 gsl_vector *arg2 = (gsl_vector *) 0 ;
9305 void *argp1 = 0 ;
9306 int res1 = 0 ;
9307 void *argp2 = 0 ;
9308 int res2 = 0 ;
9309 int argvi = 0;
9310 dXSARGS;
9311
9312 if ((items < 2) || (items > 2)) {
9313 SWIG_croak("Usage: gsl_multifit_robust_workspace_weights_set(self,weights);");
9314 }
9315 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9316 if (!SWIG_IsOK(res1)) {
9317 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_weights_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9318 }
9319 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9320 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
9321 if (!SWIG_IsOK(res2)) {
9322 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_weights_set" "', argument " "2"" of type '" "gsl_vector *""'");
9323 }
9324 arg2 = (gsl_vector *)(argp2);
9325 if (arg1) (arg1)->weights = arg2;
9326 ST(argvi) = &PL_sv_undef;
9327
9328
9329 XSRETURN(argvi);
9330 fail:
9331
9332
9333 SWIG_croak_null();
9334 }
9335 }
9336
9337
XS(_wrap_gsl_multifit_robust_workspace_weights_get)9338 XS(_wrap_gsl_multifit_robust_workspace_weights_get) {
9339 {
9340 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9341 void *argp1 = 0 ;
9342 int res1 = 0 ;
9343 int argvi = 0;
9344 gsl_vector *result = 0 ;
9345 dXSARGS;
9346
9347 if ((items < 1) || (items > 1)) {
9348 SWIG_croak("Usage: gsl_multifit_robust_workspace_weights_get(self);");
9349 }
9350 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9351 if (!SWIG_IsOK(res1)) {
9352 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_weights_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9353 }
9354 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9355 result = (gsl_vector *) ((arg1)->weights);
9356 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
9357
9358 XSRETURN(argvi);
9359 fail:
9360
9361 SWIG_croak_null();
9362 }
9363 }
9364
9365
XS(_wrap_gsl_multifit_robust_workspace_c_prev_set)9366 XS(_wrap_gsl_multifit_robust_workspace_c_prev_set) {
9367 {
9368 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9369 gsl_vector *arg2 = (gsl_vector *) 0 ;
9370 void *argp1 = 0 ;
9371 int res1 = 0 ;
9372 void *argp2 = 0 ;
9373 int res2 = 0 ;
9374 int argvi = 0;
9375 dXSARGS;
9376
9377 if ((items < 2) || (items > 2)) {
9378 SWIG_croak("Usage: gsl_multifit_robust_workspace_c_prev_set(self,c_prev);");
9379 }
9380 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9381 if (!SWIG_IsOK(res1)) {
9382 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_c_prev_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9383 }
9384 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9385 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
9386 if (!SWIG_IsOK(res2)) {
9387 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_c_prev_set" "', argument " "2"" of type '" "gsl_vector *""'");
9388 }
9389 arg2 = (gsl_vector *)(argp2);
9390 if (arg1) (arg1)->c_prev = arg2;
9391 ST(argvi) = &PL_sv_undef;
9392
9393
9394 XSRETURN(argvi);
9395 fail:
9396
9397
9398 SWIG_croak_null();
9399 }
9400 }
9401
9402
XS(_wrap_gsl_multifit_robust_workspace_c_prev_get)9403 XS(_wrap_gsl_multifit_robust_workspace_c_prev_get) {
9404 {
9405 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9406 void *argp1 = 0 ;
9407 int res1 = 0 ;
9408 int argvi = 0;
9409 gsl_vector *result = 0 ;
9410 dXSARGS;
9411
9412 if ((items < 1) || (items > 1)) {
9413 SWIG_croak("Usage: gsl_multifit_robust_workspace_c_prev_get(self);");
9414 }
9415 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9416 if (!SWIG_IsOK(res1)) {
9417 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_c_prev_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9418 }
9419 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9420 result = (gsl_vector *) ((arg1)->c_prev);
9421 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
9422
9423 XSRETURN(argvi);
9424 fail:
9425
9426 SWIG_croak_null();
9427 }
9428 }
9429
9430
XS(_wrap_gsl_multifit_robust_workspace_resfac_set)9431 XS(_wrap_gsl_multifit_robust_workspace_resfac_set) {
9432 {
9433 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9434 gsl_vector *arg2 = (gsl_vector *) 0 ;
9435 void *argp1 = 0 ;
9436 int res1 = 0 ;
9437 void *argp2 = 0 ;
9438 int res2 = 0 ;
9439 int argvi = 0;
9440 dXSARGS;
9441
9442 if ((items < 2) || (items > 2)) {
9443 SWIG_croak("Usage: gsl_multifit_robust_workspace_resfac_set(self,resfac);");
9444 }
9445 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9446 if (!SWIG_IsOK(res1)) {
9447 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_resfac_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9448 }
9449 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9450 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
9451 if (!SWIG_IsOK(res2)) {
9452 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_resfac_set" "', argument " "2"" of type '" "gsl_vector *""'");
9453 }
9454 arg2 = (gsl_vector *)(argp2);
9455 if (arg1) (arg1)->resfac = arg2;
9456 ST(argvi) = &PL_sv_undef;
9457
9458
9459 XSRETURN(argvi);
9460 fail:
9461
9462
9463 SWIG_croak_null();
9464 }
9465 }
9466
9467
XS(_wrap_gsl_multifit_robust_workspace_resfac_get)9468 XS(_wrap_gsl_multifit_robust_workspace_resfac_get) {
9469 {
9470 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9471 void *argp1 = 0 ;
9472 int res1 = 0 ;
9473 int argvi = 0;
9474 gsl_vector *result = 0 ;
9475 dXSARGS;
9476
9477 if ((items < 1) || (items > 1)) {
9478 SWIG_croak("Usage: gsl_multifit_robust_workspace_resfac_get(self);");
9479 }
9480 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9481 if (!SWIG_IsOK(res1)) {
9482 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_resfac_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9483 }
9484 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9485 result = (gsl_vector *) ((arg1)->resfac);
9486 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
9487
9488 XSRETURN(argvi);
9489 fail:
9490
9491 SWIG_croak_null();
9492 }
9493 }
9494
9495
XS(_wrap_gsl_multifit_robust_workspace_psi_set)9496 XS(_wrap_gsl_multifit_robust_workspace_psi_set) {
9497 {
9498 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9499 gsl_vector *arg2 = (gsl_vector *) 0 ;
9500 void *argp1 = 0 ;
9501 int res1 = 0 ;
9502 void *argp2 = 0 ;
9503 int res2 = 0 ;
9504 int argvi = 0;
9505 dXSARGS;
9506
9507 if ((items < 2) || (items > 2)) {
9508 SWIG_croak("Usage: gsl_multifit_robust_workspace_psi_set(self,psi);");
9509 }
9510 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9511 if (!SWIG_IsOK(res1)) {
9512 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_psi_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9513 }
9514 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9515 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
9516 if (!SWIG_IsOK(res2)) {
9517 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_psi_set" "', argument " "2"" of type '" "gsl_vector *""'");
9518 }
9519 arg2 = (gsl_vector *)(argp2);
9520 if (arg1) (arg1)->psi = arg2;
9521 ST(argvi) = &PL_sv_undef;
9522
9523
9524 XSRETURN(argvi);
9525 fail:
9526
9527
9528 SWIG_croak_null();
9529 }
9530 }
9531
9532
XS(_wrap_gsl_multifit_robust_workspace_psi_get)9533 XS(_wrap_gsl_multifit_robust_workspace_psi_get) {
9534 {
9535 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9536 void *argp1 = 0 ;
9537 int res1 = 0 ;
9538 int argvi = 0;
9539 gsl_vector *result = 0 ;
9540 dXSARGS;
9541
9542 if ((items < 1) || (items > 1)) {
9543 SWIG_croak("Usage: gsl_multifit_robust_workspace_psi_get(self);");
9544 }
9545 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9546 if (!SWIG_IsOK(res1)) {
9547 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_psi_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9548 }
9549 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9550 result = (gsl_vector *) ((arg1)->psi);
9551 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
9552
9553 XSRETURN(argvi);
9554 fail:
9555
9556 SWIG_croak_null();
9557 }
9558 }
9559
9560
XS(_wrap_gsl_multifit_robust_workspace_dpsi_set)9561 XS(_wrap_gsl_multifit_robust_workspace_dpsi_set) {
9562 {
9563 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9564 gsl_vector *arg2 = (gsl_vector *) 0 ;
9565 void *argp1 = 0 ;
9566 int res1 = 0 ;
9567 void *argp2 = 0 ;
9568 int res2 = 0 ;
9569 int argvi = 0;
9570 dXSARGS;
9571
9572 if ((items < 2) || (items > 2)) {
9573 SWIG_croak("Usage: gsl_multifit_robust_workspace_dpsi_set(self,dpsi);");
9574 }
9575 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9576 if (!SWIG_IsOK(res1)) {
9577 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_dpsi_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9578 }
9579 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9580 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
9581 if (!SWIG_IsOK(res2)) {
9582 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_dpsi_set" "', argument " "2"" of type '" "gsl_vector *""'");
9583 }
9584 arg2 = (gsl_vector *)(argp2);
9585 if (arg1) (arg1)->dpsi = arg2;
9586 ST(argvi) = &PL_sv_undef;
9587
9588
9589 XSRETURN(argvi);
9590 fail:
9591
9592
9593 SWIG_croak_null();
9594 }
9595 }
9596
9597
XS(_wrap_gsl_multifit_robust_workspace_dpsi_get)9598 XS(_wrap_gsl_multifit_robust_workspace_dpsi_get) {
9599 {
9600 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9601 void *argp1 = 0 ;
9602 int res1 = 0 ;
9603 int argvi = 0;
9604 gsl_vector *result = 0 ;
9605 dXSARGS;
9606
9607 if ((items < 1) || (items > 1)) {
9608 SWIG_croak("Usage: gsl_multifit_robust_workspace_dpsi_get(self);");
9609 }
9610 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9611 if (!SWIG_IsOK(res1)) {
9612 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_dpsi_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9613 }
9614 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9615 result = (gsl_vector *) ((arg1)->dpsi);
9616 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
9617
9618 XSRETURN(argvi);
9619 fail:
9620
9621 SWIG_croak_null();
9622 }
9623 }
9624
9625
XS(_wrap_gsl_multifit_robust_workspace_QSI_set)9626 XS(_wrap_gsl_multifit_robust_workspace_QSI_set) {
9627 {
9628 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9629 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
9630 void *argp1 = 0 ;
9631 int res1 = 0 ;
9632 void *argp2 = 0 ;
9633 int res2 = 0 ;
9634 int argvi = 0;
9635 dXSARGS;
9636
9637 if ((items < 2) || (items > 2)) {
9638 SWIG_croak("Usage: gsl_multifit_robust_workspace_QSI_set(self,QSI);");
9639 }
9640 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9641 if (!SWIG_IsOK(res1)) {
9642 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_QSI_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9643 }
9644 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9645 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, SWIG_POINTER_DISOWN | 0 );
9646 if (!SWIG_IsOK(res2)) {
9647 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_QSI_set" "', argument " "2"" of type '" "gsl_matrix *""'");
9648 }
9649 arg2 = (gsl_matrix *)(argp2);
9650 if (arg1) (arg1)->QSI = arg2;
9651 ST(argvi) = &PL_sv_undef;
9652
9653
9654 XSRETURN(argvi);
9655 fail:
9656
9657
9658 SWIG_croak_null();
9659 }
9660 }
9661
9662
XS(_wrap_gsl_multifit_robust_workspace_QSI_get)9663 XS(_wrap_gsl_multifit_robust_workspace_QSI_get) {
9664 {
9665 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9666 void *argp1 = 0 ;
9667 int res1 = 0 ;
9668 int argvi = 0;
9669 gsl_matrix *result = 0 ;
9670 dXSARGS;
9671
9672 if ((items < 1) || (items > 1)) {
9673 SWIG_croak("Usage: gsl_multifit_robust_workspace_QSI_get(self);");
9674 }
9675 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9676 if (!SWIG_IsOK(res1)) {
9677 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_QSI_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9678 }
9679 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9680 result = (gsl_matrix *) ((arg1)->QSI);
9681 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_matrix, 0 | 0); argvi++ ;
9682
9683 XSRETURN(argvi);
9684 fail:
9685
9686 SWIG_croak_null();
9687 }
9688 }
9689
9690
XS(_wrap_gsl_multifit_robust_workspace_D_set)9691 XS(_wrap_gsl_multifit_robust_workspace_D_set) {
9692 {
9693 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9694 gsl_vector *arg2 = (gsl_vector *) 0 ;
9695 void *argp1 = 0 ;
9696 int res1 = 0 ;
9697 void *argp2 = 0 ;
9698 int res2 = 0 ;
9699 int argvi = 0;
9700 dXSARGS;
9701
9702 if ((items < 2) || (items > 2)) {
9703 SWIG_croak("Usage: gsl_multifit_robust_workspace_D_set(self,D);");
9704 }
9705 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9706 if (!SWIG_IsOK(res1)) {
9707 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_D_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9708 }
9709 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9710 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
9711 if (!SWIG_IsOK(res2)) {
9712 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_D_set" "', argument " "2"" of type '" "gsl_vector *""'");
9713 }
9714 arg2 = (gsl_vector *)(argp2);
9715 if (arg1) (arg1)->D = arg2;
9716 ST(argvi) = &PL_sv_undef;
9717
9718
9719 XSRETURN(argvi);
9720 fail:
9721
9722
9723 SWIG_croak_null();
9724 }
9725 }
9726
9727
XS(_wrap_gsl_multifit_robust_workspace_D_get)9728 XS(_wrap_gsl_multifit_robust_workspace_D_get) {
9729 {
9730 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9731 void *argp1 = 0 ;
9732 int res1 = 0 ;
9733 int argvi = 0;
9734 gsl_vector *result = 0 ;
9735 dXSARGS;
9736
9737 if ((items < 1) || (items > 1)) {
9738 SWIG_croak("Usage: gsl_multifit_robust_workspace_D_get(self);");
9739 }
9740 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9741 if (!SWIG_IsOK(res1)) {
9742 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_D_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9743 }
9744 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9745 result = (gsl_vector *) ((arg1)->D);
9746 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
9747
9748 XSRETURN(argvi);
9749 fail:
9750
9751 SWIG_croak_null();
9752 }
9753 }
9754
9755
XS(_wrap_gsl_multifit_robust_workspace_workn_set)9756 XS(_wrap_gsl_multifit_robust_workspace_workn_set) {
9757 {
9758 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9759 gsl_vector *arg2 = (gsl_vector *) 0 ;
9760 void *argp1 = 0 ;
9761 int res1 = 0 ;
9762 void *argp2 = 0 ;
9763 int res2 = 0 ;
9764 int argvi = 0;
9765 dXSARGS;
9766
9767 if ((items < 2) || (items > 2)) {
9768 SWIG_croak("Usage: gsl_multifit_robust_workspace_workn_set(self,workn);");
9769 }
9770 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9771 if (!SWIG_IsOK(res1)) {
9772 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_workn_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9773 }
9774 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9775 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
9776 if (!SWIG_IsOK(res2)) {
9777 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_workn_set" "', argument " "2"" of type '" "gsl_vector *""'");
9778 }
9779 arg2 = (gsl_vector *)(argp2);
9780 if (arg1) (arg1)->workn = arg2;
9781 ST(argvi) = &PL_sv_undef;
9782
9783
9784 XSRETURN(argvi);
9785 fail:
9786
9787
9788 SWIG_croak_null();
9789 }
9790 }
9791
9792
XS(_wrap_gsl_multifit_robust_workspace_workn_get)9793 XS(_wrap_gsl_multifit_robust_workspace_workn_get) {
9794 {
9795 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9796 void *argp1 = 0 ;
9797 int res1 = 0 ;
9798 int argvi = 0;
9799 gsl_vector *result = 0 ;
9800 dXSARGS;
9801
9802 if ((items < 1) || (items > 1)) {
9803 SWIG_croak("Usage: gsl_multifit_robust_workspace_workn_get(self);");
9804 }
9805 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9806 if (!SWIG_IsOK(res1)) {
9807 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_workn_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9808 }
9809 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9810 result = (gsl_vector *) ((arg1)->workn);
9811 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
9812
9813 XSRETURN(argvi);
9814 fail:
9815
9816 SWIG_croak_null();
9817 }
9818 }
9819
9820
XS(_wrap_gsl_multifit_robust_workspace_stats_set)9821 XS(_wrap_gsl_multifit_robust_workspace_stats_set) {
9822 {
9823 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9824 gsl_multifit_robust_stats *arg2 = (gsl_multifit_robust_stats *) 0 ;
9825 void *argp1 = 0 ;
9826 int res1 = 0 ;
9827 void *argp2 = 0 ;
9828 int res2 = 0 ;
9829 int argvi = 0;
9830 dXSARGS;
9831
9832 if ((items < 2) || (items > 2)) {
9833 SWIG_croak("Usage: gsl_multifit_robust_workspace_stats_set(self,stats);");
9834 }
9835 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9836 if (!SWIG_IsOK(res1)) {
9837 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_stats_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9838 }
9839 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9840 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
9841 if (!SWIG_IsOK(res2)) {
9842 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_stats_set" "', argument " "2"" of type '" "gsl_multifit_robust_stats *""'");
9843 }
9844 arg2 = (gsl_multifit_robust_stats *)(argp2);
9845 if (arg1) (arg1)->stats = *arg2;
9846 ST(argvi) = &PL_sv_undef;
9847
9848
9849 XSRETURN(argvi);
9850 fail:
9851
9852
9853 SWIG_croak_null();
9854 }
9855 }
9856
9857
XS(_wrap_gsl_multifit_robust_workspace_stats_get)9858 XS(_wrap_gsl_multifit_robust_workspace_stats_get) {
9859 {
9860 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9861 void *argp1 = 0 ;
9862 int res1 = 0 ;
9863 int argvi = 0;
9864 gsl_multifit_robust_stats *result = 0 ;
9865 dXSARGS;
9866
9867 if ((items < 1) || (items > 1)) {
9868 SWIG_croak("Usage: gsl_multifit_robust_workspace_stats_get(self);");
9869 }
9870 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9871 if (!SWIG_IsOK(res1)) {
9872 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_stats_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9873 }
9874 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9875 result = (gsl_multifit_robust_stats *)& ((arg1)->stats);
9876 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_robust_stats, 0 | SWIG_SHADOW); argvi++ ;
9877
9878 XSRETURN(argvi);
9879 fail:
9880
9881 SWIG_croak_null();
9882 }
9883 }
9884
9885
XS(_wrap_gsl_multifit_robust_workspace_multifit_p_set)9886 XS(_wrap_gsl_multifit_robust_workspace_multifit_p_set) {
9887 {
9888 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9889 gsl_multifit_linear_workspace *arg2 = (gsl_multifit_linear_workspace *) 0 ;
9890 void *argp1 = 0 ;
9891 int res1 = 0 ;
9892 void *argp2 = 0 ;
9893 int res2 = 0 ;
9894 int argvi = 0;
9895 dXSARGS;
9896
9897 if ((items < 2) || (items > 2)) {
9898 SWIG_croak("Usage: gsl_multifit_robust_workspace_multifit_p_set(self,multifit_p);");
9899 }
9900 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9901 if (!SWIG_IsOK(res1)) {
9902 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_multifit_p_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9903 }
9904 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9905 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_linear_workspace, SWIG_POINTER_DISOWN | 0 );
9906 if (!SWIG_IsOK(res2)) {
9907 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_multifit_p_set" "', argument " "2"" of type '" "gsl_multifit_linear_workspace *""'");
9908 }
9909 arg2 = (gsl_multifit_linear_workspace *)(argp2);
9910 if (arg1) (arg1)->multifit_p = arg2;
9911 ST(argvi) = &PL_sv_undef;
9912
9913
9914 XSRETURN(argvi);
9915 fail:
9916
9917
9918 SWIG_croak_null();
9919 }
9920 }
9921
9922
XS(_wrap_gsl_multifit_robust_workspace_multifit_p_get)9923 XS(_wrap_gsl_multifit_robust_workspace_multifit_p_get) {
9924 {
9925 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9926 void *argp1 = 0 ;
9927 int res1 = 0 ;
9928 int argvi = 0;
9929 gsl_multifit_linear_workspace *result = 0 ;
9930 dXSARGS;
9931
9932 if ((items < 1) || (items > 1)) {
9933 SWIG_croak("Usage: gsl_multifit_robust_workspace_multifit_p_get(self);");
9934 }
9935 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9936 if (!SWIG_IsOK(res1)) {
9937 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_multifit_p_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9938 }
9939 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9940 result = (gsl_multifit_linear_workspace *) ((arg1)->multifit_p);
9941 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | SWIG_SHADOW); argvi++ ;
9942
9943 XSRETURN(argvi);
9944 fail:
9945
9946 SWIG_croak_null();
9947 }
9948 }
9949
9950
XS(_wrap_new_gsl_multifit_robust_workspace)9951 XS(_wrap_new_gsl_multifit_robust_workspace) {
9952 {
9953 int argvi = 0;
9954 gsl_multifit_robust_workspace *result = 0 ;
9955 dXSARGS;
9956
9957 if ((items < 0) || (items > 0)) {
9958 SWIG_croak("Usage: new_gsl_multifit_robust_workspace();");
9959 }
9960 result = (gsl_multifit_robust_workspace *)calloc(1, sizeof(gsl_multifit_robust_workspace));
9961 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_robust_workspace, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
9962 XSRETURN(argvi);
9963 fail:
9964 SWIG_croak_null();
9965 }
9966 }
9967
9968
XS(_wrap_delete_gsl_multifit_robust_workspace)9969 XS(_wrap_delete_gsl_multifit_robust_workspace) {
9970 {
9971 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9972 void *argp1 = 0 ;
9973 int res1 = 0 ;
9974 int argvi = 0;
9975 dXSARGS;
9976
9977 if ((items < 1) || (items > 1)) {
9978 SWIG_croak("Usage: delete_gsl_multifit_robust_workspace(self);");
9979 }
9980 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, SWIG_POINTER_DISOWN | 0 );
9981 if (!SWIG_IsOK(res1)) {
9982 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_multifit_robust_workspace" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9983 }
9984 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9985 free((char *) arg1);
9986 ST(argvi) = &PL_sv_undef;
9987
9988 XSRETURN(argvi);
9989 fail:
9990
9991 SWIG_croak_null();
9992 }
9993 }
9994
9995
XS(_wrap_gsl_multifit_robust_alloc)9996 XS(_wrap_gsl_multifit_robust_alloc) {
9997 {
9998 gsl_multifit_robust_type *arg1 = (gsl_multifit_robust_type *) 0 ;
9999 size_t arg2 ;
10000 size_t arg3 ;
10001 void *argp1 = 0 ;
10002 int res1 = 0 ;
10003 size_t val2 ;
10004 int ecode2 = 0 ;
10005 size_t val3 ;
10006 int ecode3 = 0 ;
10007 int argvi = 0;
10008 gsl_multifit_robust_workspace *result = 0 ;
10009 dXSARGS;
10010
10011 if ((items < 3) || (items > 3)) {
10012 SWIG_croak("Usage: gsl_multifit_robust_alloc(T,n,p);");
10013 }
10014 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_type, 0 | 0 );
10015 if (!SWIG_IsOK(res1)) {
10016 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_alloc" "', argument " "1"" of type '" "gsl_multifit_robust_type const *""'");
10017 }
10018 arg1 = (gsl_multifit_robust_type *)(argp1);
10019 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10020 if (!SWIG_IsOK(ecode2)) {
10021 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_alloc" "', argument " "2"" of type '" "size_t""'");
10022 }
10023 arg2 = (size_t)(val2);
10024 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
10025 if (!SWIG_IsOK(ecode3)) {
10026 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_multifit_robust_alloc" "', argument " "3"" of type '" "size_t""'");
10027 }
10028 arg3 = (size_t)(val3);
10029 result = (gsl_multifit_robust_workspace *)gsl_multifit_robust_alloc((gsl_multifit_robust_type const *)arg1,arg2,arg3);
10030 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | SWIG_SHADOW); argvi++ ;
10031
10032
10033
10034 XSRETURN(argvi);
10035 fail:
10036
10037
10038
10039 SWIG_croak_null();
10040 }
10041 }
10042
10043
XS(_wrap_gsl_multifit_robust_free)10044 XS(_wrap_gsl_multifit_robust_free) {
10045 {
10046 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
10047 void *argp1 = 0 ;
10048 int res1 = 0 ;
10049 int argvi = 0;
10050 dXSARGS;
10051
10052 if ((items < 1) || (items > 1)) {
10053 SWIG_croak("Usage: gsl_multifit_robust_free(w);");
10054 }
10055 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
10056 if (!SWIG_IsOK(res1)) {
10057 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_free" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
10058 }
10059 arg1 = (gsl_multifit_robust_workspace *)(argp1);
10060 gsl_multifit_robust_free(arg1);
10061 ST(argvi) = &PL_sv_undef;
10062
10063 XSRETURN(argvi);
10064 fail:
10065
10066 SWIG_croak_null();
10067 }
10068 }
10069
10070
XS(_wrap_gsl_multifit_robust_tune)10071 XS(_wrap_gsl_multifit_robust_tune) {
10072 {
10073 double arg1 ;
10074 gsl_multifit_robust_workspace *arg2 = (gsl_multifit_robust_workspace *) 0 ;
10075 double val1 ;
10076 int ecode1 = 0 ;
10077 void *argp2 = 0 ;
10078 int res2 = 0 ;
10079 int argvi = 0;
10080 int result;
10081 dXSARGS;
10082
10083 if ((items < 2) || (items > 2)) {
10084 SWIG_croak("Usage: gsl_multifit_robust_tune(tune,w);");
10085 }
10086 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10087 if (!SWIG_IsOK(ecode1)) {
10088 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_multifit_robust_tune" "', argument " "1"" of type '" "double""'");
10089 }
10090 arg1 = (double)(val1);
10091 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
10092 if (!SWIG_IsOK(res2)) {
10093 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_tune" "', argument " "2"" of type '" "gsl_multifit_robust_workspace *""'");
10094 }
10095 arg2 = (gsl_multifit_robust_workspace *)(argp2);
10096 result = (int)gsl_multifit_robust_tune(arg1,arg2);
10097 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10098
10099
10100 XSRETURN(argvi);
10101 fail:
10102
10103
10104 SWIG_croak_null();
10105 }
10106 }
10107
10108
XS(_wrap_gsl_multifit_robust_maxiter)10109 XS(_wrap_gsl_multifit_robust_maxiter) {
10110 {
10111 size_t arg1 ;
10112 gsl_multifit_robust_workspace *arg2 = (gsl_multifit_robust_workspace *) 0 ;
10113 size_t val1 ;
10114 int ecode1 = 0 ;
10115 void *argp2 = 0 ;
10116 int res2 = 0 ;
10117 int argvi = 0;
10118 int result;
10119 dXSARGS;
10120
10121 if ((items < 2) || (items > 2)) {
10122 SWIG_croak("Usage: gsl_multifit_robust_maxiter(maxiter,w);");
10123 }
10124 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10125 if (!SWIG_IsOK(ecode1)) {
10126 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_multifit_robust_maxiter" "', argument " "1"" of type '" "size_t""'");
10127 }
10128 arg1 = (size_t)(val1);
10129 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
10130 if (!SWIG_IsOK(res2)) {
10131 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_maxiter" "', argument " "2"" of type '" "gsl_multifit_robust_workspace *""'");
10132 }
10133 arg2 = (gsl_multifit_robust_workspace *)(argp2);
10134 result = (int)gsl_multifit_robust_maxiter(arg1,arg2);
10135 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10136
10137
10138 XSRETURN(argvi);
10139 fail:
10140
10141
10142 SWIG_croak_null();
10143 }
10144 }
10145
10146
XS(_wrap_gsl_multifit_robust_name)10147 XS(_wrap_gsl_multifit_robust_name) {
10148 {
10149 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
10150 void *argp1 = 0 ;
10151 int res1 = 0 ;
10152 int argvi = 0;
10153 char *result = 0 ;
10154 dXSARGS;
10155
10156 if ((items < 1) || (items > 1)) {
10157 SWIG_croak("Usage: gsl_multifit_robust_name(w);");
10158 }
10159 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
10160 if (!SWIG_IsOK(res1)) {
10161 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_name" "', argument " "1"" of type '" "gsl_multifit_robust_workspace const *""'");
10162 }
10163 arg1 = (gsl_multifit_robust_workspace *)(argp1);
10164 result = (char *)gsl_multifit_robust_name((gsl_multifit_robust_workspace const *)arg1);
10165 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
10166
10167 XSRETURN(argvi);
10168 fail:
10169
10170 SWIG_croak_null();
10171 }
10172 }
10173
10174
XS(_wrap_gsl_multifit_robust_statistics)10175 XS(_wrap_gsl_multifit_robust_statistics) {
10176 {
10177 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
10178 void *argp1 = 0 ;
10179 int res1 = 0 ;
10180 int argvi = 0;
10181 gsl_multifit_robust_stats result;
10182 dXSARGS;
10183
10184 if ((items < 1) || (items > 1)) {
10185 SWIG_croak("Usage: gsl_multifit_robust_statistics(w);");
10186 }
10187 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
10188 if (!SWIG_IsOK(res1)) {
10189 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_statistics" "', argument " "1"" of type '" "gsl_multifit_robust_workspace const *""'");
10190 }
10191 arg1 = (gsl_multifit_robust_workspace *)(argp1);
10192 result = gsl_multifit_robust_statistics((gsl_multifit_robust_workspace const *)arg1);
10193 ST(argvi) = SWIG_NewPointerObj((gsl_multifit_robust_stats *)memcpy((gsl_multifit_robust_stats *)calloc(1,sizeof(gsl_multifit_robust_stats)),&result,sizeof(gsl_multifit_robust_stats)), SWIGTYPE_p_gsl_multifit_robust_stats, SWIG_POINTER_OWN | SWIG_SHADOW); argvi++ ;
10194
10195 XSRETURN(argvi);
10196 fail:
10197
10198 SWIG_croak_null();
10199 }
10200 }
10201
10202
XS(_wrap_gsl_multifit_robust_weights)10203 XS(_wrap_gsl_multifit_robust_weights) {
10204 {
10205 gsl_vector *arg1 = (gsl_vector *) 0 ;
10206 gsl_vector *arg2 = (gsl_vector *) 0 ;
10207 gsl_multifit_robust_workspace *arg3 = (gsl_multifit_robust_workspace *) 0 ;
10208 void *argp1 = 0 ;
10209 int res1 = 0 ;
10210 void *argp2 = 0 ;
10211 int res2 = 0 ;
10212 void *argp3 = 0 ;
10213 int res3 = 0 ;
10214 int argvi = 0;
10215 int result;
10216 dXSARGS;
10217
10218 if ((items < 3) || (items > 3)) {
10219 SWIG_croak("Usage: gsl_multifit_robust_weights(r,wts,w);");
10220 }
10221 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
10222 if (!SWIG_IsOK(res1)) {
10223 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_weights" "', argument " "1"" of type '" "gsl_vector const *""'");
10224 }
10225 arg1 = (gsl_vector *)(argp1);
10226 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10227 if (!SWIG_IsOK(res2)) {
10228 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_weights" "', argument " "2"" of type '" "gsl_vector *""'");
10229 }
10230 arg2 = (gsl_vector *)(argp2);
10231 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
10232 if (!SWIG_IsOK(res3)) {
10233 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_robust_weights" "', argument " "3"" of type '" "gsl_multifit_robust_workspace *""'");
10234 }
10235 arg3 = (gsl_multifit_robust_workspace *)(argp3);
10236 result = (int)gsl_multifit_robust_weights((gsl_vector const *)arg1,arg2,arg3);
10237 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10238
10239
10240
10241 XSRETURN(argvi);
10242 fail:
10243
10244
10245
10246 SWIG_croak_null();
10247 }
10248 }
10249
10250
XS(_wrap_gsl_multifit_robust)10251 XS(_wrap_gsl_multifit_robust) {
10252 {
10253 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10254 gsl_vector *arg2 = (gsl_vector *) 0 ;
10255 gsl_vector *arg3 = (gsl_vector *) 0 ;
10256 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
10257 gsl_multifit_robust_workspace *arg5 = (gsl_multifit_robust_workspace *) 0 ;
10258 void *argp1 = 0 ;
10259 int res1 = 0 ;
10260 void *argp2 = 0 ;
10261 int res2 = 0 ;
10262 void *argp3 = 0 ;
10263 int res3 = 0 ;
10264 void *argp4 = 0 ;
10265 int res4 = 0 ;
10266 void *argp5 = 0 ;
10267 int res5 = 0 ;
10268 int argvi = 0;
10269 int result;
10270 dXSARGS;
10271
10272 if ((items < 5) || (items > 5)) {
10273 SWIG_croak("Usage: gsl_multifit_robust(X,y,c,cov,w);");
10274 }
10275 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10276 if (!SWIG_IsOK(res1)) {
10277 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust" "', argument " "1"" of type '" "gsl_matrix const *""'");
10278 }
10279 arg1 = (gsl_matrix *)(argp1);
10280 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10281 if (!SWIG_IsOK(res2)) {
10282 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust" "', argument " "2"" of type '" "gsl_vector const *""'");
10283 }
10284 arg2 = (gsl_vector *)(argp2);
10285 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
10286 if (!SWIG_IsOK(res3)) {
10287 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_robust" "', argument " "3"" of type '" "gsl_vector *""'");
10288 }
10289 arg3 = (gsl_vector *)(argp3);
10290 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10291 if (!SWIG_IsOK(res4)) {
10292 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_robust" "', argument " "4"" of type '" "gsl_matrix *""'");
10293 }
10294 arg4 = (gsl_matrix *)(argp4);
10295 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
10296 if (!SWIG_IsOK(res5)) {
10297 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_robust" "', argument " "5"" of type '" "gsl_multifit_robust_workspace *""'");
10298 }
10299 arg5 = (gsl_multifit_robust_workspace *)(argp5);
10300 result = (int)gsl_multifit_robust((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4,arg5);
10301 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10302
10303
10304
10305
10306
10307 XSRETURN(argvi);
10308 fail:
10309
10310
10311
10312
10313
10314 SWIG_croak_null();
10315 }
10316 }
10317
10318
XS(_wrap_gsl_multifit_robust_est)10319 XS(_wrap_gsl_multifit_robust_est) {
10320 {
10321 gsl_vector *arg1 = (gsl_vector *) 0 ;
10322 gsl_vector *arg2 = (gsl_vector *) 0 ;
10323 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
10324 double *arg4 = (double *) 0 ;
10325 double *arg5 = (double *) 0 ;
10326 void *argp1 = 0 ;
10327 int res1 = 0 ;
10328 void *argp2 = 0 ;
10329 int res2 = 0 ;
10330 void *argp3 = 0 ;
10331 int res3 = 0 ;
10332 void *argp4 = 0 ;
10333 int res4 = 0 ;
10334 void *argp5 = 0 ;
10335 int res5 = 0 ;
10336 int argvi = 0;
10337 int result;
10338 dXSARGS;
10339
10340 if ((items < 5) || (items > 5)) {
10341 SWIG_croak("Usage: gsl_multifit_robust_est(x,c,cov,y,y_err);");
10342 }
10343 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
10344 if (!SWIG_IsOK(res1)) {
10345 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_est" "', argument " "1"" of type '" "gsl_vector const *""'");
10346 }
10347 arg1 = (gsl_vector *)(argp1);
10348 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10349 if (!SWIG_IsOK(res2)) {
10350 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_est" "', argument " "2"" of type '" "gsl_vector const *""'");
10351 }
10352 arg2 = (gsl_vector *)(argp2);
10353 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10354 if (!SWIG_IsOK(res3)) {
10355 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_robust_est" "', argument " "3"" of type '" "gsl_matrix const *""'");
10356 }
10357 arg3 = (gsl_matrix *)(argp3);
10358 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_double, 0 | 0 );
10359 if (!SWIG_IsOK(res4)) {
10360 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_robust_est" "', argument " "4"" of type '" "double *""'");
10361 }
10362 arg4 = (double *)(argp4);
10363 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_double, 0 | 0 );
10364 if (!SWIG_IsOK(res5)) {
10365 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_robust_est" "', argument " "5"" of type '" "double *""'");
10366 }
10367 arg5 = (double *)(argp5);
10368 result = (int)gsl_multifit_robust_est((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_matrix const *)arg3,arg4,arg5);
10369 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10370
10371
10372
10373
10374
10375 XSRETURN(argvi);
10376 fail:
10377
10378
10379
10380
10381
10382 SWIG_croak_null();
10383 }
10384 }
10385
10386
XS(_wrap_gsl_multifit_robust_residuals)10387 XS(_wrap_gsl_multifit_robust_residuals) {
10388 {
10389 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10390 gsl_vector *arg2 = (gsl_vector *) 0 ;
10391 gsl_vector *arg3 = (gsl_vector *) 0 ;
10392 gsl_vector *arg4 = (gsl_vector *) 0 ;
10393 gsl_multifit_robust_workspace *arg5 = (gsl_multifit_robust_workspace *) 0 ;
10394 void *argp1 = 0 ;
10395 int res1 = 0 ;
10396 void *argp2 = 0 ;
10397 int res2 = 0 ;
10398 void *argp3 = 0 ;
10399 int res3 = 0 ;
10400 void *argp4 = 0 ;
10401 int res4 = 0 ;
10402 void *argp5 = 0 ;
10403 int res5 = 0 ;
10404 int argvi = 0;
10405 int result;
10406 dXSARGS;
10407
10408 if ((items < 5) || (items > 5)) {
10409 SWIG_croak("Usage: gsl_multifit_robust_residuals(X,y,c,r,w);");
10410 }
10411 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10412 if (!SWIG_IsOK(res1)) {
10413 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_residuals" "', argument " "1"" of type '" "gsl_matrix const *""'");
10414 }
10415 arg1 = (gsl_matrix *)(argp1);
10416 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10417 if (!SWIG_IsOK(res2)) {
10418 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_residuals" "', argument " "2"" of type '" "gsl_vector const *""'");
10419 }
10420 arg2 = (gsl_vector *)(argp2);
10421 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
10422 if (!SWIG_IsOK(res3)) {
10423 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_robust_residuals" "', argument " "3"" of type '" "gsl_vector const *""'");
10424 }
10425 arg3 = (gsl_vector *)(argp3);
10426 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
10427 if (!SWIG_IsOK(res4)) {
10428 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_robust_residuals" "', argument " "4"" of type '" "gsl_vector *""'");
10429 }
10430 arg4 = (gsl_vector *)(argp4);
10431 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
10432 if (!SWIG_IsOK(res5)) {
10433 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_robust_residuals" "', argument " "5"" of type '" "gsl_multifit_robust_workspace *""'");
10434 }
10435 arg5 = (gsl_multifit_robust_workspace *)(argp5);
10436 result = (int)gsl_multifit_robust_residuals((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5);
10437 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10438
10439
10440
10441
10442
10443 XSRETURN(argvi);
10444 fail:
10445
10446
10447
10448
10449
10450 SWIG_croak_null();
10451 }
10452 }
10453
10454
XS(_wrap_gsl_multilarge_linear_type_name_set)10455 XS(_wrap_gsl_multilarge_linear_type_name_set) {
10456 {
10457 gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10458 char *arg2 = (char *) 0 ;
10459 void *argp1 = 0 ;
10460 int res1 = 0 ;
10461 int res2 ;
10462 char *buf2 = 0 ;
10463 int alloc2 = 0 ;
10464 int argvi = 0;
10465 dXSARGS;
10466
10467 if ((items < 2) || (items > 2)) {
10468 SWIG_croak("Usage: gsl_multilarge_linear_type_name_set(self,name);");
10469 }
10470 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 | 0 );
10471 if (!SWIG_IsOK(res1)) {
10472 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_name_set" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10473 }
10474 arg1 = (gsl_multilarge_linear_type *)(argp1);
10475 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
10476 if (!SWIG_IsOK(res2)) {
10477 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multilarge_linear_type_name_set" "', argument " "2"" of type '" "char const *""'");
10478 }
10479 arg2 = (char *)(buf2);
10480 if (arg2) {
10481 size_t size = strlen((const char *)((const char *)(arg2))) + 1;
10482 arg1->name = (char const *)(char *)memcpy(malloc((size)*sizeof(char)), arg2, sizeof(char)*(size));
10483 } else {
10484 arg1->name = 0;
10485 }
10486 ST(argvi) = &PL_sv_undef;
10487
10488 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
10489 XSRETURN(argvi);
10490 fail:
10491
10492 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
10493 SWIG_croak_null();
10494 }
10495 }
10496
10497
XS(_wrap_gsl_multilarge_linear_type_name_get)10498 XS(_wrap_gsl_multilarge_linear_type_name_get) {
10499 {
10500 gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10501 void *argp1 = 0 ;
10502 int res1 = 0 ;
10503 int argvi = 0;
10504 char *result = 0 ;
10505 dXSARGS;
10506
10507 if ((items < 1) || (items > 1)) {
10508 SWIG_croak("Usage: gsl_multilarge_linear_type_name_get(self);");
10509 }
10510 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 | 0 );
10511 if (!SWIG_IsOK(res1)) {
10512 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_name_get" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10513 }
10514 arg1 = (gsl_multilarge_linear_type *)(argp1);
10515 result = (char *) ((arg1)->name);
10516 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
10517
10518 XSRETURN(argvi);
10519 fail:
10520
10521 SWIG_croak_null();
10522 }
10523 }
10524
10525
XS(_wrap_gsl_multilarge_linear_type_alloc_set)10526 XS(_wrap_gsl_multilarge_linear_type_alloc_set) {
10527 {
10528 gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10529 void *(*arg2)(size_t const) = (void *(*)(size_t const)) 0 ;
10530 void *argp1 = 0 ;
10531 int res1 = 0 ;
10532 int argvi = 0;
10533 dXSARGS;
10534
10535 if ((items < 2) || (items > 2)) {
10536 SWIG_croak("Usage: gsl_multilarge_linear_type_alloc_set(self,alloc);");
10537 }
10538 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 | 0 );
10539 if (!SWIG_IsOK(res1)) {
10540 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_alloc_set" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10541 }
10542 arg1 = (gsl_multilarge_linear_type *)(argp1);
10543 {
10544 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_q_const__size_t__p_void);
10545 if (!SWIG_IsOK(res)) {
10546 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multilarge_linear_type_alloc_set" "', argument " "2"" of type '" "void *(*)(size_t const)""'");
10547 }
10548 }
10549 if (arg1) (arg1)->alloc = arg2;
10550 ST(argvi) = &PL_sv_undef;
10551
10552
10553 XSRETURN(argvi);
10554 fail:
10555
10556
10557 SWIG_croak_null();
10558 }
10559 }
10560
10561
XS(_wrap_gsl_multilarge_linear_type_alloc_get)10562 XS(_wrap_gsl_multilarge_linear_type_alloc_get) {
10563 {
10564 gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10565 void *argp1 = 0 ;
10566 int res1 = 0 ;
10567 int argvi = 0;
10568 void *(*result)(size_t const) = 0 ;
10569 dXSARGS;
10570
10571 if ((items < 1) || (items > 1)) {
10572 SWIG_croak("Usage: gsl_multilarge_linear_type_alloc_get(self);");
10573 }
10574 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 | 0 );
10575 if (!SWIG_IsOK(res1)) {
10576 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_alloc_get" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10577 }
10578 arg1 = (gsl_multilarge_linear_type *)(argp1);
10579 result = (void *(*)(size_t const)) ((arg1)->alloc);
10580 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_q_const__size_t__p_void); argvi++ ;
10581
10582 XSRETURN(argvi);
10583 fail:
10584
10585 SWIG_croak_null();
10586 }
10587 }
10588
10589
XS(_wrap_gsl_multilarge_linear_type_reset_set)10590 XS(_wrap_gsl_multilarge_linear_type_reset_set) {
10591 {
10592 gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10593 int (*arg2)(void *) = (int (*)(void *)) 0 ;
10594 void *argp1 = 0 ;
10595 int res1 = 0 ;
10596 int argvi = 0;
10597 dXSARGS;
10598
10599 if ((items < 2) || (items > 2)) {
10600 SWIG_croak("Usage: gsl_multilarge_linear_type_reset_set(self,reset);");
10601 }
10602 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 | 0 );
10603 if (!SWIG_IsOK(res1)) {
10604 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_reset_set" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10605 }
10606 arg1 = (gsl_multilarge_linear_type *)(argp1);
10607 {
10608 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_void__int);
10609 if (!SWIG_IsOK(res)) {
10610 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multilarge_linear_type_reset_set" "', argument " "2"" of type '" "int (*)(void *)""'");
10611 }
10612 }
10613 if (arg1) (arg1)->reset = arg2;
10614 ST(argvi) = &PL_sv_undef;
10615
10616
10617 XSRETURN(argvi);
10618 fail:
10619
10620
10621 SWIG_croak_null();
10622 }
10623 }
10624
10625
XS(_wrap_gsl_multilarge_linear_type_reset_get)10626 XS(_wrap_gsl_multilarge_linear_type_reset_get) {
10627 {
10628 gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10629 void *argp1 = 0 ;
10630 int res1 = 0 ;
10631 int argvi = 0;
10632 int (*result)(void *) = 0 ;
10633 dXSARGS;
10634
10635 if ((items < 1) || (items > 1)) {
10636 SWIG_croak("Usage: gsl_multilarge_linear_type_reset_get(self);");
10637 }
10638 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 | 0 );
10639 if (!SWIG_IsOK(res1)) {
10640 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_reset_get" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10641 }
10642 arg1 = (gsl_multilarge_linear_type *)(argp1);
10643 result = (int (*)(void *)) ((arg1)->reset);
10644 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_void__int); argvi++ ;
10645
10646 XSRETURN(argvi);
10647 fail:
10648
10649 SWIG_croak_null();
10650 }
10651 }
10652
10653
XS(_wrap_gsl_multilarge_linear_type_accumulate_set)10654 XS(_wrap_gsl_multilarge_linear_type_accumulate_set) {
10655 {
10656 gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10657 int (*arg2)(gsl_matrix *,gsl_vector *,void *) = (int (*)(gsl_matrix *,gsl_vector *,void *)) 0 ;
10658 void *argp1 = 0 ;
10659 int res1 = 0 ;
10660 int argvi = 0;
10661 dXSARGS;
10662
10663 if ((items < 2) || (items > 2)) {
10664 SWIG_croak("Usage: gsl_multilarge_linear_type_accumulate_set(self,accumulate);");
10665 }
10666 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 | 0 );
10667 if (!SWIG_IsOK(res1)) {
10668 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_accumulate_set" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10669 }
10670 arg1 = (gsl_multilarge_linear_type *)(argp1);
10671 {
10672 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_gsl_matrix_p_gsl_vector_p_void__int);
10673 if (!SWIG_IsOK(res)) {
10674 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multilarge_linear_type_accumulate_set" "', argument " "2"" of type '" "int (*)(gsl_matrix *,gsl_vector *,void *)""'");
10675 }
10676 }
10677 if (arg1) (arg1)->accumulate = arg2;
10678 ST(argvi) = &PL_sv_undef;
10679
10680
10681 XSRETURN(argvi);
10682 fail:
10683
10684
10685 SWIG_croak_null();
10686 }
10687 }
10688
10689
XS(_wrap_gsl_multilarge_linear_type_accumulate_get)10690 XS(_wrap_gsl_multilarge_linear_type_accumulate_get) {
10691 {
10692 gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10693 void *argp1 = 0 ;
10694 int res1 = 0 ;
10695 int argvi = 0;
10696 int (*result)(gsl_matrix *,gsl_vector *,void *) = 0 ;
10697 dXSARGS;
10698
10699 if ((items < 1) || (items > 1)) {
10700 SWIG_croak("Usage: gsl_multilarge_linear_type_accumulate_get(self);");
10701 }
10702 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 | 0 );
10703 if (!SWIG_IsOK(res1)) {
10704 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_accumulate_get" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10705 }
10706 arg1 = (gsl_multilarge_linear_type *)(argp1);
10707 result = (int (*)(gsl_matrix *,gsl_vector *,void *)) ((arg1)->accumulate);
10708 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_gsl_matrix_p_gsl_vector_p_void__int); argvi++ ;
10709
10710 XSRETURN(argvi);
10711 fail:
10712
10713 SWIG_croak_null();
10714 }
10715 }
10716
10717
XS(_wrap_gsl_multilarge_linear_type_solve_set)10718 XS(_wrap_gsl_multilarge_linear_type_solve_set) {
10719 {
10720 gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10721 int (*arg2)(double const,gsl_vector *,double *,double *,void *) = (int (*)(double const,gsl_vector *,double *,double *,void *)) 0 ;
10722 void *argp1 = 0 ;
10723 int res1 = 0 ;
10724 int argvi = 0;
10725 dXSARGS;
10726
10727 if ((items < 2) || (items > 2)) {
10728 SWIG_croak("Usage: gsl_multilarge_linear_type_solve_set(self,solve);");
10729 }
10730 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 | 0 );
10731 if (!SWIG_IsOK(res1)) {
10732 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_solve_set" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10733 }
10734 arg1 = (gsl_multilarge_linear_type *)(argp1);
10735 {
10736 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_q_const__double_p_gsl_vector_p_double_p_double_p_void__int);
10737 if (!SWIG_IsOK(res)) {
10738 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multilarge_linear_type_solve_set" "', argument " "2"" of type '" "int (*)(double const,gsl_vector *,double *,double *,void *)""'");
10739 }
10740 }
10741 if (arg1) (arg1)->solve = arg2;
10742 ST(argvi) = &PL_sv_undef;
10743
10744
10745 XSRETURN(argvi);
10746 fail:
10747
10748
10749 SWIG_croak_null();
10750 }
10751 }
10752
10753
XS(_wrap_gsl_multilarge_linear_type_solve_get)10754 XS(_wrap_gsl_multilarge_linear_type_solve_get) {
10755 {
10756 gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10757 void *argp1 = 0 ;
10758 int res1 = 0 ;
10759 int argvi = 0;
10760 int (*result)(double const,gsl_vector *,double *,double *,void *) = 0 ;
10761 dXSARGS;
10762
10763 if ((items < 1) || (items > 1)) {
10764 SWIG_croak("Usage: gsl_multilarge_linear_type_solve_get(self);");
10765 }
10766 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 | 0 );
10767 if (!SWIG_IsOK(res1)) {
10768 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_solve_get" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10769 }
10770 arg1 = (gsl_multilarge_linear_type *)(argp1);
10771 result = (int (*)(double const,gsl_vector *,double *,double *,void *)) ((arg1)->solve);
10772 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_q_const__double_p_gsl_vector_p_double_p_double_p_void__int); argvi++ ;
10773
10774 XSRETURN(argvi);
10775 fail:
10776
10777 SWIG_croak_null();
10778 }
10779 }
10780
10781
XS(_wrap_gsl_multilarge_linear_type_rcond_set)10782 XS(_wrap_gsl_multilarge_linear_type_rcond_set) {
10783 {
10784 gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10785 int (*arg2)(double *,void *) = (int (*)(double *,void *)) 0 ;
10786 void *argp1 = 0 ;
10787 int res1 = 0 ;
10788 int argvi = 0;
10789 dXSARGS;
10790
10791 if ((items < 2) || (items > 2)) {
10792 SWIG_croak("Usage: gsl_multilarge_linear_type_rcond_set(self,rcond);");
10793 }
10794 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 | 0 );
10795 if (!SWIG_IsOK(res1)) {
10796 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_rcond_set" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10797 }
10798 arg1 = (gsl_multilarge_linear_type *)(argp1);
10799 {
10800 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_double_p_void__int);
10801 if (!SWIG_IsOK(res)) {
10802 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multilarge_linear_type_rcond_set" "', argument " "2"" of type '" "int (*)(double *,void *)""'");
10803 }
10804 }
10805 if (arg1) (arg1)->rcond = arg2;
10806 ST(argvi) = &PL_sv_undef;
10807
10808
10809 XSRETURN(argvi);
10810 fail:
10811
10812
10813 SWIG_croak_null();
10814 }
10815 }
10816
10817
XS(_wrap_gsl_multilarge_linear_type_rcond_get)10818 XS(_wrap_gsl_multilarge_linear_type_rcond_get) {
10819 {
10820 gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10821 void *argp1 = 0 ;
10822 int res1 = 0 ;
10823 int argvi = 0;
10824 int (*result)(double *,void *) = 0 ;
10825 dXSARGS;
10826
10827 if ((items < 1) || (items > 1)) {
10828 SWIG_croak("Usage: gsl_multilarge_linear_type_rcond_get(self);");
10829 }
10830 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 | 0 );
10831 if (!SWIG_IsOK(res1)) {
10832 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_rcond_get" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10833 }
10834 arg1 = (gsl_multilarge_linear_type *)(argp1);
10835 result = (int (*)(double *,void *)) ((arg1)->rcond);
10836 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_double_p_void__int); argvi++ ;
10837
10838 XSRETURN(argvi);
10839 fail:
10840
10841 SWIG_croak_null();
10842 }
10843 }
10844
10845
XS(_wrap_gsl_multilarge_linear_type_lcurve_set)10846 XS(_wrap_gsl_multilarge_linear_type_lcurve_set) {
10847 {
10848 gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10849 int (*arg2)(gsl_vector *,gsl_vector *,gsl_vector *,void *) = (int (*)(gsl_vector *,gsl_vector *,gsl_vector *,void *)) 0 ;
10850 void *argp1 = 0 ;
10851 int res1 = 0 ;
10852 int argvi = 0;
10853 dXSARGS;
10854
10855 if ((items < 2) || (items > 2)) {
10856 SWIG_croak("Usage: gsl_multilarge_linear_type_lcurve_set(self,lcurve);");
10857 }
10858 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 | 0 );
10859 if (!SWIG_IsOK(res1)) {
10860 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_lcurve_set" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10861 }
10862 arg1 = (gsl_multilarge_linear_type *)(argp1);
10863 {
10864 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_gsl_vector_p_gsl_vector_p_gsl_vector_p_void__int);
10865 if (!SWIG_IsOK(res)) {
10866 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multilarge_linear_type_lcurve_set" "', argument " "2"" of type '" "int (*)(gsl_vector *,gsl_vector *,gsl_vector *,void *)""'");
10867 }
10868 }
10869 if (arg1) (arg1)->lcurve = arg2;
10870 ST(argvi) = &PL_sv_undef;
10871
10872
10873 XSRETURN(argvi);
10874 fail:
10875
10876
10877 SWIG_croak_null();
10878 }
10879 }
10880
10881
XS(_wrap_gsl_multilarge_linear_type_lcurve_get)10882 XS(_wrap_gsl_multilarge_linear_type_lcurve_get) {
10883 {
10884 gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10885 void *argp1 = 0 ;
10886 int res1 = 0 ;
10887 int argvi = 0;
10888 int (*result)(gsl_vector *,gsl_vector *,gsl_vector *,void *) = 0 ;
10889 dXSARGS;
10890
10891 if ((items < 1) || (items > 1)) {
10892 SWIG_croak("Usage: gsl_multilarge_linear_type_lcurve_get(self);");
10893 }
10894 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 | 0 );
10895 if (!SWIG_IsOK(res1)) {
10896 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_lcurve_get" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10897 }
10898 arg1 = (gsl_multilarge_linear_type *)(argp1);
10899 result = (int (*)(gsl_vector *,gsl_vector *,gsl_vector *,void *)) ((arg1)->lcurve);
10900 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_gsl_vector_p_gsl_vector_p_gsl_vector_p_void__int); argvi++ ;
10901
10902 XSRETURN(argvi);
10903 fail:
10904
10905 SWIG_croak_null();
10906 }
10907 }
10908
10909
XS(_wrap_gsl_multilarge_linear_type_matrix_ptr_set)10910 XS(_wrap_gsl_multilarge_linear_type_matrix_ptr_set) {
10911 {
10912 gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10913 gsl_matrix *(*arg2)(void const *) = (gsl_matrix *(*)(void const *)) 0 ;
10914 void *argp1 = 0 ;
10915 int res1 = 0 ;
10916 int argvi = 0;
10917 dXSARGS;
10918
10919 if ((items < 2) || (items > 2)) {
10920 SWIG_croak("Usage: gsl_multilarge_linear_type_matrix_ptr_set(self,matrix_ptr);");
10921 }
10922 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 | 0 );
10923 if (!SWIG_IsOK(res1)) {
10924 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_matrix_ptr_set" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10925 }
10926 arg1 = (gsl_multilarge_linear_type *)(argp1);
10927 {
10928 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_q_const__void__p_gsl_matrix);
10929 if (!SWIG_IsOK(res)) {
10930 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multilarge_linear_type_matrix_ptr_set" "', argument " "2"" of type '" "gsl_matrix const *(*)(void const *)""'");
10931 }
10932 }
10933 if (arg1) (arg1)->matrix_ptr = (gsl_matrix const *(*)(void const *))arg2;
10934 ST(argvi) = &PL_sv_undef;
10935
10936
10937 XSRETURN(argvi);
10938 fail:
10939
10940
10941 SWIG_croak_null();
10942 }
10943 }
10944
10945
XS(_wrap_gsl_multilarge_linear_type_matrix_ptr_get)10946 XS(_wrap_gsl_multilarge_linear_type_matrix_ptr_get) {
10947 {
10948 gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10949 void *argp1 = 0 ;
10950 int res1 = 0 ;
10951 int argvi = 0;
10952 gsl_matrix *(*result)(void const *) = 0 ;
10953 dXSARGS;
10954
10955 if ((items < 1) || (items > 1)) {
10956 SWIG_croak("Usage: gsl_multilarge_linear_type_matrix_ptr_get(self);");
10957 }
10958 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 | 0 );
10959 if (!SWIG_IsOK(res1)) {
10960 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_matrix_ptr_get" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10961 }
10962 arg1 = (gsl_multilarge_linear_type *)(argp1);
10963 result = (gsl_matrix *(*)(void const *)) ((arg1)->matrix_ptr);
10964 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__void__p_gsl_matrix); argvi++ ;
10965
10966 XSRETURN(argvi);
10967 fail:
10968
10969 SWIG_croak_null();
10970 }
10971 }
10972
10973
XS(_wrap_gsl_multilarge_linear_type_rhs_ptr_set)10974 XS(_wrap_gsl_multilarge_linear_type_rhs_ptr_set) {
10975 {
10976 gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
10977 gsl_vector *(*arg2)(void const *) = (gsl_vector *(*)(void const *)) 0 ;
10978 void *argp1 = 0 ;
10979 int res1 = 0 ;
10980 int argvi = 0;
10981 dXSARGS;
10982
10983 if ((items < 2) || (items > 2)) {
10984 SWIG_croak("Usage: gsl_multilarge_linear_type_rhs_ptr_set(self,rhs_ptr);");
10985 }
10986 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 | 0 );
10987 if (!SWIG_IsOK(res1)) {
10988 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_rhs_ptr_set" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
10989 }
10990 arg1 = (gsl_multilarge_linear_type *)(argp1);
10991 {
10992 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_q_const__void__p_gsl_vector);
10993 if (!SWIG_IsOK(res)) {
10994 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multilarge_linear_type_rhs_ptr_set" "', argument " "2"" of type '" "gsl_vector const *(*)(void const *)""'");
10995 }
10996 }
10997 if (arg1) (arg1)->rhs_ptr = (gsl_vector const *(*)(void const *))arg2;
10998 ST(argvi) = &PL_sv_undef;
10999
11000
11001 XSRETURN(argvi);
11002 fail:
11003
11004
11005 SWIG_croak_null();
11006 }
11007 }
11008
11009
XS(_wrap_gsl_multilarge_linear_type_rhs_ptr_get)11010 XS(_wrap_gsl_multilarge_linear_type_rhs_ptr_get) {
11011 {
11012 gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
11013 void *argp1 = 0 ;
11014 int res1 = 0 ;
11015 int argvi = 0;
11016 gsl_vector *(*result)(void const *) = 0 ;
11017 dXSARGS;
11018
11019 if ((items < 1) || (items > 1)) {
11020 SWIG_croak("Usage: gsl_multilarge_linear_type_rhs_ptr_get(self);");
11021 }
11022 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 | 0 );
11023 if (!SWIG_IsOK(res1)) {
11024 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_rhs_ptr_get" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
11025 }
11026 arg1 = (gsl_multilarge_linear_type *)(argp1);
11027 result = (gsl_vector *(*)(void const *)) ((arg1)->rhs_ptr);
11028 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__void__p_gsl_vector); argvi++ ;
11029
11030 XSRETURN(argvi);
11031 fail:
11032
11033 SWIG_croak_null();
11034 }
11035 }
11036
11037
XS(_wrap_gsl_multilarge_linear_type_free_set)11038 XS(_wrap_gsl_multilarge_linear_type_free_set) {
11039 {
11040 gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
11041 void (*arg2)(void *) = (void (*)(void *)) 0 ;
11042 void *argp1 = 0 ;
11043 int res1 = 0 ;
11044 int argvi = 0;
11045 dXSARGS;
11046
11047 if ((items < 2) || (items > 2)) {
11048 SWIG_croak("Usage: gsl_multilarge_linear_type_free_set(self,free);");
11049 }
11050 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 | 0 );
11051 if (!SWIG_IsOK(res1)) {
11052 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_free_set" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
11053 }
11054 arg1 = (gsl_multilarge_linear_type *)(argp1);
11055 {
11056 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_void__void);
11057 if (!SWIG_IsOK(res)) {
11058 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multilarge_linear_type_free_set" "', argument " "2"" of type '" "void (*)(void *)""'");
11059 }
11060 }
11061 if (arg1) (arg1)->free = arg2;
11062 ST(argvi) = &PL_sv_undef;
11063
11064
11065 XSRETURN(argvi);
11066 fail:
11067
11068
11069 SWIG_croak_null();
11070 }
11071 }
11072
11073
XS(_wrap_gsl_multilarge_linear_type_free_get)11074 XS(_wrap_gsl_multilarge_linear_type_free_get) {
11075 {
11076 gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
11077 void *argp1 = 0 ;
11078 int res1 = 0 ;
11079 int argvi = 0;
11080 void (*result)(void *) = 0 ;
11081 dXSARGS;
11082
11083 if ((items < 1) || (items > 1)) {
11084 SWIG_croak("Usage: gsl_multilarge_linear_type_free_get(self);");
11085 }
11086 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 | 0 );
11087 if (!SWIG_IsOK(res1)) {
11088 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_type_free_get" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
11089 }
11090 arg1 = (gsl_multilarge_linear_type *)(argp1);
11091 result = (void (*)(void *)) ((arg1)->free);
11092 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_void__void); argvi++ ;
11093
11094 XSRETURN(argvi);
11095 fail:
11096
11097 SWIG_croak_null();
11098 }
11099 }
11100
11101
XS(_wrap_new_gsl_multilarge_linear_type)11102 XS(_wrap_new_gsl_multilarge_linear_type) {
11103 {
11104 int argvi = 0;
11105 gsl_multilarge_linear_type *result = 0 ;
11106 dXSARGS;
11107
11108 if ((items < 0) || (items > 0)) {
11109 SWIG_croak("Usage: new_gsl_multilarge_linear_type();");
11110 }
11111 result = (gsl_multilarge_linear_type *)calloc(1, sizeof(gsl_multilarge_linear_type));
11112 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multilarge_linear_type, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
11113 XSRETURN(argvi);
11114 fail:
11115 SWIG_croak_null();
11116 }
11117 }
11118
11119
XS(_wrap_delete_gsl_multilarge_linear_type)11120 XS(_wrap_delete_gsl_multilarge_linear_type) {
11121 {
11122 gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
11123 void *argp1 = 0 ;
11124 int res1 = 0 ;
11125 int argvi = 0;
11126 dXSARGS;
11127
11128 if ((items < 1) || (items > 1)) {
11129 SWIG_croak("Usage: delete_gsl_multilarge_linear_type(self);");
11130 }
11131 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, SWIG_POINTER_DISOWN | 0 );
11132 if (!SWIG_IsOK(res1)) {
11133 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_multilarge_linear_type" "', argument " "1"" of type '" "gsl_multilarge_linear_type *""'");
11134 }
11135 arg1 = (gsl_multilarge_linear_type *)(argp1);
11136 free((char *) arg1);
11137 ST(argvi) = &PL_sv_undef;
11138
11139 XSRETURN(argvi);
11140 fail:
11141
11142 SWIG_croak_null();
11143 }
11144 }
11145
11146
XS(_wrap_gsl_multilarge_linear_workspace_type_set)11147 XS(_wrap_gsl_multilarge_linear_workspace_type_set) {
11148 {
11149 gsl_multilarge_linear_workspace *arg1 = (gsl_multilarge_linear_workspace *) 0 ;
11150 gsl_multilarge_linear_type *arg2 = (gsl_multilarge_linear_type *) 0 ;
11151 void *argp1 = 0 ;
11152 int res1 = 0 ;
11153 void *argp2 = 0 ;
11154 int res2 = 0 ;
11155 int argvi = 0;
11156 dXSARGS;
11157
11158 if ((items < 2) || (items > 2)) {
11159 SWIG_croak("Usage: gsl_multilarge_linear_workspace_type_set(self,type);");
11160 }
11161 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 | 0 );
11162 if (!SWIG_IsOK(res1)) {
11163 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_workspace_type_set" "', argument " "1"" of type '" "gsl_multilarge_linear_workspace *""'");
11164 }
11165 arg1 = (gsl_multilarge_linear_workspace *)(argp1);
11166 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multilarge_linear_type, SWIG_POINTER_DISOWN | 0 );
11167 if (!SWIG_IsOK(res2)) {
11168 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multilarge_linear_workspace_type_set" "', argument " "2"" of type '" "gsl_multilarge_linear_type const *""'");
11169 }
11170 arg2 = (gsl_multilarge_linear_type *)(argp2);
11171 if (arg1) (arg1)->type = (gsl_multilarge_linear_type const *)arg2;
11172 ST(argvi) = &PL_sv_undef;
11173
11174
11175 XSRETURN(argvi);
11176 fail:
11177
11178
11179 SWIG_croak_null();
11180 }
11181 }
11182
11183
XS(_wrap_gsl_multilarge_linear_workspace_type_get)11184 XS(_wrap_gsl_multilarge_linear_workspace_type_get) {
11185 {
11186 gsl_multilarge_linear_workspace *arg1 = (gsl_multilarge_linear_workspace *) 0 ;
11187 void *argp1 = 0 ;
11188 int res1 = 0 ;
11189 int argvi = 0;
11190 gsl_multilarge_linear_type *result = 0 ;
11191 dXSARGS;
11192
11193 if ((items < 1) || (items > 1)) {
11194 SWIG_croak("Usage: gsl_multilarge_linear_workspace_type_get(self);");
11195 }
11196 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 | 0 );
11197 if (!SWIG_IsOK(res1)) {
11198 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_workspace_type_get" "', argument " "1"" of type '" "gsl_multilarge_linear_workspace *""'");
11199 }
11200 arg1 = (gsl_multilarge_linear_workspace *)(argp1);
11201 result = (gsl_multilarge_linear_type *) ((arg1)->type);
11202 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multilarge_linear_type, 0 | SWIG_SHADOW); argvi++ ;
11203
11204 XSRETURN(argvi);
11205 fail:
11206
11207 SWIG_croak_null();
11208 }
11209 }
11210
11211
XS(_wrap_gsl_multilarge_linear_workspace_state_set)11212 XS(_wrap_gsl_multilarge_linear_workspace_state_set) {
11213 {
11214 gsl_multilarge_linear_workspace *arg1 = (gsl_multilarge_linear_workspace *) 0 ;
11215 void *arg2 = (void *) 0 ;
11216 void *argp1 = 0 ;
11217 int res1 = 0 ;
11218 int res2 ;
11219 int argvi = 0;
11220 dXSARGS;
11221
11222 if ((items < 2) || (items > 2)) {
11223 SWIG_croak("Usage: gsl_multilarge_linear_workspace_state_set(self,state);");
11224 }
11225 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 | 0 );
11226 if (!SWIG_IsOK(res1)) {
11227 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_workspace_state_set" "', argument " "1"" of type '" "gsl_multilarge_linear_workspace *""'");
11228 }
11229 arg1 = (gsl_multilarge_linear_workspace *)(argp1);
11230 res2 = SWIG_ConvertPtr(ST(1),SWIG_as_voidptrptr(&arg2), 0, SWIG_POINTER_DISOWN);
11231 if (!SWIG_IsOK(res2)) {
11232 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multilarge_linear_workspace_state_set" "', argument " "2"" of type '" "void *""'");
11233 }
11234 if (arg1) (arg1)->state = arg2;
11235 ST(argvi) = &PL_sv_undef;
11236
11237
11238 XSRETURN(argvi);
11239 fail:
11240
11241
11242 SWIG_croak_null();
11243 }
11244 }
11245
11246
XS(_wrap_gsl_multilarge_linear_workspace_state_get)11247 XS(_wrap_gsl_multilarge_linear_workspace_state_get) {
11248 {
11249 gsl_multilarge_linear_workspace *arg1 = (gsl_multilarge_linear_workspace *) 0 ;
11250 void *argp1 = 0 ;
11251 int res1 = 0 ;
11252 int argvi = 0;
11253 void *result = 0 ;
11254 dXSARGS;
11255
11256 if ((items < 1) || (items > 1)) {
11257 SWIG_croak("Usage: gsl_multilarge_linear_workspace_state_get(self);");
11258 }
11259 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 | 0 );
11260 if (!SWIG_IsOK(res1)) {
11261 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_workspace_state_get" "', argument " "1"" of type '" "gsl_multilarge_linear_workspace *""'");
11262 }
11263 arg1 = (gsl_multilarge_linear_workspace *)(argp1);
11264 result = (void *) ((arg1)->state);
11265 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_void, 0 | 0); argvi++ ;
11266
11267 XSRETURN(argvi);
11268 fail:
11269
11270 SWIG_croak_null();
11271 }
11272 }
11273
11274
XS(_wrap_gsl_multilarge_linear_workspace_p_set)11275 XS(_wrap_gsl_multilarge_linear_workspace_p_set) {
11276 {
11277 gsl_multilarge_linear_workspace *arg1 = (gsl_multilarge_linear_workspace *) 0 ;
11278 size_t arg2 ;
11279 void *argp1 = 0 ;
11280 int res1 = 0 ;
11281 size_t val2 ;
11282 int ecode2 = 0 ;
11283 int argvi = 0;
11284 dXSARGS;
11285
11286 if ((items < 2) || (items > 2)) {
11287 SWIG_croak("Usage: gsl_multilarge_linear_workspace_p_set(self,p);");
11288 }
11289 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 | 0 );
11290 if (!SWIG_IsOK(res1)) {
11291 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_workspace_p_set" "', argument " "1"" of type '" "gsl_multilarge_linear_workspace *""'");
11292 }
11293 arg1 = (gsl_multilarge_linear_workspace *)(argp1);
11294 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11295 if (!SWIG_IsOK(ecode2)) {
11296 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multilarge_linear_workspace_p_set" "', argument " "2"" of type '" "size_t""'");
11297 }
11298 arg2 = (size_t)(val2);
11299 if (arg1) (arg1)->p = arg2;
11300 ST(argvi) = &PL_sv_undef;
11301
11302
11303 XSRETURN(argvi);
11304 fail:
11305
11306
11307 SWIG_croak_null();
11308 }
11309 }
11310
11311
XS(_wrap_gsl_multilarge_linear_workspace_p_get)11312 XS(_wrap_gsl_multilarge_linear_workspace_p_get) {
11313 {
11314 gsl_multilarge_linear_workspace *arg1 = (gsl_multilarge_linear_workspace *) 0 ;
11315 void *argp1 = 0 ;
11316 int res1 = 0 ;
11317 int argvi = 0;
11318 size_t result;
11319 dXSARGS;
11320
11321 if ((items < 1) || (items > 1)) {
11322 SWIG_croak("Usage: gsl_multilarge_linear_workspace_p_get(self);");
11323 }
11324 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 | 0 );
11325 if (!SWIG_IsOK(res1)) {
11326 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_workspace_p_get" "', argument " "1"" of type '" "gsl_multilarge_linear_workspace *""'");
11327 }
11328 arg1 = (gsl_multilarge_linear_workspace *)(argp1);
11329 result = ((arg1)->p);
11330 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
11331
11332 XSRETURN(argvi);
11333 fail:
11334
11335 SWIG_croak_null();
11336 }
11337 }
11338
11339
XS(_wrap_new_gsl_multilarge_linear_workspace)11340 XS(_wrap_new_gsl_multilarge_linear_workspace) {
11341 {
11342 int argvi = 0;
11343 gsl_multilarge_linear_workspace *result = 0 ;
11344 dXSARGS;
11345
11346 if ((items < 0) || (items > 0)) {
11347 SWIG_croak("Usage: new_gsl_multilarge_linear_workspace();");
11348 }
11349 result = (gsl_multilarge_linear_workspace *)calloc(1, sizeof(gsl_multilarge_linear_workspace));
11350 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multilarge_linear_workspace, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
11351 XSRETURN(argvi);
11352 fail:
11353 SWIG_croak_null();
11354 }
11355 }
11356
11357
XS(_wrap_delete_gsl_multilarge_linear_workspace)11358 XS(_wrap_delete_gsl_multilarge_linear_workspace) {
11359 {
11360 gsl_multilarge_linear_workspace *arg1 = (gsl_multilarge_linear_workspace *) 0 ;
11361 void *argp1 = 0 ;
11362 int res1 = 0 ;
11363 int argvi = 0;
11364 dXSARGS;
11365
11366 if ((items < 1) || (items > 1)) {
11367 SWIG_croak("Usage: delete_gsl_multilarge_linear_workspace(self);");
11368 }
11369 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_workspace, SWIG_POINTER_DISOWN | 0 );
11370 if (!SWIG_IsOK(res1)) {
11371 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_multilarge_linear_workspace" "', argument " "1"" of type '" "gsl_multilarge_linear_workspace *""'");
11372 }
11373 arg1 = (gsl_multilarge_linear_workspace *)(argp1);
11374 free((char *) arg1);
11375 ST(argvi) = &PL_sv_undef;
11376
11377 XSRETURN(argvi);
11378 fail:
11379
11380 SWIG_croak_null();
11381 }
11382 }
11383
11384
XS(_wrap_gsl_multilarge_linear_alloc)11385 XS(_wrap_gsl_multilarge_linear_alloc) {
11386 {
11387 gsl_multilarge_linear_type *arg1 = (gsl_multilarge_linear_type *) 0 ;
11388 size_t arg2 ;
11389 void *argp1 = 0 ;
11390 int res1 = 0 ;
11391 size_t val2 ;
11392 int ecode2 = 0 ;
11393 int argvi = 0;
11394 gsl_multilarge_linear_workspace *result = 0 ;
11395 dXSARGS;
11396
11397 if ((items < 2) || (items > 2)) {
11398 SWIG_croak("Usage: gsl_multilarge_linear_alloc(T,p);");
11399 }
11400 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_type, 0 | 0 );
11401 if (!SWIG_IsOK(res1)) {
11402 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_alloc" "', argument " "1"" of type '" "gsl_multilarge_linear_type const *""'");
11403 }
11404 arg1 = (gsl_multilarge_linear_type *)(argp1);
11405 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11406 if (!SWIG_IsOK(ecode2)) {
11407 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multilarge_linear_alloc" "', argument " "2"" of type '" "size_t""'");
11408 }
11409 arg2 = (size_t)(val2);
11410 result = (gsl_multilarge_linear_workspace *)gsl_multilarge_linear_alloc((gsl_multilarge_linear_type const *)arg1,arg2);
11411 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 | SWIG_SHADOW); argvi++ ;
11412
11413
11414 XSRETURN(argvi);
11415 fail:
11416
11417
11418 SWIG_croak_null();
11419 }
11420 }
11421
11422
XS(_wrap_gsl_multilarge_linear_free)11423 XS(_wrap_gsl_multilarge_linear_free) {
11424 {
11425 gsl_multilarge_linear_workspace *arg1 = (gsl_multilarge_linear_workspace *) 0 ;
11426 void *argp1 = 0 ;
11427 int res1 = 0 ;
11428 int argvi = 0;
11429 dXSARGS;
11430
11431 if ((items < 1) || (items > 1)) {
11432 SWIG_croak("Usage: gsl_multilarge_linear_free(w);");
11433 }
11434 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 | 0 );
11435 if (!SWIG_IsOK(res1)) {
11436 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_free" "', argument " "1"" of type '" "gsl_multilarge_linear_workspace *""'");
11437 }
11438 arg1 = (gsl_multilarge_linear_workspace *)(argp1);
11439 gsl_multilarge_linear_free(arg1);
11440 ST(argvi) = &PL_sv_undef;
11441
11442 XSRETURN(argvi);
11443 fail:
11444
11445 SWIG_croak_null();
11446 }
11447 }
11448
11449
XS(_wrap_gsl_multilarge_linear_name)11450 XS(_wrap_gsl_multilarge_linear_name) {
11451 {
11452 gsl_multilarge_linear_workspace *arg1 = (gsl_multilarge_linear_workspace *) 0 ;
11453 void *argp1 = 0 ;
11454 int res1 = 0 ;
11455 int argvi = 0;
11456 char *result = 0 ;
11457 dXSARGS;
11458
11459 if ((items < 1) || (items > 1)) {
11460 SWIG_croak("Usage: gsl_multilarge_linear_name(w);");
11461 }
11462 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 | 0 );
11463 if (!SWIG_IsOK(res1)) {
11464 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_name" "', argument " "1"" of type '" "gsl_multilarge_linear_workspace const *""'");
11465 }
11466 arg1 = (gsl_multilarge_linear_workspace *)(argp1);
11467 result = (char *)gsl_multilarge_linear_name((gsl_multilarge_linear_workspace const *)arg1);
11468 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
11469
11470 XSRETURN(argvi);
11471 fail:
11472
11473 SWIG_croak_null();
11474 }
11475 }
11476
11477
XS(_wrap_gsl_multilarge_linear_reset)11478 XS(_wrap_gsl_multilarge_linear_reset) {
11479 {
11480 gsl_multilarge_linear_workspace *arg1 = (gsl_multilarge_linear_workspace *) 0 ;
11481 void *argp1 = 0 ;
11482 int res1 = 0 ;
11483 int argvi = 0;
11484 int result;
11485 dXSARGS;
11486
11487 if ((items < 1) || (items > 1)) {
11488 SWIG_croak("Usage: gsl_multilarge_linear_reset(w);");
11489 }
11490 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 | 0 );
11491 if (!SWIG_IsOK(res1)) {
11492 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_reset" "', argument " "1"" of type '" "gsl_multilarge_linear_workspace *""'");
11493 }
11494 arg1 = (gsl_multilarge_linear_workspace *)(argp1);
11495 result = (int)gsl_multilarge_linear_reset(arg1);
11496 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11497
11498 XSRETURN(argvi);
11499 fail:
11500
11501 SWIG_croak_null();
11502 }
11503 }
11504
11505
XS(_wrap_gsl_multilarge_linear_accumulate)11506 XS(_wrap_gsl_multilarge_linear_accumulate) {
11507 {
11508 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11509 gsl_vector *arg2 = (gsl_vector *) 0 ;
11510 gsl_multilarge_linear_workspace *arg3 = (gsl_multilarge_linear_workspace *) 0 ;
11511 void *argp1 = 0 ;
11512 int res1 = 0 ;
11513 void *argp2 = 0 ;
11514 int res2 = 0 ;
11515 void *argp3 = 0 ;
11516 int res3 = 0 ;
11517 int argvi = 0;
11518 int result;
11519 dXSARGS;
11520
11521 if ((items < 3) || (items > 3)) {
11522 SWIG_croak("Usage: gsl_multilarge_linear_accumulate(X,y,w);");
11523 }
11524 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11525 if (!SWIG_IsOK(res1)) {
11526 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_accumulate" "', argument " "1"" of type '" "gsl_matrix *""'");
11527 }
11528 arg1 = (gsl_matrix *)(argp1);
11529 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
11530 if (!SWIG_IsOK(res2)) {
11531 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multilarge_linear_accumulate" "', argument " "2"" of type '" "gsl_vector *""'");
11532 }
11533 arg2 = (gsl_vector *)(argp2);
11534 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 | 0 );
11535 if (!SWIG_IsOK(res3)) {
11536 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multilarge_linear_accumulate" "', argument " "3"" of type '" "gsl_multilarge_linear_workspace *""'");
11537 }
11538 arg3 = (gsl_multilarge_linear_workspace *)(argp3);
11539 result = (int)gsl_multilarge_linear_accumulate(arg1,arg2,arg3);
11540 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11541
11542
11543
11544 XSRETURN(argvi);
11545 fail:
11546
11547
11548
11549 SWIG_croak_null();
11550 }
11551 }
11552
11553
XS(_wrap_gsl_multilarge_linear_solve)11554 XS(_wrap_gsl_multilarge_linear_solve) {
11555 {
11556 double arg1 ;
11557 gsl_vector *arg2 = (gsl_vector *) 0 ;
11558 double *arg3 = (double *) 0 ;
11559 double *arg4 = (double *) 0 ;
11560 gsl_multilarge_linear_workspace *arg5 = (gsl_multilarge_linear_workspace *) 0 ;
11561 double val1 ;
11562 int ecode1 = 0 ;
11563 void *argp2 = 0 ;
11564 int res2 = 0 ;
11565 double temp3 ;
11566 int res3 = SWIG_TMPOBJ ;
11567 double temp4 ;
11568 int res4 = SWIG_TMPOBJ ;
11569 void *argp5 = 0 ;
11570 int res5 = 0 ;
11571 int argvi = 0;
11572 int result;
11573 dXSARGS;
11574
11575 arg3 = &temp3;
11576 arg4 = &temp4;
11577 if ((items < 3) || (items > 3)) {
11578 SWIG_croak("Usage: gsl_multilarge_linear_solve(lambda,c,w);");
11579 }
11580 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
11581 if (!SWIG_IsOK(ecode1)) {
11582 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_multilarge_linear_solve" "', argument " "1"" of type '" "double""'");
11583 }
11584 arg1 = (double)(val1);
11585 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
11586 if (!SWIG_IsOK(res2)) {
11587 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multilarge_linear_solve" "', argument " "2"" of type '" "gsl_vector *""'");
11588 }
11589 arg2 = (gsl_vector *)(argp2);
11590 res5 = SWIG_ConvertPtr(ST(2), &argp5,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 | 0 );
11591 if (!SWIG_IsOK(res5)) {
11592 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multilarge_linear_solve" "', argument " "5"" of type '" "gsl_multilarge_linear_workspace *""'");
11593 }
11594 arg5 = (gsl_multilarge_linear_workspace *)(argp5);
11595 result = (int)gsl_multilarge_linear_solve(arg1,arg2,arg3,arg4,arg5);
11596 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11597 if (SWIG_IsTmpObj(res3)) {
11598 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg3)); argvi++ ;
11599 } else {
11600 int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN | 0) : 0;
11601 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_double, new_flags); argvi++ ;
11602 }
11603 if (SWIG_IsTmpObj(res4)) {
11604 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
11605 } else {
11606 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
11607 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags); argvi++ ;
11608 }
11609
11610
11611
11612
11613
11614 XSRETURN(argvi);
11615 fail:
11616
11617
11618
11619
11620
11621 SWIG_croak_null();
11622 }
11623 }
11624
11625
XS(_wrap_gsl_multilarge_linear_rcond)11626 XS(_wrap_gsl_multilarge_linear_rcond) {
11627 {
11628 double *arg1 = (double *) 0 ;
11629 gsl_multilarge_linear_workspace *arg2 = (gsl_multilarge_linear_workspace *) 0 ;
11630 void *argp1 = 0 ;
11631 int res1 = 0 ;
11632 void *argp2 = 0 ;
11633 int res2 = 0 ;
11634 int argvi = 0;
11635 int result;
11636 dXSARGS;
11637
11638 if ((items < 2) || (items > 2)) {
11639 SWIG_croak("Usage: gsl_multilarge_linear_rcond(rcond,w);");
11640 }
11641 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_double, 0 | 0 );
11642 if (!SWIG_IsOK(res1)) {
11643 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_rcond" "', argument " "1"" of type '" "double *""'");
11644 }
11645 arg1 = (double *)(argp1);
11646 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 | 0 );
11647 if (!SWIG_IsOK(res2)) {
11648 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multilarge_linear_rcond" "', argument " "2"" of type '" "gsl_multilarge_linear_workspace *""'");
11649 }
11650 arg2 = (gsl_multilarge_linear_workspace *)(argp2);
11651 result = (int)gsl_multilarge_linear_rcond(arg1,arg2);
11652 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11653
11654
11655 XSRETURN(argvi);
11656 fail:
11657
11658
11659 SWIG_croak_null();
11660 }
11661 }
11662
11663
XS(_wrap_gsl_multilarge_linear_lcurve)11664 XS(_wrap_gsl_multilarge_linear_lcurve) {
11665 {
11666 gsl_vector *arg1 = (gsl_vector *) 0 ;
11667 gsl_vector *arg2 = (gsl_vector *) 0 ;
11668 gsl_vector *arg3 = (gsl_vector *) 0 ;
11669 gsl_multilarge_linear_workspace *arg4 = (gsl_multilarge_linear_workspace *) 0 ;
11670 void *argp1 = 0 ;
11671 int res1 = 0 ;
11672 void *argp2 = 0 ;
11673 int res2 = 0 ;
11674 void *argp3 = 0 ;
11675 int res3 = 0 ;
11676 void *argp4 = 0 ;
11677 int res4 = 0 ;
11678 int argvi = 0;
11679 int result;
11680 dXSARGS;
11681
11682 if ((items < 4) || (items > 4)) {
11683 SWIG_croak("Usage: gsl_multilarge_linear_lcurve(reg_param,rho,eta,w);");
11684 }
11685 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
11686 if (!SWIG_IsOK(res1)) {
11687 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_lcurve" "', argument " "1"" of type '" "gsl_vector *""'");
11688 }
11689 arg1 = (gsl_vector *)(argp1);
11690 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
11691 if (!SWIG_IsOK(res2)) {
11692 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multilarge_linear_lcurve" "', argument " "2"" of type '" "gsl_vector *""'");
11693 }
11694 arg2 = (gsl_vector *)(argp2);
11695 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
11696 if (!SWIG_IsOK(res3)) {
11697 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multilarge_linear_lcurve" "', argument " "3"" of type '" "gsl_vector *""'");
11698 }
11699 arg3 = (gsl_vector *)(argp3);
11700 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 | 0 );
11701 if (!SWIG_IsOK(res4)) {
11702 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multilarge_linear_lcurve" "', argument " "4"" of type '" "gsl_multilarge_linear_workspace *""'");
11703 }
11704 arg4 = (gsl_multilarge_linear_workspace *)(argp4);
11705 result = (int)gsl_multilarge_linear_lcurve(arg1,arg2,arg3,arg4);
11706 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11707
11708
11709
11710
11711 XSRETURN(argvi);
11712 fail:
11713
11714
11715
11716
11717 SWIG_croak_null();
11718 }
11719 }
11720
11721
XS(_wrap_gsl_multilarge_linear_wstdform1)11722 XS(_wrap_gsl_multilarge_linear_wstdform1) {
11723 {
11724 gsl_vector *arg1 = (gsl_vector *) 0 ;
11725 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
11726 gsl_vector *arg3 = (gsl_vector *) 0 ;
11727 gsl_vector *arg4 = (gsl_vector *) 0 ;
11728 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
11729 gsl_vector *arg6 = (gsl_vector *) 0 ;
11730 gsl_multilarge_linear_workspace *arg7 = (gsl_multilarge_linear_workspace *) 0 ;
11731 void *argp1 = 0 ;
11732 int res1 = 0 ;
11733 void *argp2 = 0 ;
11734 int res2 = 0 ;
11735 void *argp3 = 0 ;
11736 int res3 = 0 ;
11737 void *argp4 = 0 ;
11738 int res4 = 0 ;
11739 void *argp5 = 0 ;
11740 int res5 = 0 ;
11741 void *argp6 = 0 ;
11742 int res6 = 0 ;
11743 void *argp7 = 0 ;
11744 int res7 = 0 ;
11745 int argvi = 0;
11746 int result;
11747 dXSARGS;
11748
11749 if ((items < 7) || (items > 7)) {
11750 SWIG_croak("Usage: gsl_multilarge_linear_wstdform1(L,X,w,y,Xs,ys,work);");
11751 }
11752 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
11753 if (!SWIG_IsOK(res1)) {
11754 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_wstdform1" "', argument " "1"" of type '" "gsl_vector const *""'");
11755 }
11756 arg1 = (gsl_vector *)(argp1);
11757 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11758 if (!SWIG_IsOK(res2)) {
11759 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multilarge_linear_wstdform1" "', argument " "2"" of type '" "gsl_matrix const *""'");
11760 }
11761 arg2 = (gsl_matrix *)(argp2);
11762 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
11763 if (!SWIG_IsOK(res3)) {
11764 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multilarge_linear_wstdform1" "', argument " "3"" of type '" "gsl_vector const *""'");
11765 }
11766 arg3 = (gsl_vector *)(argp3);
11767 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
11768 if (!SWIG_IsOK(res4)) {
11769 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multilarge_linear_wstdform1" "', argument " "4"" of type '" "gsl_vector const *""'");
11770 }
11771 arg4 = (gsl_vector *)(argp4);
11772 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11773 if (!SWIG_IsOK(res5)) {
11774 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multilarge_linear_wstdform1" "', argument " "5"" of type '" "gsl_matrix *""'");
11775 }
11776 arg5 = (gsl_matrix *)(argp5);
11777 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
11778 if (!SWIG_IsOK(res6)) {
11779 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multilarge_linear_wstdform1" "', argument " "6"" of type '" "gsl_vector *""'");
11780 }
11781 arg6 = (gsl_vector *)(argp6);
11782 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 | 0 );
11783 if (!SWIG_IsOK(res7)) {
11784 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multilarge_linear_wstdform1" "', argument " "7"" of type '" "gsl_multilarge_linear_workspace *""'");
11785 }
11786 arg7 = (gsl_multilarge_linear_workspace *)(argp7);
11787 result = (int)gsl_multilarge_linear_wstdform1((gsl_vector const *)arg1,(gsl_matrix const *)arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,arg5,arg6,arg7);
11788 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11789
11790
11791
11792
11793
11794
11795
11796 XSRETURN(argvi);
11797 fail:
11798
11799
11800
11801
11802
11803
11804
11805 SWIG_croak_null();
11806 }
11807 }
11808
11809
XS(_wrap_gsl_multilarge_linear_stdform1)11810 XS(_wrap_gsl_multilarge_linear_stdform1) {
11811 {
11812 gsl_vector *arg1 = (gsl_vector *) 0 ;
11813 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
11814 gsl_vector *arg3 = (gsl_vector *) 0 ;
11815 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
11816 gsl_vector *arg5 = (gsl_vector *) 0 ;
11817 gsl_multilarge_linear_workspace *arg6 = (gsl_multilarge_linear_workspace *) 0 ;
11818 void *argp1 = 0 ;
11819 int res1 = 0 ;
11820 void *argp2 = 0 ;
11821 int res2 = 0 ;
11822 void *argp3 = 0 ;
11823 int res3 = 0 ;
11824 void *argp4 = 0 ;
11825 int res4 = 0 ;
11826 void *argp5 = 0 ;
11827 int res5 = 0 ;
11828 void *argp6 = 0 ;
11829 int res6 = 0 ;
11830 int argvi = 0;
11831 int result;
11832 dXSARGS;
11833
11834 if ((items < 6) || (items > 6)) {
11835 SWIG_croak("Usage: gsl_multilarge_linear_stdform1(L,X,y,Xs,ys,work);");
11836 }
11837 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
11838 if (!SWIG_IsOK(res1)) {
11839 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_stdform1" "', argument " "1"" of type '" "gsl_vector const *""'");
11840 }
11841 arg1 = (gsl_vector *)(argp1);
11842 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11843 if (!SWIG_IsOK(res2)) {
11844 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multilarge_linear_stdform1" "', argument " "2"" of type '" "gsl_matrix const *""'");
11845 }
11846 arg2 = (gsl_matrix *)(argp2);
11847 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
11848 if (!SWIG_IsOK(res3)) {
11849 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multilarge_linear_stdform1" "', argument " "3"" of type '" "gsl_vector const *""'");
11850 }
11851 arg3 = (gsl_vector *)(argp3);
11852 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11853 if (!SWIG_IsOK(res4)) {
11854 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multilarge_linear_stdform1" "', argument " "4"" of type '" "gsl_matrix *""'");
11855 }
11856 arg4 = (gsl_matrix *)(argp4);
11857 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
11858 if (!SWIG_IsOK(res5)) {
11859 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multilarge_linear_stdform1" "', argument " "5"" of type '" "gsl_vector *""'");
11860 }
11861 arg5 = (gsl_vector *)(argp5);
11862 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 | 0 );
11863 if (!SWIG_IsOK(res6)) {
11864 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multilarge_linear_stdform1" "', argument " "6"" of type '" "gsl_multilarge_linear_workspace *""'");
11865 }
11866 arg6 = (gsl_multilarge_linear_workspace *)(argp6);
11867 result = (int)gsl_multilarge_linear_stdform1((gsl_vector const *)arg1,(gsl_matrix const *)arg2,(gsl_vector const *)arg3,arg4,arg5,arg6);
11868 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11869
11870
11871
11872
11873
11874
11875 XSRETURN(argvi);
11876 fail:
11877
11878
11879
11880
11881
11882
11883 SWIG_croak_null();
11884 }
11885 }
11886
11887
XS(_wrap_gsl_multilarge_linear_L_decomp)11888 XS(_wrap_gsl_multilarge_linear_L_decomp) {
11889 {
11890 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11891 gsl_vector *arg2 = (gsl_vector *) 0 ;
11892 void *argp1 = 0 ;
11893 int res1 = 0 ;
11894 void *argp2 = 0 ;
11895 int res2 = 0 ;
11896 int argvi = 0;
11897 int result;
11898 dXSARGS;
11899
11900 if ((items < 2) || (items > 2)) {
11901 SWIG_croak("Usage: gsl_multilarge_linear_L_decomp(L,tau);");
11902 }
11903 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11904 if (!SWIG_IsOK(res1)) {
11905 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_L_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
11906 }
11907 arg1 = (gsl_matrix *)(argp1);
11908 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
11909 if (!SWIG_IsOK(res2)) {
11910 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multilarge_linear_L_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
11911 }
11912 arg2 = (gsl_vector *)(argp2);
11913 result = (int)gsl_multilarge_linear_L_decomp(arg1,arg2);
11914 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11915
11916
11917 XSRETURN(argvi);
11918 fail:
11919
11920
11921 SWIG_croak_null();
11922 }
11923 }
11924
11925
XS(_wrap_gsl_multilarge_linear_wstdform2)11926 XS(_wrap_gsl_multilarge_linear_wstdform2) {
11927 {
11928 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
11929 gsl_vector *arg2 = (gsl_vector *) 0 ;
11930 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
11931 gsl_vector *arg4 = (gsl_vector *) 0 ;
11932 gsl_vector *arg5 = (gsl_vector *) 0 ;
11933 gsl_matrix *arg6 = (gsl_matrix *) 0 ;
11934 gsl_vector *arg7 = (gsl_vector *) 0 ;
11935 gsl_multilarge_linear_workspace *arg8 = (gsl_multilarge_linear_workspace *) 0 ;
11936 void *argp1 = 0 ;
11937 int res1 = 0 ;
11938 void *argp2 = 0 ;
11939 int res2 = 0 ;
11940 void *argp3 = 0 ;
11941 int res3 = 0 ;
11942 void *argp4 = 0 ;
11943 int res4 = 0 ;
11944 void *argp5 = 0 ;
11945 int res5 = 0 ;
11946 void *argp6 = 0 ;
11947 int res6 = 0 ;
11948 void *argp7 = 0 ;
11949 int res7 = 0 ;
11950 void *argp8 = 0 ;
11951 int res8 = 0 ;
11952 int argvi = 0;
11953 int result;
11954 dXSARGS;
11955
11956 if ((items < 8) || (items > 8)) {
11957 SWIG_croak("Usage: gsl_multilarge_linear_wstdform2(LQR,Ltau,X,w,y,Xs,ys,work);");
11958 }
11959 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11960 if (!SWIG_IsOK(res1)) {
11961 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_wstdform2" "', argument " "1"" of type '" "gsl_matrix const *""'");
11962 }
11963 arg1 = (gsl_matrix *)(argp1);
11964 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
11965 if (!SWIG_IsOK(res2)) {
11966 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multilarge_linear_wstdform2" "', argument " "2"" of type '" "gsl_vector const *""'");
11967 }
11968 arg2 = (gsl_vector *)(argp2);
11969 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11970 if (!SWIG_IsOK(res3)) {
11971 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multilarge_linear_wstdform2" "', argument " "3"" of type '" "gsl_matrix const *""'");
11972 }
11973 arg3 = (gsl_matrix *)(argp3);
11974 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
11975 if (!SWIG_IsOK(res4)) {
11976 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multilarge_linear_wstdform2" "', argument " "4"" of type '" "gsl_vector const *""'");
11977 }
11978 arg4 = (gsl_vector *)(argp4);
11979 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
11980 if (!SWIG_IsOK(res5)) {
11981 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multilarge_linear_wstdform2" "', argument " "5"" of type '" "gsl_vector const *""'");
11982 }
11983 arg5 = (gsl_vector *)(argp5);
11984 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix, 0 | 0 );
11985 if (!SWIG_IsOK(res6)) {
11986 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multilarge_linear_wstdform2" "', argument " "6"" of type '" "gsl_matrix *""'");
11987 }
11988 arg6 = (gsl_matrix *)(argp6);
11989 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
11990 if (!SWIG_IsOK(res7)) {
11991 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multilarge_linear_wstdform2" "', argument " "7"" of type '" "gsl_vector *""'");
11992 }
11993 arg7 = (gsl_vector *)(argp7);
11994 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 | 0 );
11995 if (!SWIG_IsOK(res8)) {
11996 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_multilarge_linear_wstdform2" "', argument " "8"" of type '" "gsl_multilarge_linear_workspace *""'");
11997 }
11998 arg8 = (gsl_multilarge_linear_workspace *)(argp8);
11999 result = (int)gsl_multilarge_linear_wstdform2((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_matrix const *)arg3,(gsl_vector const *)arg4,(gsl_vector const *)arg5,arg6,arg7,arg8);
12000 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12001
12002
12003
12004
12005
12006
12007
12008
12009 XSRETURN(argvi);
12010 fail:
12011
12012
12013
12014
12015
12016
12017
12018
12019 SWIG_croak_null();
12020 }
12021 }
12022
12023
XS(_wrap_gsl_multilarge_linear_stdform2)12024 XS(_wrap_gsl_multilarge_linear_stdform2) {
12025 {
12026 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
12027 gsl_vector *arg2 = (gsl_vector *) 0 ;
12028 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
12029 gsl_vector *arg4 = (gsl_vector *) 0 ;
12030 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
12031 gsl_vector *arg6 = (gsl_vector *) 0 ;
12032 gsl_multilarge_linear_workspace *arg7 = (gsl_multilarge_linear_workspace *) 0 ;
12033 void *argp1 = 0 ;
12034 int res1 = 0 ;
12035 void *argp2 = 0 ;
12036 int res2 = 0 ;
12037 void *argp3 = 0 ;
12038 int res3 = 0 ;
12039 void *argp4 = 0 ;
12040 int res4 = 0 ;
12041 void *argp5 = 0 ;
12042 int res5 = 0 ;
12043 void *argp6 = 0 ;
12044 int res6 = 0 ;
12045 void *argp7 = 0 ;
12046 int res7 = 0 ;
12047 int argvi = 0;
12048 int result;
12049 dXSARGS;
12050
12051 if ((items < 7) || (items > 7)) {
12052 SWIG_croak("Usage: gsl_multilarge_linear_stdform2(LQR,Ltau,X,y,Xs,ys,work);");
12053 }
12054 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
12055 if (!SWIG_IsOK(res1)) {
12056 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_stdform2" "', argument " "1"" of type '" "gsl_matrix const *""'");
12057 }
12058 arg1 = (gsl_matrix *)(argp1);
12059 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
12060 if (!SWIG_IsOK(res2)) {
12061 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multilarge_linear_stdform2" "', argument " "2"" of type '" "gsl_vector const *""'");
12062 }
12063 arg2 = (gsl_vector *)(argp2);
12064 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
12065 if (!SWIG_IsOK(res3)) {
12066 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multilarge_linear_stdform2" "', argument " "3"" of type '" "gsl_matrix const *""'");
12067 }
12068 arg3 = (gsl_matrix *)(argp3);
12069 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
12070 if (!SWIG_IsOK(res4)) {
12071 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multilarge_linear_stdform2" "', argument " "4"" of type '" "gsl_vector const *""'");
12072 }
12073 arg4 = (gsl_vector *)(argp4);
12074 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
12075 if (!SWIG_IsOK(res5)) {
12076 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multilarge_linear_stdform2" "', argument " "5"" of type '" "gsl_matrix *""'");
12077 }
12078 arg5 = (gsl_matrix *)(argp5);
12079 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
12080 if (!SWIG_IsOK(res6)) {
12081 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multilarge_linear_stdform2" "', argument " "6"" of type '" "gsl_vector *""'");
12082 }
12083 arg6 = (gsl_vector *)(argp6);
12084 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 | 0 );
12085 if (!SWIG_IsOK(res7)) {
12086 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multilarge_linear_stdform2" "', argument " "7"" of type '" "gsl_multilarge_linear_workspace *""'");
12087 }
12088 arg7 = (gsl_multilarge_linear_workspace *)(argp7);
12089 result = (int)gsl_multilarge_linear_stdform2((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_matrix const *)arg3,(gsl_vector const *)arg4,arg5,arg6,arg7);
12090 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12091
12092
12093
12094
12095
12096
12097
12098 XSRETURN(argvi);
12099 fail:
12100
12101
12102
12103
12104
12105
12106
12107 SWIG_croak_null();
12108 }
12109 }
12110
12111
XS(_wrap_gsl_multilarge_linear_genform1)12112 XS(_wrap_gsl_multilarge_linear_genform1) {
12113 {
12114 gsl_vector *arg1 = (gsl_vector *) 0 ;
12115 gsl_vector *arg2 = (gsl_vector *) 0 ;
12116 gsl_vector *arg3 = (gsl_vector *) 0 ;
12117 gsl_multilarge_linear_workspace *arg4 = (gsl_multilarge_linear_workspace *) 0 ;
12118 void *argp1 = 0 ;
12119 int res1 = 0 ;
12120 void *argp2 = 0 ;
12121 int res2 = 0 ;
12122 void *argp3 = 0 ;
12123 int res3 = 0 ;
12124 void *argp4 = 0 ;
12125 int res4 = 0 ;
12126 int argvi = 0;
12127 int result;
12128 dXSARGS;
12129
12130 if ((items < 4) || (items > 4)) {
12131 SWIG_croak("Usage: gsl_multilarge_linear_genform1(L,cs,c,work);");
12132 }
12133 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
12134 if (!SWIG_IsOK(res1)) {
12135 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_genform1" "', argument " "1"" of type '" "gsl_vector const *""'");
12136 }
12137 arg1 = (gsl_vector *)(argp1);
12138 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
12139 if (!SWIG_IsOK(res2)) {
12140 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multilarge_linear_genform1" "', argument " "2"" of type '" "gsl_vector const *""'");
12141 }
12142 arg2 = (gsl_vector *)(argp2);
12143 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
12144 if (!SWIG_IsOK(res3)) {
12145 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multilarge_linear_genform1" "', argument " "3"" of type '" "gsl_vector *""'");
12146 }
12147 arg3 = (gsl_vector *)(argp3);
12148 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 | 0 );
12149 if (!SWIG_IsOK(res4)) {
12150 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multilarge_linear_genform1" "', argument " "4"" of type '" "gsl_multilarge_linear_workspace *""'");
12151 }
12152 arg4 = (gsl_multilarge_linear_workspace *)(argp4);
12153 result = (int)gsl_multilarge_linear_genform1((gsl_vector const *)arg1,(gsl_vector const *)arg2,arg3,arg4);
12154 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12155
12156
12157
12158
12159 XSRETURN(argvi);
12160 fail:
12161
12162
12163
12164
12165 SWIG_croak_null();
12166 }
12167 }
12168
12169
XS(_wrap_gsl_multilarge_linear_genform2)12170 XS(_wrap_gsl_multilarge_linear_genform2) {
12171 {
12172 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
12173 gsl_vector *arg2 = (gsl_vector *) 0 ;
12174 gsl_vector *arg3 = (gsl_vector *) 0 ;
12175 gsl_vector *arg4 = (gsl_vector *) 0 ;
12176 gsl_multilarge_linear_workspace *arg5 = (gsl_multilarge_linear_workspace *) 0 ;
12177 void *argp1 = 0 ;
12178 int res1 = 0 ;
12179 void *argp2 = 0 ;
12180 int res2 = 0 ;
12181 void *argp3 = 0 ;
12182 int res3 = 0 ;
12183 void *argp4 = 0 ;
12184 int res4 = 0 ;
12185 void *argp5 = 0 ;
12186 int res5 = 0 ;
12187 int argvi = 0;
12188 int result;
12189 dXSARGS;
12190
12191 if ((items < 5) || (items > 5)) {
12192 SWIG_croak("Usage: gsl_multilarge_linear_genform2(LQR,Ltau,cs,c,work);");
12193 }
12194 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
12195 if (!SWIG_IsOK(res1)) {
12196 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_genform2" "', argument " "1"" of type '" "gsl_matrix const *""'");
12197 }
12198 arg1 = (gsl_matrix *)(argp1);
12199 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
12200 if (!SWIG_IsOK(res2)) {
12201 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multilarge_linear_genform2" "', argument " "2"" of type '" "gsl_vector const *""'");
12202 }
12203 arg2 = (gsl_vector *)(argp2);
12204 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
12205 if (!SWIG_IsOK(res3)) {
12206 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multilarge_linear_genform2" "', argument " "3"" of type '" "gsl_vector const *""'");
12207 }
12208 arg3 = (gsl_vector *)(argp3);
12209 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
12210 if (!SWIG_IsOK(res4)) {
12211 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multilarge_linear_genform2" "', argument " "4"" of type '" "gsl_vector *""'");
12212 }
12213 arg4 = (gsl_vector *)(argp4);
12214 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 | 0 );
12215 if (!SWIG_IsOK(res5)) {
12216 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multilarge_linear_genform2" "', argument " "5"" of type '" "gsl_multilarge_linear_workspace *""'");
12217 }
12218 arg5 = (gsl_multilarge_linear_workspace *)(argp5);
12219 result = (int)gsl_multilarge_linear_genform2((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5);
12220 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
12221
12222
12223
12224
12225
12226 XSRETURN(argvi);
12227 fail:
12228
12229
12230
12231
12232
12233 SWIG_croak_null();
12234 }
12235 }
12236
12237
XS(_wrap_gsl_multilarge_linear_matrix_ptr)12238 XS(_wrap_gsl_multilarge_linear_matrix_ptr) {
12239 {
12240 gsl_multilarge_linear_workspace *arg1 = (gsl_multilarge_linear_workspace *) 0 ;
12241 void *argp1 = 0 ;
12242 int res1 = 0 ;
12243 int argvi = 0;
12244 gsl_matrix *result = 0 ;
12245 dXSARGS;
12246
12247 if ((items < 1) || (items > 1)) {
12248 SWIG_croak("Usage: gsl_multilarge_linear_matrix_ptr(work);");
12249 }
12250 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 | 0 );
12251 if (!SWIG_IsOK(res1)) {
12252 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_matrix_ptr" "', argument " "1"" of type '" "gsl_multilarge_linear_workspace const *""'");
12253 }
12254 arg1 = (gsl_multilarge_linear_workspace *)(argp1);
12255 result = (gsl_matrix *)gsl_multilarge_linear_matrix_ptr((gsl_multilarge_linear_workspace const *)arg1);
12256 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_matrix, 0 | 0); argvi++ ;
12257
12258 XSRETURN(argvi);
12259 fail:
12260
12261 SWIG_croak_null();
12262 }
12263 }
12264
12265
XS(_wrap_gsl_multilarge_linear_rhs_ptr)12266 XS(_wrap_gsl_multilarge_linear_rhs_ptr) {
12267 {
12268 gsl_multilarge_linear_workspace *arg1 = (gsl_multilarge_linear_workspace *) 0 ;
12269 void *argp1 = 0 ;
12270 int res1 = 0 ;
12271 int argvi = 0;
12272 gsl_vector *result = 0 ;
12273 dXSARGS;
12274
12275 if ((items < 1) || (items > 1)) {
12276 SWIG_croak("Usage: gsl_multilarge_linear_rhs_ptr(work);");
12277 }
12278 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multilarge_linear_workspace, 0 | 0 );
12279 if (!SWIG_IsOK(res1)) {
12280 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multilarge_linear_rhs_ptr" "', argument " "1"" of type '" "gsl_multilarge_linear_workspace const *""'");
12281 }
12282 arg1 = (gsl_multilarge_linear_workspace *)(argp1);
12283 result = (gsl_vector *)gsl_multilarge_linear_rhs_ptr((gsl_multilarge_linear_workspace const *)arg1);
12284 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
12285
12286 XSRETURN(argvi);
12287 fail:
12288
12289 SWIG_croak_null();
12290 }
12291 }
12292
12293
12294
12295 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */
12296
12297 static swig_type_info _swigt__p_FILE = {"_p_FILE", "FILE *", 0, 0, (void*)0, 0};
12298 static swig_type_info _swigt__p_char = {"_p_char", "char *", 0, 0, (void*)0, 0};
12299 static swig_type_info _swigt__p_double = {"_p_double", "double *", 0, 0, (void*)0, 0};
12300 static swig_type_info _swigt__p_f_double_a___double_p_void__int = {"_p_f_double_a___double_p_void__int", "int (*)(double,double [],void *)", 0, 0, (void*)0, 0};
12301 static swig_type_info _swigt__p_f_double_p_void__double = {"_p_f_double_p_void__double", "double (*)(double,void *)", 0, 0, (void*)0, 0};
12302 static swig_type_info _swigt__p_f_double_p_void_p_double_p_double__void = {"_p_f_double_p_void_p_double_p_double__void", "void (*)(double,void *,double *,double *)", 0, 0, (void*)0, 0};
12303 static swig_type_info _swigt__p_f_p_double_p_void__int = {"_p_f_p_double_p_void__int", "int (*)(double *,void *)", 0, 0, (void*)0, 0};
12304 static swig_type_info _swigt__p_f_p_gsl_matrix_p_gsl_vector_p_void__int = {"_p_f_p_gsl_matrix_p_gsl_vector_p_void__int", "int (*)(gsl_matrix *,gsl_vector *,void *)", 0, 0, (void*)0, 0};
12305 static swig_type_info _swigt__p_f_p_gsl_vector_p_gsl_vector_p_gsl_vector_p_void__int = {"_p_f_p_gsl_vector_p_gsl_vector_p_gsl_vector_p_void__int", "int (*)(gsl_vector *,gsl_vector *,gsl_vector *,void *)", 0, 0, (void*)0, 0};
12306 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};
12307 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};
12308 static swig_type_info _swigt__p_f_p_q_const__gsl_vector_p_gsl_vector__int = {"_p_f_p_q_const__gsl_vector_p_gsl_vector__int", "int (*)(gsl_vector const *,gsl_vector *)", 0, 0, (void*)0, 0};
12309 static swig_type_info _swigt__p_f_p_q_const__void__p_gsl_matrix = {"_p_f_p_q_const__void__p_gsl_matrix", "gsl_matrix *(*)(void const *)", 0, 0, (void*)0, 0};
12310 static swig_type_info _swigt__p_f_p_q_const__void__p_gsl_vector = {"_p_f_p_q_const__void__p_gsl_vector", "gsl_vector *(*)(void const *)", 0, 0, (void*)0, 0};
12311 static swig_type_info _swigt__p_f_p_void__int = {"_p_f_p_void__int", "int (*)(void *)", 0, 0, (void*)0, 0};
12312 static swig_type_info _swigt__p_f_p_void__void = {"_p_f_p_void__void", "void (*)(void *)", 0, 0, (void*)0, 0};
12313 static swig_type_info _swigt__p_f_q_const__double_p_gsl_vector_p_double_p_double_p_void__int = {"_p_f_q_const__double_p_gsl_vector_p_double_p_double_p_void__int", "int (*)(double const,gsl_vector *,double *,double *,void *)", 0, 0, (void*)0, 0};
12314 static swig_type_info _swigt__p_f_q_const__size_t__p_void = {"_p_f_q_const__size_t__p_void", "void *(*)(size_t const)", 0, 0, (void*)0, 0};
12315 static swig_type_info _swigt__p_gsl_function_fdf_struct = {"_p_gsl_function_fdf_struct", "struct gsl_function_fdf_struct *|gsl_function_fdf_struct *|gsl_function_fdf *", 0, 0, (void*)"Math::GSL::Multilarge::gsl_function_fdf_struct", 0};
12316 static swig_type_info _swigt__p_gsl_function_struct = {"_p_gsl_function_struct", "gsl_function *|struct gsl_function_struct *|gsl_function_struct *", 0, 0, (void*)"Math::GSL::Multilarge::gsl_function_struct", 0};
12317 static swig_type_info _swigt__p_gsl_function_vec_struct = {"_p_gsl_function_vec_struct", "gsl_function_vec *|struct gsl_function_vec_struct *|gsl_function_vec_struct *", 0, 0, (void*)"Math::GSL::Multilarge::gsl_function_vec_struct", 0};
12318 static swig_type_info _swigt__p_gsl_matrix = {"_p_gsl_matrix", "gsl_matrix *", 0, 0, (void*)0, 0};
12319 static swig_type_info _swigt__p_gsl_multifit_linear_workspace = {"_p_gsl_multifit_linear_workspace", "gsl_multifit_linear_workspace *", 0, 0, (void*)"Math::GSL::Multilarge::gsl_multifit_linear_workspace", 0};
12320 static swig_type_info _swigt__p_gsl_multifit_robust_stats = {"_p_gsl_multifit_robust_stats", "gsl_multifit_robust_stats *", 0, 0, (void*)"Math::GSL::Multilarge::gsl_multifit_robust_stats", 0};
12321 static swig_type_info _swigt__p_gsl_multifit_robust_type = {"_p_gsl_multifit_robust_type", "gsl_multifit_robust_type *", 0, 0, (void*)"Math::GSL::Multilarge::gsl_multifit_robust_type", 0};
12322 static swig_type_info _swigt__p_gsl_multifit_robust_workspace = {"_p_gsl_multifit_robust_workspace", "gsl_multifit_robust_workspace *", 0, 0, (void*)"Math::GSL::Multilarge::gsl_multifit_robust_workspace", 0};
12323 static swig_type_info _swigt__p_gsl_multilarge_linear_type = {"_p_gsl_multilarge_linear_type", "gsl_multilarge_linear_type *", 0, 0, (void*)"Math::GSL::Multilarge::gsl_multilarge_linear_type", 0};
12324 static swig_type_info _swigt__p_gsl_multilarge_linear_workspace = {"_p_gsl_multilarge_linear_workspace", "gsl_multilarge_linear_workspace *", 0, 0, (void*)"Math::GSL::Multilarge::gsl_multilarge_linear_workspace", 0};
12325 static swig_type_info _swigt__p_gsl_permutation_struct = {"_p_gsl_permutation_struct", "gsl_permutation *|struct gsl_permutation_struct *|gsl_permutation_struct *", 0, 0, (void*)"Math::GSL::Multilarge::gsl_permutation_struct", 0};
12326 static swig_type_info _swigt__p_gsl_vector = {"_p_gsl_vector", "gsl_vector *", 0, 0, (void*)0, 0};
12327 static swig_type_info _swigt__p_size_t = {"_p_size_t", "size_t *", 0, 0, (void*)0, 0};
12328 static swig_type_info _swigt__p_void = {"_p_void", "void *", 0, 0, (void*)0, 0};
12329
12330 static swig_type_info *swig_type_initial[] = {
12331 &_swigt__p_FILE,
12332 &_swigt__p_char,
12333 &_swigt__p_double,
12334 &_swigt__p_f_double_a___double_p_void__int,
12335 &_swigt__p_f_double_p_void__double,
12336 &_swigt__p_f_double_p_void_p_double_p_double__void,
12337 &_swigt__p_f_p_double_p_void__int,
12338 &_swigt__p_f_p_gsl_matrix_p_gsl_vector_p_void__int,
12339 &_swigt__p_f_p_gsl_vector_p_gsl_vector_p_gsl_vector_p_void__int,
12340 &_swigt__p_f_p_q_const__char_p_q_const__char_int_int__void,
12341 &_swigt__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
12342 &_swigt__p_f_p_q_const__gsl_vector_p_gsl_vector__int,
12343 &_swigt__p_f_p_q_const__void__p_gsl_matrix,
12344 &_swigt__p_f_p_q_const__void__p_gsl_vector,
12345 &_swigt__p_f_p_void__int,
12346 &_swigt__p_f_p_void__void,
12347 &_swigt__p_f_q_const__double_p_gsl_vector_p_double_p_double_p_void__int,
12348 &_swigt__p_f_q_const__size_t__p_void,
12349 &_swigt__p_gsl_function_fdf_struct,
12350 &_swigt__p_gsl_function_struct,
12351 &_swigt__p_gsl_function_vec_struct,
12352 &_swigt__p_gsl_matrix,
12353 &_swigt__p_gsl_multifit_linear_workspace,
12354 &_swigt__p_gsl_multifit_robust_stats,
12355 &_swigt__p_gsl_multifit_robust_type,
12356 &_swigt__p_gsl_multifit_robust_workspace,
12357 &_swigt__p_gsl_multilarge_linear_type,
12358 &_swigt__p_gsl_multilarge_linear_workspace,
12359 &_swigt__p_gsl_permutation_struct,
12360 &_swigt__p_gsl_vector,
12361 &_swigt__p_size_t,
12362 &_swigt__p_void,
12363 };
12364
12365 static swig_cast_info _swigc__p_FILE[] = { {&_swigt__p_FILE, 0, 0, 0},{0, 0, 0, 0}};
12366 static swig_cast_info _swigc__p_char[] = { {&_swigt__p_char, 0, 0, 0},{0, 0, 0, 0}};
12367 static swig_cast_info _swigc__p_double[] = { {&_swigt__p_double, 0, 0, 0},{0, 0, 0, 0}};
12368 static swig_cast_info _swigc__p_f_double_a___double_p_void__int[] = { {&_swigt__p_f_double_a___double_p_void__int, 0, 0, 0},{0, 0, 0, 0}};
12369 static swig_cast_info _swigc__p_f_double_p_void__double[] = { {&_swigt__p_f_double_p_void__double, 0, 0, 0},{0, 0, 0, 0}};
12370 static swig_cast_info _swigc__p_f_double_p_void_p_double_p_double__void[] = { {&_swigt__p_f_double_p_void_p_double_p_double__void, 0, 0, 0},{0, 0, 0, 0}};
12371 static swig_cast_info _swigc__p_f_p_double_p_void__int[] = { {&_swigt__p_f_p_double_p_void__int, 0, 0, 0},{0, 0, 0, 0}};
12372 static swig_cast_info _swigc__p_f_p_gsl_matrix_p_gsl_vector_p_void__int[] = { {&_swigt__p_f_p_gsl_matrix_p_gsl_vector_p_void__int, 0, 0, 0},{0, 0, 0, 0}};
12373 static swig_cast_info _swigc__p_f_p_gsl_vector_p_gsl_vector_p_gsl_vector_p_void__int[] = { {&_swigt__p_f_p_gsl_vector_p_gsl_vector_p_gsl_vector_p_void__int, 0, 0, 0},{0, 0, 0, 0}};
12374 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}};
12375 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}};
12376 static swig_cast_info _swigc__p_f_p_q_const__gsl_vector_p_gsl_vector__int[] = { {&_swigt__p_f_p_q_const__gsl_vector_p_gsl_vector__int, 0, 0, 0},{0, 0, 0, 0}};
12377 static swig_cast_info _swigc__p_f_p_q_const__void__p_gsl_matrix[] = { {&_swigt__p_f_p_q_const__void__p_gsl_matrix, 0, 0, 0},{0, 0, 0, 0}};
12378 static swig_cast_info _swigc__p_f_p_q_const__void__p_gsl_vector[] = { {&_swigt__p_f_p_q_const__void__p_gsl_vector, 0, 0, 0},{0, 0, 0, 0}};
12379 static swig_cast_info _swigc__p_f_p_void__int[] = { {&_swigt__p_f_p_void__int, 0, 0, 0},{0, 0, 0, 0}};
12380 static swig_cast_info _swigc__p_f_p_void__void[] = { {&_swigt__p_f_p_void__void, 0, 0, 0},{0, 0, 0, 0}};
12381 static swig_cast_info _swigc__p_f_q_const__double_p_gsl_vector_p_double_p_double_p_void__int[] = { {&_swigt__p_f_q_const__double_p_gsl_vector_p_double_p_double_p_void__int, 0, 0, 0},{0, 0, 0, 0}};
12382 static swig_cast_info _swigc__p_f_q_const__size_t__p_void[] = { {&_swigt__p_f_q_const__size_t__p_void, 0, 0, 0},{0, 0, 0, 0}};
12383 static swig_cast_info _swigc__p_gsl_function_fdf_struct[] = { {&_swigt__p_gsl_function_fdf_struct, 0, 0, 0},{0, 0, 0, 0}};
12384 static swig_cast_info _swigc__p_gsl_function_struct[] = { {&_swigt__p_gsl_function_struct, 0, 0, 0},{0, 0, 0, 0}};
12385 static swig_cast_info _swigc__p_gsl_function_vec_struct[] = { {&_swigt__p_gsl_function_vec_struct, 0, 0, 0},{0, 0, 0, 0}};
12386 static swig_cast_info _swigc__p_gsl_matrix[] = { {&_swigt__p_gsl_matrix, 0, 0, 0},{0, 0, 0, 0}};
12387 static swig_cast_info _swigc__p_gsl_multifit_linear_workspace[] = { {&_swigt__p_gsl_multifit_linear_workspace, 0, 0, 0},{0, 0, 0, 0}};
12388 static swig_cast_info _swigc__p_gsl_multifit_robust_stats[] = { {&_swigt__p_gsl_multifit_robust_stats, 0, 0, 0},{0, 0, 0, 0}};
12389 static swig_cast_info _swigc__p_gsl_multifit_robust_type[] = { {&_swigt__p_gsl_multifit_robust_type, 0, 0, 0},{0, 0, 0, 0}};
12390 static swig_cast_info _swigc__p_gsl_multifit_robust_workspace[] = { {&_swigt__p_gsl_multifit_robust_workspace, 0, 0, 0},{0, 0, 0, 0}};
12391 static swig_cast_info _swigc__p_gsl_multilarge_linear_type[] = { {&_swigt__p_gsl_multilarge_linear_type, 0, 0, 0},{0, 0, 0, 0}};
12392 static swig_cast_info _swigc__p_gsl_multilarge_linear_workspace[] = { {&_swigt__p_gsl_multilarge_linear_workspace, 0, 0, 0},{0, 0, 0, 0}};
12393 static swig_cast_info _swigc__p_gsl_permutation_struct[] = { {&_swigt__p_gsl_permutation_struct, 0, 0, 0},{0, 0, 0, 0}};
12394 static swig_cast_info _swigc__p_gsl_vector[] = { {&_swigt__p_gsl_vector, 0, 0, 0},{0, 0, 0, 0}};
12395 static swig_cast_info _swigc__p_size_t[] = { {&_swigt__p_size_t, 0, 0, 0},{0, 0, 0, 0}};
12396 static swig_cast_info _swigc__p_void[] = { {&_swigt__p_void, 0, 0, 0},{0, 0, 0, 0}};
12397
12398 static swig_cast_info *swig_cast_initial[] = {
12399 _swigc__p_FILE,
12400 _swigc__p_char,
12401 _swigc__p_double,
12402 _swigc__p_f_double_a___double_p_void__int,
12403 _swigc__p_f_double_p_void__double,
12404 _swigc__p_f_double_p_void_p_double_p_double__void,
12405 _swigc__p_f_p_double_p_void__int,
12406 _swigc__p_f_p_gsl_matrix_p_gsl_vector_p_void__int,
12407 _swigc__p_f_p_gsl_vector_p_gsl_vector_p_gsl_vector_p_void__int,
12408 _swigc__p_f_p_q_const__char_p_q_const__char_int_int__void,
12409 _swigc__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
12410 _swigc__p_f_p_q_const__gsl_vector_p_gsl_vector__int,
12411 _swigc__p_f_p_q_const__void__p_gsl_matrix,
12412 _swigc__p_f_p_q_const__void__p_gsl_vector,
12413 _swigc__p_f_p_void__int,
12414 _swigc__p_f_p_void__void,
12415 _swigc__p_f_q_const__double_p_gsl_vector_p_double_p_double_p_void__int,
12416 _swigc__p_f_q_const__size_t__p_void,
12417 _swigc__p_gsl_function_fdf_struct,
12418 _swigc__p_gsl_function_struct,
12419 _swigc__p_gsl_function_vec_struct,
12420 _swigc__p_gsl_matrix,
12421 _swigc__p_gsl_multifit_linear_workspace,
12422 _swigc__p_gsl_multifit_robust_stats,
12423 _swigc__p_gsl_multifit_robust_type,
12424 _swigc__p_gsl_multifit_robust_workspace,
12425 _swigc__p_gsl_multilarge_linear_type,
12426 _swigc__p_gsl_multilarge_linear_workspace,
12427 _swigc__p_gsl_permutation_struct,
12428 _swigc__p_gsl_vector,
12429 _swigc__p_size_t,
12430 _swigc__p_void,
12431 };
12432
12433
12434 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */
12435
12436 static swig_constant_info swig_constants[] = {
12437 {0,0,0,0,0,0}
12438 };
12439 #ifdef __cplusplus
12440 }
12441 #endif
12442 static swig_variable_info swig_variables[] = {
12443 { "Math::GSL::Multilargec::gsl_multifit_robust_default", MAGIC_CLASS _wrap_gsl_multifit_robust_default_set, MAGIC_CLASS _wrap_gsl_multifit_robust_default_get,&SWIGTYPE_p_gsl_multifit_robust_type },
12444 { "Math::GSL::Multilargec::gsl_multifit_robust_bisquare", MAGIC_CLASS _wrap_gsl_multifit_robust_bisquare_set, MAGIC_CLASS _wrap_gsl_multifit_robust_bisquare_get,&SWIGTYPE_p_gsl_multifit_robust_type },
12445 { "Math::GSL::Multilargec::gsl_multifit_robust_cauchy", MAGIC_CLASS _wrap_gsl_multifit_robust_cauchy_set, MAGIC_CLASS _wrap_gsl_multifit_robust_cauchy_get,&SWIGTYPE_p_gsl_multifit_robust_type },
12446 { "Math::GSL::Multilargec::gsl_multifit_robust_fair", MAGIC_CLASS _wrap_gsl_multifit_robust_fair_set, MAGIC_CLASS _wrap_gsl_multifit_robust_fair_get,&SWIGTYPE_p_gsl_multifit_robust_type },
12447 { "Math::GSL::Multilargec::gsl_multifit_robust_huber", MAGIC_CLASS _wrap_gsl_multifit_robust_huber_set, MAGIC_CLASS _wrap_gsl_multifit_robust_huber_get,&SWIGTYPE_p_gsl_multifit_robust_type },
12448 { "Math::GSL::Multilargec::gsl_multifit_robust_ols", MAGIC_CLASS _wrap_gsl_multifit_robust_ols_set, MAGIC_CLASS _wrap_gsl_multifit_robust_ols_get,&SWIGTYPE_p_gsl_multifit_robust_type },
12449 { "Math::GSL::Multilargec::gsl_multifit_robust_welsch", MAGIC_CLASS _wrap_gsl_multifit_robust_welsch_set, MAGIC_CLASS _wrap_gsl_multifit_robust_welsch_get,&SWIGTYPE_p_gsl_multifit_robust_type },
12450 { "Math::GSL::Multilargec::gsl_multilarge_linear_normal", MAGIC_CLASS _wrap_gsl_multilarge_linear_normal_set, MAGIC_CLASS _wrap_gsl_multilarge_linear_normal_get,&SWIGTYPE_p_gsl_multilarge_linear_type },
12451 { "Math::GSL::Multilargec::gsl_multilarge_linear_tsqr", MAGIC_CLASS _wrap_gsl_multilarge_linear_tsqr_set, MAGIC_CLASS _wrap_gsl_multilarge_linear_tsqr_get,&SWIGTYPE_p_gsl_multilarge_linear_type },
12452 {0,0,0,0}
12453 };
12454 static swig_command_info swig_commands[] = {
12455 {"Math::GSL::Multilargec::gsl_error", _wrap_gsl_error},
12456 {"Math::GSL::Multilargec::gsl_stream_printf", _wrap_gsl_stream_printf},
12457 {"Math::GSL::Multilargec::gsl_strerror", _wrap_gsl_strerror},
12458 {"Math::GSL::Multilargec::gsl_set_error_handler", _wrap_gsl_set_error_handler},
12459 {"Math::GSL::Multilargec::gsl_set_error_handler_off", _wrap_gsl_set_error_handler_off},
12460 {"Math::GSL::Multilargec::gsl_set_stream_handler", _wrap_gsl_set_stream_handler},
12461 {"Math::GSL::Multilargec::gsl_set_stream", _wrap_gsl_set_stream},
12462 {"Math::GSL::Multilargec::gsl_function_struct_function_set", _wrap_gsl_function_struct_function_set},
12463 {"Math::GSL::Multilargec::gsl_function_struct_function_get", _wrap_gsl_function_struct_function_get},
12464 {"Math::GSL::Multilargec::gsl_function_struct_params_set", _wrap_gsl_function_struct_params_set},
12465 {"Math::GSL::Multilargec::gsl_function_struct_params_get", _wrap_gsl_function_struct_params_get},
12466 {"Math::GSL::Multilargec::new_gsl_function_struct", _wrap_new_gsl_function_struct},
12467 {"Math::GSL::Multilargec::delete_gsl_function_struct", _wrap_delete_gsl_function_struct},
12468 {"Math::GSL::Multilargec::gsl_function_fdf_struct_f_set", _wrap_gsl_function_fdf_struct_f_set},
12469 {"Math::GSL::Multilargec::gsl_function_fdf_struct_f_get", _wrap_gsl_function_fdf_struct_f_get},
12470 {"Math::GSL::Multilargec::gsl_function_fdf_struct_df_set", _wrap_gsl_function_fdf_struct_df_set},
12471 {"Math::GSL::Multilargec::gsl_function_fdf_struct_df_get", _wrap_gsl_function_fdf_struct_df_get},
12472 {"Math::GSL::Multilargec::gsl_function_fdf_struct_fdf_set", _wrap_gsl_function_fdf_struct_fdf_set},
12473 {"Math::GSL::Multilargec::gsl_function_fdf_struct_fdf_get", _wrap_gsl_function_fdf_struct_fdf_get},
12474 {"Math::GSL::Multilargec::gsl_function_fdf_struct_params_set", _wrap_gsl_function_fdf_struct_params_set},
12475 {"Math::GSL::Multilargec::gsl_function_fdf_struct_params_get", _wrap_gsl_function_fdf_struct_params_get},
12476 {"Math::GSL::Multilargec::new_gsl_function_fdf_struct", _wrap_new_gsl_function_fdf_struct},
12477 {"Math::GSL::Multilargec::delete_gsl_function_fdf_struct", _wrap_delete_gsl_function_fdf_struct},
12478 {"Math::GSL::Multilargec::gsl_function_vec_struct_function_set", _wrap_gsl_function_vec_struct_function_set},
12479 {"Math::GSL::Multilargec::gsl_function_vec_struct_function_get", _wrap_gsl_function_vec_struct_function_get},
12480 {"Math::GSL::Multilargec::gsl_function_vec_struct_params_set", _wrap_gsl_function_vec_struct_params_set},
12481 {"Math::GSL::Multilargec::gsl_function_vec_struct_params_get", _wrap_gsl_function_vec_struct_params_get},
12482 {"Math::GSL::Multilargec::new_gsl_function_vec_struct", _wrap_new_gsl_function_vec_struct},
12483 {"Math::GSL::Multilargec::delete_gsl_function_vec_struct", _wrap_delete_gsl_function_vec_struct},
12484 {"Math::GSL::Multilargec::gsl_permutation_struct_size_set", _wrap_gsl_permutation_struct_size_set},
12485 {"Math::GSL::Multilargec::gsl_permutation_struct_size_get", _wrap_gsl_permutation_struct_size_get},
12486 {"Math::GSL::Multilargec::gsl_permutation_struct_data_set", _wrap_gsl_permutation_struct_data_set},
12487 {"Math::GSL::Multilargec::gsl_permutation_struct_data_get", _wrap_gsl_permutation_struct_data_get},
12488 {"Math::GSL::Multilargec::new_gsl_permutation_struct", _wrap_new_gsl_permutation_struct},
12489 {"Math::GSL::Multilargec::delete_gsl_permutation_struct", _wrap_delete_gsl_permutation_struct},
12490 {"Math::GSL::Multilargec::gsl_permutation_alloc", _wrap_gsl_permutation_alloc},
12491 {"Math::GSL::Multilargec::gsl_permutation_calloc", _wrap_gsl_permutation_calloc},
12492 {"Math::GSL::Multilargec::gsl_permutation_init", _wrap_gsl_permutation_init},
12493 {"Math::GSL::Multilargec::gsl_permutation_free", _wrap_gsl_permutation_free},
12494 {"Math::GSL::Multilargec::gsl_permutation_memcpy", _wrap_gsl_permutation_memcpy},
12495 {"Math::GSL::Multilargec::gsl_permutation_fread", _wrap_gsl_permutation_fread},
12496 {"Math::GSL::Multilargec::gsl_permutation_fwrite", _wrap_gsl_permutation_fwrite},
12497 {"Math::GSL::Multilargec::gsl_permutation_fscanf", _wrap_gsl_permutation_fscanf},
12498 {"Math::GSL::Multilargec::gsl_permutation_fprintf", _wrap_gsl_permutation_fprintf},
12499 {"Math::GSL::Multilargec::gsl_permutation_size", _wrap_gsl_permutation_size},
12500 {"Math::GSL::Multilargec::gsl_permutation_data", _wrap_gsl_permutation_data},
12501 {"Math::GSL::Multilargec::gsl_permutation_swap", _wrap_gsl_permutation_swap},
12502 {"Math::GSL::Multilargec::gsl_permutation_valid", _wrap_gsl_permutation_valid},
12503 {"Math::GSL::Multilargec::gsl_permutation_reverse", _wrap_gsl_permutation_reverse},
12504 {"Math::GSL::Multilargec::gsl_permutation_inverse", _wrap_gsl_permutation_inverse},
12505 {"Math::GSL::Multilargec::gsl_permutation_next", _wrap_gsl_permutation_next},
12506 {"Math::GSL::Multilargec::gsl_permutation_prev", _wrap_gsl_permutation_prev},
12507 {"Math::GSL::Multilargec::gsl_permutation_mul", _wrap_gsl_permutation_mul},
12508 {"Math::GSL::Multilargec::gsl_permutation_linear_to_canonical", _wrap_gsl_permutation_linear_to_canonical},
12509 {"Math::GSL::Multilargec::gsl_permutation_canonical_to_linear", _wrap_gsl_permutation_canonical_to_linear},
12510 {"Math::GSL::Multilargec::gsl_permutation_inversions", _wrap_gsl_permutation_inversions},
12511 {"Math::GSL::Multilargec::gsl_permutation_linear_cycles", _wrap_gsl_permutation_linear_cycles},
12512 {"Math::GSL::Multilargec::gsl_permutation_canonical_cycles", _wrap_gsl_permutation_canonical_cycles},
12513 {"Math::GSL::Multilargec::gsl_permutation_get", _wrap_gsl_permutation_get},
12514 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_nmax_set", _wrap_gsl_multifit_linear_workspace_nmax_set},
12515 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_nmax_get", _wrap_gsl_multifit_linear_workspace_nmax_get},
12516 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_pmax_set", _wrap_gsl_multifit_linear_workspace_pmax_set},
12517 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_pmax_get", _wrap_gsl_multifit_linear_workspace_pmax_get},
12518 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_n_set", _wrap_gsl_multifit_linear_workspace_n_set},
12519 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_n_get", _wrap_gsl_multifit_linear_workspace_n_get},
12520 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_p_set", _wrap_gsl_multifit_linear_workspace_p_set},
12521 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_p_get", _wrap_gsl_multifit_linear_workspace_p_get},
12522 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_A_set", _wrap_gsl_multifit_linear_workspace_A_set},
12523 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_A_get", _wrap_gsl_multifit_linear_workspace_A_get},
12524 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_Q_set", _wrap_gsl_multifit_linear_workspace_Q_set},
12525 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_Q_get", _wrap_gsl_multifit_linear_workspace_Q_get},
12526 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_QSI_set", _wrap_gsl_multifit_linear_workspace_QSI_set},
12527 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_QSI_get", _wrap_gsl_multifit_linear_workspace_QSI_get},
12528 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_S_set", _wrap_gsl_multifit_linear_workspace_S_set},
12529 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_S_get", _wrap_gsl_multifit_linear_workspace_S_get},
12530 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_t_set", _wrap_gsl_multifit_linear_workspace_t_set},
12531 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_t_get", _wrap_gsl_multifit_linear_workspace_t_get},
12532 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_xt_set", _wrap_gsl_multifit_linear_workspace_xt_set},
12533 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_xt_get", _wrap_gsl_multifit_linear_workspace_xt_get},
12534 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_D_set", _wrap_gsl_multifit_linear_workspace_D_set},
12535 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_D_get", _wrap_gsl_multifit_linear_workspace_D_get},
12536 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_rcond_set", _wrap_gsl_multifit_linear_workspace_rcond_set},
12537 {"Math::GSL::Multilargec::gsl_multifit_linear_workspace_rcond_get", _wrap_gsl_multifit_linear_workspace_rcond_get},
12538 {"Math::GSL::Multilargec::new_gsl_multifit_linear_workspace", _wrap_new_gsl_multifit_linear_workspace},
12539 {"Math::GSL::Multilargec::delete_gsl_multifit_linear_workspace", _wrap_delete_gsl_multifit_linear_workspace},
12540 {"Math::GSL::Multilargec::gsl_multifit_linear_alloc", _wrap_gsl_multifit_linear_alloc},
12541 {"Math::GSL::Multilargec::gsl_multifit_linear_free", _wrap_gsl_multifit_linear_free},
12542 {"Math::GSL::Multilargec::gsl_multifit_linear", _wrap_gsl_multifit_linear},
12543 {"Math::GSL::Multilargec::gsl_multifit_linear_tsvd", _wrap_gsl_multifit_linear_tsvd},
12544 {"Math::GSL::Multilargec::gsl_multifit_linear_svd", _wrap_gsl_multifit_linear_svd},
12545 {"Math::GSL::Multilargec::gsl_multifit_linear_bsvd", _wrap_gsl_multifit_linear_bsvd},
12546 {"Math::GSL::Multilargec::gsl_multifit_linear_rank", _wrap_gsl_multifit_linear_rank},
12547 {"Math::GSL::Multilargec::gsl_multifit_linear_solve", _wrap_gsl_multifit_linear_solve},
12548 {"Math::GSL::Multilargec::gsl_multifit_linear_applyW", _wrap_gsl_multifit_linear_applyW},
12549 {"Math::GSL::Multilargec::gsl_multifit_linear_stdform1", _wrap_gsl_multifit_linear_stdform1},
12550 {"Math::GSL::Multilargec::gsl_multifit_linear_wstdform1", _wrap_gsl_multifit_linear_wstdform1},
12551 {"Math::GSL::Multilargec::gsl_multifit_linear_L_decomp", _wrap_gsl_multifit_linear_L_decomp},
12552 {"Math::GSL::Multilargec::gsl_multifit_linear_stdform2", _wrap_gsl_multifit_linear_stdform2},
12553 {"Math::GSL::Multilargec::gsl_multifit_linear_wstdform2", _wrap_gsl_multifit_linear_wstdform2},
12554 {"Math::GSL::Multilargec::gsl_multifit_linear_genform1", _wrap_gsl_multifit_linear_genform1},
12555 {"Math::GSL::Multilargec::gsl_multifit_linear_genform2", _wrap_gsl_multifit_linear_genform2},
12556 {"Math::GSL::Multilargec::gsl_multifit_linear_wgenform2", _wrap_gsl_multifit_linear_wgenform2},
12557 {"Math::GSL::Multilargec::gsl_multifit_linear_lreg", _wrap_gsl_multifit_linear_lreg},
12558 {"Math::GSL::Multilargec::gsl_multifit_linear_lcurve", _wrap_gsl_multifit_linear_lcurve},
12559 {"Math::GSL::Multilargec::gsl_multifit_linear_lcurvature", _wrap_gsl_multifit_linear_lcurvature},
12560 {"Math::GSL::Multilargec::gsl_multifit_linear_lcorner", _wrap_gsl_multifit_linear_lcorner},
12561 {"Math::GSL::Multilargec::gsl_multifit_linear_lcorner2", _wrap_gsl_multifit_linear_lcorner2},
12562 {"Math::GSL::Multilargec::gsl_multifit_linear_Lk", _wrap_gsl_multifit_linear_Lk},
12563 {"Math::GSL::Multilargec::gsl_multifit_linear_Lsobolev", _wrap_gsl_multifit_linear_Lsobolev},
12564 {"Math::GSL::Multilargec::gsl_multifit_wlinear", _wrap_gsl_multifit_wlinear},
12565 {"Math::GSL::Multilargec::gsl_multifit_wlinear_tsvd", _wrap_gsl_multifit_wlinear_tsvd},
12566 {"Math::GSL::Multilargec::gsl_multifit_wlinear_svd", _wrap_gsl_multifit_wlinear_svd},
12567 {"Math::GSL::Multilargec::gsl_multifit_wlinear_usvd", _wrap_gsl_multifit_wlinear_usvd},
12568 {"Math::GSL::Multilargec::gsl_multifit_linear_est", _wrap_gsl_multifit_linear_est},
12569 {"Math::GSL::Multilargec::gsl_multifit_linear_rcond", _wrap_gsl_multifit_linear_rcond},
12570 {"Math::GSL::Multilargec::gsl_multifit_linear_residuals", _wrap_gsl_multifit_linear_residuals},
12571 {"Math::GSL::Multilargec::gsl_multifit_linear_gcv_init", _wrap_gsl_multifit_linear_gcv_init},
12572 {"Math::GSL::Multilargec::gsl_multifit_linear_gcv_curve", _wrap_gsl_multifit_linear_gcv_curve},
12573 {"Math::GSL::Multilargec::gsl_multifit_linear_gcv_min", _wrap_gsl_multifit_linear_gcv_min},
12574 {"Math::GSL::Multilargec::gsl_multifit_linear_gcv_calc", _wrap_gsl_multifit_linear_gcv_calc},
12575 {"Math::GSL::Multilargec::gsl_multifit_linear_gcv", _wrap_gsl_multifit_linear_gcv},
12576 {"Math::GSL::Multilargec::gsl_multifit_robust_type_name_set", _wrap_gsl_multifit_robust_type_name_set},
12577 {"Math::GSL::Multilargec::gsl_multifit_robust_type_name_get", _wrap_gsl_multifit_robust_type_name_get},
12578 {"Math::GSL::Multilargec::gsl_multifit_robust_type_wfun_set", _wrap_gsl_multifit_robust_type_wfun_set},
12579 {"Math::GSL::Multilargec::gsl_multifit_robust_type_wfun_get", _wrap_gsl_multifit_robust_type_wfun_get},
12580 {"Math::GSL::Multilargec::gsl_multifit_robust_type_psi_deriv_set", _wrap_gsl_multifit_robust_type_psi_deriv_set},
12581 {"Math::GSL::Multilargec::gsl_multifit_robust_type_psi_deriv_get", _wrap_gsl_multifit_robust_type_psi_deriv_get},
12582 {"Math::GSL::Multilargec::gsl_multifit_robust_type_tuning_default_set", _wrap_gsl_multifit_robust_type_tuning_default_set},
12583 {"Math::GSL::Multilargec::gsl_multifit_robust_type_tuning_default_get", _wrap_gsl_multifit_robust_type_tuning_default_get},
12584 {"Math::GSL::Multilargec::new_gsl_multifit_robust_type", _wrap_new_gsl_multifit_robust_type},
12585 {"Math::GSL::Multilargec::delete_gsl_multifit_robust_type", _wrap_delete_gsl_multifit_robust_type},
12586 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_sigma_ols_set", _wrap_gsl_multifit_robust_stats_sigma_ols_set},
12587 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_sigma_ols_get", _wrap_gsl_multifit_robust_stats_sigma_ols_get},
12588 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_sigma_mad_set", _wrap_gsl_multifit_robust_stats_sigma_mad_set},
12589 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_sigma_mad_get", _wrap_gsl_multifit_robust_stats_sigma_mad_get},
12590 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_sigma_rob_set", _wrap_gsl_multifit_robust_stats_sigma_rob_set},
12591 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_sigma_rob_get", _wrap_gsl_multifit_robust_stats_sigma_rob_get},
12592 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_sigma_set", _wrap_gsl_multifit_robust_stats_sigma_set},
12593 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_sigma_get", _wrap_gsl_multifit_robust_stats_sigma_get},
12594 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_Rsq_set", _wrap_gsl_multifit_robust_stats_Rsq_set},
12595 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_Rsq_get", _wrap_gsl_multifit_robust_stats_Rsq_get},
12596 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_adj_Rsq_set", _wrap_gsl_multifit_robust_stats_adj_Rsq_set},
12597 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_adj_Rsq_get", _wrap_gsl_multifit_robust_stats_adj_Rsq_get},
12598 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_rmse_set", _wrap_gsl_multifit_robust_stats_rmse_set},
12599 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_rmse_get", _wrap_gsl_multifit_robust_stats_rmse_get},
12600 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_sse_set", _wrap_gsl_multifit_robust_stats_sse_set},
12601 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_sse_get", _wrap_gsl_multifit_robust_stats_sse_get},
12602 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_dof_set", _wrap_gsl_multifit_robust_stats_dof_set},
12603 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_dof_get", _wrap_gsl_multifit_robust_stats_dof_get},
12604 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_numit_set", _wrap_gsl_multifit_robust_stats_numit_set},
12605 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_numit_get", _wrap_gsl_multifit_robust_stats_numit_get},
12606 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_weights_set", _wrap_gsl_multifit_robust_stats_weights_set},
12607 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_weights_get", _wrap_gsl_multifit_robust_stats_weights_get},
12608 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_r_set", _wrap_gsl_multifit_robust_stats_r_set},
12609 {"Math::GSL::Multilargec::gsl_multifit_robust_stats_r_get", _wrap_gsl_multifit_robust_stats_r_get},
12610 {"Math::GSL::Multilargec::new_gsl_multifit_robust_stats", _wrap_new_gsl_multifit_robust_stats},
12611 {"Math::GSL::Multilargec::delete_gsl_multifit_robust_stats", _wrap_delete_gsl_multifit_robust_stats},
12612 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_n_set", _wrap_gsl_multifit_robust_workspace_n_set},
12613 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_n_get", _wrap_gsl_multifit_robust_workspace_n_get},
12614 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_p_set", _wrap_gsl_multifit_robust_workspace_p_set},
12615 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_p_get", _wrap_gsl_multifit_robust_workspace_p_get},
12616 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_numit_set", _wrap_gsl_multifit_robust_workspace_numit_set},
12617 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_numit_get", _wrap_gsl_multifit_robust_workspace_numit_get},
12618 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_maxiter_set", _wrap_gsl_multifit_robust_workspace_maxiter_set},
12619 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_maxiter_get", _wrap_gsl_multifit_robust_workspace_maxiter_get},
12620 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_type_set", _wrap_gsl_multifit_robust_workspace_type_set},
12621 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_type_get", _wrap_gsl_multifit_robust_workspace_type_get},
12622 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_tune_set", _wrap_gsl_multifit_robust_workspace_tune_set},
12623 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_tune_get", _wrap_gsl_multifit_robust_workspace_tune_get},
12624 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_r_set", _wrap_gsl_multifit_robust_workspace_r_set},
12625 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_r_get", _wrap_gsl_multifit_robust_workspace_r_get},
12626 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_weights_set", _wrap_gsl_multifit_robust_workspace_weights_set},
12627 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_weights_get", _wrap_gsl_multifit_robust_workspace_weights_get},
12628 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_c_prev_set", _wrap_gsl_multifit_robust_workspace_c_prev_set},
12629 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_c_prev_get", _wrap_gsl_multifit_robust_workspace_c_prev_get},
12630 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_resfac_set", _wrap_gsl_multifit_robust_workspace_resfac_set},
12631 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_resfac_get", _wrap_gsl_multifit_robust_workspace_resfac_get},
12632 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_psi_set", _wrap_gsl_multifit_robust_workspace_psi_set},
12633 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_psi_get", _wrap_gsl_multifit_robust_workspace_psi_get},
12634 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_dpsi_set", _wrap_gsl_multifit_robust_workspace_dpsi_set},
12635 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_dpsi_get", _wrap_gsl_multifit_robust_workspace_dpsi_get},
12636 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_QSI_set", _wrap_gsl_multifit_robust_workspace_QSI_set},
12637 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_QSI_get", _wrap_gsl_multifit_robust_workspace_QSI_get},
12638 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_D_set", _wrap_gsl_multifit_robust_workspace_D_set},
12639 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_D_get", _wrap_gsl_multifit_robust_workspace_D_get},
12640 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_workn_set", _wrap_gsl_multifit_robust_workspace_workn_set},
12641 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_workn_get", _wrap_gsl_multifit_robust_workspace_workn_get},
12642 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_stats_set", _wrap_gsl_multifit_robust_workspace_stats_set},
12643 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_stats_get", _wrap_gsl_multifit_robust_workspace_stats_get},
12644 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_multifit_p_set", _wrap_gsl_multifit_robust_workspace_multifit_p_set},
12645 {"Math::GSL::Multilargec::gsl_multifit_robust_workspace_multifit_p_get", _wrap_gsl_multifit_robust_workspace_multifit_p_get},
12646 {"Math::GSL::Multilargec::new_gsl_multifit_robust_workspace", _wrap_new_gsl_multifit_robust_workspace},
12647 {"Math::GSL::Multilargec::delete_gsl_multifit_robust_workspace", _wrap_delete_gsl_multifit_robust_workspace},
12648 {"Math::GSL::Multilargec::gsl_multifit_robust_alloc", _wrap_gsl_multifit_robust_alloc},
12649 {"Math::GSL::Multilargec::gsl_multifit_robust_free", _wrap_gsl_multifit_robust_free},
12650 {"Math::GSL::Multilargec::gsl_multifit_robust_tune", _wrap_gsl_multifit_robust_tune},
12651 {"Math::GSL::Multilargec::gsl_multifit_robust_maxiter", _wrap_gsl_multifit_robust_maxiter},
12652 {"Math::GSL::Multilargec::gsl_multifit_robust_name", _wrap_gsl_multifit_robust_name},
12653 {"Math::GSL::Multilargec::gsl_multifit_robust_statistics", _wrap_gsl_multifit_robust_statistics},
12654 {"Math::GSL::Multilargec::gsl_multifit_robust_weights", _wrap_gsl_multifit_robust_weights},
12655 {"Math::GSL::Multilargec::gsl_multifit_robust", _wrap_gsl_multifit_robust},
12656 {"Math::GSL::Multilargec::gsl_multifit_robust_est", _wrap_gsl_multifit_robust_est},
12657 {"Math::GSL::Multilargec::gsl_multifit_robust_residuals", _wrap_gsl_multifit_robust_residuals},
12658 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_name_set", _wrap_gsl_multilarge_linear_type_name_set},
12659 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_name_get", _wrap_gsl_multilarge_linear_type_name_get},
12660 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_alloc_set", _wrap_gsl_multilarge_linear_type_alloc_set},
12661 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_alloc_get", _wrap_gsl_multilarge_linear_type_alloc_get},
12662 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_reset_set", _wrap_gsl_multilarge_linear_type_reset_set},
12663 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_reset_get", _wrap_gsl_multilarge_linear_type_reset_get},
12664 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_accumulate_set", _wrap_gsl_multilarge_linear_type_accumulate_set},
12665 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_accumulate_get", _wrap_gsl_multilarge_linear_type_accumulate_get},
12666 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_solve_set", _wrap_gsl_multilarge_linear_type_solve_set},
12667 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_solve_get", _wrap_gsl_multilarge_linear_type_solve_get},
12668 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_rcond_set", _wrap_gsl_multilarge_linear_type_rcond_set},
12669 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_rcond_get", _wrap_gsl_multilarge_linear_type_rcond_get},
12670 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_lcurve_set", _wrap_gsl_multilarge_linear_type_lcurve_set},
12671 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_lcurve_get", _wrap_gsl_multilarge_linear_type_lcurve_get},
12672 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_matrix_ptr_set", _wrap_gsl_multilarge_linear_type_matrix_ptr_set},
12673 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_matrix_ptr_get", _wrap_gsl_multilarge_linear_type_matrix_ptr_get},
12674 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_rhs_ptr_set", _wrap_gsl_multilarge_linear_type_rhs_ptr_set},
12675 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_rhs_ptr_get", _wrap_gsl_multilarge_linear_type_rhs_ptr_get},
12676 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_free_set", _wrap_gsl_multilarge_linear_type_free_set},
12677 {"Math::GSL::Multilargec::gsl_multilarge_linear_type_free_get", _wrap_gsl_multilarge_linear_type_free_get},
12678 {"Math::GSL::Multilargec::new_gsl_multilarge_linear_type", _wrap_new_gsl_multilarge_linear_type},
12679 {"Math::GSL::Multilargec::delete_gsl_multilarge_linear_type", _wrap_delete_gsl_multilarge_linear_type},
12680 {"Math::GSL::Multilargec::gsl_multilarge_linear_workspace_type_set", _wrap_gsl_multilarge_linear_workspace_type_set},
12681 {"Math::GSL::Multilargec::gsl_multilarge_linear_workspace_type_get", _wrap_gsl_multilarge_linear_workspace_type_get},
12682 {"Math::GSL::Multilargec::gsl_multilarge_linear_workspace_state_set", _wrap_gsl_multilarge_linear_workspace_state_set},
12683 {"Math::GSL::Multilargec::gsl_multilarge_linear_workspace_state_get", _wrap_gsl_multilarge_linear_workspace_state_get},
12684 {"Math::GSL::Multilargec::gsl_multilarge_linear_workspace_p_set", _wrap_gsl_multilarge_linear_workspace_p_set},
12685 {"Math::GSL::Multilargec::gsl_multilarge_linear_workspace_p_get", _wrap_gsl_multilarge_linear_workspace_p_get},
12686 {"Math::GSL::Multilargec::new_gsl_multilarge_linear_workspace", _wrap_new_gsl_multilarge_linear_workspace},
12687 {"Math::GSL::Multilargec::delete_gsl_multilarge_linear_workspace", _wrap_delete_gsl_multilarge_linear_workspace},
12688 {"Math::GSL::Multilargec::gsl_multilarge_linear_alloc", _wrap_gsl_multilarge_linear_alloc},
12689 {"Math::GSL::Multilargec::gsl_multilarge_linear_free", _wrap_gsl_multilarge_linear_free},
12690 {"Math::GSL::Multilargec::gsl_multilarge_linear_name", _wrap_gsl_multilarge_linear_name},
12691 {"Math::GSL::Multilargec::gsl_multilarge_linear_reset", _wrap_gsl_multilarge_linear_reset},
12692 {"Math::GSL::Multilargec::gsl_multilarge_linear_accumulate", _wrap_gsl_multilarge_linear_accumulate},
12693 {"Math::GSL::Multilargec::gsl_multilarge_linear_solve", _wrap_gsl_multilarge_linear_solve},
12694 {"Math::GSL::Multilargec::gsl_multilarge_linear_rcond", _wrap_gsl_multilarge_linear_rcond},
12695 {"Math::GSL::Multilargec::gsl_multilarge_linear_lcurve", _wrap_gsl_multilarge_linear_lcurve},
12696 {"Math::GSL::Multilargec::gsl_multilarge_linear_wstdform1", _wrap_gsl_multilarge_linear_wstdform1},
12697 {"Math::GSL::Multilargec::gsl_multilarge_linear_stdform1", _wrap_gsl_multilarge_linear_stdform1},
12698 {"Math::GSL::Multilargec::gsl_multilarge_linear_L_decomp", _wrap_gsl_multilarge_linear_L_decomp},
12699 {"Math::GSL::Multilargec::gsl_multilarge_linear_wstdform2", _wrap_gsl_multilarge_linear_wstdform2},
12700 {"Math::GSL::Multilargec::gsl_multilarge_linear_stdform2", _wrap_gsl_multilarge_linear_stdform2},
12701 {"Math::GSL::Multilargec::gsl_multilarge_linear_genform1", _wrap_gsl_multilarge_linear_genform1},
12702 {"Math::GSL::Multilargec::gsl_multilarge_linear_genform2", _wrap_gsl_multilarge_linear_genform2},
12703 {"Math::GSL::Multilargec::gsl_multilarge_linear_matrix_ptr", _wrap_gsl_multilarge_linear_matrix_ptr},
12704 {"Math::GSL::Multilargec::gsl_multilarge_linear_rhs_ptr", _wrap_gsl_multilarge_linear_rhs_ptr},
12705 {0,0}
12706 };
12707 /* -----------------------------------------------------------------------------
12708 * Type initialization:
12709 * This problem is tough by the requirement that no dynamic
12710 * memory is used. Also, since swig_type_info structures store pointers to
12711 * swig_cast_info structures and swig_cast_info structures store pointers back
12712 * to swig_type_info structures, we need some lookup code at initialization.
12713 * The idea is that swig generates all the structures that are needed.
12714 * The runtime then collects these partially filled structures.
12715 * The SWIG_InitializeModule function takes these initial arrays out of
12716 * swig_module, and does all the lookup, filling in the swig_module.types
12717 * array with the correct data and linking the correct swig_cast_info
12718 * structures together.
12719 *
12720 * The generated swig_type_info structures are assigned statically to an initial
12721 * array. We just loop through that array, and handle each type individually.
12722 * First we lookup if this type has been already loaded, and if so, use the
12723 * loaded structure instead of the generated one. Then we have to fill in the
12724 * cast linked list. The cast data is initially stored in something like a
12725 * two-dimensional array. Each row corresponds to a type (there are the same
12726 * number of rows as there are in the swig_type_initial array). Each entry in
12727 * a column is one of the swig_cast_info structures for that type.
12728 * The cast_initial array is actually an array of arrays, because each row has
12729 * a variable number of columns. So to actually build the cast linked list,
12730 * we find the array of casts associated with the type, and loop through it
12731 * adding the casts to the list. The one last trick we need to do is making
12732 * sure the type pointer in the swig_cast_info struct is correct.
12733 *
12734 * First off, we lookup the cast->type name to see if it is already loaded.
12735 * There are three cases to handle:
12736 * 1) If the cast->type has already been loaded AND the type we are adding
12737 * casting info to has not been loaded (it is in this module), THEN we
12738 * replace the cast->type pointer with the type pointer that has already
12739 * been loaded.
12740 * 2) If BOTH types (the one we are adding casting info to, and the
12741 * cast->type) are loaded, THEN the cast info has already been loaded by
12742 * the previous module so we just ignore it.
12743 * 3) Finally, if cast->type has not already been loaded, then we add that
12744 * swig_cast_info to the linked list (because the cast->type) pointer will
12745 * be correct.
12746 * ----------------------------------------------------------------------------- */
12747
12748 #ifdef __cplusplus
12749 extern "C" {
12750 #if 0
12751 } /* c-mode */
12752 #endif
12753 #endif
12754
12755 #if 0
12756 #define SWIGRUNTIME_DEBUG
12757 #endif
12758
12759
12760 SWIGRUNTIME void
SWIG_InitializeModule(void * clientdata)12761 SWIG_InitializeModule(void *clientdata) {
12762 size_t i;
12763 swig_module_info *module_head, *iter;
12764 int init;
12765
12766 /* check to see if the circular list has been setup, if not, set it up */
12767 if (swig_module.next==0) {
12768 /* Initialize the swig_module */
12769 swig_module.type_initial = swig_type_initial;
12770 swig_module.cast_initial = swig_cast_initial;
12771 swig_module.next = &swig_module;
12772 init = 1;
12773 } else {
12774 init = 0;
12775 }
12776
12777 /* Try and load any already created modules */
12778 module_head = SWIG_GetModule(clientdata);
12779 if (!module_head) {
12780 /* This is the first module loaded for this interpreter */
12781 /* so set the swig module into the interpreter */
12782 SWIG_SetModule(clientdata, &swig_module);
12783 } else {
12784 /* the interpreter has loaded a SWIG module, but has it loaded this one? */
12785 iter=module_head;
12786 do {
12787 if (iter==&swig_module) {
12788 /* Our module is already in the list, so there's nothing more to do. */
12789 return;
12790 }
12791 iter=iter->next;
12792 } while (iter!= module_head);
12793
12794 /* otherwise we must add our module into the list */
12795 swig_module.next = module_head->next;
12796 module_head->next = &swig_module;
12797 }
12798
12799 /* When multiple interpreters are used, a module could have already been initialized in
12800 a different interpreter, but not yet have a pointer in this interpreter.
12801 In this case, we do not want to continue adding types... everything should be
12802 set up already */
12803 if (init == 0) return;
12804
12805 /* Now work on filling in swig_module.types */
12806 #ifdef SWIGRUNTIME_DEBUG
12807 printf("SWIG_InitializeModule: size %lu\n", (unsigned long)swig_module.size);
12808 #endif
12809 for (i = 0; i < swig_module.size; ++i) {
12810 swig_type_info *type = 0;
12811 swig_type_info *ret;
12812 swig_cast_info *cast;
12813
12814 #ifdef SWIGRUNTIME_DEBUG
12815 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
12816 #endif
12817
12818 /* if there is another module already loaded */
12819 if (swig_module.next != &swig_module) {
12820 type = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, swig_module.type_initial[i]->name);
12821 }
12822 if (type) {
12823 /* Overwrite clientdata field */
12824 #ifdef SWIGRUNTIME_DEBUG
12825 printf("SWIG_InitializeModule: found type %s\n", type->name);
12826 #endif
12827 if (swig_module.type_initial[i]->clientdata) {
12828 type->clientdata = swig_module.type_initial[i]->clientdata;
12829 #ifdef SWIGRUNTIME_DEBUG
12830 printf("SWIG_InitializeModule: found and overwrite type %s \n", type->name);
12831 #endif
12832 }
12833 } else {
12834 type = swig_module.type_initial[i];
12835 }
12836
12837 /* Insert casting types */
12838 cast = swig_module.cast_initial[i];
12839 while (cast->type) {
12840 /* Don't need to add information already in the list */
12841 ret = 0;
12842 #ifdef SWIGRUNTIME_DEBUG
12843 printf("SWIG_InitializeModule: look cast %s\n", cast->type->name);
12844 #endif
12845 if (swig_module.next != &swig_module) {
12846 ret = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, cast->type->name);
12847 #ifdef SWIGRUNTIME_DEBUG
12848 if (ret) printf("SWIG_InitializeModule: found cast %s\n", ret->name);
12849 #endif
12850 }
12851 if (ret) {
12852 if (type == swig_module.type_initial[i]) {
12853 #ifdef SWIGRUNTIME_DEBUG
12854 printf("SWIG_InitializeModule: skip old type %s\n", ret->name);
12855 #endif
12856 cast->type = ret;
12857 ret = 0;
12858 } else {
12859 /* Check for casting already in the list */
12860 swig_cast_info *ocast = SWIG_TypeCheck(ret->name, type);
12861 #ifdef SWIGRUNTIME_DEBUG
12862 if (ocast) printf("SWIG_InitializeModule: skip old cast %s\n", ret->name);
12863 #endif
12864 if (!ocast) ret = 0;
12865 }
12866 }
12867
12868 if (!ret) {
12869 #ifdef SWIGRUNTIME_DEBUG
12870 printf("SWIG_InitializeModule: adding cast %s\n", cast->type->name);
12871 #endif
12872 if (type->cast) {
12873 type->cast->prev = cast;
12874 cast->next = type->cast;
12875 }
12876 type->cast = cast;
12877 }
12878 cast++;
12879 }
12880 /* Set entry in modules->types array equal to the type */
12881 swig_module.types[i] = type;
12882 }
12883 swig_module.types[i] = 0;
12884
12885 #ifdef SWIGRUNTIME_DEBUG
12886 printf("**** SWIG_InitializeModule: Cast List ******\n");
12887 for (i = 0; i < swig_module.size; ++i) {
12888 int j = 0;
12889 swig_cast_info *cast = swig_module.cast_initial[i];
12890 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
12891 while (cast->type) {
12892 printf("SWIG_InitializeModule: cast type %s\n", cast->type->name);
12893 cast++;
12894 ++j;
12895 }
12896 printf("---- Total casts: %d\n",j);
12897 }
12898 printf("**** SWIG_InitializeModule: Cast List ******\n");
12899 #endif
12900 }
12901
12902 /* This function will propagate the clientdata field of type to
12903 * any new swig_type_info structures that have been added into the list
12904 * of equivalent types. It is like calling
12905 * SWIG_TypeClientData(type, clientdata) a second time.
12906 */
12907 SWIGRUNTIME void
SWIG_PropagateClientData(void)12908 SWIG_PropagateClientData(void) {
12909 size_t i;
12910 swig_cast_info *equiv;
12911 static int init_run = 0;
12912
12913 if (init_run) return;
12914 init_run = 1;
12915
12916 for (i = 0; i < swig_module.size; i++) {
12917 if (swig_module.types[i]->clientdata) {
12918 equiv = swig_module.types[i]->cast;
12919 while (equiv) {
12920 if (!equiv->converter) {
12921 if (equiv->type && !equiv->type->clientdata)
12922 SWIG_TypeClientData(equiv->type, swig_module.types[i]->clientdata);
12923 }
12924 equiv = equiv->next;
12925 }
12926 }
12927 }
12928 }
12929
12930 #ifdef __cplusplus
12931 #if 0
12932 {
12933 /* c-mode */
12934 #endif
12935 }
12936 #endif
12937
12938
12939
12940 #if defined(__cplusplus) && ! defined(XSPROTO)
12941 extern "C"
12942 #endif
12943
XS(SWIG_init)12944 XS(SWIG_init) {
12945 dXSARGS;
12946 int i;
12947 (void)items;
12948
12949 SWIG_InitializeModule(0);
12950
12951 /* Install commands */
12952 for (i = 0; swig_commands[i].name; i++) {
12953 /* Casts only needed for Perl < 5.10. */
12954 #ifdef __cplusplus
12955 newXS(const_cast<char*>(swig_commands[i].name), swig_commands[i].wrapper, const_cast<char*>(__FILE__));
12956 #else
12957 newXS((char*)swig_commands[i].name, swig_commands[i].wrapper, (char*)__FILE__);
12958 #endif
12959 }
12960
12961 /* Install variables */
12962 for (i = 0; swig_variables[i].name; i++) {
12963 SV *sv;
12964 sv = get_sv(swig_variables[i].name, TRUE | 0x2 | GV_ADDMULTI);
12965 if (swig_variables[i].type) {
12966 SWIG_MakePtr(sv,(void *)1, *swig_variables[i].type,0);
12967 } else {
12968 sv_setiv(sv,(IV) 0);
12969 }
12970 swig_create_magic(sv, swig_variables[i].name, swig_variables[i].set, swig_variables[i].get);
12971 }
12972
12973 /* Install constant */
12974 for (i = 0; swig_constants[i].type; i++) {
12975 SV *sv;
12976 sv = get_sv(swig_constants[i].name, TRUE | 0x2 | GV_ADDMULTI);
12977 switch(swig_constants[i].type) {
12978 case SWIG_INT:
12979 sv_setiv(sv, (IV) swig_constants[i].lvalue);
12980 break;
12981 case SWIG_FLOAT:
12982 sv_setnv(sv, (double) swig_constants[i].dvalue);
12983 break;
12984 case SWIG_STRING:
12985 sv_setpv(sv, (const char *) swig_constants[i].pvalue);
12986 break;
12987 case SWIG_POINTER:
12988 SWIG_MakePtr(sv, swig_constants[i].pvalue, *(swig_constants[i].ptype),0);
12989 break;
12990 case SWIG_BINARY:
12991 SWIG_MakePackedObj(sv, swig_constants[i].pvalue, swig_constants[i].lvalue, *(swig_constants[i].ptype));
12992 break;
12993 default:
12994 break;
12995 }
12996 SvREADONLY_on(sv);
12997 }
12998
12999 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13000 SV *sv = get_sv((char*) SWIG_prefix "GSL_VERSION", TRUE | 0x2 | GV_ADDMULTI);
13001 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(2.7)));
13002 SvREADONLY_on(sv);
13003 } while(0) /*@SWIG@*/;
13004 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13005 SV *sv = get_sv((char*) SWIG_prefix "GSL_MAJOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
13006 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(2)));
13007 SvREADONLY_on(sv);
13008 } while(0) /*@SWIG@*/;
13009 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13010 SV *sv = get_sv((char*) SWIG_prefix "GSL_MINOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
13011 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(7)));
13012 SvREADONLY_on(sv);
13013 } while(0) /*@SWIG@*/;
13014 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13015 SV *sv = get_sv((char*) SWIG_prefix "GSL_POSZERO", TRUE | 0x2 | GV_ADDMULTI);
13016 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((+0.0))));
13017 SvREADONLY_on(sv);
13018 } while(0) /*@SWIG@*/;
13019 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13020 SV *sv = get_sv((char*) SWIG_prefix "GSL_NEGZERO", TRUE | 0x2 | GV_ADDMULTI);
13021 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((-0.0))));
13022 SvREADONLY_on(sv);
13023 } while(0) /*@SWIG@*/;
13024 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13025 SV *sv = get_sv((char*) SWIG_prefix "GSL_SUCCESS", TRUE | 0x2 | GV_ADDMULTI);
13026 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_SUCCESS)));
13027 SvREADONLY_on(sv);
13028 } while(0) /*@SWIG@*/;
13029 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13030 SV *sv = get_sv((char*) SWIG_prefix "GSL_FAILURE", TRUE | 0x2 | GV_ADDMULTI);
13031 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_FAILURE)));
13032 SvREADONLY_on(sv);
13033 } while(0) /*@SWIG@*/;
13034 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13035 SV *sv = get_sv((char*) SWIG_prefix "GSL_CONTINUE", TRUE | 0x2 | GV_ADDMULTI);
13036 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_CONTINUE)));
13037 SvREADONLY_on(sv);
13038 } while(0) /*@SWIG@*/;
13039 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13040 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDOM", TRUE | 0x2 | GV_ADDMULTI);
13041 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDOM)));
13042 SvREADONLY_on(sv);
13043 } while(0) /*@SWIG@*/;
13044 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13045 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERANGE", TRUE | 0x2 | GV_ADDMULTI);
13046 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERANGE)));
13047 SvREADONLY_on(sv);
13048 } while(0) /*@SWIG@*/;
13049 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13050 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAULT", TRUE | 0x2 | GV_ADDMULTI);
13051 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAULT)));
13052 SvREADONLY_on(sv);
13053 } while(0) /*@SWIG@*/;
13054 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13055 SV *sv = get_sv((char*) SWIG_prefix "GSL_EINVAL", TRUE | 0x2 | GV_ADDMULTI);
13056 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EINVAL)));
13057 SvREADONLY_on(sv);
13058 } while(0) /*@SWIG@*/;
13059 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13060 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAILED", TRUE | 0x2 | GV_ADDMULTI);
13061 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAILED)));
13062 SvREADONLY_on(sv);
13063 } while(0) /*@SWIG@*/;
13064 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13065 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFACTOR", TRUE | 0x2 | GV_ADDMULTI);
13066 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFACTOR)));
13067 SvREADONLY_on(sv);
13068 } while(0) /*@SWIG@*/;
13069 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13070 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESANITY", TRUE | 0x2 | GV_ADDMULTI);
13071 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESANITY)));
13072 SvREADONLY_on(sv);
13073 } while(0) /*@SWIG@*/;
13074 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13075 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOMEM", TRUE | 0x2 | GV_ADDMULTI);
13076 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOMEM)));
13077 SvREADONLY_on(sv);
13078 } while(0) /*@SWIG@*/;
13079 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13080 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADFUNC", TRUE | 0x2 | GV_ADDMULTI);
13081 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADFUNC)));
13082 SvREADONLY_on(sv);
13083 } while(0) /*@SWIG@*/;
13084 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13085 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERUNAWAY", TRUE | 0x2 | GV_ADDMULTI);
13086 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERUNAWAY)));
13087 SvREADONLY_on(sv);
13088 } while(0) /*@SWIG@*/;
13089 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13090 SV *sv = get_sv((char*) SWIG_prefix "GSL_EMAXITER", TRUE | 0x2 | GV_ADDMULTI);
13091 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EMAXITER)));
13092 SvREADONLY_on(sv);
13093 } while(0) /*@SWIG@*/;
13094 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13095 SV *sv = get_sv((char*) SWIG_prefix "GSL_EZERODIV", TRUE | 0x2 | GV_ADDMULTI);
13096 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EZERODIV)));
13097 SvREADONLY_on(sv);
13098 } while(0) /*@SWIG@*/;
13099 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13100 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADTOL", TRUE | 0x2 | GV_ADDMULTI);
13101 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADTOL)));
13102 SvREADONLY_on(sv);
13103 } while(0) /*@SWIG@*/;
13104 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13105 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOL", TRUE | 0x2 | GV_ADDMULTI);
13106 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOL)));
13107 SvREADONLY_on(sv);
13108 } while(0) /*@SWIG@*/;
13109 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13110 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNDRFLW", TRUE | 0x2 | GV_ADDMULTI);
13111 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNDRFLW)));
13112 SvREADONLY_on(sv);
13113 } while(0) /*@SWIG@*/;
13114 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13115 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOVRFLW", TRUE | 0x2 | GV_ADDMULTI);
13116 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOVRFLW)));
13117 SvREADONLY_on(sv);
13118 } while(0) /*@SWIG@*/;
13119 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13120 SV *sv = get_sv((char*) SWIG_prefix "GSL_ELOSS", TRUE | 0x2 | GV_ADDMULTI);
13121 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ELOSS)));
13122 SvREADONLY_on(sv);
13123 } while(0) /*@SWIG@*/;
13124 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13125 SV *sv = get_sv((char*) SWIG_prefix "GSL_EROUND", TRUE | 0x2 | GV_ADDMULTI);
13126 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EROUND)));
13127 SvREADONLY_on(sv);
13128 } while(0) /*@SWIG@*/;
13129 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13130 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADLEN", TRUE | 0x2 | GV_ADDMULTI);
13131 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADLEN)));
13132 SvREADONLY_on(sv);
13133 } while(0) /*@SWIG@*/;
13134 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13135 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOTSQR", TRUE | 0x2 | GV_ADDMULTI);
13136 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOTSQR)));
13137 SvREADONLY_on(sv);
13138 } while(0) /*@SWIG@*/;
13139 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13140 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESING", TRUE | 0x2 | GV_ADDMULTI);
13141 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESING)));
13142 SvREADONLY_on(sv);
13143 } while(0) /*@SWIG@*/;
13144 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13145 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDIVERGE", TRUE | 0x2 | GV_ADDMULTI);
13146 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDIVERGE)));
13147 SvREADONLY_on(sv);
13148 } while(0) /*@SWIG@*/;
13149 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13150 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNSUP", TRUE | 0x2 | GV_ADDMULTI);
13151 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNSUP)));
13152 SvREADONLY_on(sv);
13153 } while(0) /*@SWIG@*/;
13154 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13155 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNIMPL", TRUE | 0x2 | GV_ADDMULTI);
13156 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNIMPL)));
13157 SvREADONLY_on(sv);
13158 } while(0) /*@SWIG@*/;
13159 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13160 SV *sv = get_sv((char*) SWIG_prefix "GSL_ECACHE", TRUE | 0x2 | GV_ADDMULTI);
13161 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ECACHE)));
13162 SvREADONLY_on(sv);
13163 } while(0) /*@SWIG@*/;
13164 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13165 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETABLE", TRUE | 0x2 | GV_ADDMULTI);
13166 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETABLE)));
13167 SvREADONLY_on(sv);
13168 } while(0) /*@SWIG@*/;
13169 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13170 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROG", TRUE | 0x2 | GV_ADDMULTI);
13171 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROG)));
13172 SvREADONLY_on(sv);
13173 } while(0) /*@SWIG@*/;
13174 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13175 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROGJ", TRUE | 0x2 | GV_ADDMULTI);
13176 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROGJ)));
13177 SvREADONLY_on(sv);
13178 } while(0) /*@SWIG@*/;
13179 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13180 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLF", TRUE | 0x2 | GV_ADDMULTI);
13181 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLF)));
13182 SvREADONLY_on(sv);
13183 } while(0) /*@SWIG@*/;
13184 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13185 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLX", TRUE | 0x2 | GV_ADDMULTI);
13186 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLX)));
13187 SvREADONLY_on(sv);
13188 } while(0) /*@SWIG@*/;
13189 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13190 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLG", TRUE | 0x2 | GV_ADDMULTI);
13191 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLG)));
13192 SvREADONLY_on(sv);
13193 } while(0) /*@SWIG@*/;
13194 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13195 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOF", TRUE | 0x2 | GV_ADDMULTI);
13196 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOF)));
13197 SvREADONLY_on(sv);
13198 } while(0) /*@SWIG@*/;
13199 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13200 SV *sv = get_sv((char*) SWIG_prefix "M_E", TRUE | 0x2 | GV_ADDMULTI);
13201 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(2.71828182845904523536028747135)));
13202 SvREADONLY_on(sv);
13203 } while(0) /*@SWIG@*/;
13204 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13205 SV *sv = get_sv((char*) SWIG_prefix "M_LOG2E", TRUE | 0x2 | GV_ADDMULTI);
13206 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(1.44269504088896340735992468100)));
13207 SvREADONLY_on(sv);
13208 } while(0) /*@SWIG@*/;
13209 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13210 SV *sv = get_sv((char*) SWIG_prefix "M_LOG10E", TRUE | 0x2 | GV_ADDMULTI);
13211 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(0.43429448190325182765112891892)));
13212 SvREADONLY_on(sv);
13213 } while(0) /*@SWIG@*/;
13214 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13215 SV *sv = get_sv((char*) SWIG_prefix "M_SQRT2", TRUE | 0x2 | GV_ADDMULTI);
13216 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(1.41421356237309504880168872421)));
13217 SvREADONLY_on(sv);
13218 } while(0) /*@SWIG@*/;
13219 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13220 SV *sv = get_sv((char*) SWIG_prefix "M_SQRT1_2", TRUE | 0x2 | GV_ADDMULTI);
13221 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(0.70710678118654752440084436210)));
13222 SvREADONLY_on(sv);
13223 } while(0) /*@SWIG@*/;
13224 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13225 SV *sv = get_sv((char*) SWIG_prefix "M_SQRT3", TRUE | 0x2 | GV_ADDMULTI);
13226 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(1.73205080756887729352744634151)));
13227 SvREADONLY_on(sv);
13228 } while(0) /*@SWIG@*/;
13229 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13230 SV *sv = get_sv((char*) SWIG_prefix "M_PI", TRUE | 0x2 | GV_ADDMULTI);
13231 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(3.14159265358979323846264338328)));
13232 SvREADONLY_on(sv);
13233 } while(0) /*@SWIG@*/;
13234 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13235 SV *sv = get_sv((char*) SWIG_prefix "M_PI_2", TRUE | 0x2 | GV_ADDMULTI);
13236 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(1.57079632679489661923132169164)));
13237 SvREADONLY_on(sv);
13238 } while(0) /*@SWIG@*/;
13239 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13240 SV *sv = get_sv((char*) SWIG_prefix "M_PI_4", TRUE | 0x2 | GV_ADDMULTI);
13241 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(0.78539816339744830961566084582)));
13242 SvREADONLY_on(sv);
13243 } while(0) /*@SWIG@*/;
13244 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13245 SV *sv = get_sv((char*) SWIG_prefix "M_SQRTPI", TRUE | 0x2 | GV_ADDMULTI);
13246 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(1.77245385090551602729816748334)));
13247 SvREADONLY_on(sv);
13248 } while(0) /*@SWIG@*/;
13249 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13250 SV *sv = get_sv((char*) SWIG_prefix "M_2_SQRTPI", TRUE | 0x2 | GV_ADDMULTI);
13251 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(1.12837916709551257389615890312)));
13252 SvREADONLY_on(sv);
13253 } while(0) /*@SWIG@*/;
13254 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13255 SV *sv = get_sv((char*) SWIG_prefix "M_1_PI", TRUE | 0x2 | GV_ADDMULTI);
13256 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(0.31830988618379067153776752675)));
13257 SvREADONLY_on(sv);
13258 } while(0) /*@SWIG@*/;
13259 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13260 SV *sv = get_sv((char*) SWIG_prefix "M_2_PI", TRUE | 0x2 | GV_ADDMULTI);
13261 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(0.63661977236758134307553505349)));
13262 SvREADONLY_on(sv);
13263 } while(0) /*@SWIG@*/;
13264 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13265 SV *sv = get_sv((char*) SWIG_prefix "M_LN10", TRUE | 0x2 | GV_ADDMULTI);
13266 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(2.30258509299404568401799145468)));
13267 SvREADONLY_on(sv);
13268 } while(0) /*@SWIG@*/;
13269 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13270 SV *sv = get_sv((char*) SWIG_prefix "M_LN2", TRUE | 0x2 | GV_ADDMULTI);
13271 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(0.69314718055994530941723212146)));
13272 SvREADONLY_on(sv);
13273 } while(0) /*@SWIG@*/;
13274 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13275 SV *sv = get_sv((char*) SWIG_prefix "M_LNPI", TRUE | 0x2 | GV_ADDMULTI);
13276 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(1.14472988584940017414342735135)));
13277 SvREADONLY_on(sv);
13278 } while(0) /*@SWIG@*/;
13279 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
13280 SV *sv = get_sv((char*) SWIG_prefix "M_EULER", TRUE | 0x2 | GV_ADDMULTI);
13281 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(0.57721566490153286060651209008)));
13282 SvREADONLY_on(sv);
13283 } while(0) /*@SWIG@*/;
13284 SWIG_TypeClientData(SWIGTYPE_p_gsl_function_struct, (void*) "Math::GSL::Multilarge::gsl_function_struct");
13285 SWIG_TypeClientData(SWIGTYPE_p_gsl_function_fdf_struct, (void*) "Math::GSL::Multilarge::gsl_function_fdf_struct");
13286 SWIG_TypeClientData(SWIGTYPE_p_gsl_function_vec_struct, (void*) "Math::GSL::Multilarge::gsl_function_vec_struct");
13287 SWIG_TypeClientData(SWIGTYPE_p_gsl_permutation_struct, (void*) "Math::GSL::Multilarge::gsl_permutation_struct");
13288 SWIG_TypeClientData(SWIGTYPE_p_gsl_multifit_linear_workspace, (void*) "Math::GSL::Multilarge::gsl_multifit_linear_workspace");
13289 SWIG_TypeClientData(SWIGTYPE_p_gsl_multifit_robust_type, (void*) "Math::GSL::Multilarge::gsl_multifit_robust_type");
13290 SWIG_TypeClientData(SWIGTYPE_p_gsl_multifit_robust_stats, (void*) "Math::GSL::Multilarge::gsl_multifit_robust_stats");
13291 SWIG_TypeClientData(SWIGTYPE_p_gsl_multifit_robust_workspace, (void*) "Math::GSL::Multilarge::gsl_multifit_robust_workspace");
13292 SWIG_TypeClientData(SWIGTYPE_p_gsl_multilarge_linear_type, (void*) "Math::GSL::Multilarge::gsl_multilarge_linear_type");
13293 SWIG_TypeClientData(SWIGTYPE_p_gsl_multilarge_linear_workspace, (void*) "Math::GSL::Multilarge::gsl_multilarge_linear_workspace");
13294 ST(0) = &PL_sv_yes;
13295 XSRETURN(1);
13296 }
13297
13298