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_q_const__char_p_q_const__char_int_int__void swig_types[6]
1526 #define SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void swig_types[7]
1527 #define SWIGTYPE_p_f_p_q_const__gsl_vector_p_gsl_vector__int swig_types[8]
1528 #define SWIGTYPE_p_f_p_q_const__gsl_vector_p_void_p_gsl_matrix__int swig_types[9]
1529 #define SWIGTYPE_p_f_p_q_const__gsl_vector_p_void_p_gsl_vector__int swig_types[10]
1530 #define SWIGTYPE_p_f_p_q_const__gsl_vector_p_void_p_gsl_vector_p_gsl_matrix__int swig_types[11]
1531 #define SWIGTYPE_p_f_p_void__void swig_types[12]
1532 #define SWIGTYPE_p_f_p_void_p_gsl_matrix__int swig_types[13]
1533 #define SWIGTYPE_p_f_p_void_p_gsl_vector__int swig_types[14]
1534 #define SWIGTYPE_p_f_p_void_p_q_const__gsl_vector_p_struct_gsl_multifit_function_fdf_struct_p_gsl_vector_p_gsl_vector_p_gsl_vector__int swig_types[15]
1535 #define SWIGTYPE_p_f_p_void_p_struct_gsl_multifit_function_struct_p_gsl_vector_p_gsl_vector_p_gsl_vector__int swig_types[16]
1536 #define SWIGTYPE_p_f_p_void_size_t_size_t__int 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_fdfridge swig_types[22]
1542 #define SWIGTYPE_p_gsl_multifit_fdfsolver swig_types[23]
1543 #define SWIGTYPE_p_gsl_multifit_fdfsolver_type swig_types[24]
1544 #define SWIGTYPE_p_gsl_multifit_fsolver swig_types[25]
1545 #define SWIGTYPE_p_gsl_multifit_fsolver_type swig_types[26]
1546 #define SWIGTYPE_p_gsl_multifit_function_fdf_struct swig_types[27]
1547 #define SWIGTYPE_p_gsl_multifit_function_struct swig_types[28]
1548 #define SWIGTYPE_p_gsl_multifit_linear_workspace swig_types[29]
1549 #define SWIGTYPE_p_gsl_multifit_robust_stats swig_types[30]
1550 #define SWIGTYPE_p_gsl_multifit_robust_type swig_types[31]
1551 #define SWIGTYPE_p_gsl_multifit_robust_workspace swig_types[32]
1552 #define SWIGTYPE_p_gsl_permutation_struct swig_types[33]
1553 #define SWIGTYPE_p_gsl_vector swig_types[34]
1554 #define SWIGTYPE_p_int swig_types[35]
1555 #define SWIGTYPE_p_size_t swig_types[36]
1556 #define SWIGTYPE_p_void swig_types[37]
1557 static swig_type_info *swig_types[39];
1558 static swig_module_info swig_module = {swig_types, 38, 0, 0, 0, 0};
1559 #define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
1560 #define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
1561
1562 /* -------- TYPES TABLE (END) -------- */
1563
1564 #define SWIG_init boot_Math__GSL__Multifit
1565
1566 #define SWIG_name "Math::GSL::Multifitc::boot_Math__GSL__Multifit"
1567 #define SWIG_prefix "Math::GSL::Multifitc::"
1568
1569 #define SWIGVERSION 0x040001
1570 #define SWIG_VERSION SWIGVERSION
1571
1572
1573 #define SWIG_as_voidptr(a) (void *)((const void *)(a))
1574 #define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a),(void**)(a))
1575
1576
1577 #ifdef __cplusplus
1578 extern "C"
1579 #endif
1580 #ifndef PERL_OBJECT
1581 #ifndef MULTIPLICITY
1582 SWIGEXPORT void SWIG_init (CV* cv);
1583 #else
1584 SWIGEXPORT void SWIG_init (pTHXo_ CV* cv);
1585 #endif
1586 #else
1587 SWIGEXPORT void SWIG_init (CV *cv, CPerlObj *);
1588 #endif
1589
1590
1591 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(double value)1592 SWIG_From_double SWIG_PERL_DECL_ARGS_1(double value)
1593 {
1594 return sv_2mortal(newSVnv(value));
1595 }
1596
1597
1598 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(long value)1599 SWIG_From_long SWIG_PERL_DECL_ARGS_1(long value)
1600 {
1601 SV *sv;
1602 if (IVSIZE >= sizeof(value) || (value >= IV_MIN && value <= IV_MAX))
1603 sv = newSViv(value);
1604 else
1605 sv = newSVpvf("%ld", value);
1606 return sv_2mortal(sv);
1607 }
1608
1609
1610 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(int value)1611 SWIG_From_int SWIG_PERL_DECL_ARGS_1(int value)
1612 {
1613 return SWIG_From_long SWIG_PERL_CALL_ARGS_1(value);
1614 }
1615
1616
1617 SWIGINTERN swig_type_info*
SWIG_pchar_descriptor(void)1618 SWIG_pchar_descriptor(void)
1619 {
1620 static int init = 0;
1621 static swig_type_info* info = 0;
1622 if (!init) {
1623 info = SWIG_TypeQuery("_p_char");
1624 init = 1;
1625 }
1626 return info;
1627 }
1628
1629
1630 SWIGINTERN int
SWIG_AsCharPtrAndSize(SV * obj,char ** cptr,size_t * psize,int * alloc)1631 SWIG_AsCharPtrAndSize(SV *obj, char** cptr, size_t* psize, int *alloc)
1632 {
1633 if (SvMAGICAL(obj)) {
1634 SV *tmp = sv_newmortal();
1635 SvSetSV(tmp, obj);
1636 obj = tmp;
1637 }
1638 if (SvPOK(obj)) {
1639 STRLEN len = 0;
1640 char *cstr = SvPV(obj, len);
1641 size_t size = len + 1;
1642 if (cptr) {
1643 if (alloc) {
1644 if (*alloc == SWIG_NEWOBJ) {
1645 *cptr = (char *)memcpy(malloc((size)*sizeof(char)), cstr, sizeof(char)*(size));
1646 } else {
1647 *cptr = cstr;
1648 *alloc = SWIG_OLDOBJ;
1649 }
1650 }
1651 }
1652 if (psize) *psize = size;
1653 return SWIG_OK;
1654 } else {
1655 swig_type_info* pchar_descriptor = SWIG_pchar_descriptor();
1656 if (pchar_descriptor) {
1657 char* vptr = 0;
1658 if (SWIG_ConvertPtr(obj, (void**)&vptr, pchar_descriptor, 0) == SWIG_OK) {
1659 if (cptr) *cptr = vptr;
1660 if (psize) *psize = vptr ? (strlen(vptr) + 1) : 0;
1661 if (alloc) *alloc = SWIG_OLDOBJ;
1662 return SWIG_OK;
1663 }
1664 }
1665 }
1666 return SWIG_TypeError;
1667 }
1668
1669
1670
1671
1672
1673 #include <limits.h>
1674 #if !defined(SWIG_NO_LLONG_MAX)
1675 # if !defined(LLONG_MAX) && defined(__GNUC__) && defined (__LONG_LONG_MAX__)
1676 # define LLONG_MAX __LONG_LONG_MAX__
1677 # define LLONG_MIN (-LLONG_MAX - 1LL)
1678 # define ULLONG_MAX (LLONG_MAX * 2ULL + 1ULL)
1679 # endif
1680 #endif
1681
1682
1683 #include <stdlib.h>
1684 #ifdef _MSC_VER
1685 # ifndef strtoull
1686 # define strtoull _strtoui64
1687 # endif
1688 # ifndef strtoll
1689 # define strtoll _strtoi64
1690 # endif
1691 #endif
1692
1693
1694 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,double * val)1695 SWIG_AsVal_double SWIG_PERL_DECL_ARGS_2(SV *obj, double *val)
1696 {
1697 if (SvNIOK(obj)) {
1698 if (val) *val = SvNV(obj);
1699 return SWIG_OK;
1700 } else if (SvIOK(obj)) {
1701 if (val) *val = (double) SvIV(obj);
1702 return SWIG_AddCast(SWIG_OK);
1703 } else {
1704 const char *nptr = SvPV_nolen(obj);
1705 if (nptr) {
1706 char *endptr;
1707 double v;
1708 errno = 0;
1709 v = strtod(nptr, &endptr);
1710 if (errno == ERANGE) {
1711 errno = 0;
1712 return SWIG_OverflowError;
1713 } else {
1714 if (*endptr == '\0') {
1715 if (val) *val = v;
1716 return SWIG_Str2NumCast(SWIG_OK);
1717 }
1718 }
1719 }
1720 }
1721 return SWIG_TypeError;
1722 }
1723
1724
1725 #include <float.h>
1726
1727
1728 #include <math.h>
1729
1730
1731 SWIGINTERNINLINE int
SWIG_CanCastAsInteger(double * d,double min,double max)1732 SWIG_CanCastAsInteger(double *d, double min, double max) {
1733 double x = *d;
1734 if ((min <= x && x <= max)) {
1735 double fx = floor(x);
1736 double cx = ceil(x);
1737 double rd = ((x - fx) < 0.5) ? fx : cx; /* simple rint */
1738 if ((errno == EDOM) || (errno == ERANGE)) {
1739 errno = 0;
1740 } else {
1741 double summ, reps, diff;
1742 if (rd < x) {
1743 diff = x - rd;
1744 } else if (rd > x) {
1745 diff = rd - x;
1746 } else {
1747 return 1;
1748 }
1749 summ = rd + x;
1750 reps = diff/summ;
1751 if (reps < 8*DBL_EPSILON) {
1752 *d = rd;
1753 return 1;
1754 }
1755 }
1756 }
1757 return 0;
1758 }
1759
1760
1761 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,long * val)1762 SWIG_AsVal_long SWIG_PERL_DECL_ARGS_2(SV *obj, long* val)
1763 {
1764 if (SvUOK(obj)) {
1765 UV v = SvUV(obj);
1766 if (UVSIZE < sizeof(*val) || v <= LONG_MAX) {
1767 if (val) *val = v;
1768 return SWIG_OK;
1769 }
1770 return SWIG_OverflowError;
1771 } else if (SvIOK(obj)) {
1772 IV v = SvIV(obj);
1773 if (IVSIZE <= sizeof(*val) || (v >= LONG_MIN && v <= LONG_MAX)) {
1774 if(val) *val = v;
1775 return SWIG_OK;
1776 }
1777 return SWIG_OverflowError;
1778 } else {
1779 int dispatch = 0;
1780 const char *nptr = SvPV_nolen(obj);
1781 if (nptr) {
1782 char *endptr;
1783 long v;
1784 errno = 0;
1785 v = strtol(nptr, &endptr,0);
1786 if (errno == ERANGE) {
1787 errno = 0;
1788 return SWIG_OverflowError;
1789 } else {
1790 if (*endptr == '\0') {
1791 if (val) *val = v;
1792 return SWIG_Str2NumCast(SWIG_OK);
1793 }
1794 }
1795 }
1796 if (!dispatch) {
1797 double d;
1798 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
1799 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, LONG_MIN, LONG_MAX)) {
1800 if (val) *val = (long)(d);
1801 return res;
1802 }
1803 }
1804 }
1805 return SWIG_TypeError;
1806 }
1807
1808
1809 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,int * val)1810 SWIG_AsVal_int SWIG_PERL_DECL_ARGS_2(SV * obj, int *val)
1811 {
1812 long v;
1813 int res = SWIG_AsVal_long SWIG_PERL_CALL_ARGS_2(obj, &v);
1814 if (SWIG_IsOK(res)) {
1815 if ((v < INT_MIN || v > INT_MAX)) {
1816 return SWIG_OverflowError;
1817 } else {
1818 if (val) *val = (int)(v);
1819 }
1820 }
1821 return res;
1822 }
1823
1824
1825 SWIGINTERNINLINE SV *
SWIG_FromCharPtrAndSize(const char * carray,size_t size)1826 SWIG_FromCharPtrAndSize(const char* carray, size_t size)
1827 {
1828 SV *obj = sv_newmortal();
1829 if (carray) {
1830 sv_setpvn(obj, carray, size);
1831 } else {
1832 sv_setsv(obj, &PL_sv_undef);
1833 }
1834 return obj;
1835 }
1836
1837
1838 SWIGINTERNINLINE SV *
SWIG_FromCharPtr(const char * cptr)1839 SWIG_FromCharPtr(const char *cptr)
1840 {
1841 return SWIG_FromCharPtrAndSize(cptr, (cptr ? strlen(cptr) : 0));
1842 }
1843
1844
1845 #include "gsl/gsl_nan.h"
1846 #include "gsl/gsl_errno.h"
1847 #include "gsl/gsl_math.h"
1848 #include "gsl/gsl_monte.h"
1849
1850
1851 struct perl_array {
1852 I32 len;
1853 AV *array;
1854 };
1855
1856
1857
1858 enum awType { awDouble, awFloat, awInt, awUnsigned };
1859
1860 typedef struct {
1861 I32 size;
1862 enum awType type;
1863 void * data;
1864 } array_wrapper;
1865
array_wrapper_alloc(int numelem,enum awType type)1866 array_wrapper * array_wrapper_alloc(int numelem, enum awType type){
1867 array_wrapper * rv = malloc(sizeof(array_wrapper));
1868
1869 if (rv == NULL)
1870 croak("array_wrapper_alloc: can't malloc wrapper\n");
1871
1872 switch (type){
1873 case awDouble:
1874 rv->data = malloc(sizeof(double) * numelem);
1875 break;
1876 case awFloat:
1877 rv->data = malloc(sizeof(float) * numelem);
1878 break;
1879 case awInt:
1880 rv->data = malloc(sizeof(int) * numelem);
1881 break;
1882 case awUnsigned:
1883 rv->data = malloc(sizeof(unsigned int) * numelem);
1884 break;
1885 default:
1886 croak("array_wrapper_alloc: type should be awDouble, awFloat, awInt, or awUnsigned");
1887 }
1888
1889 if (rv->data == NULL)
1890 croak("array_wrapper_alloc: can't malloc data");
1891
1892 rv->size = numelem;
1893 rv->type = type;
1894 return rv;
1895 }
1896
array_wrapper_free(array_wrapper * daw)1897 void array_wrapper_free(array_wrapper * daw){
1898 free(daw->data);
1899 free(daw);
1900 }
1901
1902
1903 /* structure to hold required information while the gsl function call
1904 for each callback
1905 */
1906 struct gsl_function_perl {
1907 gsl_function C_gsl_function;
1908 SV * function;
1909 SV * params;
1910 };
1911
1912 struct gsl_function_fdf_perl {
1913 gsl_function_fdf C_gsl_function_fdf;
1914 SV * f;
1915 SV * df;
1916 SV * fdf;
1917 SV * params;
1918 };
1919
1920 struct gsl_monte_function_perl {
1921 gsl_monte_function C_gsl_monte_function;
1922 SV * f;
1923 SV * dim;
1924 SV * params;
1925 };
1926
gsl_function_perl_free(struct gsl_function_perl * perl_f)1927 void gsl_function_perl_free(struct gsl_function_perl * perl_f){
1928 if (perl_f != NULL) {
1929 SvREFCNT_dec(perl_f->function);
1930 SvREFCNT_dec(perl_f->params);
1931 Safefree(perl_f);
1932 }
1933 }
1934
gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf)1935 void gsl_function_fdf_perl_free(struct gsl_function_fdf_perl * perl_fdf){
1936 if (perl_fdf != NULL) {
1937 SvREFCNT_dec(perl_fdf->f);
1938 SvREFCNT_dec(perl_fdf->df);
1939 SvREFCNT_dec(perl_fdf->fdf);
1940 SvREFCNT_dec(perl_fdf->params);
1941 Safefree(perl_fdf);
1942 }
1943 }
1944
1945 /* These functions (C callbacks) calls the perl callbacks.
1946 Info for perl callback can be found using the 'void*params' parameter
1947 */
call_gsl_function_x_params(SV * function,double x,SV * params)1948 double call_gsl_function_x_params(SV* function, double x, SV *params){
1949 unsigned int count;
1950 double y;
1951 dSP;
1952
1953 //fprintf(stderr, "LOOKUP CALLBACK\n");
1954 ENTER;
1955 SAVETMPS;
1956
1957 PUSHMARK(SP);
1958 XPUSHs(sv_2mortal(newSVnv((double)x)));
1959 XPUSHs(params);
1960 PUTBACK; /* make local stack pointer global */
1961
1962 count = call_sv(function, G_SCALAR);
1963 SPAGAIN;
1964
1965 if (count != 1)
1966 croak("Expected to call subroutine in scalar context!");
1967
1968 y = POPn;
1969
1970 PUTBACK; /* make local stack pointer global */
1971 FREETMPS;
1972 LEAVE;
1973
1974 return y;
1975 }
1976
call_gsl_function(double x,void * params)1977 double call_gsl_function(double x , void *params){
1978 struct gsl_function_perl *F=(struct gsl_function_perl*)params;
1979 return call_gsl_function_x_params( F->function, x, F->params );
1980 }
1981
call_gsl_function_fdf_f(double x,void * params)1982 double call_gsl_function_fdf_f(double x , void *params){
1983 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1984 return call_gsl_function_x_params( F->f, x, F->params );
1985 }
1986
call_gsl_function_fdf_df(double x,void * params)1987 double call_gsl_function_fdf_df(double x , void *params){
1988 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1989 return call_gsl_function_x_params( F->df, x, F->params );
1990 }
1991
call_gsl_function_fdf_fdf(double x,void * params,double * f,double * df)1992 void call_gsl_function_fdf_fdf(double x , void *params, double *f, double *df ){
1993 struct gsl_function_fdf_perl *F=(struct gsl_function_fdf_perl*)params;
1994
1995 dSP;
1996
1997 ENTER;
1998 SAVETMPS;
1999
2000 PUSHMARK(SP);
2001 EXTEND(SP, 2);
2002 PUSHs(sv_2mortal(newSVnv((double)x)));
2003 PUSHs(F->params);
2004 PUTBACK; /* make local stack pointer global */
2005
2006 {
2007 unsigned int count = call_sv(F->fdf, G_ARRAY);
2008 SPAGAIN;
2009
2010 if (count != 2)
2011 croak( "Expected two return values, got %d", count );
2012 }
2013
2014 *df = POPn;
2015 *f = POPn;
2016
2017 PUTBACK; /* make local stack pointer global */
2018 FREETMPS;
2019 LEAVE;
2020 }
2021
call_gsl_monte_function(double * x_array,size_t dim,void * params)2022 double call_gsl_monte_function(double *x_array , size_t dim, void *params){
2023 struct gsl_monte_function_perl *F=(struct gsl_monte_function_perl*)params;
2024 unsigned int count;
2025 unsigned int i;
2026 AV* perl_array;
2027 double y;
2028 dSP;
2029
2030 //fprintf(stderr, "LOOKUP CALLBACK\n");
2031 ENTER;
2032 SAVETMPS;
2033
2034 PUSHMARK(SP);
2035 perl_array=newAV();
2036 sv_2mortal((SV*)perl_array);
2037 XPUSHs(sv_2mortal(newRV((SV *)perl_array)));
2038 for(i=0; i<dim; i++) {
2039 /* no mortal : it is referenced by the array */
2040 av_push(perl_array, newSVnv(x_array[i]));
2041 }
2042 XPUSHs(sv_2mortal(newSViv(dim)));
2043 XPUSHs(F->params);
2044 PUTBACK; /* make local stack pointer global */
2045
2046 count = call_sv(F->f, G_SCALAR);
2047 SPAGAIN;
2048
2049 if (count != 1)
2050 croak("Expected to call subroutine in scalar context!");
2051
2052 y = POPn;
2053
2054 PUTBACK; /* make local stack pointer global */
2055 FREETMPS;
2056 LEAVE;
2057
2058 return y;
2059 }
2060
2061
gsl_function_fdf_extract(char * param_name,HV * hash,SV * func[])2062 void gsl_function_fdf_extract( char* param_name, HV* hash, SV* func[] ) {
2063 static const char *keys[3] = { "f", "df", "fdf" };
2064
2065 int ikey;
2066
2067 for ( ikey = 0 ; ikey < 3 ; ++ikey ) {
2068 func[ikey] = 0;
2069 const char* key = keys[ikey];
2070 /* it just so happens that strlen(keys[ikey]) == ikey + 1 */
2071 SV** pp_sv = hv_fetch( hash, key, ikey+1, 0 );
2072 SV* function;
2073
2074 if ( !pp_sv )
2075 croak("Math::GSL : %s: missing key %s!", param_name, key);
2076
2077 function = *pp_sv;
2078
2079 if ( SvPOK(function) || ( SvROK( function ) && SvTYPE(SvRV(function)) == SVt_PVCV ) ) {
2080 /* hold on to SV after the enclosing hash goes away */
2081 SvREFCNT_inc( function );
2082 func[ikey] = function;
2083 }
2084 else {
2085 croak( "Math::GSL : %s: key %s is not a reference to code!", param_name, key);
2086 }
2087 }
2088 }
2089
2090
2091
2092 #include "gsl/gsl_inline.h"
2093 #include "gsl/gsl_types.h"
2094 #include "gsl/gsl_version.h"
2095 #include "gsl/gsl_math.h"
2096 #include "gsl/gsl_vector.h"
2097 #include "gsl/gsl_matrix.h"
2098 #include "gsl/gsl_permutation.h"
2099 #include "gsl/gsl_multifit.h"
2100 #include "gsl/gsl_multifit_nlin.h"
2101
2102
2103 #if defined GSL_MAJOR_VERSION && (GSL_MAJOR_VERSION < 2)
2104 /* TOTAL HACKERY TO GET THINGS TO COMPILE on 1.15 and 1.16 */
2105 GSL_VAR const gsl_multifit_fdfsolver_type * gsl_multifit_fdfsolver_lmniel;
2106 #endif
2107
2108
2109 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long * val)2110 SWIG_AsVal_unsigned_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long *val)
2111 {
2112 if (SvUOK(obj)) {
2113 UV v = SvUV(obj);
2114 if (UVSIZE <= sizeof(*val) || v <= ULONG_MAX) {
2115 if (val) *val = v;
2116 return SWIG_OK;
2117 }
2118 return SWIG_OverflowError;
2119 } else if (SvIOK(obj)) {
2120 IV v = SvIV(obj);
2121 if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULONG_MAX)) {
2122 if (val) *val = v;
2123 return SWIG_OK;
2124 }
2125 return SWIG_OverflowError;
2126 } else {
2127 int dispatch = 0;
2128 const char *nptr = SvPV_nolen(obj);
2129 if (nptr) {
2130 char *endptr;
2131 unsigned long v;
2132 errno = 0;
2133 v = strtoul(nptr, &endptr,0);
2134 if (errno == ERANGE) {
2135 errno = 0;
2136 return SWIG_OverflowError;
2137 } else {
2138 if (*endptr == '\0') {
2139 if (val) *val = v;
2140 return SWIG_Str2NumCast(SWIG_OK);
2141 }
2142 }
2143 }
2144 if (!dispatch) {
2145 double d;
2146 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2147 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, ULONG_MAX)) {
2148 if (val) *val = (unsigned long)(d);
2149 return res;
2150 }
2151 }
2152 }
2153 return SWIG_TypeError;
2154 }
2155
2156
2157 #if defined(LLONG_MAX) && !defined(SWIG_LONG_LONG_AVAILABLE)
2158 # define SWIG_LONG_LONG_AVAILABLE
2159 #endif
2160
2161
2162 #ifdef SWIG_LONG_LONG_AVAILABLE
2163 SWIGINTERN int
SWIG_PERL_DECL_ARGS_2(SV * obj,unsigned long long * val)2164 SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_DECL_ARGS_2(SV *obj, unsigned long long *val)
2165 {
2166 if (SvUOK(obj)) {
2167 /* pretty sure this should be conditional on
2168 * (UVSIZE <= sizeof(*val) || v <= ULLONG_MAX) */
2169 if (val) *val = SvUV(obj);
2170 return SWIG_OK;
2171 } else if (SvIOK(obj)) {
2172 IV v = SvIV(obj);
2173 if (v >= 0 && (IVSIZE <= sizeof(*val) || v <= ULLONG_MAX)) {
2174 if (val) *val = v;
2175 return SWIG_OK;
2176 } else {
2177 return SWIG_OverflowError;
2178 }
2179 } else {
2180 int dispatch = 0;
2181 const char *nptr = SvPV_nolen(obj);
2182 if (nptr) {
2183 char *endptr;
2184 unsigned long long v;
2185 errno = 0;
2186 v = strtoull(nptr, &endptr,0);
2187 if (errno == ERANGE) {
2188 errno = 0;
2189 return SWIG_OverflowError;
2190 } else {
2191 if (*endptr == '\0') {
2192 if (val) *val = v;
2193 return SWIG_Str2NumCast(SWIG_OK);
2194 }
2195 }
2196 }
2197 if (!dispatch) {
2198 const double mant_max = 1LL << DBL_MANT_DIG;
2199 double d;
2200 int res = SWIG_AddCast(SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(obj,&d));
2201 if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, mant_max)) {
2202 if (val) *val = (unsigned long long)(d);
2203 return res;
2204 }
2205 }
2206 }
2207 return SWIG_TypeError;
2208 }
2209 #endif
2210
2211
2212 SWIGINTERNINLINE int
SWIG_PERL_DECL_ARGS_2(SV * obj,size_t * val)2213 SWIG_AsVal_size_t SWIG_PERL_DECL_ARGS_2(SV * obj, size_t *val)
2214 {
2215 int res = SWIG_TypeError;
2216 #ifdef SWIG_LONG_LONG_AVAILABLE
2217 if (sizeof(size_t) <= sizeof(unsigned long)) {
2218 #endif
2219 unsigned long v;
2220 res = SWIG_AsVal_unsigned_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2221 if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2222 #ifdef SWIG_LONG_LONG_AVAILABLE
2223 } else if (sizeof(size_t) <= sizeof(unsigned long long)) {
2224 unsigned long long v;
2225 res = SWIG_AsVal_unsigned_SS_long_SS_long SWIG_PERL_CALL_ARGS_2(obj, val ? &v : 0);
2226 if (SWIG_IsOK(res) && val) *val = (size_t)(v);
2227 }
2228 #endif
2229 return res;
2230 }
2231
2232
2233 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long value)2234 SWIG_From_unsigned_SS_long SWIG_PERL_DECL_ARGS_1(unsigned long value)
2235 {
2236 SV *sv;
2237 if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2238 sv = newSVuv(value);
2239 else
2240 sv = newSVpvf("%lu", value);
2241 return sv_2mortal(sv);
2242 }
2243
2244
2245 #include <stdio.h>
2246 #if (defined(_MSC_VER) && (_MSC_VER < 1900)) || defined(__BORLANDC__) || defined(_WATCOM)
2247 # ifndef snprintf
2248 # define snprintf _snprintf
2249 # endif
2250 #endif
2251
2252
2253 #ifdef SWIG_LONG_LONG_AVAILABLE
2254 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(unsigned long long value)2255 SWIG_From_unsigned_SS_long_SS_long SWIG_PERL_DECL_ARGS_1(unsigned long long value)
2256 {
2257 SV *sv;
2258 if (UVSIZE >= sizeof(value) || value <= UV_MAX)
2259 sv = newSVuv((UV)(value));
2260 else {
2261 //sv = newSVpvf("%llu", value); doesn't work in non 64bit Perl
2262 char temp[256];
2263 sprintf(temp, "%llu", value);
2264 sv = newSVpv(temp, 0);
2265 }
2266 return sv_2mortal(sv);
2267 }
2268 #endif
2269
2270
2271 SWIGINTERNINLINE SV *
SWIG_PERL_DECL_ARGS_1(size_t value)2272 SWIG_From_size_t SWIG_PERL_DECL_ARGS_1(size_t value)
2273 {
2274 #ifdef SWIG_LONG_LONG_AVAILABLE
2275 if (sizeof(size_t) <= sizeof(unsigned long)) {
2276 #endif
2277 return SWIG_From_unsigned_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long)(value));
2278 #ifdef SWIG_LONG_LONG_AVAILABLE
2279 } else {
2280 /* assume sizeof(size_t) <= sizeof(unsigned long long) */
2281 return SWIG_From_unsigned_SS_long_SS_long SWIG_PERL_CALL_ARGS_1((unsigned long long)(value));
2282 }
2283 #endif
2284 }
2285
2286 #ifdef __cplusplus
2287 extern "C" {
2288 #endif
2289
2290 #ifdef PERL_OBJECT
2291 #define MAGIC_CLASS _wrap_Math__GSL__Multifit_var::
2292 class _wrap_Math__GSL__Multifit_var : public CPerlObj {
2293 public:
2294 #else
2295 #define MAGIC_CLASS
2296 #endif
swig_magic_readonly(pTHX_ SV * SWIGUNUSEDPARM (sv),MAGIC * SWIGUNUSEDPARM (mg))2297 SWIGCLASS_STATIC int swig_magic_readonly(pTHX_ SV *SWIGUNUSEDPARM(sv), MAGIC *SWIGUNUSEDPARM(mg)) {
2298 MAGIC_PPERL
2299 croak("Value is read-only.");
2300 return 0;
2301 }
_wrap_gsl_multifit_robust_default_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2302 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_default_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2303 MAGIC_PPERL
2304 {
2305 void *argp = 0;
2306 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_multifit_robust_type, 0 );
2307 if (!SWIG_IsOK(res)) {
2308 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_multifit_robust_default""' of type '""gsl_multifit_robust_type const *""'");
2309 }
2310 gsl_multifit_robust_default = (gsl_multifit_robust_type *)(argp);
2311 }
2312 fail:
2313 return 1;
2314 }
2315
2316
_wrap_gsl_multifit_robust_default_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2317 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_default_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2318 MAGIC_PPERL
2319 sv_setiv(SvRV(sv),PTR2IV(gsl_multifit_robust_default));
2320 return 1;
2321 }
2322
2323
_wrap_gsl_multifit_robust_bisquare_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2324 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_bisquare_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2325 MAGIC_PPERL
2326 {
2327 void *argp = 0;
2328 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_multifit_robust_type, 0 );
2329 if (!SWIG_IsOK(res)) {
2330 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_multifit_robust_bisquare""' of type '""gsl_multifit_robust_type const *""'");
2331 }
2332 gsl_multifit_robust_bisquare = (gsl_multifit_robust_type *)(argp);
2333 }
2334 fail:
2335 return 1;
2336 }
2337
2338
_wrap_gsl_multifit_robust_bisquare_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2339 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_bisquare_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2340 MAGIC_PPERL
2341 sv_setiv(SvRV(sv),PTR2IV(gsl_multifit_robust_bisquare));
2342 return 1;
2343 }
2344
2345
_wrap_gsl_multifit_robust_cauchy_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2346 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_cauchy_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2347 MAGIC_PPERL
2348 {
2349 void *argp = 0;
2350 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_multifit_robust_type, 0 );
2351 if (!SWIG_IsOK(res)) {
2352 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_multifit_robust_cauchy""' of type '""gsl_multifit_robust_type const *""'");
2353 }
2354 gsl_multifit_robust_cauchy = (gsl_multifit_robust_type *)(argp);
2355 }
2356 fail:
2357 return 1;
2358 }
2359
2360
_wrap_gsl_multifit_robust_cauchy_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2361 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_cauchy_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2362 MAGIC_PPERL
2363 sv_setiv(SvRV(sv),PTR2IV(gsl_multifit_robust_cauchy));
2364 return 1;
2365 }
2366
2367
_wrap_gsl_multifit_robust_fair_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2368 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_fair_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2369 MAGIC_PPERL
2370 {
2371 void *argp = 0;
2372 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_multifit_robust_type, 0 );
2373 if (!SWIG_IsOK(res)) {
2374 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_multifit_robust_fair""' of type '""gsl_multifit_robust_type const *""'");
2375 }
2376 gsl_multifit_robust_fair = (gsl_multifit_robust_type *)(argp);
2377 }
2378 fail:
2379 return 1;
2380 }
2381
2382
_wrap_gsl_multifit_robust_fair_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2383 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_fair_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2384 MAGIC_PPERL
2385 sv_setiv(SvRV(sv),PTR2IV(gsl_multifit_robust_fair));
2386 return 1;
2387 }
2388
2389
_wrap_gsl_multifit_robust_huber_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2390 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_huber_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2391 MAGIC_PPERL
2392 {
2393 void *argp = 0;
2394 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_multifit_robust_type, 0 );
2395 if (!SWIG_IsOK(res)) {
2396 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_multifit_robust_huber""' of type '""gsl_multifit_robust_type const *""'");
2397 }
2398 gsl_multifit_robust_huber = (gsl_multifit_robust_type *)(argp);
2399 }
2400 fail:
2401 return 1;
2402 }
2403
2404
_wrap_gsl_multifit_robust_huber_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2405 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_huber_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2406 MAGIC_PPERL
2407 sv_setiv(SvRV(sv),PTR2IV(gsl_multifit_robust_huber));
2408 return 1;
2409 }
2410
2411
_wrap_gsl_multifit_robust_ols_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2412 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_ols_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2413 MAGIC_PPERL
2414 {
2415 void *argp = 0;
2416 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_multifit_robust_type, 0 );
2417 if (!SWIG_IsOK(res)) {
2418 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_multifit_robust_ols""' of type '""gsl_multifit_robust_type const *""'");
2419 }
2420 gsl_multifit_robust_ols = (gsl_multifit_robust_type *)(argp);
2421 }
2422 fail:
2423 return 1;
2424 }
2425
2426
_wrap_gsl_multifit_robust_ols_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2427 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_ols_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2428 MAGIC_PPERL
2429 sv_setiv(SvRV(sv),PTR2IV(gsl_multifit_robust_ols));
2430 return 1;
2431 }
2432
2433
_wrap_gsl_multifit_robust_welsch_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2434 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_welsch_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2435 MAGIC_PPERL
2436 {
2437 void *argp = 0;
2438 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_multifit_robust_type, 0 );
2439 if (!SWIG_IsOK(res)) {
2440 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_multifit_robust_welsch""' of type '""gsl_multifit_robust_type const *""'");
2441 }
2442 gsl_multifit_robust_welsch = (gsl_multifit_robust_type *)(argp);
2443 }
2444 fail:
2445 return 1;
2446 }
2447
2448
_wrap_gsl_multifit_robust_welsch_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2449 SWIGCLASS_STATIC int _wrap_gsl_multifit_robust_welsch_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2450 MAGIC_PPERL
2451 sv_setiv(SvRV(sv),PTR2IV(gsl_multifit_robust_welsch));
2452 return 1;
2453 }
2454
2455
_wrap_gsl_multifit_fdfsolver_lmsder_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2456 SWIGCLASS_STATIC int _wrap_gsl_multifit_fdfsolver_lmsder_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2457 MAGIC_PPERL
2458 {
2459 void *argp = 0;
2460 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_multifit_fdfsolver_type, 0 );
2461 if (!SWIG_IsOK(res)) {
2462 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_multifit_fdfsolver_lmsder""' of type '""gsl_multifit_fdfsolver_type const *""'");
2463 }
2464 gsl_multifit_fdfsolver_lmsder = (gsl_multifit_fdfsolver_type *)(argp);
2465 }
2466 fail:
2467 return 1;
2468 }
2469
2470
_wrap_gsl_multifit_fdfsolver_lmsder_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2471 SWIGCLASS_STATIC int _wrap_gsl_multifit_fdfsolver_lmsder_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2472 MAGIC_PPERL
2473 sv_setiv(SvRV(sv),PTR2IV(gsl_multifit_fdfsolver_lmsder));
2474 return 1;
2475 }
2476
2477
_wrap_gsl_multifit_fdfsolver_lmder_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2478 SWIGCLASS_STATIC int _wrap_gsl_multifit_fdfsolver_lmder_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2479 MAGIC_PPERL
2480 {
2481 void *argp = 0;
2482 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_multifit_fdfsolver_type, 0 );
2483 if (!SWIG_IsOK(res)) {
2484 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_multifit_fdfsolver_lmder""' of type '""gsl_multifit_fdfsolver_type const *""'");
2485 }
2486 gsl_multifit_fdfsolver_lmder = (gsl_multifit_fdfsolver_type *)(argp);
2487 }
2488 fail:
2489 return 1;
2490 }
2491
2492
_wrap_gsl_multifit_fdfsolver_lmder_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2493 SWIGCLASS_STATIC int _wrap_gsl_multifit_fdfsolver_lmder_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2494 MAGIC_PPERL
2495 sv_setiv(SvRV(sv),PTR2IV(gsl_multifit_fdfsolver_lmder));
2496 return 1;
2497 }
2498
2499
_wrap_gsl_multifit_fdfsolver_lmniel_set(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2500 SWIGCLASS_STATIC int _wrap_gsl_multifit_fdfsolver_lmniel_set(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {
2501 MAGIC_PPERL
2502 {
2503 void *argp = 0;
2504 int res = SWIG_ConvertPtr(sv, &argp, SWIGTYPE_p_gsl_multifit_fdfsolver_type, 0 );
2505 if (!SWIG_IsOK(res)) {
2506 SWIG_exception_fail(SWIG_ArgError(res), "in variable '""gsl_multifit_fdfsolver_lmniel""' of type '""gsl_multifit_fdfsolver_type const *""'");
2507 }
2508 gsl_multifit_fdfsolver_lmniel = (gsl_multifit_fdfsolver_type *)(argp);
2509 }
2510 fail:
2511 return 1;
2512 }
2513
2514
_wrap_gsl_multifit_fdfsolver_lmniel_get(pTHX_ SV * sv,MAGIC * SWIGUNUSEDPARM (mg))2515 SWIGCLASS_STATIC int _wrap_gsl_multifit_fdfsolver_lmniel_get(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {
2516 MAGIC_PPERL
2517 sv_setiv(SvRV(sv),PTR2IV(gsl_multifit_fdfsolver_lmniel));
2518 return 1;
2519 }
2520
2521
2522
2523
2524 #ifdef PERL_OBJECT
2525 };
2526 #endif
2527
2528 #ifdef __cplusplus
2529 }
2530 #endif
2531
2532 #ifdef __cplusplus
2533 extern "C" {
2534 #endif
XS(_wrap_gsl_error)2535 XS(_wrap_gsl_error) {
2536 {
2537 char *arg1 = (char *) 0 ;
2538 char *arg2 = (char *) 0 ;
2539 int arg3 ;
2540 int arg4 ;
2541 int res1 ;
2542 char *buf1 = 0 ;
2543 int alloc1 = 0 ;
2544 int res2 ;
2545 char *buf2 = 0 ;
2546 int alloc2 = 0 ;
2547 int val3 ;
2548 int ecode3 = 0 ;
2549 int val4 ;
2550 int ecode4 = 0 ;
2551 int argvi = 0;
2552 dXSARGS;
2553
2554 if ((items < 4) || (items > 4)) {
2555 SWIG_croak("Usage: gsl_error(reason,file,line,gsl_errno);");
2556 }
2557 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2558 if (!SWIG_IsOK(res1)) {
2559 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_error" "', argument " "1"" of type '" "char const *""'");
2560 }
2561 arg1 = (char *)(buf1);
2562 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2563 if (!SWIG_IsOK(res2)) {
2564 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_error" "', argument " "2"" of type '" "char const *""'");
2565 }
2566 arg2 = (char *)(buf2);
2567 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2568 if (!SWIG_IsOK(ecode3)) {
2569 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_error" "', argument " "3"" of type '" "int""'");
2570 }
2571 arg3 = (int)(val3);
2572 ecode4 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
2573 if (!SWIG_IsOK(ecode4)) {
2574 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_error" "', argument " "4"" of type '" "int""'");
2575 }
2576 arg4 = (int)(val4);
2577 gsl_error((char const *)arg1,(char const *)arg2,arg3,arg4);
2578 ST(argvi) = &PL_sv_undef;
2579 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2580 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2581
2582
2583 XSRETURN(argvi);
2584 fail:
2585 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2586 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2587
2588
2589 SWIG_croak_null();
2590 }
2591 }
2592
2593
XS(_wrap_gsl_stream_printf)2594 XS(_wrap_gsl_stream_printf) {
2595 {
2596 char *arg1 = (char *) 0 ;
2597 char *arg2 = (char *) 0 ;
2598 int arg3 ;
2599 char *arg4 = (char *) 0 ;
2600 int res1 ;
2601 char *buf1 = 0 ;
2602 int alloc1 = 0 ;
2603 int res2 ;
2604 char *buf2 = 0 ;
2605 int alloc2 = 0 ;
2606 int val3 ;
2607 int ecode3 = 0 ;
2608 int res4 ;
2609 char *buf4 = 0 ;
2610 int alloc4 = 0 ;
2611 int argvi = 0;
2612 dXSARGS;
2613
2614 if ((items < 4) || (items > 4)) {
2615 SWIG_croak("Usage: gsl_stream_printf(label,file,line,reason);");
2616 }
2617 res1 = SWIG_AsCharPtrAndSize(ST(0), &buf1, NULL, &alloc1);
2618 if (!SWIG_IsOK(res1)) {
2619 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_stream_printf" "', argument " "1"" of type '" "char const *""'");
2620 }
2621 arg1 = (char *)(buf1);
2622 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
2623 if (!SWIG_IsOK(res2)) {
2624 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_stream_printf" "', argument " "2"" of type '" "char const *""'");
2625 }
2626 arg2 = (char *)(buf2);
2627 ecode3 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
2628 if (!SWIG_IsOK(ecode3)) {
2629 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_stream_printf" "', argument " "3"" of type '" "int""'");
2630 }
2631 arg3 = (int)(val3);
2632 res4 = SWIG_AsCharPtrAndSize(ST(3), &buf4, NULL, &alloc4);
2633 if (!SWIG_IsOK(res4)) {
2634 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_stream_printf" "', argument " "4"" of type '" "char const *""'");
2635 }
2636 arg4 = (char *)(buf4);
2637 gsl_stream_printf((char const *)arg1,(char const *)arg2,arg3,(char const *)arg4);
2638 ST(argvi) = &PL_sv_undef;
2639 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2640 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2641
2642 if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2643 XSRETURN(argvi);
2644 fail:
2645 if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
2646 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
2647
2648 if (alloc4 == SWIG_NEWOBJ) free((char*)buf4);
2649 SWIG_croak_null();
2650 }
2651 }
2652
2653
XS(_wrap_gsl_strerror)2654 XS(_wrap_gsl_strerror) {
2655 {
2656 int arg1 ;
2657 int val1 ;
2658 int ecode1 = 0 ;
2659 int argvi = 0;
2660 char *result = 0 ;
2661 dXSARGS;
2662
2663 if ((items < 1) || (items > 1)) {
2664 SWIG_croak("Usage: gsl_strerror(gsl_errno);");
2665 }
2666 ecode1 = SWIG_AsVal_int SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
2667 if (!SWIG_IsOK(ecode1)) {
2668 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_strerror" "', argument " "1"" of type '" "int""'");
2669 }
2670 arg1 = (int)(val1);
2671 result = (char *)gsl_strerror(arg1);
2672 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
2673
2674 XSRETURN(argvi);
2675 fail:
2676
2677 SWIG_croak_null();
2678 }
2679 }
2680
2681
XS(_wrap_gsl_set_error_handler)2682 XS(_wrap_gsl_set_error_handler) {
2683 {
2684 gsl_error_handler_t *arg1 = (gsl_error_handler_t *) 0 ;
2685 int argvi = 0;
2686 gsl_error_handler_t *result = 0 ;
2687 dXSARGS;
2688
2689 if ((items < 1) || (items > 1)) {
2690 SWIG_croak("Usage: gsl_set_error_handler(new_handler);");
2691 }
2692 {
2693 int res = SWIG_ConvertFunctionPtr(ST(0), (void**)(&arg1), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void);
2694 if (!SWIG_IsOK(res)) {
2695 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_error_handler" "', argument " "1"" of type '" "gsl_error_handler_t *""'");
2696 }
2697 }
2698 result = (gsl_error_handler_t *)gsl_set_error_handler(arg1);
2699 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2700
2701 XSRETURN(argvi);
2702 fail:
2703
2704 SWIG_croak_null();
2705 }
2706 }
2707
2708
XS(_wrap_gsl_set_error_handler_off)2709 XS(_wrap_gsl_set_error_handler_off) {
2710 {
2711 int argvi = 0;
2712 gsl_error_handler_t *result = 0 ;
2713 dXSARGS;
2714
2715 if ((items < 0) || (items > 0)) {
2716 SWIG_croak("Usage: gsl_set_error_handler_off();");
2717 }
2718 result = (gsl_error_handler_t *)gsl_set_error_handler_off();
2719 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_int__void); argvi++ ;
2720 XSRETURN(argvi);
2721 fail:
2722 SWIG_croak_null();
2723 }
2724 }
2725
2726
XS(_wrap_gsl_set_stream_handler)2727 XS(_wrap_gsl_set_stream_handler) {
2728 {
2729 gsl_stream_handler_t *arg1 = (gsl_stream_handler_t *) 0 ;
2730 int argvi = 0;
2731 gsl_stream_handler_t *result = 0 ;
2732 dXSARGS;
2733
2734 if ((items < 1) || (items > 1)) {
2735 SWIG_croak("Usage: gsl_set_stream_handler(new_handler);");
2736 }
2737 {
2738 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);
2739 if (!SWIG_IsOK(res)) {
2740 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_set_stream_handler" "', argument " "1"" of type '" "gsl_stream_handler_t *""'");
2741 }
2742 }
2743 result = (gsl_stream_handler_t *)gsl_set_stream_handler(arg1);
2744 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void); argvi++ ;
2745
2746 XSRETURN(argvi);
2747 fail:
2748
2749 SWIG_croak_null();
2750 }
2751 }
2752
2753
XS(_wrap_gsl_set_stream)2754 XS(_wrap_gsl_set_stream) {
2755 {
2756 FILE *arg1 = (FILE *) 0 ;
2757 void *argp1 = 0 ;
2758 int res1 = 0 ;
2759 int argvi = 0;
2760 FILE *result = 0 ;
2761 dXSARGS;
2762
2763 if ((items < 1) || (items > 1)) {
2764 SWIG_croak("Usage: gsl_set_stream(new_stream);");
2765 }
2766 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
2767 if (!SWIG_IsOK(res1)) {
2768 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_set_stream" "', argument " "1"" of type '" "FILE *""'");
2769 }
2770 arg1 = (FILE *)(argp1);
2771 result = (FILE *)gsl_set_stream(arg1);
2772 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_FILE, 0 | 0); argvi++ ;
2773
2774 XSRETURN(argvi);
2775 fail:
2776
2777 SWIG_croak_null();
2778 }
2779 }
2780
2781
XS(_wrap_gsl_function_struct_function_set)2782 XS(_wrap_gsl_function_struct_function_set) {
2783 {
2784 struct gsl_function_struct *arg1 = (struct gsl_function_struct *) 0 ;
2785 double (*arg2)(double,void *) = (double (*)(double,void *)) 0 ;
2786 void *argp1 = 0 ;
2787 int res1 = 0 ;
2788 int argvi = 0;
2789 dXSARGS;
2790
2791 if ((items < 2) || (items > 2)) {
2792 SWIG_croak("Usage: gsl_function_struct_function_set(self,function);");
2793 }
2794 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_struct, 0 | 0 );
2795 if (!SWIG_IsOK(res1)) {
2796 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_struct_function_set" "', argument " "1"" of type '" "struct gsl_function_struct *""'");
2797 }
2798 arg1 = (struct gsl_function_struct *)(argp1);
2799 {
2800 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_double_p_void__double);
2801 if (!SWIG_IsOK(res)) {
2802 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_function_struct_function_set" "', argument " "2"" of type '" "double (*)(double,void *)""'");
2803 }
2804 }
2805 if (arg1) (arg1)->function = arg2;
2806 ST(argvi) = &PL_sv_undef;
2807
2808
2809 XSRETURN(argvi);
2810 fail:
2811
2812
2813 SWIG_croak_null();
2814 }
2815 }
2816
2817
XS(_wrap_gsl_function_struct_function_get)2818 XS(_wrap_gsl_function_struct_function_get) {
2819 {
2820 struct gsl_function_struct *arg1 = (struct gsl_function_struct *) 0 ;
2821 void *argp1 = 0 ;
2822 int res1 = 0 ;
2823 int argvi = 0;
2824 double (*result)(double,void *) = 0 ;
2825 dXSARGS;
2826
2827 if ((items < 1) || (items > 1)) {
2828 SWIG_croak("Usage: gsl_function_struct_function_get(self);");
2829 }
2830 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_struct, 0 | 0 );
2831 if (!SWIG_IsOK(res1)) {
2832 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_struct_function_get" "', argument " "1"" of type '" "struct gsl_function_struct *""'");
2833 }
2834 arg1 = (struct gsl_function_struct *)(argp1);
2835 result = (double (*)(double,void *)) ((arg1)->function);
2836 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_double_p_void__double); argvi++ ;
2837
2838 XSRETURN(argvi);
2839 fail:
2840
2841 SWIG_croak_null();
2842 }
2843 }
2844
2845
XS(_wrap_gsl_function_struct_params_set)2846 XS(_wrap_gsl_function_struct_params_set) {
2847 {
2848 struct gsl_function_struct *arg1 = (struct gsl_function_struct *) 0 ;
2849 void *arg2 = (void *) 0 ;
2850 void *argp1 = 0 ;
2851 int res1 = 0 ;
2852 int res2 ;
2853 int argvi = 0;
2854 dXSARGS;
2855
2856 if ((items < 2) || (items > 2)) {
2857 SWIG_croak("Usage: gsl_function_struct_params_set(self,params);");
2858 }
2859 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_struct, 0 | 0 );
2860 if (!SWIG_IsOK(res1)) {
2861 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_struct_params_set" "', argument " "1"" of type '" "struct gsl_function_struct *""'");
2862 }
2863 arg1 = (struct gsl_function_struct *)(argp1);
2864 res2 = SWIG_ConvertPtr(ST(1),SWIG_as_voidptrptr(&arg2), 0, SWIG_POINTER_DISOWN);
2865 if (!SWIG_IsOK(res2)) {
2866 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_function_struct_params_set" "', argument " "2"" of type '" "void *""'");
2867 }
2868 if (arg1) (arg1)->params = arg2;
2869 ST(argvi) = &PL_sv_undef;
2870
2871
2872 XSRETURN(argvi);
2873 fail:
2874
2875
2876 SWIG_croak_null();
2877 }
2878 }
2879
2880
XS(_wrap_gsl_function_struct_params_get)2881 XS(_wrap_gsl_function_struct_params_get) {
2882 {
2883 struct gsl_function_struct *arg1 = (struct gsl_function_struct *) 0 ;
2884 void *argp1 = 0 ;
2885 int res1 = 0 ;
2886 int argvi = 0;
2887 void *result = 0 ;
2888 dXSARGS;
2889
2890 if ((items < 1) || (items > 1)) {
2891 SWIG_croak("Usage: gsl_function_struct_params_get(self);");
2892 }
2893 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_struct, 0 | 0 );
2894 if (!SWIG_IsOK(res1)) {
2895 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_struct_params_get" "', argument " "1"" of type '" "struct gsl_function_struct *""'");
2896 }
2897 arg1 = (struct gsl_function_struct *)(argp1);
2898 result = (void *) ((arg1)->params);
2899 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_void, 0 | 0); argvi++ ;
2900
2901 XSRETURN(argvi);
2902 fail:
2903
2904 SWIG_croak_null();
2905 }
2906 }
2907
2908
XS(_wrap_new_gsl_function_struct)2909 XS(_wrap_new_gsl_function_struct) {
2910 {
2911 int argvi = 0;
2912 struct gsl_function_struct *result = 0 ;
2913 dXSARGS;
2914
2915 if ((items < 0) || (items > 0)) {
2916 SWIG_croak("Usage: new_gsl_function_struct();");
2917 }
2918 result = (struct gsl_function_struct *)calloc(1, sizeof(struct gsl_function_struct));
2919 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_function_struct, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
2920 XSRETURN(argvi);
2921 fail:
2922 SWIG_croak_null();
2923 }
2924 }
2925
2926
XS(_wrap_delete_gsl_function_struct)2927 XS(_wrap_delete_gsl_function_struct) {
2928 {
2929 struct gsl_function_struct *arg1 = (struct gsl_function_struct *) 0 ;
2930 void *argp1 = 0 ;
2931 int res1 = 0 ;
2932 int argvi = 0;
2933 dXSARGS;
2934
2935 if ((items < 1) || (items > 1)) {
2936 SWIG_croak("Usage: delete_gsl_function_struct(self);");
2937 }
2938 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_struct, SWIG_POINTER_DISOWN | 0 );
2939 if (!SWIG_IsOK(res1)) {
2940 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_function_struct" "', argument " "1"" of type '" "struct gsl_function_struct *""'");
2941 }
2942 arg1 = (struct gsl_function_struct *)(argp1);
2943 free((char *) arg1);
2944 ST(argvi) = &PL_sv_undef;
2945
2946 XSRETURN(argvi);
2947 fail:
2948
2949 SWIG_croak_null();
2950 }
2951 }
2952
2953
XS(_wrap_gsl_function_fdf_struct_f_set)2954 XS(_wrap_gsl_function_fdf_struct_f_set) {
2955 {
2956 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
2957 double (*arg2)(double,void *) = (double (*)(double,void *)) 0 ;
2958 void *argp1 = 0 ;
2959 int res1 = 0 ;
2960 int argvi = 0;
2961 dXSARGS;
2962
2963 if ((items < 2) || (items > 2)) {
2964 SWIG_croak("Usage: gsl_function_fdf_struct_f_set(self,f);");
2965 }
2966 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
2967 if (!SWIG_IsOK(res1)) {
2968 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_f_set" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
2969 }
2970 arg1 = (struct gsl_function_fdf_struct *)(argp1);
2971 {
2972 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_double_p_void__double);
2973 if (!SWIG_IsOK(res)) {
2974 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_function_fdf_struct_f_set" "', argument " "2"" of type '" "double (*)(double,void *)""'");
2975 }
2976 }
2977 if (arg1) (arg1)->f = arg2;
2978 ST(argvi) = &PL_sv_undef;
2979
2980
2981 XSRETURN(argvi);
2982 fail:
2983
2984
2985 SWIG_croak_null();
2986 }
2987 }
2988
2989
XS(_wrap_gsl_function_fdf_struct_f_get)2990 XS(_wrap_gsl_function_fdf_struct_f_get) {
2991 {
2992 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
2993 void *argp1 = 0 ;
2994 int res1 = 0 ;
2995 int argvi = 0;
2996 double (*result)(double,void *) = 0 ;
2997 dXSARGS;
2998
2999 if ((items < 1) || (items > 1)) {
3000 SWIG_croak("Usage: gsl_function_fdf_struct_f_get(self);");
3001 }
3002 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
3003 if (!SWIG_IsOK(res1)) {
3004 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_f_get" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
3005 }
3006 arg1 = (struct gsl_function_fdf_struct *)(argp1);
3007 result = (double (*)(double,void *)) ((arg1)->f);
3008 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_double_p_void__double); argvi++ ;
3009
3010 XSRETURN(argvi);
3011 fail:
3012
3013 SWIG_croak_null();
3014 }
3015 }
3016
3017
XS(_wrap_gsl_function_fdf_struct_df_set)3018 XS(_wrap_gsl_function_fdf_struct_df_set) {
3019 {
3020 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
3021 double (*arg2)(double,void *) = (double (*)(double,void *)) 0 ;
3022 void *argp1 = 0 ;
3023 int res1 = 0 ;
3024 int argvi = 0;
3025 dXSARGS;
3026
3027 if ((items < 2) || (items > 2)) {
3028 SWIG_croak("Usage: gsl_function_fdf_struct_df_set(self,df);");
3029 }
3030 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
3031 if (!SWIG_IsOK(res1)) {
3032 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_df_set" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
3033 }
3034 arg1 = (struct gsl_function_fdf_struct *)(argp1);
3035 {
3036 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_double_p_void__double);
3037 if (!SWIG_IsOK(res)) {
3038 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_function_fdf_struct_df_set" "', argument " "2"" of type '" "double (*)(double,void *)""'");
3039 }
3040 }
3041 if (arg1) (arg1)->df = arg2;
3042 ST(argvi) = &PL_sv_undef;
3043
3044
3045 XSRETURN(argvi);
3046 fail:
3047
3048
3049 SWIG_croak_null();
3050 }
3051 }
3052
3053
XS(_wrap_gsl_function_fdf_struct_df_get)3054 XS(_wrap_gsl_function_fdf_struct_df_get) {
3055 {
3056 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
3057 void *argp1 = 0 ;
3058 int res1 = 0 ;
3059 int argvi = 0;
3060 double (*result)(double,void *) = 0 ;
3061 dXSARGS;
3062
3063 if ((items < 1) || (items > 1)) {
3064 SWIG_croak("Usage: gsl_function_fdf_struct_df_get(self);");
3065 }
3066 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
3067 if (!SWIG_IsOK(res1)) {
3068 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_df_get" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
3069 }
3070 arg1 = (struct gsl_function_fdf_struct *)(argp1);
3071 result = (double (*)(double,void *)) ((arg1)->df);
3072 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_double_p_void__double); argvi++ ;
3073
3074 XSRETURN(argvi);
3075 fail:
3076
3077 SWIG_croak_null();
3078 }
3079 }
3080
3081
XS(_wrap_gsl_function_fdf_struct_fdf_set)3082 XS(_wrap_gsl_function_fdf_struct_fdf_set) {
3083 {
3084 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
3085 void (*arg2)(double,void *,double *,double *) = (void (*)(double,void *,double *,double *)) 0 ;
3086 void *argp1 = 0 ;
3087 int res1 = 0 ;
3088 int argvi = 0;
3089 dXSARGS;
3090
3091 if ((items < 2) || (items > 2)) {
3092 SWIG_croak("Usage: gsl_function_fdf_struct_fdf_set(self,fdf);");
3093 }
3094 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
3095 if (!SWIG_IsOK(res1)) {
3096 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_fdf_set" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
3097 }
3098 arg1 = (struct gsl_function_fdf_struct *)(argp1);
3099 {
3100 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_double_p_void_p_double_p_double__void);
3101 if (!SWIG_IsOK(res)) {
3102 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_function_fdf_struct_fdf_set" "', argument " "2"" of type '" "void (*)(double,void *,double *,double *)""'");
3103 }
3104 }
3105 if (arg1) (arg1)->fdf = arg2;
3106 ST(argvi) = &PL_sv_undef;
3107
3108
3109 XSRETURN(argvi);
3110 fail:
3111
3112
3113 SWIG_croak_null();
3114 }
3115 }
3116
3117
XS(_wrap_gsl_function_fdf_struct_fdf_get)3118 XS(_wrap_gsl_function_fdf_struct_fdf_get) {
3119 {
3120 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
3121 void *argp1 = 0 ;
3122 int res1 = 0 ;
3123 int argvi = 0;
3124 void (*result)(double,void *,double *,double *) = 0 ;
3125 dXSARGS;
3126
3127 if ((items < 1) || (items > 1)) {
3128 SWIG_croak("Usage: gsl_function_fdf_struct_fdf_get(self);");
3129 }
3130 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
3131 if (!SWIG_IsOK(res1)) {
3132 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_fdf_get" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
3133 }
3134 arg1 = (struct gsl_function_fdf_struct *)(argp1);
3135 result = (void (*)(double,void *,double *,double *)) ((arg1)->fdf);
3136 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_double_p_void_p_double_p_double__void); argvi++ ;
3137
3138 XSRETURN(argvi);
3139 fail:
3140
3141 SWIG_croak_null();
3142 }
3143 }
3144
3145
XS(_wrap_gsl_function_fdf_struct_params_set)3146 XS(_wrap_gsl_function_fdf_struct_params_set) {
3147 {
3148 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
3149 void *arg2 = (void *) 0 ;
3150 void *argp1 = 0 ;
3151 int res1 = 0 ;
3152 int res2 ;
3153 int argvi = 0;
3154 dXSARGS;
3155
3156 if ((items < 2) || (items > 2)) {
3157 SWIG_croak("Usage: gsl_function_fdf_struct_params_set(self,params);");
3158 }
3159 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
3160 if (!SWIG_IsOK(res1)) {
3161 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_params_set" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
3162 }
3163 arg1 = (struct gsl_function_fdf_struct *)(argp1);
3164 res2 = SWIG_ConvertPtr(ST(1),SWIG_as_voidptrptr(&arg2), 0, SWIG_POINTER_DISOWN);
3165 if (!SWIG_IsOK(res2)) {
3166 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_function_fdf_struct_params_set" "', argument " "2"" of type '" "void *""'");
3167 }
3168 if (arg1) (arg1)->params = arg2;
3169 ST(argvi) = &PL_sv_undef;
3170
3171
3172 XSRETURN(argvi);
3173 fail:
3174
3175
3176 SWIG_croak_null();
3177 }
3178 }
3179
3180
XS(_wrap_gsl_function_fdf_struct_params_get)3181 XS(_wrap_gsl_function_fdf_struct_params_get) {
3182 {
3183 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
3184 void *argp1 = 0 ;
3185 int res1 = 0 ;
3186 int argvi = 0;
3187 void *result = 0 ;
3188 dXSARGS;
3189
3190 if ((items < 1) || (items > 1)) {
3191 SWIG_croak("Usage: gsl_function_fdf_struct_params_get(self);");
3192 }
3193 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, 0 | 0 );
3194 if (!SWIG_IsOK(res1)) {
3195 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_fdf_struct_params_get" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
3196 }
3197 arg1 = (struct gsl_function_fdf_struct *)(argp1);
3198 result = (void *) ((arg1)->params);
3199 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_void, 0 | 0); argvi++ ;
3200
3201 XSRETURN(argvi);
3202 fail:
3203
3204 SWIG_croak_null();
3205 }
3206 }
3207
3208
XS(_wrap_new_gsl_function_fdf_struct)3209 XS(_wrap_new_gsl_function_fdf_struct) {
3210 {
3211 int argvi = 0;
3212 struct gsl_function_fdf_struct *result = 0 ;
3213 dXSARGS;
3214
3215 if ((items < 0) || (items > 0)) {
3216 SWIG_croak("Usage: new_gsl_function_fdf_struct();");
3217 }
3218 result = (struct gsl_function_fdf_struct *)calloc(1, sizeof(struct gsl_function_fdf_struct));
3219 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_function_fdf_struct, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
3220 XSRETURN(argvi);
3221 fail:
3222 SWIG_croak_null();
3223 }
3224 }
3225
3226
XS(_wrap_delete_gsl_function_fdf_struct)3227 XS(_wrap_delete_gsl_function_fdf_struct) {
3228 {
3229 struct gsl_function_fdf_struct *arg1 = (struct gsl_function_fdf_struct *) 0 ;
3230 void *argp1 = 0 ;
3231 int res1 = 0 ;
3232 int argvi = 0;
3233 dXSARGS;
3234
3235 if ((items < 1) || (items > 1)) {
3236 SWIG_croak("Usage: delete_gsl_function_fdf_struct(self);");
3237 }
3238 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_fdf_struct, SWIG_POINTER_DISOWN | 0 );
3239 if (!SWIG_IsOK(res1)) {
3240 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_function_fdf_struct" "', argument " "1"" of type '" "struct gsl_function_fdf_struct *""'");
3241 }
3242 arg1 = (struct gsl_function_fdf_struct *)(argp1);
3243 free((char *) arg1);
3244 ST(argvi) = &PL_sv_undef;
3245
3246 XSRETURN(argvi);
3247 fail:
3248
3249 SWIG_croak_null();
3250 }
3251 }
3252
3253
XS(_wrap_gsl_function_vec_struct_function_set)3254 XS(_wrap_gsl_function_vec_struct_function_set) {
3255 {
3256 struct gsl_function_vec_struct *arg1 = (struct gsl_function_vec_struct *) 0 ;
3257 int (*arg2)(double,double [],void *) = (int (*)(double,double [],void *)) 0 ;
3258 void *argp1 = 0 ;
3259 int res1 = 0 ;
3260 int argvi = 0;
3261 dXSARGS;
3262
3263 if ((items < 2) || (items > 2)) {
3264 SWIG_croak("Usage: gsl_function_vec_struct_function_set(self,function);");
3265 }
3266 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_vec_struct, 0 | 0 );
3267 if (!SWIG_IsOK(res1)) {
3268 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_vec_struct_function_set" "', argument " "1"" of type '" "struct gsl_function_vec_struct *""'");
3269 }
3270 arg1 = (struct gsl_function_vec_struct *)(argp1);
3271 {
3272 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_double_a___double_p_void__int);
3273 if (!SWIG_IsOK(res)) {
3274 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_function_vec_struct_function_set" "', argument " "2"" of type '" "int (*)(double,double [],void *)""'");
3275 }
3276 }
3277 if (arg1) (arg1)->function = arg2;
3278 ST(argvi) = &PL_sv_undef;
3279
3280
3281 XSRETURN(argvi);
3282 fail:
3283
3284
3285 SWIG_croak_null();
3286 }
3287 }
3288
3289
XS(_wrap_gsl_function_vec_struct_function_get)3290 XS(_wrap_gsl_function_vec_struct_function_get) {
3291 {
3292 struct gsl_function_vec_struct *arg1 = (struct gsl_function_vec_struct *) 0 ;
3293 void *argp1 = 0 ;
3294 int res1 = 0 ;
3295 int argvi = 0;
3296 int (*result)(double,double [],void *) = 0 ;
3297 dXSARGS;
3298
3299 if ((items < 1) || (items > 1)) {
3300 SWIG_croak("Usage: gsl_function_vec_struct_function_get(self);");
3301 }
3302 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_vec_struct, 0 | 0 );
3303 if (!SWIG_IsOK(res1)) {
3304 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_vec_struct_function_get" "', argument " "1"" of type '" "struct gsl_function_vec_struct *""'");
3305 }
3306 arg1 = (struct gsl_function_vec_struct *)(argp1);
3307 result = (int (*)(double,double [],void *)) ((arg1)->function);
3308 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_double_a___double_p_void__int); argvi++ ;
3309
3310 XSRETURN(argvi);
3311 fail:
3312
3313 SWIG_croak_null();
3314 }
3315 }
3316
3317
XS(_wrap_gsl_function_vec_struct_params_set)3318 XS(_wrap_gsl_function_vec_struct_params_set) {
3319 {
3320 struct gsl_function_vec_struct *arg1 = (struct gsl_function_vec_struct *) 0 ;
3321 void *arg2 = (void *) 0 ;
3322 void *argp1 = 0 ;
3323 int res1 = 0 ;
3324 int res2 ;
3325 int argvi = 0;
3326 dXSARGS;
3327
3328 if ((items < 2) || (items > 2)) {
3329 SWIG_croak("Usage: gsl_function_vec_struct_params_set(self,params);");
3330 }
3331 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_vec_struct, 0 | 0 );
3332 if (!SWIG_IsOK(res1)) {
3333 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_vec_struct_params_set" "', argument " "1"" of type '" "struct gsl_function_vec_struct *""'");
3334 }
3335 arg1 = (struct gsl_function_vec_struct *)(argp1);
3336 res2 = SWIG_ConvertPtr(ST(1),SWIG_as_voidptrptr(&arg2), 0, SWIG_POINTER_DISOWN);
3337 if (!SWIG_IsOK(res2)) {
3338 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_function_vec_struct_params_set" "', argument " "2"" of type '" "void *""'");
3339 }
3340 if (arg1) (arg1)->params = arg2;
3341 ST(argvi) = &PL_sv_undef;
3342
3343
3344 XSRETURN(argvi);
3345 fail:
3346
3347
3348 SWIG_croak_null();
3349 }
3350 }
3351
3352
XS(_wrap_gsl_function_vec_struct_params_get)3353 XS(_wrap_gsl_function_vec_struct_params_get) {
3354 {
3355 struct gsl_function_vec_struct *arg1 = (struct gsl_function_vec_struct *) 0 ;
3356 void *argp1 = 0 ;
3357 int res1 = 0 ;
3358 int argvi = 0;
3359 void *result = 0 ;
3360 dXSARGS;
3361
3362 if ((items < 1) || (items > 1)) {
3363 SWIG_croak("Usage: gsl_function_vec_struct_params_get(self);");
3364 }
3365 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_vec_struct, 0 | 0 );
3366 if (!SWIG_IsOK(res1)) {
3367 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_function_vec_struct_params_get" "', argument " "1"" of type '" "struct gsl_function_vec_struct *""'");
3368 }
3369 arg1 = (struct gsl_function_vec_struct *)(argp1);
3370 result = (void *) ((arg1)->params);
3371 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_void, 0 | 0); argvi++ ;
3372
3373 XSRETURN(argvi);
3374 fail:
3375
3376 SWIG_croak_null();
3377 }
3378 }
3379
3380
XS(_wrap_new_gsl_function_vec_struct)3381 XS(_wrap_new_gsl_function_vec_struct) {
3382 {
3383 int argvi = 0;
3384 struct gsl_function_vec_struct *result = 0 ;
3385 dXSARGS;
3386
3387 if ((items < 0) || (items > 0)) {
3388 SWIG_croak("Usage: new_gsl_function_vec_struct();");
3389 }
3390 result = (struct gsl_function_vec_struct *)calloc(1, sizeof(struct gsl_function_vec_struct));
3391 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_function_vec_struct, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
3392 XSRETURN(argvi);
3393 fail:
3394 SWIG_croak_null();
3395 }
3396 }
3397
3398
XS(_wrap_delete_gsl_function_vec_struct)3399 XS(_wrap_delete_gsl_function_vec_struct) {
3400 {
3401 struct gsl_function_vec_struct *arg1 = (struct gsl_function_vec_struct *) 0 ;
3402 void *argp1 = 0 ;
3403 int res1 = 0 ;
3404 int argvi = 0;
3405 dXSARGS;
3406
3407 if ((items < 1) || (items > 1)) {
3408 SWIG_croak("Usage: delete_gsl_function_vec_struct(self);");
3409 }
3410 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_function_vec_struct, SWIG_POINTER_DISOWN | 0 );
3411 if (!SWIG_IsOK(res1)) {
3412 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_function_vec_struct" "', argument " "1"" of type '" "struct gsl_function_vec_struct *""'");
3413 }
3414 arg1 = (struct gsl_function_vec_struct *)(argp1);
3415 free((char *) arg1);
3416 ST(argvi) = &PL_sv_undef;
3417
3418 XSRETURN(argvi);
3419 fail:
3420
3421 SWIG_croak_null();
3422 }
3423 }
3424
3425
XS(_wrap_gsl_permutation_struct_size_set)3426 XS(_wrap_gsl_permutation_struct_size_set) {
3427 {
3428 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
3429 size_t arg2 ;
3430 void *argp1 = 0 ;
3431 int res1 = 0 ;
3432 size_t val2 ;
3433 int ecode2 = 0 ;
3434 int argvi = 0;
3435 dXSARGS;
3436
3437 if ((items < 2) || (items > 2)) {
3438 SWIG_croak("Usage: gsl_permutation_struct_size_set(self,size);");
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_set" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
3443 }
3444 arg1 = (struct gsl_permutation_struct *)(argp1);
3445 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3446 if (!SWIG_IsOK(ecode2)) {
3447 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_struct_size_set" "', argument " "2"" of type '" "size_t""'");
3448 }
3449 arg2 = (size_t)(val2);
3450 if (arg1) (arg1)->size = arg2;
3451 ST(argvi) = &PL_sv_undef;
3452
3453
3454 XSRETURN(argvi);
3455 fail:
3456
3457
3458 SWIG_croak_null();
3459 }
3460 }
3461
3462
XS(_wrap_gsl_permutation_struct_size_get)3463 XS(_wrap_gsl_permutation_struct_size_get) {
3464 {
3465 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
3466 void *argp1 = 0 ;
3467 int res1 = 0 ;
3468 int argvi = 0;
3469 size_t result;
3470 dXSARGS;
3471
3472 if ((items < 1) || (items > 1)) {
3473 SWIG_croak("Usage: gsl_permutation_struct_size_get(self);");
3474 }
3475 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3476 if (!SWIG_IsOK(res1)) {
3477 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_size_get" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
3478 }
3479 arg1 = (struct gsl_permutation_struct *)(argp1);
3480 result = ((arg1)->size);
3481 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
3482
3483 XSRETURN(argvi);
3484 fail:
3485
3486 SWIG_croak_null();
3487 }
3488 }
3489
3490
XS(_wrap_gsl_permutation_struct_data_set)3491 XS(_wrap_gsl_permutation_struct_data_set) {
3492 {
3493 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
3494 size_t *arg2 = (size_t *) 0 ;
3495 void *argp1 = 0 ;
3496 int res1 = 0 ;
3497 void *argp2 = 0 ;
3498 int res2 = 0 ;
3499 int argvi = 0;
3500 dXSARGS;
3501
3502 if ((items < 2) || (items > 2)) {
3503 SWIG_croak("Usage: gsl_permutation_struct_data_set(self,data);");
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_set" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
3508 }
3509 arg1 = (struct gsl_permutation_struct *)(argp1);
3510 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_size_t, SWIG_POINTER_DISOWN | 0 );
3511 if (!SWIG_IsOK(res2)) {
3512 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_struct_data_set" "', argument " "2"" of type '" "size_t *""'");
3513 }
3514 arg2 = (size_t *)(argp2);
3515 if (arg1) (arg1)->data = arg2;
3516 ST(argvi) = &PL_sv_undef;
3517
3518
3519 XSRETURN(argvi);
3520 fail:
3521
3522
3523 SWIG_croak_null();
3524 }
3525 }
3526
3527
XS(_wrap_gsl_permutation_struct_data_get)3528 XS(_wrap_gsl_permutation_struct_data_get) {
3529 {
3530 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
3531 void *argp1 = 0 ;
3532 int res1 = 0 ;
3533 int argvi = 0;
3534 size_t *result = 0 ;
3535 dXSARGS;
3536
3537 if ((items < 1) || (items > 1)) {
3538 SWIG_croak("Usage: gsl_permutation_struct_data_get(self);");
3539 }
3540 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3541 if (!SWIG_IsOK(res1)) {
3542 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_struct_data_get" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
3543 }
3544 arg1 = (struct gsl_permutation_struct *)(argp1);
3545 result = (size_t *) ((arg1)->data);
3546 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
3547
3548 XSRETURN(argvi);
3549 fail:
3550
3551 SWIG_croak_null();
3552 }
3553 }
3554
3555
XS(_wrap_new_gsl_permutation_struct)3556 XS(_wrap_new_gsl_permutation_struct) {
3557 {
3558 int argvi = 0;
3559 struct gsl_permutation_struct *result = 0 ;
3560 dXSARGS;
3561
3562 if ((items < 0) || (items > 0)) {
3563 SWIG_croak("Usage: new_gsl_permutation_struct();");
3564 }
3565 result = (struct gsl_permutation_struct *)calloc(1, sizeof(struct gsl_permutation_struct));
3566 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
3567 XSRETURN(argvi);
3568 fail:
3569 SWIG_croak_null();
3570 }
3571 }
3572
3573
XS(_wrap_delete_gsl_permutation_struct)3574 XS(_wrap_delete_gsl_permutation_struct) {
3575 {
3576 struct gsl_permutation_struct *arg1 = (struct gsl_permutation_struct *) 0 ;
3577 void *argp1 = 0 ;
3578 int res1 = 0 ;
3579 int argvi = 0;
3580 dXSARGS;
3581
3582 if ((items < 1) || (items > 1)) {
3583 SWIG_croak("Usage: delete_gsl_permutation_struct(self);");
3584 }
3585 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, SWIG_POINTER_DISOWN | 0 );
3586 if (!SWIG_IsOK(res1)) {
3587 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_permutation_struct" "', argument " "1"" of type '" "struct gsl_permutation_struct *""'");
3588 }
3589 arg1 = (struct gsl_permutation_struct *)(argp1);
3590 free((char *) arg1);
3591 ST(argvi) = &PL_sv_undef;
3592
3593 XSRETURN(argvi);
3594 fail:
3595
3596 SWIG_croak_null();
3597 }
3598 }
3599
3600
XS(_wrap_gsl_permutation_alloc)3601 XS(_wrap_gsl_permutation_alloc) {
3602 {
3603 size_t arg1 ;
3604 size_t val1 ;
3605 int ecode1 = 0 ;
3606 int argvi = 0;
3607 gsl_permutation *result = 0 ;
3608 dXSARGS;
3609
3610 if ((items < 1) || (items > 1)) {
3611 SWIG_croak("Usage: gsl_permutation_alloc(n);");
3612 }
3613 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
3614 if (!SWIG_IsOK(ecode1)) {
3615 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_permutation_alloc" "', argument " "1"" of type '" "size_t""'");
3616 }
3617 arg1 = (size_t)(val1);
3618 result = (gsl_permutation *)gsl_permutation_alloc(arg1);
3619 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, 0 | SWIG_SHADOW); argvi++ ;
3620
3621 XSRETURN(argvi);
3622 fail:
3623
3624 SWIG_croak_null();
3625 }
3626 }
3627
3628
XS(_wrap_gsl_permutation_calloc)3629 XS(_wrap_gsl_permutation_calloc) {
3630 {
3631 size_t arg1 ;
3632 size_t val1 ;
3633 int ecode1 = 0 ;
3634 int argvi = 0;
3635 gsl_permutation *result = 0 ;
3636 dXSARGS;
3637
3638 if ((items < 1) || (items > 1)) {
3639 SWIG_croak("Usage: gsl_permutation_calloc(n);");
3640 }
3641 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
3642 if (!SWIG_IsOK(ecode1)) {
3643 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_permutation_calloc" "', argument " "1"" of type '" "size_t""'");
3644 }
3645 arg1 = (size_t)(val1);
3646 result = (gsl_permutation *)gsl_permutation_calloc(arg1);
3647 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_permutation_struct, 0 | SWIG_SHADOW); argvi++ ;
3648
3649 XSRETURN(argvi);
3650 fail:
3651
3652 SWIG_croak_null();
3653 }
3654 }
3655
3656
XS(_wrap_gsl_permutation_init)3657 XS(_wrap_gsl_permutation_init) {
3658 {
3659 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
3660 void *argp1 = 0 ;
3661 int res1 = 0 ;
3662 int argvi = 0;
3663 dXSARGS;
3664
3665 if ((items < 1) || (items > 1)) {
3666 SWIG_croak("Usage: gsl_permutation_init(p);");
3667 }
3668 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3669 if (!SWIG_IsOK(res1)) {
3670 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_init" "', argument " "1"" of type '" "gsl_permutation *""'");
3671 }
3672 arg1 = (gsl_permutation *)(argp1);
3673 gsl_permutation_init(arg1);
3674 ST(argvi) = &PL_sv_undef;
3675
3676 XSRETURN(argvi);
3677 fail:
3678
3679 SWIG_croak_null();
3680 }
3681 }
3682
3683
XS(_wrap_gsl_permutation_free)3684 XS(_wrap_gsl_permutation_free) {
3685 {
3686 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
3687 void *argp1 = 0 ;
3688 int res1 = 0 ;
3689 int argvi = 0;
3690 dXSARGS;
3691
3692 if ((items < 1) || (items > 1)) {
3693 SWIG_croak("Usage: gsl_permutation_free(p);");
3694 }
3695 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3696 if (!SWIG_IsOK(res1)) {
3697 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_free" "', argument " "1"" of type '" "gsl_permutation *""'");
3698 }
3699 arg1 = (gsl_permutation *)(argp1);
3700 gsl_permutation_free(arg1);
3701 ST(argvi) = &PL_sv_undef;
3702
3703 XSRETURN(argvi);
3704 fail:
3705
3706 SWIG_croak_null();
3707 }
3708 }
3709
3710
XS(_wrap_gsl_permutation_memcpy)3711 XS(_wrap_gsl_permutation_memcpy) {
3712 {
3713 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
3714 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3715 void *argp1 = 0 ;
3716 int res1 = 0 ;
3717 void *argp2 = 0 ;
3718 int res2 = 0 ;
3719 int argvi = 0;
3720 int result;
3721 dXSARGS;
3722
3723 if ((items < 2) || (items > 2)) {
3724 SWIG_croak("Usage: gsl_permutation_memcpy(dest,src);");
3725 }
3726 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3727 if (!SWIG_IsOK(res1)) {
3728 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_memcpy" "', argument " "1"" of type '" "gsl_permutation *""'");
3729 }
3730 arg1 = (gsl_permutation *)(argp1);
3731 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3732 if (!SWIG_IsOK(res2)) {
3733 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_memcpy" "', argument " "2"" of type '" "gsl_permutation const *""'");
3734 }
3735 arg2 = (gsl_permutation *)(argp2);
3736 result = (int)gsl_permutation_memcpy(arg1,(struct gsl_permutation_struct const *)arg2);
3737 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3738
3739
3740 XSRETURN(argvi);
3741 fail:
3742
3743
3744 SWIG_croak_null();
3745 }
3746 }
3747
3748
XS(_wrap_gsl_permutation_fread)3749 XS(_wrap_gsl_permutation_fread) {
3750 {
3751 FILE *arg1 = (FILE *) 0 ;
3752 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3753 void *argp1 = 0 ;
3754 int res1 = 0 ;
3755 void *argp2 = 0 ;
3756 int res2 = 0 ;
3757 int argvi = 0;
3758 int result;
3759 dXSARGS;
3760
3761 if ((items < 2) || (items > 2)) {
3762 SWIG_croak("Usage: gsl_permutation_fread(stream,p);");
3763 }
3764 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
3765 if (!SWIG_IsOK(res1)) {
3766 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fread" "', argument " "1"" of type '" "FILE *""'");
3767 }
3768 arg1 = (FILE *)(argp1);
3769 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3770 if (!SWIG_IsOK(res2)) {
3771 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fread" "', argument " "2"" of type '" "gsl_permutation *""'");
3772 }
3773 arg2 = (gsl_permutation *)(argp2);
3774 result = (int)gsl_permutation_fread(arg1,arg2);
3775 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3776
3777
3778 XSRETURN(argvi);
3779 fail:
3780
3781
3782 SWIG_croak_null();
3783 }
3784 }
3785
3786
XS(_wrap_gsl_permutation_fwrite)3787 XS(_wrap_gsl_permutation_fwrite) {
3788 {
3789 FILE *arg1 = (FILE *) 0 ;
3790 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3791 void *argp1 = 0 ;
3792 int res1 = 0 ;
3793 void *argp2 = 0 ;
3794 int res2 = 0 ;
3795 int argvi = 0;
3796 int result;
3797 dXSARGS;
3798
3799 if ((items < 2) || (items > 2)) {
3800 SWIG_croak("Usage: gsl_permutation_fwrite(stream,p);");
3801 }
3802 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
3803 if (!SWIG_IsOK(res1)) {
3804 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fwrite" "', argument " "1"" of type '" "FILE *""'");
3805 }
3806 arg1 = (FILE *)(argp1);
3807 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3808 if (!SWIG_IsOK(res2)) {
3809 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fwrite" "', argument " "2"" of type '" "gsl_permutation const *""'");
3810 }
3811 arg2 = (gsl_permutation *)(argp2);
3812 result = (int)gsl_permutation_fwrite(arg1,(struct gsl_permutation_struct const *)arg2);
3813 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3814
3815
3816 XSRETURN(argvi);
3817 fail:
3818
3819
3820 SWIG_croak_null();
3821 }
3822 }
3823
3824
XS(_wrap_gsl_permutation_fscanf)3825 XS(_wrap_gsl_permutation_fscanf) {
3826 {
3827 FILE *arg1 = (FILE *) 0 ;
3828 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3829 void *argp1 = 0 ;
3830 int res1 = 0 ;
3831 void *argp2 = 0 ;
3832 int res2 = 0 ;
3833 int argvi = 0;
3834 int result;
3835 dXSARGS;
3836
3837 if ((items < 2) || (items > 2)) {
3838 SWIG_croak("Usage: gsl_permutation_fscanf(stream,p);");
3839 }
3840 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
3841 if (!SWIG_IsOK(res1)) {
3842 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fscanf" "', argument " "1"" of type '" "FILE *""'");
3843 }
3844 arg1 = (FILE *)(argp1);
3845 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3846 if (!SWIG_IsOK(res2)) {
3847 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fscanf" "', argument " "2"" of type '" "gsl_permutation *""'");
3848 }
3849 arg2 = (gsl_permutation *)(argp2);
3850 result = (int)gsl_permutation_fscanf(arg1,arg2);
3851 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3852
3853
3854 XSRETURN(argvi);
3855 fail:
3856
3857
3858 SWIG_croak_null();
3859 }
3860 }
3861
3862
XS(_wrap_gsl_permutation_fprintf)3863 XS(_wrap_gsl_permutation_fprintf) {
3864 {
3865 FILE *arg1 = (FILE *) 0 ;
3866 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
3867 char *arg3 = (char *) 0 ;
3868 void *argp1 = 0 ;
3869 int res1 = 0 ;
3870 void *argp2 = 0 ;
3871 int res2 = 0 ;
3872 int res3 ;
3873 char *buf3 = 0 ;
3874 int alloc3 = 0 ;
3875 int argvi = 0;
3876 int result;
3877 dXSARGS;
3878
3879 if ((items < 3) || (items > 3)) {
3880 SWIG_croak("Usage: gsl_permutation_fprintf(stream,p,format);");
3881 }
3882 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_FILE, 0 | 0 );
3883 if (!SWIG_IsOK(res1)) {
3884 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_fprintf" "', argument " "1"" of type '" "FILE *""'");
3885 }
3886 arg1 = (FILE *)(argp1);
3887 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3888 if (!SWIG_IsOK(res2)) {
3889 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_fprintf" "', argument " "2"" of type '" "gsl_permutation const *""'");
3890 }
3891 arg2 = (gsl_permutation *)(argp2);
3892 res3 = SWIG_AsCharPtrAndSize(ST(2), &buf3, NULL, &alloc3);
3893 if (!SWIG_IsOK(res3)) {
3894 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_permutation_fprintf" "', argument " "3"" of type '" "char const *""'");
3895 }
3896 arg3 = (char *)(buf3);
3897 result = (int)gsl_permutation_fprintf(arg1,(struct gsl_permutation_struct const *)arg2,(char const *)arg3);
3898 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
3899
3900
3901 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
3902 XSRETURN(argvi);
3903 fail:
3904
3905
3906 if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);
3907 SWIG_croak_null();
3908 }
3909 }
3910
3911
XS(_wrap_gsl_permutation_size)3912 XS(_wrap_gsl_permutation_size) {
3913 {
3914 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
3915 void *argp1 = 0 ;
3916 int res1 = 0 ;
3917 int argvi = 0;
3918 size_t result;
3919 dXSARGS;
3920
3921 if ((items < 1) || (items > 1)) {
3922 SWIG_croak("Usage: gsl_permutation_size(p);");
3923 }
3924 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3925 if (!SWIG_IsOK(res1)) {
3926 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_size" "', argument " "1"" of type '" "gsl_permutation const *""'");
3927 }
3928 arg1 = (gsl_permutation *)(argp1);
3929 result = gsl_permutation_size((struct gsl_permutation_struct const *)arg1);
3930 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
3931
3932 XSRETURN(argvi);
3933 fail:
3934
3935 SWIG_croak_null();
3936 }
3937 }
3938
3939
XS(_wrap_gsl_permutation_data)3940 XS(_wrap_gsl_permutation_data) {
3941 {
3942 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
3943 void *argp1 = 0 ;
3944 int res1 = 0 ;
3945 int argvi = 0;
3946 size_t *result = 0 ;
3947 dXSARGS;
3948
3949 if ((items < 1) || (items > 1)) {
3950 SWIG_croak("Usage: gsl_permutation_data(p);");
3951 }
3952 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3953 if (!SWIG_IsOK(res1)) {
3954 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_data" "', argument " "1"" of type '" "gsl_permutation const *""'");
3955 }
3956 arg1 = (gsl_permutation *)(argp1);
3957 result = (size_t *)gsl_permutation_data((struct gsl_permutation_struct const *)arg1);
3958 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_size_t, 0 | 0); argvi++ ;
3959
3960 XSRETURN(argvi);
3961 fail:
3962
3963 SWIG_croak_null();
3964 }
3965 }
3966
3967
XS(_wrap_gsl_permutation_swap)3968 XS(_wrap_gsl_permutation_swap) {
3969 {
3970 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
3971 size_t arg2 ;
3972 size_t arg3 ;
3973 void *argp1 = 0 ;
3974 int res1 = 0 ;
3975 size_t val2 ;
3976 int ecode2 = 0 ;
3977 size_t val3 ;
3978 int ecode3 = 0 ;
3979 int argvi = 0;
3980 int result;
3981 dXSARGS;
3982
3983 if ((items < 3) || (items > 3)) {
3984 SWIG_croak("Usage: gsl_permutation_swap(p,i,j);");
3985 }
3986 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
3987 if (!SWIG_IsOK(res1)) {
3988 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_swap" "', argument " "1"" of type '" "gsl_permutation *""'");
3989 }
3990 arg1 = (gsl_permutation *)(argp1);
3991 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
3992 if (!SWIG_IsOK(ecode2)) {
3993 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_swap" "', argument " "2"" of type '" "size_t""'");
3994 }
3995 arg2 = (size_t)(val2);
3996 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
3997 if (!SWIG_IsOK(ecode3)) {
3998 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_permutation_swap" "', argument " "3"" of type '" "size_t""'");
3999 }
4000 arg3 = (size_t)(val3);
4001 result = (int)gsl_permutation_swap(arg1,arg2,arg3);
4002 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4003
4004
4005
4006 XSRETURN(argvi);
4007 fail:
4008
4009
4010
4011 SWIG_croak_null();
4012 }
4013 }
4014
4015
XS(_wrap_gsl_permutation_valid)4016 XS(_wrap_gsl_permutation_valid) {
4017 {
4018 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4019 void *argp1 = 0 ;
4020 int res1 = 0 ;
4021 int argvi = 0;
4022 int result;
4023 dXSARGS;
4024
4025 if ((items < 1) || (items > 1)) {
4026 SWIG_croak("Usage: gsl_permutation_valid(p);");
4027 }
4028 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4029 if (!SWIG_IsOK(res1)) {
4030 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_valid" "', argument " "1"" of type '" "gsl_permutation const *""'");
4031 }
4032 arg1 = (gsl_permutation *)(argp1);
4033 result = (int)gsl_permutation_valid((struct gsl_permutation_struct const *)arg1);
4034 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4035
4036 XSRETURN(argvi);
4037 fail:
4038
4039 SWIG_croak_null();
4040 }
4041 }
4042
4043
XS(_wrap_gsl_permutation_reverse)4044 XS(_wrap_gsl_permutation_reverse) {
4045 {
4046 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4047 void *argp1 = 0 ;
4048 int res1 = 0 ;
4049 int argvi = 0;
4050 dXSARGS;
4051
4052 if ((items < 1) || (items > 1)) {
4053 SWIG_croak("Usage: gsl_permutation_reverse(p);");
4054 }
4055 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4056 if (!SWIG_IsOK(res1)) {
4057 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_reverse" "', argument " "1"" of type '" "gsl_permutation *""'");
4058 }
4059 arg1 = (gsl_permutation *)(argp1);
4060 gsl_permutation_reverse(arg1);
4061 ST(argvi) = &PL_sv_undef;
4062
4063 XSRETURN(argvi);
4064 fail:
4065
4066 SWIG_croak_null();
4067 }
4068 }
4069
4070
XS(_wrap_gsl_permutation_inverse)4071 XS(_wrap_gsl_permutation_inverse) {
4072 {
4073 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4074 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4075 void *argp1 = 0 ;
4076 int res1 = 0 ;
4077 void *argp2 = 0 ;
4078 int res2 = 0 ;
4079 int argvi = 0;
4080 int result;
4081 dXSARGS;
4082
4083 if ((items < 2) || (items > 2)) {
4084 SWIG_croak("Usage: gsl_permutation_inverse(inv,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_inverse" "', argument " "1"" of type '" "gsl_permutation *""'");
4089 }
4090 arg1 = (gsl_permutation *)(argp1);
4091 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4092 if (!SWIG_IsOK(res2)) {
4093 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_inverse" "', argument " "2"" of type '" "gsl_permutation const *""'");
4094 }
4095 arg2 = (gsl_permutation *)(argp2);
4096 result = (int)gsl_permutation_inverse(arg1,(struct gsl_permutation_struct const *)arg2);
4097 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4098
4099
4100 XSRETURN(argvi);
4101 fail:
4102
4103
4104 SWIG_croak_null();
4105 }
4106 }
4107
4108
XS(_wrap_gsl_permutation_next)4109 XS(_wrap_gsl_permutation_next) {
4110 {
4111 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4112 void *argp1 = 0 ;
4113 int res1 = 0 ;
4114 int argvi = 0;
4115 int result;
4116 dXSARGS;
4117
4118 if ((items < 1) || (items > 1)) {
4119 SWIG_croak("Usage: gsl_permutation_next(p);");
4120 }
4121 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4122 if (!SWIG_IsOK(res1)) {
4123 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_next" "', argument " "1"" of type '" "gsl_permutation *""'");
4124 }
4125 arg1 = (gsl_permutation *)(argp1);
4126 result = (int)gsl_permutation_next(arg1);
4127 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4128
4129 XSRETURN(argvi);
4130 fail:
4131
4132 SWIG_croak_null();
4133 }
4134 }
4135
4136
XS(_wrap_gsl_permutation_prev)4137 XS(_wrap_gsl_permutation_prev) {
4138 {
4139 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4140 void *argp1 = 0 ;
4141 int res1 = 0 ;
4142 int argvi = 0;
4143 int result;
4144 dXSARGS;
4145
4146 if ((items < 1) || (items > 1)) {
4147 SWIG_croak("Usage: gsl_permutation_prev(p);");
4148 }
4149 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4150 if (!SWIG_IsOK(res1)) {
4151 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_prev" "', argument " "1"" of type '" "gsl_permutation *""'");
4152 }
4153 arg1 = (gsl_permutation *)(argp1);
4154 result = (int)gsl_permutation_prev(arg1);
4155 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4156
4157 XSRETURN(argvi);
4158 fail:
4159
4160 SWIG_croak_null();
4161 }
4162 }
4163
4164
XS(_wrap_gsl_permutation_mul)4165 XS(_wrap_gsl_permutation_mul) {
4166 {
4167 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4168 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4169 gsl_permutation *arg3 = (gsl_permutation *) 0 ;
4170 void *argp1 = 0 ;
4171 int res1 = 0 ;
4172 void *argp2 = 0 ;
4173 int res2 = 0 ;
4174 void *argp3 = 0 ;
4175 int res3 = 0 ;
4176 int argvi = 0;
4177 int result;
4178 dXSARGS;
4179
4180 if ((items < 3) || (items > 3)) {
4181 SWIG_croak("Usage: gsl_permutation_mul(p,pa,pb);");
4182 }
4183 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4184 if (!SWIG_IsOK(res1)) {
4185 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_mul" "', argument " "1"" of type '" "gsl_permutation *""'");
4186 }
4187 arg1 = (gsl_permutation *)(argp1);
4188 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4189 if (!SWIG_IsOK(res2)) {
4190 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_mul" "', argument " "2"" of type '" "gsl_permutation const *""'");
4191 }
4192 arg2 = (gsl_permutation *)(argp2);
4193 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4194 if (!SWIG_IsOK(res3)) {
4195 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_permutation_mul" "', argument " "3"" of type '" "gsl_permutation const *""'");
4196 }
4197 arg3 = (gsl_permutation *)(argp3);
4198 result = (int)gsl_permutation_mul(arg1,(struct gsl_permutation_struct const *)arg2,(struct gsl_permutation_struct const *)arg3);
4199 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4200
4201
4202
4203 XSRETURN(argvi);
4204 fail:
4205
4206
4207
4208 SWIG_croak_null();
4209 }
4210 }
4211
4212
XS(_wrap_gsl_permutation_linear_to_canonical)4213 XS(_wrap_gsl_permutation_linear_to_canonical) {
4214 {
4215 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4216 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4217 void *argp1 = 0 ;
4218 int res1 = 0 ;
4219 void *argp2 = 0 ;
4220 int res2 = 0 ;
4221 int argvi = 0;
4222 int result;
4223 dXSARGS;
4224
4225 if ((items < 2) || (items > 2)) {
4226 SWIG_croak("Usage: gsl_permutation_linear_to_canonical(q,p);");
4227 }
4228 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4229 if (!SWIG_IsOK(res1)) {
4230 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_linear_to_canonical" "', argument " "1"" of type '" "gsl_permutation *""'");
4231 }
4232 arg1 = (gsl_permutation *)(argp1);
4233 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4234 if (!SWIG_IsOK(res2)) {
4235 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_linear_to_canonical" "', argument " "2"" of type '" "gsl_permutation const *""'");
4236 }
4237 arg2 = (gsl_permutation *)(argp2);
4238 result = (int)gsl_permutation_linear_to_canonical(arg1,(struct gsl_permutation_struct const *)arg2);
4239 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4240
4241
4242 XSRETURN(argvi);
4243 fail:
4244
4245
4246 SWIG_croak_null();
4247 }
4248 }
4249
4250
XS(_wrap_gsl_permutation_canonical_to_linear)4251 XS(_wrap_gsl_permutation_canonical_to_linear) {
4252 {
4253 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4254 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
4255 void *argp1 = 0 ;
4256 int res1 = 0 ;
4257 void *argp2 = 0 ;
4258 int res2 = 0 ;
4259 int argvi = 0;
4260 int result;
4261 dXSARGS;
4262
4263 if ((items < 2) || (items > 2)) {
4264 SWIG_croak("Usage: gsl_permutation_canonical_to_linear(p,q);");
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_canonical_to_linear" "', argument " "1"" of type '" "gsl_permutation *""'");
4269 }
4270 arg1 = (gsl_permutation *)(argp1);
4271 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4272 if (!SWIG_IsOK(res2)) {
4273 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_permutation_canonical_to_linear" "', argument " "2"" of type '" "gsl_permutation const *""'");
4274 }
4275 arg2 = (gsl_permutation *)(argp2);
4276 result = (int)gsl_permutation_canonical_to_linear(arg1,(struct gsl_permutation_struct const *)arg2);
4277 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
4278
4279
4280 XSRETURN(argvi);
4281 fail:
4282
4283
4284 SWIG_croak_null();
4285 }
4286 }
4287
4288
XS(_wrap_gsl_permutation_inversions)4289 XS(_wrap_gsl_permutation_inversions) {
4290 {
4291 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4292 void *argp1 = 0 ;
4293 int res1 = 0 ;
4294 int argvi = 0;
4295 size_t result;
4296 dXSARGS;
4297
4298 if ((items < 1) || (items > 1)) {
4299 SWIG_croak("Usage: gsl_permutation_inversions(p);");
4300 }
4301 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4302 if (!SWIG_IsOK(res1)) {
4303 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_inversions" "', argument " "1"" of type '" "gsl_permutation const *""'");
4304 }
4305 arg1 = (gsl_permutation *)(argp1);
4306 result = gsl_permutation_inversions((struct gsl_permutation_struct const *)arg1);
4307 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4308
4309 XSRETURN(argvi);
4310 fail:
4311
4312 SWIG_croak_null();
4313 }
4314 }
4315
4316
XS(_wrap_gsl_permutation_linear_cycles)4317 XS(_wrap_gsl_permutation_linear_cycles) {
4318 {
4319 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4320 void *argp1 = 0 ;
4321 int res1 = 0 ;
4322 int argvi = 0;
4323 size_t result;
4324 dXSARGS;
4325
4326 if ((items < 1) || (items > 1)) {
4327 SWIG_croak("Usage: gsl_permutation_linear_cycles(p);");
4328 }
4329 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4330 if (!SWIG_IsOK(res1)) {
4331 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_linear_cycles" "', argument " "1"" of type '" "gsl_permutation const *""'");
4332 }
4333 arg1 = (gsl_permutation *)(argp1);
4334 result = gsl_permutation_linear_cycles((struct gsl_permutation_struct const *)arg1);
4335 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4336
4337 XSRETURN(argvi);
4338 fail:
4339
4340 SWIG_croak_null();
4341 }
4342 }
4343
4344
XS(_wrap_gsl_permutation_canonical_cycles)4345 XS(_wrap_gsl_permutation_canonical_cycles) {
4346 {
4347 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4348 void *argp1 = 0 ;
4349 int res1 = 0 ;
4350 int argvi = 0;
4351 size_t result;
4352 dXSARGS;
4353
4354 if ((items < 1) || (items > 1)) {
4355 SWIG_croak("Usage: gsl_permutation_canonical_cycles(q);");
4356 }
4357 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4358 if (!SWIG_IsOK(res1)) {
4359 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_canonical_cycles" "', argument " "1"" of type '" "gsl_permutation const *""'");
4360 }
4361 arg1 = (gsl_permutation *)(argp1);
4362 result = gsl_permutation_canonical_cycles((struct gsl_permutation_struct const *)arg1);
4363 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4364
4365 XSRETURN(argvi);
4366 fail:
4367
4368 SWIG_croak_null();
4369 }
4370 }
4371
4372
XS(_wrap_gsl_permutation_get)4373 XS(_wrap_gsl_permutation_get) {
4374 {
4375 gsl_permutation *arg1 = (gsl_permutation *) 0 ;
4376 size_t arg2 ;
4377 void *argp1 = 0 ;
4378 int res1 = 0 ;
4379 size_t val2 ;
4380 int ecode2 = 0 ;
4381 int argvi = 0;
4382 size_t result;
4383 dXSARGS;
4384
4385 if ((items < 2) || (items > 2)) {
4386 SWIG_croak("Usage: gsl_permutation_get(p,i);");
4387 }
4388 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
4389 if (!SWIG_IsOK(res1)) {
4390 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_permutation_get" "', argument " "1"" of type '" "gsl_permutation const *""'");
4391 }
4392 arg1 = (gsl_permutation *)(argp1);
4393 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4394 if (!SWIG_IsOK(ecode2)) {
4395 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_permutation_get" "', argument " "2"" of type '" "size_t""'");
4396 }
4397 arg2 = (size_t)(val2);
4398 result = gsl_permutation_get((struct gsl_permutation_struct const *)arg1,arg2);
4399 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4400
4401
4402 XSRETURN(argvi);
4403 fail:
4404
4405
4406 SWIG_croak_null();
4407 }
4408 }
4409
4410
XS(_wrap_gsl_multifit_linear_workspace_nmax_set)4411 XS(_wrap_gsl_multifit_linear_workspace_nmax_set) {
4412 {
4413 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4414 size_t arg2 ;
4415 void *argp1 = 0 ;
4416 int res1 = 0 ;
4417 size_t val2 ;
4418 int ecode2 = 0 ;
4419 int argvi = 0;
4420 dXSARGS;
4421
4422 if ((items < 2) || (items > 2)) {
4423 SWIG_croak("Usage: gsl_multifit_linear_workspace_nmax_set(self,nmax);");
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_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4428 }
4429 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4430 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4431 if (!SWIG_IsOK(ecode2)) {
4432 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_linear_workspace_nmax_set" "', argument " "2"" of type '" "size_t""'");
4433 }
4434 arg2 = (size_t)(val2);
4435 if (arg1) (arg1)->nmax = arg2;
4436 ST(argvi) = &PL_sv_undef;
4437
4438
4439 XSRETURN(argvi);
4440 fail:
4441
4442
4443 SWIG_croak_null();
4444 }
4445 }
4446
4447
XS(_wrap_gsl_multifit_linear_workspace_nmax_get)4448 XS(_wrap_gsl_multifit_linear_workspace_nmax_get) {
4449 {
4450 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4451 void *argp1 = 0 ;
4452 int res1 = 0 ;
4453 int argvi = 0;
4454 size_t result;
4455 dXSARGS;
4456
4457 if ((items < 1) || (items > 1)) {
4458 SWIG_croak("Usage: gsl_multifit_linear_workspace_nmax_get(self);");
4459 }
4460 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
4461 if (!SWIG_IsOK(res1)) {
4462 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_nmax_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4463 }
4464 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4465 result = ((arg1)->nmax);
4466 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4467
4468 XSRETURN(argvi);
4469 fail:
4470
4471 SWIG_croak_null();
4472 }
4473 }
4474
4475
XS(_wrap_gsl_multifit_linear_workspace_pmax_set)4476 XS(_wrap_gsl_multifit_linear_workspace_pmax_set) {
4477 {
4478 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4479 size_t arg2 ;
4480 void *argp1 = 0 ;
4481 int res1 = 0 ;
4482 size_t val2 ;
4483 int ecode2 = 0 ;
4484 int argvi = 0;
4485 dXSARGS;
4486
4487 if ((items < 2) || (items > 2)) {
4488 SWIG_croak("Usage: gsl_multifit_linear_workspace_pmax_set(self,pmax);");
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_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4493 }
4494 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4495 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4496 if (!SWIG_IsOK(ecode2)) {
4497 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_linear_workspace_pmax_set" "', argument " "2"" of type '" "size_t""'");
4498 }
4499 arg2 = (size_t)(val2);
4500 if (arg1) (arg1)->pmax = arg2;
4501 ST(argvi) = &PL_sv_undef;
4502
4503
4504 XSRETURN(argvi);
4505 fail:
4506
4507
4508 SWIG_croak_null();
4509 }
4510 }
4511
4512
XS(_wrap_gsl_multifit_linear_workspace_pmax_get)4513 XS(_wrap_gsl_multifit_linear_workspace_pmax_get) {
4514 {
4515 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4516 void *argp1 = 0 ;
4517 int res1 = 0 ;
4518 int argvi = 0;
4519 size_t result;
4520 dXSARGS;
4521
4522 if ((items < 1) || (items > 1)) {
4523 SWIG_croak("Usage: gsl_multifit_linear_workspace_pmax_get(self);");
4524 }
4525 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
4526 if (!SWIG_IsOK(res1)) {
4527 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_pmax_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4528 }
4529 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4530 result = ((arg1)->pmax);
4531 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4532
4533 XSRETURN(argvi);
4534 fail:
4535
4536 SWIG_croak_null();
4537 }
4538 }
4539
4540
XS(_wrap_gsl_multifit_linear_workspace_n_set)4541 XS(_wrap_gsl_multifit_linear_workspace_n_set) {
4542 {
4543 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4544 size_t arg2 ;
4545 void *argp1 = 0 ;
4546 int res1 = 0 ;
4547 size_t val2 ;
4548 int ecode2 = 0 ;
4549 int argvi = 0;
4550 dXSARGS;
4551
4552 if ((items < 2) || (items > 2)) {
4553 SWIG_croak("Usage: gsl_multifit_linear_workspace_n_set(self,n);");
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_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4558 }
4559 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4560 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4561 if (!SWIG_IsOK(ecode2)) {
4562 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_linear_workspace_n_set" "', argument " "2"" of type '" "size_t""'");
4563 }
4564 arg2 = (size_t)(val2);
4565 if (arg1) (arg1)->n = arg2;
4566 ST(argvi) = &PL_sv_undef;
4567
4568
4569 XSRETURN(argvi);
4570 fail:
4571
4572
4573 SWIG_croak_null();
4574 }
4575 }
4576
4577
XS(_wrap_gsl_multifit_linear_workspace_n_get)4578 XS(_wrap_gsl_multifit_linear_workspace_n_get) {
4579 {
4580 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4581 void *argp1 = 0 ;
4582 int res1 = 0 ;
4583 int argvi = 0;
4584 size_t result;
4585 dXSARGS;
4586
4587 if ((items < 1) || (items > 1)) {
4588 SWIG_croak("Usage: gsl_multifit_linear_workspace_n_get(self);");
4589 }
4590 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
4591 if (!SWIG_IsOK(res1)) {
4592 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_n_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4593 }
4594 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4595 result = ((arg1)->n);
4596 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4597
4598 XSRETURN(argvi);
4599 fail:
4600
4601 SWIG_croak_null();
4602 }
4603 }
4604
4605
XS(_wrap_gsl_multifit_linear_workspace_p_set)4606 XS(_wrap_gsl_multifit_linear_workspace_p_set) {
4607 {
4608 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4609 size_t arg2 ;
4610 void *argp1 = 0 ;
4611 int res1 = 0 ;
4612 size_t val2 ;
4613 int ecode2 = 0 ;
4614 int argvi = 0;
4615 dXSARGS;
4616
4617 if ((items < 2) || (items > 2)) {
4618 SWIG_croak("Usage: gsl_multifit_linear_workspace_p_set(self,p);");
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_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4623 }
4624 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4625 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
4626 if (!SWIG_IsOK(ecode2)) {
4627 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_linear_workspace_p_set" "', argument " "2"" of type '" "size_t""'");
4628 }
4629 arg2 = (size_t)(val2);
4630 if (arg1) (arg1)->p = arg2;
4631 ST(argvi) = &PL_sv_undef;
4632
4633
4634 XSRETURN(argvi);
4635 fail:
4636
4637
4638 SWIG_croak_null();
4639 }
4640 }
4641
4642
XS(_wrap_gsl_multifit_linear_workspace_p_get)4643 XS(_wrap_gsl_multifit_linear_workspace_p_get) {
4644 {
4645 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4646 void *argp1 = 0 ;
4647 int res1 = 0 ;
4648 int argvi = 0;
4649 size_t result;
4650 dXSARGS;
4651
4652 if ((items < 1) || (items > 1)) {
4653 SWIG_croak("Usage: gsl_multifit_linear_workspace_p_get(self);");
4654 }
4655 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
4656 if (!SWIG_IsOK(res1)) {
4657 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_p_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4658 }
4659 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4660 result = ((arg1)->p);
4661 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
4662
4663 XSRETURN(argvi);
4664 fail:
4665
4666 SWIG_croak_null();
4667 }
4668 }
4669
4670
XS(_wrap_gsl_multifit_linear_workspace_A_set)4671 XS(_wrap_gsl_multifit_linear_workspace_A_set) {
4672 {
4673 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4674 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
4675 void *argp1 = 0 ;
4676 int res1 = 0 ;
4677 void *argp2 = 0 ;
4678 int res2 = 0 ;
4679 int argvi = 0;
4680 dXSARGS;
4681
4682 if ((items < 2) || (items > 2)) {
4683 SWIG_croak("Usage: gsl_multifit_linear_workspace_A_set(self,A);");
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_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4688 }
4689 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4690 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, SWIG_POINTER_DISOWN | 0 );
4691 if (!SWIG_IsOK(res2)) {
4692 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_workspace_A_set" "', argument " "2"" of type '" "gsl_matrix *""'");
4693 }
4694 arg2 = (gsl_matrix *)(argp2);
4695 if (arg1) (arg1)->A = arg2;
4696 ST(argvi) = &PL_sv_undef;
4697
4698
4699 XSRETURN(argvi);
4700 fail:
4701
4702
4703 SWIG_croak_null();
4704 }
4705 }
4706
4707
XS(_wrap_gsl_multifit_linear_workspace_A_get)4708 XS(_wrap_gsl_multifit_linear_workspace_A_get) {
4709 {
4710 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4711 void *argp1 = 0 ;
4712 int res1 = 0 ;
4713 int argvi = 0;
4714 gsl_matrix *result = 0 ;
4715 dXSARGS;
4716
4717 if ((items < 1) || (items > 1)) {
4718 SWIG_croak("Usage: gsl_multifit_linear_workspace_A_get(self);");
4719 }
4720 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
4721 if (!SWIG_IsOK(res1)) {
4722 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_A_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4723 }
4724 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4725 result = (gsl_matrix *) ((arg1)->A);
4726 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_matrix, 0 | 0); argvi++ ;
4727
4728 XSRETURN(argvi);
4729 fail:
4730
4731 SWIG_croak_null();
4732 }
4733 }
4734
4735
XS(_wrap_gsl_multifit_linear_workspace_Q_set)4736 XS(_wrap_gsl_multifit_linear_workspace_Q_set) {
4737 {
4738 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4739 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
4740 void *argp1 = 0 ;
4741 int res1 = 0 ;
4742 void *argp2 = 0 ;
4743 int res2 = 0 ;
4744 int argvi = 0;
4745 dXSARGS;
4746
4747 if ((items < 2) || (items > 2)) {
4748 SWIG_croak("Usage: gsl_multifit_linear_workspace_Q_set(self,Q);");
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_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4753 }
4754 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4755 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, SWIG_POINTER_DISOWN | 0 );
4756 if (!SWIG_IsOK(res2)) {
4757 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_workspace_Q_set" "', argument " "2"" of type '" "gsl_matrix *""'");
4758 }
4759 arg2 = (gsl_matrix *)(argp2);
4760 if (arg1) (arg1)->Q = arg2;
4761 ST(argvi) = &PL_sv_undef;
4762
4763
4764 XSRETURN(argvi);
4765 fail:
4766
4767
4768 SWIG_croak_null();
4769 }
4770 }
4771
4772
XS(_wrap_gsl_multifit_linear_workspace_Q_get)4773 XS(_wrap_gsl_multifit_linear_workspace_Q_get) {
4774 {
4775 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4776 void *argp1 = 0 ;
4777 int res1 = 0 ;
4778 int argvi = 0;
4779 gsl_matrix *result = 0 ;
4780 dXSARGS;
4781
4782 if ((items < 1) || (items > 1)) {
4783 SWIG_croak("Usage: gsl_multifit_linear_workspace_Q_get(self);");
4784 }
4785 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
4786 if (!SWIG_IsOK(res1)) {
4787 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_Q_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4788 }
4789 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4790 result = (gsl_matrix *) ((arg1)->Q);
4791 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_matrix, 0 | 0); argvi++ ;
4792
4793 XSRETURN(argvi);
4794 fail:
4795
4796 SWIG_croak_null();
4797 }
4798 }
4799
4800
XS(_wrap_gsl_multifit_linear_workspace_QSI_set)4801 XS(_wrap_gsl_multifit_linear_workspace_QSI_set) {
4802 {
4803 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4804 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
4805 void *argp1 = 0 ;
4806 int res1 = 0 ;
4807 void *argp2 = 0 ;
4808 int res2 = 0 ;
4809 int argvi = 0;
4810 dXSARGS;
4811
4812 if ((items < 2) || (items > 2)) {
4813 SWIG_croak("Usage: gsl_multifit_linear_workspace_QSI_set(self,QSI);");
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_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4818 }
4819 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4820 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, SWIG_POINTER_DISOWN | 0 );
4821 if (!SWIG_IsOK(res2)) {
4822 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_workspace_QSI_set" "', argument " "2"" of type '" "gsl_matrix *""'");
4823 }
4824 arg2 = (gsl_matrix *)(argp2);
4825 if (arg1) (arg1)->QSI = arg2;
4826 ST(argvi) = &PL_sv_undef;
4827
4828
4829 XSRETURN(argvi);
4830 fail:
4831
4832
4833 SWIG_croak_null();
4834 }
4835 }
4836
4837
XS(_wrap_gsl_multifit_linear_workspace_QSI_get)4838 XS(_wrap_gsl_multifit_linear_workspace_QSI_get) {
4839 {
4840 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4841 void *argp1 = 0 ;
4842 int res1 = 0 ;
4843 int argvi = 0;
4844 gsl_matrix *result = 0 ;
4845 dXSARGS;
4846
4847 if ((items < 1) || (items > 1)) {
4848 SWIG_croak("Usage: gsl_multifit_linear_workspace_QSI_get(self);");
4849 }
4850 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
4851 if (!SWIG_IsOK(res1)) {
4852 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_QSI_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4853 }
4854 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4855 result = (gsl_matrix *) ((arg1)->QSI);
4856 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_matrix, 0 | 0); argvi++ ;
4857
4858 XSRETURN(argvi);
4859 fail:
4860
4861 SWIG_croak_null();
4862 }
4863 }
4864
4865
XS(_wrap_gsl_multifit_linear_workspace_S_set)4866 XS(_wrap_gsl_multifit_linear_workspace_S_set) {
4867 {
4868 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4869 gsl_vector *arg2 = (gsl_vector *) 0 ;
4870 void *argp1 = 0 ;
4871 int res1 = 0 ;
4872 void *argp2 = 0 ;
4873 int res2 = 0 ;
4874 int argvi = 0;
4875 dXSARGS;
4876
4877 if ((items < 2) || (items > 2)) {
4878 SWIG_croak("Usage: gsl_multifit_linear_workspace_S_set(self,S);");
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_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4883 }
4884 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4885 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
4886 if (!SWIG_IsOK(res2)) {
4887 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_workspace_S_set" "', argument " "2"" of type '" "gsl_vector *""'");
4888 }
4889 arg2 = (gsl_vector *)(argp2);
4890 if (arg1) (arg1)->S = arg2;
4891 ST(argvi) = &PL_sv_undef;
4892
4893
4894 XSRETURN(argvi);
4895 fail:
4896
4897
4898 SWIG_croak_null();
4899 }
4900 }
4901
4902
XS(_wrap_gsl_multifit_linear_workspace_S_get)4903 XS(_wrap_gsl_multifit_linear_workspace_S_get) {
4904 {
4905 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4906 void *argp1 = 0 ;
4907 int res1 = 0 ;
4908 int argvi = 0;
4909 gsl_vector *result = 0 ;
4910 dXSARGS;
4911
4912 if ((items < 1) || (items > 1)) {
4913 SWIG_croak("Usage: gsl_multifit_linear_workspace_S_get(self);");
4914 }
4915 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
4916 if (!SWIG_IsOK(res1)) {
4917 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_S_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4918 }
4919 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4920 result = (gsl_vector *) ((arg1)->S);
4921 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
4922
4923 XSRETURN(argvi);
4924 fail:
4925
4926 SWIG_croak_null();
4927 }
4928 }
4929
4930
XS(_wrap_gsl_multifit_linear_workspace_t_set)4931 XS(_wrap_gsl_multifit_linear_workspace_t_set) {
4932 {
4933 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4934 gsl_vector *arg2 = (gsl_vector *) 0 ;
4935 void *argp1 = 0 ;
4936 int res1 = 0 ;
4937 void *argp2 = 0 ;
4938 int res2 = 0 ;
4939 int argvi = 0;
4940 dXSARGS;
4941
4942 if ((items < 2) || (items > 2)) {
4943 SWIG_croak("Usage: gsl_multifit_linear_workspace_t_set(self,t);");
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_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4948 }
4949 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4950 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
4951 if (!SWIG_IsOK(res2)) {
4952 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_workspace_t_set" "', argument " "2"" of type '" "gsl_vector *""'");
4953 }
4954 arg2 = (gsl_vector *)(argp2);
4955 if (arg1) (arg1)->t = arg2;
4956 ST(argvi) = &PL_sv_undef;
4957
4958
4959 XSRETURN(argvi);
4960 fail:
4961
4962
4963 SWIG_croak_null();
4964 }
4965 }
4966
4967
XS(_wrap_gsl_multifit_linear_workspace_t_get)4968 XS(_wrap_gsl_multifit_linear_workspace_t_get) {
4969 {
4970 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4971 void *argp1 = 0 ;
4972 int res1 = 0 ;
4973 int argvi = 0;
4974 gsl_vector *result = 0 ;
4975 dXSARGS;
4976
4977 if ((items < 1) || (items > 1)) {
4978 SWIG_croak("Usage: gsl_multifit_linear_workspace_t_get(self);");
4979 }
4980 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
4981 if (!SWIG_IsOK(res1)) {
4982 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_t_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
4983 }
4984 arg1 = (gsl_multifit_linear_workspace *)(argp1);
4985 result = (gsl_vector *) ((arg1)->t);
4986 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
4987
4988 XSRETURN(argvi);
4989 fail:
4990
4991 SWIG_croak_null();
4992 }
4993 }
4994
4995
XS(_wrap_gsl_multifit_linear_workspace_xt_set)4996 XS(_wrap_gsl_multifit_linear_workspace_xt_set) {
4997 {
4998 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
4999 gsl_vector *arg2 = (gsl_vector *) 0 ;
5000 void *argp1 = 0 ;
5001 int res1 = 0 ;
5002 void *argp2 = 0 ;
5003 int res2 = 0 ;
5004 int argvi = 0;
5005 dXSARGS;
5006
5007 if ((items < 2) || (items > 2)) {
5008 SWIG_croak("Usage: gsl_multifit_linear_workspace_xt_set(self,xt);");
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_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
5013 }
5014 arg1 = (gsl_multifit_linear_workspace *)(argp1);
5015 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
5016 if (!SWIG_IsOK(res2)) {
5017 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_workspace_xt_set" "', argument " "2"" of type '" "gsl_vector *""'");
5018 }
5019 arg2 = (gsl_vector *)(argp2);
5020 if (arg1) (arg1)->xt = arg2;
5021 ST(argvi) = &PL_sv_undef;
5022
5023
5024 XSRETURN(argvi);
5025 fail:
5026
5027
5028 SWIG_croak_null();
5029 }
5030 }
5031
5032
XS(_wrap_gsl_multifit_linear_workspace_xt_get)5033 XS(_wrap_gsl_multifit_linear_workspace_xt_get) {
5034 {
5035 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
5036 void *argp1 = 0 ;
5037 int res1 = 0 ;
5038 int argvi = 0;
5039 gsl_vector *result = 0 ;
5040 dXSARGS;
5041
5042 if ((items < 1) || (items > 1)) {
5043 SWIG_croak("Usage: gsl_multifit_linear_workspace_xt_get(self);");
5044 }
5045 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
5046 if (!SWIG_IsOK(res1)) {
5047 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_xt_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
5048 }
5049 arg1 = (gsl_multifit_linear_workspace *)(argp1);
5050 result = (gsl_vector *) ((arg1)->xt);
5051 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
5052
5053 XSRETURN(argvi);
5054 fail:
5055
5056 SWIG_croak_null();
5057 }
5058 }
5059
5060
XS(_wrap_gsl_multifit_linear_workspace_D_set)5061 XS(_wrap_gsl_multifit_linear_workspace_D_set) {
5062 {
5063 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
5064 gsl_vector *arg2 = (gsl_vector *) 0 ;
5065 void *argp1 = 0 ;
5066 int res1 = 0 ;
5067 void *argp2 = 0 ;
5068 int res2 = 0 ;
5069 int argvi = 0;
5070 dXSARGS;
5071
5072 if ((items < 2) || (items > 2)) {
5073 SWIG_croak("Usage: gsl_multifit_linear_workspace_D_set(self,D);");
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_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
5078 }
5079 arg1 = (gsl_multifit_linear_workspace *)(argp1);
5080 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
5081 if (!SWIG_IsOK(res2)) {
5082 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_workspace_D_set" "', argument " "2"" of type '" "gsl_vector *""'");
5083 }
5084 arg2 = (gsl_vector *)(argp2);
5085 if (arg1) (arg1)->D = arg2;
5086 ST(argvi) = &PL_sv_undef;
5087
5088
5089 XSRETURN(argvi);
5090 fail:
5091
5092
5093 SWIG_croak_null();
5094 }
5095 }
5096
5097
XS(_wrap_gsl_multifit_linear_workspace_D_get)5098 XS(_wrap_gsl_multifit_linear_workspace_D_get) {
5099 {
5100 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
5101 void *argp1 = 0 ;
5102 int res1 = 0 ;
5103 int argvi = 0;
5104 gsl_vector *result = 0 ;
5105 dXSARGS;
5106
5107 if ((items < 1) || (items > 1)) {
5108 SWIG_croak("Usage: gsl_multifit_linear_workspace_D_get(self);");
5109 }
5110 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
5111 if (!SWIG_IsOK(res1)) {
5112 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_D_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
5113 }
5114 arg1 = (gsl_multifit_linear_workspace *)(argp1);
5115 result = (gsl_vector *) ((arg1)->D);
5116 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
5117
5118 XSRETURN(argvi);
5119 fail:
5120
5121 SWIG_croak_null();
5122 }
5123 }
5124
5125
XS(_wrap_gsl_multifit_linear_workspace_rcond_set)5126 XS(_wrap_gsl_multifit_linear_workspace_rcond_set) {
5127 {
5128 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
5129 double arg2 ;
5130 void *argp1 = 0 ;
5131 int res1 = 0 ;
5132 double val2 ;
5133 int ecode2 = 0 ;
5134 int argvi = 0;
5135 dXSARGS;
5136
5137 if ((items < 2) || (items > 2)) {
5138 SWIG_croak("Usage: gsl_multifit_linear_workspace_rcond_set(self,rcond);");
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_set" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
5143 }
5144 arg1 = (gsl_multifit_linear_workspace *)(argp1);
5145 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5146 if (!SWIG_IsOK(ecode2)) {
5147 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_linear_workspace_rcond_set" "', argument " "2"" of type '" "double""'");
5148 }
5149 arg2 = (double)(val2);
5150 if (arg1) (arg1)->rcond = arg2;
5151 ST(argvi) = &PL_sv_undef;
5152
5153
5154 XSRETURN(argvi);
5155 fail:
5156
5157
5158 SWIG_croak_null();
5159 }
5160 }
5161
5162
XS(_wrap_gsl_multifit_linear_workspace_rcond_get)5163 XS(_wrap_gsl_multifit_linear_workspace_rcond_get) {
5164 {
5165 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
5166 void *argp1 = 0 ;
5167 int res1 = 0 ;
5168 int argvi = 0;
5169 double result;
5170 dXSARGS;
5171
5172 if ((items < 1) || (items > 1)) {
5173 SWIG_croak("Usage: gsl_multifit_linear_workspace_rcond_get(self);");
5174 }
5175 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
5176 if (!SWIG_IsOK(res1)) {
5177 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_workspace_rcond_get" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
5178 }
5179 arg1 = (gsl_multifit_linear_workspace *)(argp1);
5180 result = (double) ((arg1)->rcond);
5181 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
5182
5183 XSRETURN(argvi);
5184 fail:
5185
5186 SWIG_croak_null();
5187 }
5188 }
5189
5190
XS(_wrap_new_gsl_multifit_linear_workspace)5191 XS(_wrap_new_gsl_multifit_linear_workspace) {
5192 {
5193 int argvi = 0;
5194 gsl_multifit_linear_workspace *result = 0 ;
5195 dXSARGS;
5196
5197 if ((items < 0) || (items > 0)) {
5198 SWIG_croak("Usage: new_gsl_multifit_linear_workspace();");
5199 }
5200 result = (gsl_multifit_linear_workspace *)calloc(1, sizeof(gsl_multifit_linear_workspace));
5201 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_linear_workspace, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
5202 XSRETURN(argvi);
5203 fail:
5204 SWIG_croak_null();
5205 }
5206 }
5207
5208
XS(_wrap_delete_gsl_multifit_linear_workspace)5209 XS(_wrap_delete_gsl_multifit_linear_workspace) {
5210 {
5211 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
5212 void *argp1 = 0 ;
5213 int res1 = 0 ;
5214 int argvi = 0;
5215 dXSARGS;
5216
5217 if ((items < 1) || (items > 1)) {
5218 SWIG_croak("Usage: delete_gsl_multifit_linear_workspace(self);");
5219 }
5220 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, SWIG_POINTER_DISOWN | 0 );
5221 if (!SWIG_IsOK(res1)) {
5222 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_multifit_linear_workspace" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
5223 }
5224 arg1 = (gsl_multifit_linear_workspace *)(argp1);
5225 free((char *) arg1);
5226 ST(argvi) = &PL_sv_undef;
5227
5228 XSRETURN(argvi);
5229 fail:
5230
5231 SWIG_croak_null();
5232 }
5233 }
5234
5235
XS(_wrap_gsl_multifit_linear_alloc)5236 XS(_wrap_gsl_multifit_linear_alloc) {
5237 {
5238 size_t arg1 ;
5239 size_t arg2 ;
5240 size_t val1 ;
5241 int ecode1 = 0 ;
5242 size_t val2 ;
5243 int ecode2 = 0 ;
5244 int argvi = 0;
5245 gsl_multifit_linear_workspace *result = 0 ;
5246 dXSARGS;
5247
5248 if ((items < 2) || (items > 2)) {
5249 SWIG_croak("Usage: gsl_multifit_linear_alloc(n,p);");
5250 }
5251 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5252 if (!SWIG_IsOK(ecode1)) {
5253 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_multifit_linear_alloc" "', argument " "1"" of type '" "size_t""'");
5254 }
5255 arg1 = (size_t)(val1);
5256 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
5257 if (!SWIG_IsOK(ecode2)) {
5258 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_linear_alloc" "', argument " "2"" of type '" "size_t""'");
5259 }
5260 arg2 = (size_t)(val2);
5261 result = (gsl_multifit_linear_workspace *)gsl_multifit_linear_alloc(arg1,arg2);
5262 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | SWIG_SHADOW); argvi++ ;
5263
5264
5265 XSRETURN(argvi);
5266 fail:
5267
5268
5269 SWIG_croak_null();
5270 }
5271 }
5272
5273
XS(_wrap_gsl_multifit_linear_free)5274 XS(_wrap_gsl_multifit_linear_free) {
5275 {
5276 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
5277 void *argp1 = 0 ;
5278 int res1 = 0 ;
5279 int argvi = 0;
5280 dXSARGS;
5281
5282 if ((items < 1) || (items > 1)) {
5283 SWIG_croak("Usage: gsl_multifit_linear_free(w);");
5284 }
5285 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
5286 if (!SWIG_IsOK(res1)) {
5287 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_free" "', argument " "1"" of type '" "gsl_multifit_linear_workspace *""'");
5288 }
5289 arg1 = (gsl_multifit_linear_workspace *)(argp1);
5290 gsl_multifit_linear_free(arg1);
5291 ST(argvi) = &PL_sv_undef;
5292
5293 XSRETURN(argvi);
5294 fail:
5295
5296 SWIG_croak_null();
5297 }
5298 }
5299
5300
XS(_wrap_gsl_multifit_linear)5301 XS(_wrap_gsl_multifit_linear) {
5302 {
5303 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5304 gsl_vector *arg2 = (gsl_vector *) 0 ;
5305 gsl_vector *arg3 = (gsl_vector *) 0 ;
5306 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
5307 double *arg5 = (double *) 0 ;
5308 gsl_multifit_linear_workspace *arg6 = (gsl_multifit_linear_workspace *) 0 ;
5309 void *argp1 = 0 ;
5310 int res1 = 0 ;
5311 void *argp2 = 0 ;
5312 int res2 = 0 ;
5313 void *argp3 = 0 ;
5314 int res3 = 0 ;
5315 void *argp4 = 0 ;
5316 int res4 = 0 ;
5317 double temp5 ;
5318 int res5 = SWIG_TMPOBJ ;
5319 void *argp6 = 0 ;
5320 int res6 = 0 ;
5321 int argvi = 0;
5322 int result;
5323 dXSARGS;
5324
5325 arg5 = &temp5;
5326 if ((items < 5) || (items > 5)) {
5327 SWIG_croak("Usage: gsl_multifit_linear(X,y,c,cov,work);");
5328 }
5329 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5330 if (!SWIG_IsOK(res1)) {
5331 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear" "', argument " "1"" of type '" "gsl_matrix const *""'");
5332 }
5333 arg1 = (gsl_matrix *)(argp1);
5334 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5335 if (!SWIG_IsOK(res2)) {
5336 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear" "', argument " "2"" of type '" "gsl_vector const *""'");
5337 }
5338 arg2 = (gsl_vector *)(argp2);
5339 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5340 if (!SWIG_IsOK(res3)) {
5341 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear" "', argument " "3"" of type '" "gsl_vector *""'");
5342 }
5343 arg3 = (gsl_vector *)(argp3);
5344 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5345 if (!SWIG_IsOK(res4)) {
5346 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear" "', argument " "4"" of type '" "gsl_matrix *""'");
5347 }
5348 arg4 = (gsl_matrix *)(argp4);
5349 res6 = SWIG_ConvertPtr(ST(4), &argp6,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
5350 if (!SWIG_IsOK(res6)) {
5351 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear" "', argument " "6"" of type '" "gsl_multifit_linear_workspace *""'");
5352 }
5353 arg6 = (gsl_multifit_linear_workspace *)(argp6);
5354 result = (int)gsl_multifit_linear((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4,arg5,arg6);
5355 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5356 if (SWIG_IsTmpObj(res5)) {
5357 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg5)); argvi++ ;
5358 } else {
5359 int new_flags = SWIG_IsNewObj(res5) ? (SWIG_POINTER_OWN | 0) : 0;
5360 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg5), SWIGTYPE_p_double, new_flags); argvi++ ;
5361 }
5362
5363
5364
5365
5366
5367
5368 XSRETURN(argvi);
5369 fail:
5370
5371
5372
5373
5374
5375
5376 SWIG_croak_null();
5377 }
5378 }
5379
5380
XS(_wrap_gsl_multifit_linear_tsvd)5381 XS(_wrap_gsl_multifit_linear_tsvd) {
5382 {
5383 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5384 gsl_vector *arg2 = (gsl_vector *) 0 ;
5385 double arg3 ;
5386 gsl_vector *arg4 = (gsl_vector *) 0 ;
5387 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
5388 double *arg6 = (double *) 0 ;
5389 size_t *arg7 = (size_t *) 0 ;
5390 gsl_multifit_linear_workspace *arg8 = (gsl_multifit_linear_workspace *) 0 ;
5391 void *argp1 = 0 ;
5392 int res1 = 0 ;
5393 void *argp2 = 0 ;
5394 int res2 = 0 ;
5395 double val3 ;
5396 int ecode3 = 0 ;
5397 void *argp4 = 0 ;
5398 int res4 = 0 ;
5399 void *argp5 = 0 ;
5400 int res5 = 0 ;
5401 double temp6 ;
5402 int res6 = SWIG_TMPOBJ ;
5403 size_t temp7 ;
5404 int res7 = SWIG_TMPOBJ ;
5405 void *argp8 = 0 ;
5406 int res8 = 0 ;
5407 int argvi = 0;
5408 int result;
5409 dXSARGS;
5410
5411 arg6 = &temp6;
5412 arg7 = &temp7;
5413 if ((items < 6) || (items > 6)) {
5414 SWIG_croak("Usage: gsl_multifit_linear_tsvd(X,y,tol,c,cov,work);");
5415 }
5416 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5417 if (!SWIG_IsOK(res1)) {
5418 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_tsvd" "', argument " "1"" of type '" "gsl_matrix const *""'");
5419 }
5420 arg1 = (gsl_matrix *)(argp1);
5421 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5422 if (!SWIG_IsOK(res2)) {
5423 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_tsvd" "', argument " "2"" of type '" "gsl_vector const *""'");
5424 }
5425 arg2 = (gsl_vector *)(argp2);
5426 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
5427 if (!SWIG_IsOK(ecode3)) {
5428 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_multifit_linear_tsvd" "', argument " "3"" of type '" "double""'");
5429 }
5430 arg3 = (double)(val3);
5431 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5432 if (!SWIG_IsOK(res4)) {
5433 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_tsvd" "', argument " "4"" of type '" "gsl_vector *""'");
5434 }
5435 arg4 = (gsl_vector *)(argp4);
5436 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5437 if (!SWIG_IsOK(res5)) {
5438 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_tsvd" "', argument " "5"" of type '" "gsl_matrix *""'");
5439 }
5440 arg5 = (gsl_matrix *)(argp5);
5441 res8 = SWIG_ConvertPtr(ST(5), &argp8,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
5442 if (!SWIG_IsOK(res8)) {
5443 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_multifit_linear_tsvd" "', argument " "8"" of type '" "gsl_multifit_linear_workspace *""'");
5444 }
5445 arg8 = (gsl_multifit_linear_workspace *)(argp8);
5446 result = (int)gsl_multifit_linear_tsvd((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4,arg5,arg6,arg7,arg8);
5447 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5448 if (SWIG_IsTmpObj(res6)) {
5449 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg6)); argvi++ ;
5450 } else {
5451 int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN | 0) : 0;
5452 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_double, new_flags); argvi++ ;
5453 }
5454 if (SWIG_IsTmpObj(res7)) {
5455 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg7)); argvi++ ;
5456 } else {
5457 int new_flags = SWIG_IsNewObj(res7) ? (SWIG_POINTER_OWN | 0) : 0;
5458 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg7), SWIGTYPE_p_size_t, new_flags); argvi++ ;
5459 }
5460
5461
5462
5463
5464
5465
5466
5467
5468 XSRETURN(argvi);
5469 fail:
5470
5471
5472
5473
5474
5475
5476
5477
5478 SWIG_croak_null();
5479 }
5480 }
5481
5482
XS(_wrap_gsl_multifit_linear_svd)5483 XS(_wrap_gsl_multifit_linear_svd) {
5484 {
5485 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5486 gsl_multifit_linear_workspace *arg2 = (gsl_multifit_linear_workspace *) 0 ;
5487 void *argp1 = 0 ;
5488 int res1 = 0 ;
5489 void *argp2 = 0 ;
5490 int res2 = 0 ;
5491 int argvi = 0;
5492 int result;
5493 dXSARGS;
5494
5495 if ((items < 2) || (items > 2)) {
5496 SWIG_croak("Usage: gsl_multifit_linear_svd(X,work);");
5497 }
5498 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5499 if (!SWIG_IsOK(res1)) {
5500 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_svd" "', argument " "1"" of type '" "gsl_matrix const *""'");
5501 }
5502 arg1 = (gsl_matrix *)(argp1);
5503 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
5504 if (!SWIG_IsOK(res2)) {
5505 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_svd" "', argument " "2"" of type '" "gsl_multifit_linear_workspace *""'");
5506 }
5507 arg2 = (gsl_multifit_linear_workspace *)(argp2);
5508 result = (int)gsl_multifit_linear_svd((gsl_matrix const *)arg1,arg2);
5509 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5510
5511
5512 XSRETURN(argvi);
5513 fail:
5514
5515
5516 SWIG_croak_null();
5517 }
5518 }
5519
5520
XS(_wrap_gsl_multifit_linear_bsvd)5521 XS(_wrap_gsl_multifit_linear_bsvd) {
5522 {
5523 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5524 gsl_multifit_linear_workspace *arg2 = (gsl_multifit_linear_workspace *) 0 ;
5525 void *argp1 = 0 ;
5526 int res1 = 0 ;
5527 void *argp2 = 0 ;
5528 int res2 = 0 ;
5529 int argvi = 0;
5530 int result;
5531 dXSARGS;
5532
5533 if ((items < 2) || (items > 2)) {
5534 SWIG_croak("Usage: gsl_multifit_linear_bsvd(X,work);");
5535 }
5536 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5537 if (!SWIG_IsOK(res1)) {
5538 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_bsvd" "', argument " "1"" of type '" "gsl_matrix const *""'");
5539 }
5540 arg1 = (gsl_matrix *)(argp1);
5541 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
5542 if (!SWIG_IsOK(res2)) {
5543 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_bsvd" "', argument " "2"" of type '" "gsl_multifit_linear_workspace *""'");
5544 }
5545 arg2 = (gsl_multifit_linear_workspace *)(argp2);
5546 result = (int)gsl_multifit_linear_bsvd((gsl_matrix const *)arg1,arg2);
5547 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5548
5549
5550 XSRETURN(argvi);
5551 fail:
5552
5553
5554 SWIG_croak_null();
5555 }
5556 }
5557
5558
XS(_wrap_gsl_multifit_linear_rank)5559 XS(_wrap_gsl_multifit_linear_rank) {
5560 {
5561 double arg1 ;
5562 gsl_multifit_linear_workspace *arg2 = (gsl_multifit_linear_workspace *) 0 ;
5563 double val1 ;
5564 int ecode1 = 0 ;
5565 void *argp2 = 0 ;
5566 int res2 = 0 ;
5567 int argvi = 0;
5568 size_t result;
5569 dXSARGS;
5570
5571 if ((items < 2) || (items > 2)) {
5572 SWIG_croak("Usage: gsl_multifit_linear_rank(tol,work);");
5573 }
5574 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5575 if (!SWIG_IsOK(ecode1)) {
5576 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_multifit_linear_rank" "', argument " "1"" of type '" "double""'");
5577 }
5578 arg1 = (double)(val1);
5579 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
5580 if (!SWIG_IsOK(res2)) {
5581 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_rank" "', argument " "2"" of type '" "gsl_multifit_linear_workspace const *""'");
5582 }
5583 arg2 = (gsl_multifit_linear_workspace *)(argp2);
5584 result = gsl_multifit_linear_rank(arg1,(gsl_multifit_linear_workspace const *)arg2);
5585 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
5586
5587
5588 XSRETURN(argvi);
5589 fail:
5590
5591
5592 SWIG_croak_null();
5593 }
5594 }
5595
5596
XS(_wrap_gsl_multifit_linear_solve)5597 XS(_wrap_gsl_multifit_linear_solve) {
5598 {
5599 double arg1 ;
5600 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5601 gsl_vector *arg3 = (gsl_vector *) 0 ;
5602 gsl_vector *arg4 = (gsl_vector *) 0 ;
5603 double *arg5 = (double *) 0 ;
5604 double *arg6 = (double *) 0 ;
5605 gsl_multifit_linear_workspace *arg7 = (gsl_multifit_linear_workspace *) 0 ;
5606 double val1 ;
5607 int ecode1 = 0 ;
5608 void *argp2 = 0 ;
5609 int res2 = 0 ;
5610 void *argp3 = 0 ;
5611 int res3 = 0 ;
5612 void *argp4 = 0 ;
5613 int res4 = 0 ;
5614 void *argp5 = 0 ;
5615 int res5 = 0 ;
5616 void *argp6 = 0 ;
5617 int res6 = 0 ;
5618 void *argp7 = 0 ;
5619 int res7 = 0 ;
5620 int argvi = 0;
5621 int result;
5622 dXSARGS;
5623
5624 if ((items < 7) || (items > 7)) {
5625 SWIG_croak("Usage: gsl_multifit_linear_solve(lambda,X,y,c,rnorm,snorm,work);");
5626 }
5627 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
5628 if (!SWIG_IsOK(ecode1)) {
5629 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_multifit_linear_solve" "', argument " "1"" of type '" "double""'");
5630 }
5631 arg1 = (double)(val1);
5632 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5633 if (!SWIG_IsOK(res2)) {
5634 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_solve" "', argument " "2"" of type '" "gsl_matrix const *""'");
5635 }
5636 arg2 = (gsl_matrix *)(argp2);
5637 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5638 if (!SWIG_IsOK(res3)) {
5639 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_solve" "', argument " "3"" of type '" "gsl_vector const *""'");
5640 }
5641 arg3 = (gsl_vector *)(argp3);
5642 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5643 if (!SWIG_IsOK(res4)) {
5644 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_solve" "', argument " "4"" of type '" "gsl_vector *""'");
5645 }
5646 arg4 = (gsl_vector *)(argp4);
5647 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_double, 0 | 0 );
5648 if (!SWIG_IsOK(res5)) {
5649 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_solve" "', argument " "5"" of type '" "double *""'");
5650 }
5651 arg5 = (double *)(argp5);
5652 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_double, 0 | 0 );
5653 if (!SWIG_IsOK(res6)) {
5654 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear_solve" "', argument " "6"" of type '" "double *""'");
5655 }
5656 arg6 = (double *)(argp6);
5657 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
5658 if (!SWIG_IsOK(res7)) {
5659 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_linear_solve" "', argument " "7"" of type '" "gsl_multifit_linear_workspace *""'");
5660 }
5661 arg7 = (gsl_multifit_linear_workspace *)(argp7);
5662 result = (int)gsl_multifit_linear_solve(arg1,(gsl_matrix const *)arg2,(gsl_vector const *)arg3,arg4,arg5,arg6,arg7);
5663 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5664
5665
5666
5667
5668
5669
5670
5671 XSRETURN(argvi);
5672 fail:
5673
5674
5675
5676
5677
5678
5679
5680 SWIG_croak_null();
5681 }
5682 }
5683
5684
XS(_wrap_gsl_multifit_linear_applyW)5685 XS(_wrap_gsl_multifit_linear_applyW) {
5686 {
5687 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5688 gsl_vector *arg2 = (gsl_vector *) 0 ;
5689 gsl_vector *arg3 = (gsl_vector *) 0 ;
5690 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
5691 gsl_vector *arg5 = (gsl_vector *) 0 ;
5692 void *argp1 = 0 ;
5693 int res1 = 0 ;
5694 void *argp2 = 0 ;
5695 int res2 = 0 ;
5696 void *argp3 = 0 ;
5697 int res3 = 0 ;
5698 void *argp4 = 0 ;
5699 int res4 = 0 ;
5700 void *argp5 = 0 ;
5701 int res5 = 0 ;
5702 int argvi = 0;
5703 int result;
5704 dXSARGS;
5705
5706 if ((items < 5) || (items > 5)) {
5707 SWIG_croak("Usage: gsl_multifit_linear_applyW(X,w,y,WX,Wy);");
5708 }
5709 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5710 if (!SWIG_IsOK(res1)) {
5711 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_applyW" "', argument " "1"" of type '" "gsl_matrix const *""'");
5712 }
5713 arg1 = (gsl_matrix *)(argp1);
5714 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5715 if (!SWIG_IsOK(res2)) {
5716 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_applyW" "', argument " "2"" of type '" "gsl_vector const *""'");
5717 }
5718 arg2 = (gsl_vector *)(argp2);
5719 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5720 if (!SWIG_IsOK(res3)) {
5721 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_applyW" "', argument " "3"" of type '" "gsl_vector const *""'");
5722 }
5723 arg3 = (gsl_vector *)(argp3);
5724 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5725 if (!SWIG_IsOK(res4)) {
5726 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_applyW" "', argument " "4"" of type '" "gsl_matrix *""'");
5727 }
5728 arg4 = (gsl_matrix *)(argp4);
5729 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5730 if (!SWIG_IsOK(res5)) {
5731 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_applyW" "', argument " "5"" of type '" "gsl_vector *""'");
5732 }
5733 arg5 = (gsl_vector *)(argp5);
5734 result = (int)gsl_multifit_linear_applyW((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5);
5735 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5736
5737
5738
5739
5740
5741 XSRETURN(argvi);
5742 fail:
5743
5744
5745
5746
5747
5748 SWIG_croak_null();
5749 }
5750 }
5751
5752
XS(_wrap_gsl_multifit_linear_stdform1)5753 XS(_wrap_gsl_multifit_linear_stdform1) {
5754 {
5755 gsl_vector *arg1 = (gsl_vector *) 0 ;
5756 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5757 gsl_vector *arg3 = (gsl_vector *) 0 ;
5758 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
5759 gsl_vector *arg5 = (gsl_vector *) 0 ;
5760 gsl_multifit_linear_workspace *arg6 = (gsl_multifit_linear_workspace *) 0 ;
5761 void *argp1 = 0 ;
5762 int res1 = 0 ;
5763 void *argp2 = 0 ;
5764 int res2 = 0 ;
5765 void *argp3 = 0 ;
5766 int res3 = 0 ;
5767 void *argp4 = 0 ;
5768 int res4 = 0 ;
5769 void *argp5 = 0 ;
5770 int res5 = 0 ;
5771 void *argp6 = 0 ;
5772 int res6 = 0 ;
5773 int argvi = 0;
5774 int result;
5775 dXSARGS;
5776
5777 if ((items < 6) || (items > 6)) {
5778 SWIG_croak("Usage: gsl_multifit_linear_stdform1(L,X,y,Xs,ys,work);");
5779 }
5780 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
5781 if (!SWIG_IsOK(res1)) {
5782 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_stdform1" "', argument " "1"" of type '" "gsl_vector const *""'");
5783 }
5784 arg1 = (gsl_vector *)(argp1);
5785 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5786 if (!SWIG_IsOK(res2)) {
5787 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_stdform1" "', argument " "2"" of type '" "gsl_matrix const *""'");
5788 }
5789 arg2 = (gsl_matrix *)(argp2);
5790 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5791 if (!SWIG_IsOK(res3)) {
5792 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_stdform1" "', argument " "3"" of type '" "gsl_vector const *""'");
5793 }
5794 arg3 = (gsl_vector *)(argp3);
5795 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5796 if (!SWIG_IsOK(res4)) {
5797 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_stdform1" "', argument " "4"" of type '" "gsl_matrix *""'");
5798 }
5799 arg4 = (gsl_matrix *)(argp4);
5800 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
5801 if (!SWIG_IsOK(res5)) {
5802 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_stdform1" "', argument " "5"" of type '" "gsl_vector *""'");
5803 }
5804 arg5 = (gsl_vector *)(argp5);
5805 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
5806 if (!SWIG_IsOK(res6)) {
5807 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear_stdform1" "', argument " "6"" of type '" "gsl_multifit_linear_workspace *""'");
5808 }
5809 arg6 = (gsl_multifit_linear_workspace *)(argp6);
5810 result = (int)gsl_multifit_linear_stdform1((gsl_vector const *)arg1,(gsl_matrix const *)arg2,(gsl_vector const *)arg3,arg4,arg5,arg6);
5811 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5812
5813
5814
5815
5816
5817
5818 XSRETURN(argvi);
5819 fail:
5820
5821
5822
5823
5824
5825
5826 SWIG_croak_null();
5827 }
5828 }
5829
5830
XS(_wrap_gsl_multifit_linear_wstdform1)5831 XS(_wrap_gsl_multifit_linear_wstdform1) {
5832 {
5833 gsl_vector *arg1 = (gsl_vector *) 0 ;
5834 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
5835 gsl_vector *arg3 = (gsl_vector *) 0 ;
5836 gsl_vector *arg4 = (gsl_vector *) 0 ;
5837 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
5838 gsl_vector *arg6 = (gsl_vector *) 0 ;
5839 gsl_multifit_linear_workspace *arg7 = (gsl_multifit_linear_workspace *) 0 ;
5840 void *argp1 = 0 ;
5841 int res1 = 0 ;
5842 void *argp2 = 0 ;
5843 int res2 = 0 ;
5844 void *argp3 = 0 ;
5845 int res3 = 0 ;
5846 void *argp4 = 0 ;
5847 int res4 = 0 ;
5848 void *argp5 = 0 ;
5849 int res5 = 0 ;
5850 void *argp6 = 0 ;
5851 int res6 = 0 ;
5852 void *argp7 = 0 ;
5853 int res7 = 0 ;
5854 int argvi = 0;
5855 int result;
5856 dXSARGS;
5857
5858 if ((items < 7) || (items > 7)) {
5859 SWIG_croak("Usage: gsl_multifit_linear_wstdform1(L,X,w,y,Xs,ys,work);");
5860 }
5861 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
5862 if (!SWIG_IsOK(res1)) {
5863 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_wstdform1" "', argument " "1"" of type '" "gsl_vector const *""'");
5864 }
5865 arg1 = (gsl_vector *)(argp1);
5866 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5867 if (!SWIG_IsOK(res2)) {
5868 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_wstdform1" "', argument " "2"" of type '" "gsl_matrix const *""'");
5869 }
5870 arg2 = (gsl_matrix *)(argp2);
5871 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
5872 if (!SWIG_IsOK(res3)) {
5873 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_wstdform1" "', argument " "3"" of type '" "gsl_vector const *""'");
5874 }
5875 arg3 = (gsl_vector *)(argp3);
5876 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
5877 if (!SWIG_IsOK(res4)) {
5878 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_wstdform1" "', argument " "4"" of type '" "gsl_vector const *""'");
5879 }
5880 arg4 = (gsl_vector *)(argp4);
5881 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5882 if (!SWIG_IsOK(res5)) {
5883 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_wstdform1" "', argument " "5"" of type '" "gsl_matrix *""'");
5884 }
5885 arg5 = (gsl_matrix *)(argp5);
5886 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
5887 if (!SWIG_IsOK(res6)) {
5888 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear_wstdform1" "', argument " "6"" of type '" "gsl_vector *""'");
5889 }
5890 arg6 = (gsl_vector *)(argp6);
5891 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
5892 if (!SWIG_IsOK(res7)) {
5893 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_linear_wstdform1" "', argument " "7"" of type '" "gsl_multifit_linear_workspace *""'");
5894 }
5895 arg7 = (gsl_multifit_linear_workspace *)(argp7);
5896 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);
5897 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5898
5899
5900
5901
5902
5903
5904
5905 XSRETURN(argvi);
5906 fail:
5907
5908
5909
5910
5911
5912
5913
5914 SWIG_croak_null();
5915 }
5916 }
5917
5918
XS(_wrap_gsl_multifit_linear_L_decomp)5919 XS(_wrap_gsl_multifit_linear_L_decomp) {
5920 {
5921 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5922 gsl_vector *arg2 = (gsl_vector *) 0 ;
5923 void *argp1 = 0 ;
5924 int res1 = 0 ;
5925 void *argp2 = 0 ;
5926 int res2 = 0 ;
5927 int argvi = 0;
5928 int result;
5929 dXSARGS;
5930
5931 if ((items < 2) || (items > 2)) {
5932 SWIG_croak("Usage: gsl_multifit_linear_L_decomp(L,tau);");
5933 }
5934 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5935 if (!SWIG_IsOK(res1)) {
5936 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_L_decomp" "', argument " "1"" of type '" "gsl_matrix *""'");
5937 }
5938 arg1 = (gsl_matrix *)(argp1);
5939 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5940 if (!SWIG_IsOK(res2)) {
5941 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_L_decomp" "', argument " "2"" of type '" "gsl_vector *""'");
5942 }
5943 arg2 = (gsl_vector *)(argp2);
5944 result = (int)gsl_multifit_linear_L_decomp(arg1,arg2);
5945 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
5946
5947
5948 XSRETURN(argvi);
5949 fail:
5950
5951
5952 SWIG_croak_null();
5953 }
5954 }
5955
5956
XS(_wrap_gsl_multifit_linear_stdform2)5957 XS(_wrap_gsl_multifit_linear_stdform2) {
5958 {
5959 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
5960 gsl_vector *arg2 = (gsl_vector *) 0 ;
5961 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
5962 gsl_vector *arg4 = (gsl_vector *) 0 ;
5963 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
5964 gsl_vector *arg6 = (gsl_vector *) 0 ;
5965 gsl_matrix *arg7 = (gsl_matrix *) 0 ;
5966 gsl_multifit_linear_workspace *arg8 = (gsl_multifit_linear_workspace *) 0 ;
5967 void *argp1 = 0 ;
5968 int res1 = 0 ;
5969 void *argp2 = 0 ;
5970 int res2 = 0 ;
5971 void *argp3 = 0 ;
5972 int res3 = 0 ;
5973 void *argp4 = 0 ;
5974 int res4 = 0 ;
5975 void *argp5 = 0 ;
5976 int res5 = 0 ;
5977 void *argp6 = 0 ;
5978 int res6 = 0 ;
5979 void *argp7 = 0 ;
5980 int res7 = 0 ;
5981 void *argp8 = 0 ;
5982 int res8 = 0 ;
5983 int argvi = 0;
5984 int result;
5985 dXSARGS;
5986
5987 if ((items < 8) || (items > 8)) {
5988 SWIG_croak("Usage: gsl_multifit_linear_stdform2(LQR,Ltau,X,y,Xs,ys,M,work);");
5989 }
5990 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
5991 if (!SWIG_IsOK(res1)) {
5992 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_stdform2" "', argument " "1"" of type '" "gsl_matrix const *""'");
5993 }
5994 arg1 = (gsl_matrix *)(argp1);
5995 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
5996 if (!SWIG_IsOK(res2)) {
5997 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_stdform2" "', argument " "2"" of type '" "gsl_vector const *""'");
5998 }
5999 arg2 = (gsl_vector *)(argp2);
6000 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6001 if (!SWIG_IsOK(res3)) {
6002 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_stdform2" "', argument " "3"" of type '" "gsl_matrix const *""'");
6003 }
6004 arg3 = (gsl_matrix *)(argp3);
6005 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6006 if (!SWIG_IsOK(res4)) {
6007 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_stdform2" "', argument " "4"" of type '" "gsl_vector const *""'");
6008 }
6009 arg4 = (gsl_vector *)(argp4);
6010 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6011 if (!SWIG_IsOK(res5)) {
6012 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_stdform2" "', argument " "5"" of type '" "gsl_matrix *""'");
6013 }
6014 arg5 = (gsl_matrix *)(argp5);
6015 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
6016 if (!SWIG_IsOK(res6)) {
6017 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear_stdform2" "', argument " "6"" of type '" "gsl_vector *""'");
6018 }
6019 arg6 = (gsl_vector *)(argp6);
6020 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6021 if (!SWIG_IsOK(res7)) {
6022 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_linear_stdform2" "', argument " "7"" of type '" "gsl_matrix *""'");
6023 }
6024 arg7 = (gsl_matrix *)(argp7);
6025 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
6026 if (!SWIG_IsOK(res8)) {
6027 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_multifit_linear_stdform2" "', argument " "8"" of type '" "gsl_multifit_linear_workspace *""'");
6028 }
6029 arg8 = (gsl_multifit_linear_workspace *)(argp8);
6030 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);
6031 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6032
6033
6034
6035
6036
6037
6038
6039
6040 XSRETURN(argvi);
6041 fail:
6042
6043
6044
6045
6046
6047
6048
6049
6050 SWIG_croak_null();
6051 }
6052 }
6053
6054
XS(_wrap_gsl_multifit_linear_wstdform2)6055 XS(_wrap_gsl_multifit_linear_wstdform2) {
6056 {
6057 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6058 gsl_vector *arg2 = (gsl_vector *) 0 ;
6059 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
6060 gsl_vector *arg4 = (gsl_vector *) 0 ;
6061 gsl_vector *arg5 = (gsl_vector *) 0 ;
6062 gsl_matrix *arg6 = (gsl_matrix *) 0 ;
6063 gsl_vector *arg7 = (gsl_vector *) 0 ;
6064 gsl_matrix *arg8 = (gsl_matrix *) 0 ;
6065 gsl_multifit_linear_workspace *arg9 = (gsl_multifit_linear_workspace *) 0 ;
6066 void *argp1 = 0 ;
6067 int res1 = 0 ;
6068 void *argp2 = 0 ;
6069 int res2 = 0 ;
6070 void *argp3 = 0 ;
6071 int res3 = 0 ;
6072 void *argp4 = 0 ;
6073 int res4 = 0 ;
6074 void *argp5 = 0 ;
6075 int res5 = 0 ;
6076 void *argp6 = 0 ;
6077 int res6 = 0 ;
6078 void *argp7 = 0 ;
6079 int res7 = 0 ;
6080 void *argp8 = 0 ;
6081 int res8 = 0 ;
6082 void *argp9 = 0 ;
6083 int res9 = 0 ;
6084 int argvi = 0;
6085 int result;
6086 dXSARGS;
6087
6088 if ((items < 9) || (items > 9)) {
6089 SWIG_croak("Usage: gsl_multifit_linear_wstdform2(LQR,Ltau,X,w,y,Xs,ys,M,work);");
6090 }
6091 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6092 if (!SWIG_IsOK(res1)) {
6093 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_wstdform2" "', argument " "1"" of type '" "gsl_matrix const *""'");
6094 }
6095 arg1 = (gsl_matrix *)(argp1);
6096 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6097 if (!SWIG_IsOK(res2)) {
6098 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_wstdform2" "', argument " "2"" of type '" "gsl_vector const *""'");
6099 }
6100 arg2 = (gsl_vector *)(argp2);
6101 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6102 if (!SWIG_IsOK(res3)) {
6103 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_wstdform2" "', argument " "3"" of type '" "gsl_matrix const *""'");
6104 }
6105 arg3 = (gsl_matrix *)(argp3);
6106 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6107 if (!SWIG_IsOK(res4)) {
6108 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_wstdform2" "', argument " "4"" of type '" "gsl_vector const *""'");
6109 }
6110 arg4 = (gsl_vector *)(argp4);
6111 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6112 if (!SWIG_IsOK(res5)) {
6113 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_wstdform2" "', argument " "5"" of type '" "gsl_vector const *""'");
6114 }
6115 arg5 = (gsl_vector *)(argp5);
6116 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6117 if (!SWIG_IsOK(res6)) {
6118 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear_wstdform2" "', argument " "6"" of type '" "gsl_matrix *""'");
6119 }
6120 arg6 = (gsl_matrix *)(argp6);
6121 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
6122 if (!SWIG_IsOK(res7)) {
6123 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_linear_wstdform2" "', argument " "7"" of type '" "gsl_vector *""'");
6124 }
6125 arg7 = (gsl_vector *)(argp7);
6126 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6127 if (!SWIG_IsOK(res8)) {
6128 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_multifit_linear_wstdform2" "', argument " "8"" of type '" "gsl_matrix *""'");
6129 }
6130 arg8 = (gsl_matrix *)(argp8);
6131 res9 = SWIG_ConvertPtr(ST(8), &argp9,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
6132 if (!SWIG_IsOK(res9)) {
6133 SWIG_exception_fail(SWIG_ArgError(res9), "in method '" "gsl_multifit_linear_wstdform2" "', argument " "9"" of type '" "gsl_multifit_linear_workspace *""'");
6134 }
6135 arg9 = (gsl_multifit_linear_workspace *)(argp9);
6136 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);
6137 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6138
6139
6140
6141
6142
6143
6144
6145
6146
6147 XSRETURN(argvi);
6148 fail:
6149
6150
6151
6152
6153
6154
6155
6156
6157
6158 SWIG_croak_null();
6159 }
6160 }
6161
6162
XS(_wrap_gsl_multifit_linear_genform1)6163 XS(_wrap_gsl_multifit_linear_genform1) {
6164 {
6165 gsl_vector *arg1 = (gsl_vector *) 0 ;
6166 gsl_vector *arg2 = (gsl_vector *) 0 ;
6167 gsl_vector *arg3 = (gsl_vector *) 0 ;
6168 gsl_multifit_linear_workspace *arg4 = (gsl_multifit_linear_workspace *) 0 ;
6169 void *argp1 = 0 ;
6170 int res1 = 0 ;
6171 void *argp2 = 0 ;
6172 int res2 = 0 ;
6173 void *argp3 = 0 ;
6174 int res3 = 0 ;
6175 void *argp4 = 0 ;
6176 int res4 = 0 ;
6177 int argvi = 0;
6178 int result;
6179 dXSARGS;
6180
6181 if ((items < 4) || (items > 4)) {
6182 SWIG_croak("Usage: gsl_multifit_linear_genform1(L,cs,c,work);");
6183 }
6184 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
6185 if (!SWIG_IsOK(res1)) {
6186 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_genform1" "', argument " "1"" of type '" "gsl_vector const *""'");
6187 }
6188 arg1 = (gsl_vector *)(argp1);
6189 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6190 if (!SWIG_IsOK(res2)) {
6191 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_genform1" "', argument " "2"" of type '" "gsl_vector const *""'");
6192 }
6193 arg2 = (gsl_vector *)(argp2);
6194 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6195 if (!SWIG_IsOK(res3)) {
6196 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_genform1" "', argument " "3"" of type '" "gsl_vector *""'");
6197 }
6198 arg3 = (gsl_vector *)(argp3);
6199 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
6200 if (!SWIG_IsOK(res4)) {
6201 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_genform1" "', argument " "4"" of type '" "gsl_multifit_linear_workspace *""'");
6202 }
6203 arg4 = (gsl_multifit_linear_workspace *)(argp4);
6204 result = (int)gsl_multifit_linear_genform1((gsl_vector const *)arg1,(gsl_vector const *)arg2,arg3,arg4);
6205 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6206
6207
6208
6209
6210 XSRETURN(argvi);
6211 fail:
6212
6213
6214
6215
6216 SWIG_croak_null();
6217 }
6218 }
6219
6220
XS(_wrap_gsl_multifit_linear_genform2)6221 XS(_wrap_gsl_multifit_linear_genform2) {
6222 {
6223 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6224 gsl_vector *arg2 = (gsl_vector *) 0 ;
6225 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
6226 gsl_vector *arg4 = (gsl_vector *) 0 ;
6227 gsl_vector *arg5 = (gsl_vector *) 0 ;
6228 gsl_matrix *arg6 = (gsl_matrix *) 0 ;
6229 gsl_vector *arg7 = (gsl_vector *) 0 ;
6230 gsl_multifit_linear_workspace *arg8 = (gsl_multifit_linear_workspace *) 0 ;
6231 void *argp1 = 0 ;
6232 int res1 = 0 ;
6233 void *argp2 = 0 ;
6234 int res2 = 0 ;
6235 void *argp3 = 0 ;
6236 int res3 = 0 ;
6237 void *argp4 = 0 ;
6238 int res4 = 0 ;
6239 void *argp5 = 0 ;
6240 int res5 = 0 ;
6241 void *argp6 = 0 ;
6242 int res6 = 0 ;
6243 void *argp7 = 0 ;
6244 int res7 = 0 ;
6245 void *argp8 = 0 ;
6246 int res8 = 0 ;
6247 int argvi = 0;
6248 int result;
6249 dXSARGS;
6250
6251 if ((items < 8) || (items > 8)) {
6252 SWIG_croak("Usage: gsl_multifit_linear_genform2(LQR,Ltau,X,y,cs,M,c,work);");
6253 }
6254 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6255 if (!SWIG_IsOK(res1)) {
6256 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_genform2" "', argument " "1"" of type '" "gsl_matrix const *""'");
6257 }
6258 arg1 = (gsl_matrix *)(argp1);
6259 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6260 if (!SWIG_IsOK(res2)) {
6261 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_genform2" "', argument " "2"" of type '" "gsl_vector const *""'");
6262 }
6263 arg2 = (gsl_vector *)(argp2);
6264 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6265 if (!SWIG_IsOK(res3)) {
6266 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_genform2" "', argument " "3"" of type '" "gsl_matrix const *""'");
6267 }
6268 arg3 = (gsl_matrix *)(argp3);
6269 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6270 if (!SWIG_IsOK(res4)) {
6271 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_genform2" "', argument " "4"" of type '" "gsl_vector const *""'");
6272 }
6273 arg4 = (gsl_vector *)(argp4);
6274 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6275 if (!SWIG_IsOK(res5)) {
6276 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_genform2" "', argument " "5"" of type '" "gsl_vector const *""'");
6277 }
6278 arg5 = (gsl_vector *)(argp5);
6279 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6280 if (!SWIG_IsOK(res6)) {
6281 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear_genform2" "', argument " "6"" of type '" "gsl_matrix const *""'");
6282 }
6283 arg6 = (gsl_matrix *)(argp6);
6284 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_vector, 0 | 0 );
6285 if (!SWIG_IsOK(res7)) {
6286 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_linear_genform2" "', argument " "7"" of type '" "gsl_vector *""'");
6287 }
6288 arg7 = (gsl_vector *)(argp7);
6289 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
6290 if (!SWIG_IsOK(res8)) {
6291 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_multifit_linear_genform2" "', argument " "8"" of type '" "gsl_multifit_linear_workspace *""'");
6292 }
6293 arg8 = (gsl_multifit_linear_workspace *)(argp8);
6294 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);
6295 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6296
6297
6298
6299
6300
6301
6302
6303
6304 XSRETURN(argvi);
6305 fail:
6306
6307
6308
6309
6310
6311
6312
6313
6314 SWIG_croak_null();
6315 }
6316 }
6317
6318
XS(_wrap_gsl_multifit_linear_wgenform2)6319 XS(_wrap_gsl_multifit_linear_wgenform2) {
6320 {
6321 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6322 gsl_vector *arg2 = (gsl_vector *) 0 ;
6323 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
6324 gsl_vector *arg4 = (gsl_vector *) 0 ;
6325 gsl_vector *arg5 = (gsl_vector *) 0 ;
6326 gsl_vector *arg6 = (gsl_vector *) 0 ;
6327 gsl_matrix *arg7 = (gsl_matrix *) 0 ;
6328 gsl_vector *arg8 = (gsl_vector *) 0 ;
6329 gsl_multifit_linear_workspace *arg9 = (gsl_multifit_linear_workspace *) 0 ;
6330 void *argp1 = 0 ;
6331 int res1 = 0 ;
6332 void *argp2 = 0 ;
6333 int res2 = 0 ;
6334 void *argp3 = 0 ;
6335 int res3 = 0 ;
6336 void *argp4 = 0 ;
6337 int res4 = 0 ;
6338 void *argp5 = 0 ;
6339 int res5 = 0 ;
6340 void *argp6 = 0 ;
6341 int res6 = 0 ;
6342 void *argp7 = 0 ;
6343 int res7 = 0 ;
6344 void *argp8 = 0 ;
6345 int res8 = 0 ;
6346 void *argp9 = 0 ;
6347 int res9 = 0 ;
6348 int argvi = 0;
6349 int result;
6350 dXSARGS;
6351
6352 if ((items < 9) || (items > 9)) {
6353 SWIG_croak("Usage: gsl_multifit_linear_wgenform2(LQR,Ltau,X,w,y,cs,M,c,work);");
6354 }
6355 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6356 if (!SWIG_IsOK(res1)) {
6357 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_wgenform2" "', argument " "1"" of type '" "gsl_matrix const *""'");
6358 }
6359 arg1 = (gsl_matrix *)(argp1);
6360 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6361 if (!SWIG_IsOK(res2)) {
6362 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_wgenform2" "', argument " "2"" of type '" "gsl_vector const *""'");
6363 }
6364 arg2 = (gsl_vector *)(argp2);
6365 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6366 if (!SWIG_IsOK(res3)) {
6367 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_wgenform2" "', argument " "3"" of type '" "gsl_matrix const *""'");
6368 }
6369 arg3 = (gsl_matrix *)(argp3);
6370 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6371 if (!SWIG_IsOK(res4)) {
6372 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_wgenform2" "', argument " "4"" of type '" "gsl_vector const *""'");
6373 }
6374 arg4 = (gsl_vector *)(argp4);
6375 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6376 if (!SWIG_IsOK(res5)) {
6377 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_wgenform2" "', argument " "5"" of type '" "gsl_vector const *""'");
6378 }
6379 arg5 = (gsl_vector *)(argp5);
6380 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
6381 if (!SWIG_IsOK(res6)) {
6382 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear_wgenform2" "', argument " "6"" of type '" "gsl_vector const *""'");
6383 }
6384 arg6 = (gsl_vector *)(argp6);
6385 res7 = SWIG_ConvertPtr(ST(6), &argp7,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6386 if (!SWIG_IsOK(res7)) {
6387 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_linear_wgenform2" "', argument " "7"" of type '" "gsl_matrix const *""'");
6388 }
6389 arg7 = (gsl_matrix *)(argp7);
6390 res8 = SWIG_ConvertPtr(ST(7), &argp8,SWIGTYPE_p_gsl_vector, 0 | 0 );
6391 if (!SWIG_IsOK(res8)) {
6392 SWIG_exception_fail(SWIG_ArgError(res8), "in method '" "gsl_multifit_linear_wgenform2" "', argument " "8"" of type '" "gsl_vector *""'");
6393 }
6394 arg8 = (gsl_vector *)(argp8);
6395 res9 = SWIG_ConvertPtr(ST(8), &argp9,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
6396 if (!SWIG_IsOK(res9)) {
6397 SWIG_exception_fail(SWIG_ArgError(res9), "in method '" "gsl_multifit_linear_wgenform2" "', argument " "9"" of type '" "gsl_multifit_linear_workspace *""'");
6398 }
6399 arg9 = (gsl_multifit_linear_workspace *)(argp9);
6400 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);
6401 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6402
6403
6404
6405
6406
6407
6408
6409
6410
6411 XSRETURN(argvi);
6412 fail:
6413
6414
6415
6416
6417
6418
6419
6420
6421
6422 SWIG_croak_null();
6423 }
6424 }
6425
6426
XS(_wrap_gsl_multifit_linear_lreg)6427 XS(_wrap_gsl_multifit_linear_lreg) {
6428 {
6429 double arg1 ;
6430 double arg2 ;
6431 gsl_vector *arg3 = (gsl_vector *) 0 ;
6432 double val1 ;
6433 int ecode1 = 0 ;
6434 double val2 ;
6435 int ecode2 = 0 ;
6436 void *argp3 = 0 ;
6437 int res3 = 0 ;
6438 int argvi = 0;
6439 int result;
6440 dXSARGS;
6441
6442 if ((items < 3) || (items > 3)) {
6443 SWIG_croak("Usage: gsl_multifit_linear_lreg(smin,smax,reg_param);");
6444 }
6445 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
6446 if (!SWIG_IsOK(ecode1)) {
6447 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_multifit_linear_lreg" "', argument " "1"" of type '" "double""'");
6448 }
6449 arg1 = (double)(val1);
6450 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6451 if (!SWIG_IsOK(ecode2)) {
6452 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_linear_lreg" "', argument " "2"" of type '" "double""'");
6453 }
6454 arg2 = (double)(val2);
6455 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6456 if (!SWIG_IsOK(res3)) {
6457 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_lreg" "', argument " "3"" of type '" "gsl_vector *""'");
6458 }
6459 arg3 = (gsl_vector *)(argp3);
6460 result = (int)gsl_multifit_linear_lreg(arg1,arg2,arg3);
6461 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6462
6463
6464
6465 XSRETURN(argvi);
6466 fail:
6467
6468
6469
6470 SWIG_croak_null();
6471 }
6472 }
6473
6474
XS(_wrap_gsl_multifit_linear_lcurve)6475 XS(_wrap_gsl_multifit_linear_lcurve) {
6476 {
6477 gsl_vector *arg1 = (gsl_vector *) 0 ;
6478 gsl_vector *arg2 = (gsl_vector *) 0 ;
6479 gsl_vector *arg3 = (gsl_vector *) 0 ;
6480 gsl_vector *arg4 = (gsl_vector *) 0 ;
6481 gsl_multifit_linear_workspace *arg5 = (gsl_multifit_linear_workspace *) 0 ;
6482 void *argp1 = 0 ;
6483 int res1 = 0 ;
6484 void *argp2 = 0 ;
6485 int res2 = 0 ;
6486 void *argp3 = 0 ;
6487 int res3 = 0 ;
6488 void *argp4 = 0 ;
6489 int res4 = 0 ;
6490 void *argp5 = 0 ;
6491 int res5 = 0 ;
6492 int argvi = 0;
6493 int result;
6494 dXSARGS;
6495
6496 if ((items < 5) || (items > 5)) {
6497 SWIG_croak("Usage: gsl_multifit_linear_lcurve(y,reg_param,rho,eta,work);");
6498 }
6499 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
6500 if (!SWIG_IsOK(res1)) {
6501 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_lcurve" "', argument " "1"" of type '" "gsl_vector const *""'");
6502 }
6503 arg1 = (gsl_vector *)(argp1);
6504 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6505 if (!SWIG_IsOK(res2)) {
6506 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_lcurve" "', argument " "2"" of type '" "gsl_vector *""'");
6507 }
6508 arg2 = (gsl_vector *)(argp2);
6509 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6510 if (!SWIG_IsOK(res3)) {
6511 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_lcurve" "', argument " "3"" of type '" "gsl_vector *""'");
6512 }
6513 arg3 = (gsl_vector *)(argp3);
6514 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6515 if (!SWIG_IsOK(res4)) {
6516 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_lcurve" "', argument " "4"" of type '" "gsl_vector *""'");
6517 }
6518 arg4 = (gsl_vector *)(argp4);
6519 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
6520 if (!SWIG_IsOK(res5)) {
6521 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_lcurve" "', argument " "5"" of type '" "gsl_multifit_linear_workspace *""'");
6522 }
6523 arg5 = (gsl_multifit_linear_workspace *)(argp5);
6524 result = (int)gsl_multifit_linear_lcurve((gsl_vector const *)arg1,arg2,arg3,arg4,arg5);
6525 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6526
6527
6528
6529
6530
6531 XSRETURN(argvi);
6532 fail:
6533
6534
6535
6536
6537
6538 SWIG_croak_null();
6539 }
6540 }
6541
6542
XS(_wrap_gsl_multifit_linear_lcorner)6543 XS(_wrap_gsl_multifit_linear_lcorner) {
6544 {
6545 gsl_vector *arg1 = (gsl_vector *) 0 ;
6546 gsl_vector *arg2 = (gsl_vector *) 0 ;
6547 size_t *arg3 = (size_t *) 0 ;
6548 void *argp1 = 0 ;
6549 int res1 = 0 ;
6550 void *argp2 = 0 ;
6551 int res2 = 0 ;
6552 void *argp3 = 0 ;
6553 int res3 = 0 ;
6554 int argvi = 0;
6555 int result;
6556 dXSARGS;
6557
6558 if ((items < 3) || (items > 3)) {
6559 SWIG_croak("Usage: gsl_multifit_linear_lcorner(rho,eta,idx);");
6560 }
6561 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
6562 if (!SWIG_IsOK(res1)) {
6563 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_lcorner" "', argument " "1"" of type '" "gsl_vector const *""'");
6564 }
6565 arg1 = (gsl_vector *)(argp1);
6566 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6567 if (!SWIG_IsOK(res2)) {
6568 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_lcorner" "', argument " "2"" of type '" "gsl_vector const *""'");
6569 }
6570 arg2 = (gsl_vector *)(argp2);
6571 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_size_t, 0 | 0 );
6572 if (!SWIG_IsOK(res3)) {
6573 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_lcorner" "', argument " "3"" of type '" "size_t *""'");
6574 }
6575 arg3 = (size_t *)(argp3);
6576 result = (int)gsl_multifit_linear_lcorner((gsl_vector const *)arg1,(gsl_vector const *)arg2,arg3);
6577 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6578
6579
6580
6581 XSRETURN(argvi);
6582 fail:
6583
6584
6585
6586 SWIG_croak_null();
6587 }
6588 }
6589
6590
XS(_wrap_gsl_multifit_linear_lcorner2)6591 XS(_wrap_gsl_multifit_linear_lcorner2) {
6592 {
6593 gsl_vector *arg1 = (gsl_vector *) 0 ;
6594 gsl_vector *arg2 = (gsl_vector *) 0 ;
6595 size_t *arg3 = (size_t *) 0 ;
6596 void *argp1 = 0 ;
6597 int res1 = 0 ;
6598 void *argp2 = 0 ;
6599 int res2 = 0 ;
6600 void *argp3 = 0 ;
6601 int res3 = 0 ;
6602 int argvi = 0;
6603 int result;
6604 dXSARGS;
6605
6606 if ((items < 3) || (items > 3)) {
6607 SWIG_croak("Usage: gsl_multifit_linear_lcorner2(reg_param,eta,idx);");
6608 }
6609 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
6610 if (!SWIG_IsOK(res1)) {
6611 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_lcorner2" "', argument " "1"" of type '" "gsl_vector const *""'");
6612 }
6613 arg1 = (gsl_vector *)(argp1);
6614 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6615 if (!SWIG_IsOK(res2)) {
6616 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_lcorner2" "', argument " "2"" of type '" "gsl_vector const *""'");
6617 }
6618 arg2 = (gsl_vector *)(argp2);
6619 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_size_t, 0 | 0 );
6620 if (!SWIG_IsOK(res3)) {
6621 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_lcorner2" "', argument " "3"" of type '" "size_t *""'");
6622 }
6623 arg3 = (size_t *)(argp3);
6624 result = (int)gsl_multifit_linear_lcorner2((gsl_vector const *)arg1,(gsl_vector const *)arg2,arg3);
6625 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6626
6627
6628
6629 XSRETURN(argvi);
6630 fail:
6631
6632
6633
6634 SWIG_croak_null();
6635 }
6636 }
6637
6638
XS(_wrap_gsl_multifit_linear_Lk)6639 XS(_wrap_gsl_multifit_linear_Lk) {
6640 {
6641 size_t arg1 ;
6642 size_t arg2 ;
6643 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
6644 size_t val1 ;
6645 int ecode1 = 0 ;
6646 size_t val2 ;
6647 int ecode2 = 0 ;
6648 void *argp3 = 0 ;
6649 int res3 = 0 ;
6650 int argvi = 0;
6651 int result;
6652 dXSARGS;
6653
6654 if ((items < 3) || (items > 3)) {
6655 SWIG_croak("Usage: gsl_multifit_linear_Lk(p,k,L);");
6656 }
6657 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
6658 if (!SWIG_IsOK(ecode1)) {
6659 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_multifit_linear_Lk" "', argument " "1"" of type '" "size_t""'");
6660 }
6661 arg1 = (size_t)(val1);
6662 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6663 if (!SWIG_IsOK(ecode2)) {
6664 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_linear_Lk" "', argument " "2"" of type '" "size_t""'");
6665 }
6666 arg2 = (size_t)(val2);
6667 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6668 if (!SWIG_IsOK(res3)) {
6669 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_Lk" "', argument " "3"" of type '" "gsl_matrix *""'");
6670 }
6671 arg3 = (gsl_matrix *)(argp3);
6672 result = (int)gsl_multifit_linear_Lk(arg1,arg2,arg3);
6673 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6674
6675
6676
6677 XSRETURN(argvi);
6678 fail:
6679
6680
6681
6682 SWIG_croak_null();
6683 }
6684 }
6685
6686
XS(_wrap_gsl_multifit_linear_Lsobolev)6687 XS(_wrap_gsl_multifit_linear_Lsobolev) {
6688 {
6689 size_t arg1 ;
6690 size_t arg2 ;
6691 gsl_vector *arg3 = (gsl_vector *) 0 ;
6692 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
6693 gsl_multifit_linear_workspace *arg5 = (gsl_multifit_linear_workspace *) 0 ;
6694 size_t val1 ;
6695 int ecode1 = 0 ;
6696 size_t val2 ;
6697 int ecode2 = 0 ;
6698 void *argp3 = 0 ;
6699 int res3 = 0 ;
6700 void *argp4 = 0 ;
6701 int res4 = 0 ;
6702 void *argp5 = 0 ;
6703 int res5 = 0 ;
6704 int argvi = 0;
6705 int result;
6706 dXSARGS;
6707
6708 if ((items < 5) || (items > 5)) {
6709 SWIG_croak("Usage: gsl_multifit_linear_Lsobolev(p,kmax,alpha,L,work);");
6710 }
6711 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
6712 if (!SWIG_IsOK(ecode1)) {
6713 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_multifit_linear_Lsobolev" "', argument " "1"" of type '" "size_t""'");
6714 }
6715 arg1 = (size_t)(val1);
6716 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
6717 if (!SWIG_IsOK(ecode2)) {
6718 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_linear_Lsobolev" "', argument " "2"" of type '" "size_t""'");
6719 }
6720 arg2 = (size_t)(val2);
6721 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6722 if (!SWIG_IsOK(res3)) {
6723 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_Lsobolev" "', argument " "3"" of type '" "gsl_vector const *""'");
6724 }
6725 arg3 = (gsl_vector *)(argp3);
6726 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6727 if (!SWIG_IsOK(res4)) {
6728 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_Lsobolev" "', argument " "4"" of type '" "gsl_matrix *""'");
6729 }
6730 arg4 = (gsl_matrix *)(argp4);
6731 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
6732 if (!SWIG_IsOK(res5)) {
6733 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_Lsobolev" "', argument " "5"" of type '" "gsl_multifit_linear_workspace *""'");
6734 }
6735 arg5 = (gsl_multifit_linear_workspace *)(argp5);
6736 result = (int)gsl_multifit_linear_Lsobolev(arg1,arg2,(gsl_vector const *)arg3,arg4,arg5);
6737 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6738
6739
6740
6741
6742
6743 XSRETURN(argvi);
6744 fail:
6745
6746
6747
6748
6749
6750 SWIG_croak_null();
6751 }
6752 }
6753
6754
XS(_wrap_gsl_multifit_wlinear)6755 XS(_wrap_gsl_multifit_wlinear) {
6756 {
6757 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6758 gsl_vector *arg2 = (gsl_vector *) 0 ;
6759 gsl_vector *arg3 = (gsl_vector *) 0 ;
6760 gsl_vector *arg4 = (gsl_vector *) 0 ;
6761 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
6762 double *arg6 = (double *) 0 ;
6763 gsl_multifit_linear_workspace *arg7 = (gsl_multifit_linear_workspace *) 0 ;
6764 void *argp1 = 0 ;
6765 int res1 = 0 ;
6766 void *argp2 = 0 ;
6767 int res2 = 0 ;
6768 void *argp3 = 0 ;
6769 int res3 = 0 ;
6770 void *argp4 = 0 ;
6771 int res4 = 0 ;
6772 void *argp5 = 0 ;
6773 int res5 = 0 ;
6774 double temp6 ;
6775 int res6 = SWIG_TMPOBJ ;
6776 void *argp7 = 0 ;
6777 int res7 = 0 ;
6778 int argvi = 0;
6779 int result;
6780 dXSARGS;
6781
6782 arg6 = &temp6;
6783 if ((items < 6) || (items > 6)) {
6784 SWIG_croak("Usage: gsl_multifit_wlinear(X,w,y,c,cov,work);");
6785 }
6786 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6787 if (!SWIG_IsOK(res1)) {
6788 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_wlinear" "', argument " "1"" of type '" "gsl_matrix const *""'");
6789 }
6790 arg1 = (gsl_matrix *)(argp1);
6791 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6792 if (!SWIG_IsOK(res2)) {
6793 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_wlinear" "', argument " "2"" of type '" "gsl_vector const *""'");
6794 }
6795 arg2 = (gsl_vector *)(argp2);
6796 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6797 if (!SWIG_IsOK(res3)) {
6798 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_wlinear" "', argument " "3"" of type '" "gsl_vector const *""'");
6799 }
6800 arg3 = (gsl_vector *)(argp3);
6801 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
6802 if (!SWIG_IsOK(res4)) {
6803 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_wlinear" "', argument " "4"" of type '" "gsl_vector *""'");
6804 }
6805 arg4 = (gsl_vector *)(argp4);
6806 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6807 if (!SWIG_IsOK(res5)) {
6808 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_wlinear" "', argument " "5"" of type '" "gsl_matrix *""'");
6809 }
6810 arg5 = (gsl_matrix *)(argp5);
6811 res7 = SWIG_ConvertPtr(ST(5), &argp7,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
6812 if (!SWIG_IsOK(res7)) {
6813 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_wlinear" "', argument " "7"" of type '" "gsl_multifit_linear_workspace *""'");
6814 }
6815 arg7 = (gsl_multifit_linear_workspace *)(argp7);
6816 result = (int)gsl_multifit_wlinear((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5,arg6,arg7);
6817 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6818 if (SWIG_IsTmpObj(res6)) {
6819 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg6)); argvi++ ;
6820 } else {
6821 int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN | 0) : 0;
6822 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_double, new_flags); argvi++ ;
6823 }
6824
6825
6826
6827
6828
6829
6830
6831 XSRETURN(argvi);
6832 fail:
6833
6834
6835
6836
6837
6838
6839
6840 SWIG_croak_null();
6841 }
6842 }
6843
6844
XS(_wrap_gsl_multifit_wlinear_tsvd)6845 XS(_wrap_gsl_multifit_wlinear_tsvd) {
6846 {
6847 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6848 gsl_vector *arg2 = (gsl_vector *) 0 ;
6849 gsl_vector *arg3 = (gsl_vector *) 0 ;
6850 double arg4 ;
6851 gsl_vector *arg5 = (gsl_vector *) 0 ;
6852 gsl_matrix *arg6 = (gsl_matrix *) 0 ;
6853 double *arg7 = (double *) 0 ;
6854 size_t *arg8 = (size_t *) 0 ;
6855 gsl_multifit_linear_workspace *arg9 = (gsl_multifit_linear_workspace *) 0 ;
6856 void *argp1 = 0 ;
6857 int res1 = 0 ;
6858 void *argp2 = 0 ;
6859 int res2 = 0 ;
6860 void *argp3 = 0 ;
6861 int res3 = 0 ;
6862 double val4 ;
6863 int ecode4 = 0 ;
6864 void *argp5 = 0 ;
6865 int res5 = 0 ;
6866 void *argp6 = 0 ;
6867 int res6 = 0 ;
6868 double temp7 ;
6869 int res7 = SWIG_TMPOBJ ;
6870 size_t temp8 ;
6871 int res8 = SWIG_TMPOBJ ;
6872 void *argp9 = 0 ;
6873 int res9 = 0 ;
6874 int argvi = 0;
6875 int result;
6876 dXSARGS;
6877
6878 arg7 = &temp7;
6879 arg8 = &temp8;
6880 if ((items < 7) || (items > 7)) {
6881 SWIG_croak("Usage: gsl_multifit_wlinear_tsvd(X,w,y,tol,c,cov,work);");
6882 }
6883 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6884 if (!SWIG_IsOK(res1)) {
6885 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_wlinear_tsvd" "', argument " "1"" of type '" "gsl_matrix const *""'");
6886 }
6887 arg1 = (gsl_matrix *)(argp1);
6888 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
6889 if (!SWIG_IsOK(res2)) {
6890 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_wlinear_tsvd" "', argument " "2"" of type '" "gsl_vector const *""'");
6891 }
6892 arg2 = (gsl_vector *)(argp2);
6893 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
6894 if (!SWIG_IsOK(res3)) {
6895 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_wlinear_tsvd" "', argument " "3"" of type '" "gsl_vector const *""'");
6896 }
6897 arg3 = (gsl_vector *)(argp3);
6898 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
6899 if (!SWIG_IsOK(ecode4)) {
6900 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_multifit_wlinear_tsvd" "', argument " "4"" of type '" "double""'");
6901 }
6902 arg4 = (double)(val4);
6903 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
6904 if (!SWIG_IsOK(res5)) {
6905 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_wlinear_tsvd" "', argument " "5"" of type '" "gsl_vector *""'");
6906 }
6907 arg5 = (gsl_vector *)(argp5);
6908 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6909 if (!SWIG_IsOK(res6)) {
6910 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_wlinear_tsvd" "', argument " "6"" of type '" "gsl_matrix *""'");
6911 }
6912 arg6 = (gsl_matrix *)(argp6);
6913 res9 = SWIG_ConvertPtr(ST(6), &argp9,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
6914 if (!SWIG_IsOK(res9)) {
6915 SWIG_exception_fail(SWIG_ArgError(res9), "in method '" "gsl_multifit_wlinear_tsvd" "', argument " "9"" of type '" "gsl_multifit_linear_workspace *""'");
6916 }
6917 arg9 = (gsl_multifit_linear_workspace *)(argp9);
6918 result = (int)gsl_multifit_wlinear_tsvd((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5,arg6,arg7,arg8,arg9);
6919 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
6920 if (SWIG_IsTmpObj(res7)) {
6921 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg7)); argvi++ ;
6922 } else {
6923 int new_flags = SWIG_IsNewObj(res7) ? (SWIG_POINTER_OWN | 0) : 0;
6924 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg7), SWIGTYPE_p_double, new_flags); argvi++ ;
6925 }
6926 if (SWIG_IsTmpObj(res8)) {
6927 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg8)); argvi++ ;
6928 } else {
6929 int new_flags = SWIG_IsNewObj(res8) ? (SWIG_POINTER_OWN | 0) : 0;
6930 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg8), SWIGTYPE_p_size_t, new_flags); argvi++ ;
6931 }
6932
6933
6934
6935
6936
6937
6938
6939
6940
6941 XSRETURN(argvi);
6942 fail:
6943
6944
6945
6946
6947
6948
6949
6950
6951
6952 SWIG_croak_null();
6953 }
6954 }
6955
6956
XS(_wrap_gsl_multifit_wlinear_svd)6957 XS(_wrap_gsl_multifit_wlinear_svd) {
6958 {
6959 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
6960 gsl_vector *arg2 = (gsl_vector *) 0 ;
6961 gsl_vector *arg3 = (gsl_vector *) 0 ;
6962 double arg4 ;
6963 size_t *arg5 = (size_t *) 0 ;
6964 gsl_vector *arg6 = (gsl_vector *) 0 ;
6965 gsl_matrix *arg7 = (gsl_matrix *) 0 ;
6966 double *arg8 = (double *) 0 ;
6967 gsl_multifit_linear_workspace *arg9 = (gsl_multifit_linear_workspace *) 0 ;
6968 void *argp1 = 0 ;
6969 int res1 = 0 ;
6970 void *argp2 = 0 ;
6971 int res2 = 0 ;
6972 void *argp3 = 0 ;
6973 int res3 = 0 ;
6974 double val4 ;
6975 int ecode4 = 0 ;
6976 size_t temp5 ;
6977 int res5 = SWIG_TMPOBJ ;
6978 void *argp6 = 0 ;
6979 int res6 = 0 ;
6980 void *argp7 = 0 ;
6981 int res7 = 0 ;
6982 double temp8 ;
6983 int res8 = SWIG_TMPOBJ ;
6984 void *argp9 = 0 ;
6985 int res9 = 0 ;
6986 int argvi = 0;
6987 int result;
6988 dXSARGS;
6989
6990 arg5 = &temp5;
6991 arg8 = &temp8;
6992 if ((items < 7) || (items > 7)) {
6993 SWIG_croak("Usage: gsl_multifit_wlinear_svd(X,w,y,tol,c,cov,work);");
6994 }
6995 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
6996 if (!SWIG_IsOK(res1)) {
6997 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_wlinear_svd" "', argument " "1"" of type '" "gsl_matrix const *""'");
6998 }
6999 arg1 = (gsl_matrix *)(argp1);
7000 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7001 if (!SWIG_IsOK(res2)) {
7002 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_wlinear_svd" "', argument " "2"" of type '" "gsl_vector const *""'");
7003 }
7004 arg2 = (gsl_vector *)(argp2);
7005 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7006 if (!SWIG_IsOK(res3)) {
7007 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_wlinear_svd" "', argument " "3"" of type '" "gsl_vector const *""'");
7008 }
7009 arg3 = (gsl_vector *)(argp3);
7010 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
7011 if (!SWIG_IsOK(ecode4)) {
7012 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_multifit_wlinear_svd" "', argument " "4"" of type '" "double""'");
7013 }
7014 arg4 = (double)(val4);
7015 res6 = SWIG_ConvertPtr(ST(4), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
7016 if (!SWIG_IsOK(res6)) {
7017 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_wlinear_svd" "', argument " "6"" of type '" "gsl_vector *""'");
7018 }
7019 arg6 = (gsl_vector *)(argp6);
7020 res7 = SWIG_ConvertPtr(ST(5), &argp7,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7021 if (!SWIG_IsOK(res7)) {
7022 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_wlinear_svd" "', argument " "7"" of type '" "gsl_matrix *""'");
7023 }
7024 arg7 = (gsl_matrix *)(argp7);
7025 res9 = SWIG_ConvertPtr(ST(6), &argp9,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
7026 if (!SWIG_IsOK(res9)) {
7027 SWIG_exception_fail(SWIG_ArgError(res9), "in method '" "gsl_multifit_wlinear_svd" "', argument " "9"" of type '" "gsl_multifit_linear_workspace *""'");
7028 }
7029 arg9 = (gsl_multifit_linear_workspace *)(argp9);
7030 result = (int)gsl_multifit_wlinear_svd((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5,arg6,arg7,arg8,arg9);
7031 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7032 if (SWIG_IsTmpObj(res5)) {
7033 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg5)); argvi++ ;
7034 } else {
7035 int new_flags = SWIG_IsNewObj(res5) ? (SWIG_POINTER_OWN | 0) : 0;
7036 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg5), SWIGTYPE_p_size_t, new_flags); argvi++ ;
7037 }
7038 if (SWIG_IsTmpObj(res8)) {
7039 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg8)); argvi++ ;
7040 } else {
7041 int new_flags = SWIG_IsNewObj(res8) ? (SWIG_POINTER_OWN | 0) : 0;
7042 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg8), SWIGTYPE_p_double, new_flags); argvi++ ;
7043 }
7044
7045
7046
7047
7048
7049
7050
7051
7052
7053 XSRETURN(argvi);
7054 fail:
7055
7056
7057
7058
7059
7060
7061
7062
7063
7064 SWIG_croak_null();
7065 }
7066 }
7067
7068
XS(_wrap_gsl_multifit_wlinear_usvd)7069 XS(_wrap_gsl_multifit_wlinear_usvd) {
7070 {
7071 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7072 gsl_vector *arg2 = (gsl_vector *) 0 ;
7073 gsl_vector *arg3 = (gsl_vector *) 0 ;
7074 double arg4 ;
7075 size_t *arg5 = (size_t *) 0 ;
7076 gsl_vector *arg6 = (gsl_vector *) 0 ;
7077 gsl_matrix *arg7 = (gsl_matrix *) 0 ;
7078 double *arg8 = (double *) 0 ;
7079 gsl_multifit_linear_workspace *arg9 = (gsl_multifit_linear_workspace *) 0 ;
7080 void *argp1 = 0 ;
7081 int res1 = 0 ;
7082 void *argp2 = 0 ;
7083 int res2 = 0 ;
7084 void *argp3 = 0 ;
7085 int res3 = 0 ;
7086 double val4 ;
7087 int ecode4 = 0 ;
7088 size_t temp5 ;
7089 int res5 = SWIG_TMPOBJ ;
7090 void *argp6 = 0 ;
7091 int res6 = 0 ;
7092 void *argp7 = 0 ;
7093 int res7 = 0 ;
7094 double temp8 ;
7095 int res8 = SWIG_TMPOBJ ;
7096 void *argp9 = 0 ;
7097 int res9 = 0 ;
7098 int argvi = 0;
7099 int result;
7100 dXSARGS;
7101
7102 arg5 = &temp5;
7103 arg8 = &temp8;
7104 if ((items < 7) || (items > 7)) {
7105 SWIG_croak("Usage: gsl_multifit_wlinear_usvd(X,w,y,tol,c,cov,work);");
7106 }
7107 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7108 if (!SWIG_IsOK(res1)) {
7109 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_wlinear_usvd" "', argument " "1"" of type '" "gsl_matrix const *""'");
7110 }
7111 arg1 = (gsl_matrix *)(argp1);
7112 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7113 if (!SWIG_IsOK(res2)) {
7114 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_wlinear_usvd" "', argument " "2"" of type '" "gsl_vector const *""'");
7115 }
7116 arg2 = (gsl_vector *)(argp2);
7117 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7118 if (!SWIG_IsOK(res3)) {
7119 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_wlinear_usvd" "', argument " "3"" of type '" "gsl_vector const *""'");
7120 }
7121 arg3 = (gsl_vector *)(argp3);
7122 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
7123 if (!SWIG_IsOK(ecode4)) {
7124 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_multifit_wlinear_usvd" "', argument " "4"" of type '" "double""'");
7125 }
7126 arg4 = (double)(val4);
7127 res6 = SWIG_ConvertPtr(ST(4), &argp6,SWIGTYPE_p_gsl_vector, 0 | 0 );
7128 if (!SWIG_IsOK(res6)) {
7129 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_wlinear_usvd" "', argument " "6"" of type '" "gsl_vector *""'");
7130 }
7131 arg6 = (gsl_vector *)(argp6);
7132 res7 = SWIG_ConvertPtr(ST(5), &argp7,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7133 if (!SWIG_IsOK(res7)) {
7134 SWIG_exception_fail(SWIG_ArgError(res7), "in method '" "gsl_multifit_wlinear_usvd" "', argument " "7"" of type '" "gsl_matrix *""'");
7135 }
7136 arg7 = (gsl_matrix *)(argp7);
7137 res9 = SWIG_ConvertPtr(ST(6), &argp9,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
7138 if (!SWIG_IsOK(res9)) {
7139 SWIG_exception_fail(SWIG_ArgError(res9), "in method '" "gsl_multifit_wlinear_usvd" "', argument " "9"" of type '" "gsl_multifit_linear_workspace *""'");
7140 }
7141 arg9 = (gsl_multifit_linear_workspace *)(argp9);
7142 result = (int)gsl_multifit_wlinear_usvd((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5,arg6,arg7,arg8,arg9);
7143 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7144 if (SWIG_IsTmpObj(res5)) {
7145 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg5)); argvi++ ;
7146 } else {
7147 int new_flags = SWIG_IsNewObj(res5) ? (SWIG_POINTER_OWN | 0) : 0;
7148 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg5), SWIGTYPE_p_size_t, new_flags); argvi++ ;
7149 }
7150 if (SWIG_IsTmpObj(res8)) {
7151 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg8)); argvi++ ;
7152 } else {
7153 int new_flags = SWIG_IsNewObj(res8) ? (SWIG_POINTER_OWN | 0) : 0;
7154 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg8), SWIGTYPE_p_double, new_flags); argvi++ ;
7155 }
7156
7157
7158
7159
7160
7161
7162
7163
7164
7165 XSRETURN(argvi);
7166 fail:
7167
7168
7169
7170
7171
7172
7173
7174
7175
7176 SWIG_croak_null();
7177 }
7178 }
7179
7180
XS(_wrap_gsl_multifit_linear_est)7181 XS(_wrap_gsl_multifit_linear_est) {
7182 {
7183 gsl_vector *arg1 = (gsl_vector *) 0 ;
7184 gsl_vector *arg2 = (gsl_vector *) 0 ;
7185 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
7186 double *arg4 = (double *) 0 ;
7187 double *arg5 = (double *) 0 ;
7188 void *argp1 = 0 ;
7189 int res1 = 0 ;
7190 void *argp2 = 0 ;
7191 int res2 = 0 ;
7192 void *argp3 = 0 ;
7193 int res3 = 0 ;
7194 double temp4 ;
7195 int res4 = SWIG_TMPOBJ ;
7196 double temp5 ;
7197 int res5 = SWIG_TMPOBJ ;
7198 int argvi = 0;
7199 int result;
7200 dXSARGS;
7201
7202 arg4 = &temp4;
7203 arg5 = &temp5;
7204 if ((items < 3) || (items > 3)) {
7205 SWIG_croak("Usage: gsl_multifit_linear_est(x,c,cov);");
7206 }
7207 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7208 if (!SWIG_IsOK(res1)) {
7209 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_est" "', argument " "1"" of type '" "gsl_vector const *""'");
7210 }
7211 arg1 = (gsl_vector *)(argp1);
7212 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7213 if (!SWIG_IsOK(res2)) {
7214 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_est" "', argument " "2"" of type '" "gsl_vector const *""'");
7215 }
7216 arg2 = (gsl_vector *)(argp2);
7217 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7218 if (!SWIG_IsOK(res3)) {
7219 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_est" "', argument " "3"" of type '" "gsl_matrix const *""'");
7220 }
7221 arg3 = (gsl_matrix *)(argp3);
7222 result = (int)gsl_multifit_linear_est((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_matrix const *)arg3,arg4,arg5);
7223 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7224 if (SWIG_IsTmpObj(res4)) {
7225 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
7226 } else {
7227 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
7228 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags); argvi++ ;
7229 }
7230 if (SWIG_IsTmpObj(res5)) {
7231 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg5)); argvi++ ;
7232 } else {
7233 int new_flags = SWIG_IsNewObj(res5) ? (SWIG_POINTER_OWN | 0) : 0;
7234 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg5), SWIGTYPE_p_double, new_flags); argvi++ ;
7235 }
7236
7237
7238
7239
7240
7241 XSRETURN(argvi);
7242 fail:
7243
7244
7245
7246
7247
7248 SWIG_croak_null();
7249 }
7250 }
7251
7252
XS(_wrap_gsl_multifit_linear_rcond)7253 XS(_wrap_gsl_multifit_linear_rcond) {
7254 {
7255 gsl_multifit_linear_workspace *arg1 = (gsl_multifit_linear_workspace *) 0 ;
7256 void *argp1 = 0 ;
7257 int res1 = 0 ;
7258 int argvi = 0;
7259 double result;
7260 dXSARGS;
7261
7262 if ((items < 1) || (items > 1)) {
7263 SWIG_croak("Usage: gsl_multifit_linear_rcond(w);");
7264 }
7265 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
7266 if (!SWIG_IsOK(res1)) {
7267 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_rcond" "', argument " "1"" of type '" "gsl_multifit_linear_workspace const *""'");
7268 }
7269 arg1 = (gsl_multifit_linear_workspace *)(argp1);
7270 result = (double)gsl_multifit_linear_rcond((gsl_multifit_linear_workspace const *)arg1);
7271 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
7272
7273 XSRETURN(argvi);
7274 fail:
7275
7276 SWIG_croak_null();
7277 }
7278 }
7279
7280
XS(_wrap_gsl_multifit_linear_residuals)7281 XS(_wrap_gsl_multifit_linear_residuals) {
7282 {
7283 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
7284 gsl_vector *arg2 = (gsl_vector *) 0 ;
7285 gsl_vector *arg3 = (gsl_vector *) 0 ;
7286 gsl_vector *arg4 = (gsl_vector *) 0 ;
7287 void *argp1 = 0 ;
7288 int res1 = 0 ;
7289 void *argp2 = 0 ;
7290 int res2 = 0 ;
7291 void *argp3 = 0 ;
7292 int res3 = 0 ;
7293 void *argp4 = 0 ;
7294 int res4 = 0 ;
7295 int argvi = 0;
7296 int result;
7297 dXSARGS;
7298
7299 if ((items < 4) || (items > 4)) {
7300 SWIG_croak("Usage: gsl_multifit_linear_residuals(X,y,c,r);");
7301 }
7302 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
7303 if (!SWIG_IsOK(res1)) {
7304 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_residuals" "', argument " "1"" of type '" "gsl_matrix const *""'");
7305 }
7306 arg1 = (gsl_matrix *)(argp1);
7307 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7308 if (!SWIG_IsOK(res2)) {
7309 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_residuals" "', argument " "2"" of type '" "gsl_vector const *""'");
7310 }
7311 arg2 = (gsl_vector *)(argp2);
7312 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7313 if (!SWIG_IsOK(res3)) {
7314 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_residuals" "', argument " "3"" of type '" "gsl_vector const *""'");
7315 }
7316 arg3 = (gsl_vector *)(argp3);
7317 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7318 if (!SWIG_IsOK(res4)) {
7319 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_residuals" "', argument " "4"" of type '" "gsl_vector *""'");
7320 }
7321 arg4 = (gsl_vector *)(argp4);
7322 result = (int)gsl_multifit_linear_residuals((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
7323 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7324
7325
7326
7327
7328 XSRETURN(argvi);
7329 fail:
7330
7331
7332
7333
7334 SWIG_croak_null();
7335 }
7336 }
7337
7338
XS(_wrap_gsl_multifit_linear_gcv_init)7339 XS(_wrap_gsl_multifit_linear_gcv_init) {
7340 {
7341 gsl_vector *arg1 = (gsl_vector *) 0 ;
7342 gsl_vector *arg2 = (gsl_vector *) 0 ;
7343 gsl_vector *arg3 = (gsl_vector *) 0 ;
7344 double *arg4 = (double *) 0 ;
7345 gsl_multifit_linear_workspace *arg5 = (gsl_multifit_linear_workspace *) 0 ;
7346 void *argp1 = 0 ;
7347 int res1 = 0 ;
7348 void *argp2 = 0 ;
7349 int res2 = 0 ;
7350 void *argp3 = 0 ;
7351 int res3 = 0 ;
7352 void *argp4 = 0 ;
7353 int res4 = 0 ;
7354 void *argp5 = 0 ;
7355 int res5 = 0 ;
7356 int argvi = 0;
7357 int result;
7358 dXSARGS;
7359
7360 if ((items < 5) || (items > 5)) {
7361 SWIG_croak("Usage: gsl_multifit_linear_gcv_init(y,reg_param,UTy,delta0,work);");
7362 }
7363 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7364 if (!SWIG_IsOK(res1)) {
7365 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_gcv_init" "', argument " "1"" of type '" "gsl_vector const *""'");
7366 }
7367 arg1 = (gsl_vector *)(argp1);
7368 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7369 if (!SWIG_IsOK(res2)) {
7370 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_gcv_init" "', argument " "2"" of type '" "gsl_vector *""'");
7371 }
7372 arg2 = (gsl_vector *)(argp2);
7373 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7374 if (!SWIG_IsOK(res3)) {
7375 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_gcv_init" "', argument " "3"" of type '" "gsl_vector *""'");
7376 }
7377 arg3 = (gsl_vector *)(argp3);
7378 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_double, 0 | 0 );
7379 if (!SWIG_IsOK(res4)) {
7380 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_gcv_init" "', argument " "4"" of type '" "double *""'");
7381 }
7382 arg4 = (double *)(argp4);
7383 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
7384 if (!SWIG_IsOK(res5)) {
7385 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_gcv_init" "', argument " "5"" of type '" "gsl_multifit_linear_workspace *""'");
7386 }
7387 arg5 = (gsl_multifit_linear_workspace *)(argp5);
7388 result = (int)gsl_multifit_linear_gcv_init((gsl_vector const *)arg1,arg2,arg3,arg4,arg5);
7389 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7390
7391
7392
7393
7394
7395 XSRETURN(argvi);
7396 fail:
7397
7398
7399
7400
7401
7402 SWIG_croak_null();
7403 }
7404 }
7405
7406
XS(_wrap_gsl_multifit_linear_gcv_curve)7407 XS(_wrap_gsl_multifit_linear_gcv_curve) {
7408 {
7409 gsl_vector *arg1 = (gsl_vector *) 0 ;
7410 gsl_vector *arg2 = (gsl_vector *) 0 ;
7411 double arg3 ;
7412 gsl_vector *arg4 = (gsl_vector *) 0 ;
7413 gsl_multifit_linear_workspace *arg5 = (gsl_multifit_linear_workspace *) 0 ;
7414 void *argp1 = 0 ;
7415 int res1 = 0 ;
7416 void *argp2 = 0 ;
7417 int res2 = 0 ;
7418 double val3 ;
7419 int ecode3 = 0 ;
7420 void *argp4 = 0 ;
7421 int res4 = 0 ;
7422 void *argp5 = 0 ;
7423 int res5 = 0 ;
7424 int argvi = 0;
7425 int result;
7426 dXSARGS;
7427
7428 if ((items < 5) || (items > 5)) {
7429 SWIG_croak("Usage: gsl_multifit_linear_gcv_curve(reg_param,UTy,delta0,G,work);");
7430 }
7431 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7432 if (!SWIG_IsOK(res1)) {
7433 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_gcv_curve" "', argument " "1"" of type '" "gsl_vector const *""'");
7434 }
7435 arg1 = (gsl_vector *)(argp1);
7436 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7437 if (!SWIG_IsOK(res2)) {
7438 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_gcv_curve" "', argument " "2"" of type '" "gsl_vector const *""'");
7439 }
7440 arg2 = (gsl_vector *)(argp2);
7441 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
7442 if (!SWIG_IsOK(ecode3)) {
7443 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_multifit_linear_gcv_curve" "', argument " "3"" of type '" "double""'");
7444 }
7445 arg3 = (double)(val3);
7446 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
7447 if (!SWIG_IsOK(res4)) {
7448 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_gcv_curve" "', argument " "4"" of type '" "gsl_vector *""'");
7449 }
7450 arg4 = (gsl_vector *)(argp4);
7451 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
7452 if (!SWIG_IsOK(res5)) {
7453 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_gcv_curve" "', argument " "5"" of type '" "gsl_multifit_linear_workspace *""'");
7454 }
7455 arg5 = (gsl_multifit_linear_workspace *)(argp5);
7456 result = (int)gsl_multifit_linear_gcv_curve((gsl_vector const *)arg1,(gsl_vector const *)arg2,arg3,arg4,arg5);
7457 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7458
7459
7460
7461
7462
7463 XSRETURN(argvi);
7464 fail:
7465
7466
7467
7468
7469
7470 SWIG_croak_null();
7471 }
7472 }
7473
7474
XS(_wrap_gsl_multifit_linear_gcv_min)7475 XS(_wrap_gsl_multifit_linear_gcv_min) {
7476 {
7477 gsl_vector *arg1 = (gsl_vector *) 0 ;
7478 gsl_vector *arg2 = (gsl_vector *) 0 ;
7479 gsl_vector *arg3 = (gsl_vector *) 0 ;
7480 double arg4 ;
7481 double *arg5 = (double *) 0 ;
7482 gsl_multifit_linear_workspace *arg6 = (gsl_multifit_linear_workspace *) 0 ;
7483 void *argp1 = 0 ;
7484 int res1 = 0 ;
7485 void *argp2 = 0 ;
7486 int res2 = 0 ;
7487 void *argp3 = 0 ;
7488 int res3 = 0 ;
7489 double val4 ;
7490 int ecode4 = 0 ;
7491 void *argp5 = 0 ;
7492 int res5 = 0 ;
7493 void *argp6 = 0 ;
7494 int res6 = 0 ;
7495 int argvi = 0;
7496 int result;
7497 dXSARGS;
7498
7499 if ((items < 6) || (items > 6)) {
7500 SWIG_croak("Usage: gsl_multifit_linear_gcv_min(reg_param,UTy,G,delta0,lambda,work);");
7501 }
7502 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7503 if (!SWIG_IsOK(res1)) {
7504 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_gcv_min" "', argument " "1"" of type '" "gsl_vector const *""'");
7505 }
7506 arg1 = (gsl_vector *)(argp1);
7507 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7508 if (!SWIG_IsOK(res2)) {
7509 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_gcv_min" "', argument " "2"" of type '" "gsl_vector const *""'");
7510 }
7511 arg2 = (gsl_vector *)(argp2);
7512 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7513 if (!SWIG_IsOK(res3)) {
7514 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_gcv_min" "', argument " "3"" of type '" "gsl_vector const *""'");
7515 }
7516 arg3 = (gsl_vector *)(argp3);
7517 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
7518 if (!SWIG_IsOK(ecode4)) {
7519 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_multifit_linear_gcv_min" "', argument " "4"" of type '" "double""'");
7520 }
7521 arg4 = (double)(val4);
7522 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_double, 0 | 0 );
7523 if (!SWIG_IsOK(res5)) {
7524 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_gcv_min" "', argument " "5"" of type '" "double *""'");
7525 }
7526 arg5 = (double *)(argp5);
7527 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
7528 if (!SWIG_IsOK(res6)) {
7529 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear_gcv_min" "', argument " "6"" of type '" "gsl_multifit_linear_workspace *""'");
7530 }
7531 arg6 = (gsl_multifit_linear_workspace *)(argp6);
7532 result = (int)gsl_multifit_linear_gcv_min((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5,arg6);
7533 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7534
7535
7536
7537
7538
7539
7540 XSRETURN(argvi);
7541 fail:
7542
7543
7544
7545
7546
7547
7548 SWIG_croak_null();
7549 }
7550 }
7551
7552
XS(_wrap_gsl_multifit_linear_gcv_calc)7553 XS(_wrap_gsl_multifit_linear_gcv_calc) {
7554 {
7555 double arg1 ;
7556 gsl_vector *arg2 = (gsl_vector *) 0 ;
7557 double arg3 ;
7558 gsl_multifit_linear_workspace *arg4 = (gsl_multifit_linear_workspace *) 0 ;
7559 double val1 ;
7560 int ecode1 = 0 ;
7561 void *argp2 = 0 ;
7562 int res2 = 0 ;
7563 double val3 ;
7564 int ecode3 = 0 ;
7565 void *argp4 = 0 ;
7566 int res4 = 0 ;
7567 int argvi = 0;
7568 double result;
7569 dXSARGS;
7570
7571 if ((items < 4) || (items > 4)) {
7572 SWIG_croak("Usage: gsl_multifit_linear_gcv_calc(lambda,UTy,delta0,work);");
7573 }
7574 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
7575 if (!SWIG_IsOK(ecode1)) {
7576 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_multifit_linear_gcv_calc" "', argument " "1"" of type '" "double""'");
7577 }
7578 arg1 = (double)(val1);
7579 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7580 if (!SWIG_IsOK(res2)) {
7581 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_gcv_calc" "', argument " "2"" of type '" "gsl_vector const *""'");
7582 }
7583 arg2 = (gsl_vector *)(argp2);
7584 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
7585 if (!SWIG_IsOK(ecode3)) {
7586 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_multifit_linear_gcv_calc" "', argument " "3"" of type '" "double""'");
7587 }
7588 arg3 = (double)(val3);
7589 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
7590 if (!SWIG_IsOK(res4)) {
7591 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_gcv_calc" "', argument " "4"" of type '" "gsl_multifit_linear_workspace *""'");
7592 }
7593 arg4 = (gsl_multifit_linear_workspace *)(argp4);
7594 result = (double)gsl_multifit_linear_gcv_calc(arg1,(gsl_vector const *)arg2,arg3,arg4);
7595 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
7596
7597
7598
7599
7600 XSRETURN(argvi);
7601 fail:
7602
7603
7604
7605
7606 SWIG_croak_null();
7607 }
7608 }
7609
7610
XS(_wrap_gsl_multifit_linear_gcv)7611 XS(_wrap_gsl_multifit_linear_gcv) {
7612 {
7613 gsl_vector *arg1 = (gsl_vector *) 0 ;
7614 gsl_vector *arg2 = (gsl_vector *) 0 ;
7615 gsl_vector *arg3 = (gsl_vector *) 0 ;
7616 double *arg4 = (double *) 0 ;
7617 double *arg5 = (double *) 0 ;
7618 gsl_multifit_linear_workspace *arg6 = (gsl_multifit_linear_workspace *) 0 ;
7619 void *argp1 = 0 ;
7620 int res1 = 0 ;
7621 void *argp2 = 0 ;
7622 int res2 = 0 ;
7623 void *argp3 = 0 ;
7624 int res3 = 0 ;
7625 void *argp4 = 0 ;
7626 int res4 = 0 ;
7627 void *argp5 = 0 ;
7628 int res5 = 0 ;
7629 void *argp6 = 0 ;
7630 int res6 = 0 ;
7631 int argvi = 0;
7632 int result;
7633 dXSARGS;
7634
7635 if ((items < 6) || (items > 6)) {
7636 SWIG_croak("Usage: gsl_multifit_linear_gcv(y,reg_param,G,lambda,G_lambda,work);");
7637 }
7638 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
7639 if (!SWIG_IsOK(res1)) {
7640 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_linear_gcv" "', argument " "1"" of type '" "gsl_vector const *""'");
7641 }
7642 arg1 = (gsl_vector *)(argp1);
7643 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
7644 if (!SWIG_IsOK(res2)) {
7645 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_linear_gcv" "', argument " "2"" of type '" "gsl_vector *""'");
7646 }
7647 arg2 = (gsl_vector *)(argp2);
7648 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
7649 if (!SWIG_IsOK(res3)) {
7650 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_linear_gcv" "', argument " "3"" of type '" "gsl_vector *""'");
7651 }
7652 arg3 = (gsl_vector *)(argp3);
7653 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_double, 0 | 0 );
7654 if (!SWIG_IsOK(res4)) {
7655 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_linear_gcv" "', argument " "4"" of type '" "double *""'");
7656 }
7657 arg4 = (double *)(argp4);
7658 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_double, 0 | 0 );
7659 if (!SWIG_IsOK(res5)) {
7660 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_linear_gcv" "', argument " "5"" of type '" "double *""'");
7661 }
7662 arg5 = (double *)(argp5);
7663 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | 0 );
7664 if (!SWIG_IsOK(res6)) {
7665 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_linear_gcv" "', argument " "6"" of type '" "gsl_multifit_linear_workspace *""'");
7666 }
7667 arg6 = (gsl_multifit_linear_workspace *)(argp6);
7668 result = (int)gsl_multifit_linear_gcv((gsl_vector const *)arg1,arg2,arg3,arg4,arg5,arg6);
7669 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
7670
7671
7672
7673
7674
7675
7676 XSRETURN(argvi);
7677 fail:
7678
7679
7680
7681
7682
7683
7684 SWIG_croak_null();
7685 }
7686 }
7687
7688
XS(_wrap_gsl_multifit_robust_type_name_set)7689 XS(_wrap_gsl_multifit_robust_type_name_set) {
7690 {
7691 gsl_multifit_robust_type *arg1 = (gsl_multifit_robust_type *) 0 ;
7692 char *arg2 = (char *) 0 ;
7693 void *argp1 = 0 ;
7694 int res1 = 0 ;
7695 int res2 ;
7696 char *buf2 = 0 ;
7697 int alloc2 = 0 ;
7698 int argvi = 0;
7699 dXSARGS;
7700
7701 if ((items < 2) || (items > 2)) {
7702 SWIG_croak("Usage: gsl_multifit_robust_type_name_set(self,name);");
7703 }
7704 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_type, 0 | 0 );
7705 if (!SWIG_IsOK(res1)) {
7706 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_type_name_set" "', argument " "1"" of type '" "gsl_multifit_robust_type *""'");
7707 }
7708 arg1 = (gsl_multifit_robust_type *)(argp1);
7709 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
7710 if (!SWIG_IsOK(res2)) {
7711 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_type_name_set" "', argument " "2"" of type '" "char const *""'");
7712 }
7713 arg2 = (char *)(buf2);
7714 if (arg2) {
7715 size_t size = strlen((const char *)((const char *)(arg2))) + 1;
7716 arg1->name = (char const *)(char *)memcpy(malloc((size)*sizeof(char)), arg2, sizeof(char)*(size));
7717 } else {
7718 arg1->name = 0;
7719 }
7720 ST(argvi) = &PL_sv_undef;
7721
7722 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
7723 XSRETURN(argvi);
7724 fail:
7725
7726 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
7727 SWIG_croak_null();
7728 }
7729 }
7730
7731
XS(_wrap_gsl_multifit_robust_type_name_get)7732 XS(_wrap_gsl_multifit_robust_type_name_get) {
7733 {
7734 gsl_multifit_robust_type *arg1 = (gsl_multifit_robust_type *) 0 ;
7735 void *argp1 = 0 ;
7736 int res1 = 0 ;
7737 int argvi = 0;
7738 char *result = 0 ;
7739 dXSARGS;
7740
7741 if ((items < 1) || (items > 1)) {
7742 SWIG_croak("Usage: gsl_multifit_robust_type_name_get(self);");
7743 }
7744 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_type, 0 | 0 );
7745 if (!SWIG_IsOK(res1)) {
7746 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_type_name_get" "', argument " "1"" of type '" "gsl_multifit_robust_type *""'");
7747 }
7748 arg1 = (gsl_multifit_robust_type *)(argp1);
7749 result = (char *) ((arg1)->name);
7750 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
7751
7752 XSRETURN(argvi);
7753 fail:
7754
7755 SWIG_croak_null();
7756 }
7757 }
7758
7759
XS(_wrap_gsl_multifit_robust_type_wfun_set)7760 XS(_wrap_gsl_multifit_robust_type_wfun_set) {
7761 {
7762 gsl_multifit_robust_type *arg1 = (gsl_multifit_robust_type *) 0 ;
7763 int (*arg2)(gsl_vector const *,gsl_vector *) = (int (*)(gsl_vector const *,gsl_vector *)) 0 ;
7764 void *argp1 = 0 ;
7765 int res1 = 0 ;
7766 int argvi = 0;
7767 dXSARGS;
7768
7769 if ((items < 2) || (items > 2)) {
7770 SWIG_croak("Usage: gsl_multifit_robust_type_wfun_set(self,wfun);");
7771 }
7772 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_type, 0 | 0 );
7773 if (!SWIG_IsOK(res1)) {
7774 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_type_wfun_set" "', argument " "1"" of type '" "gsl_multifit_robust_type *""'");
7775 }
7776 arg1 = (gsl_multifit_robust_type *)(argp1);
7777 {
7778 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_q_const__gsl_vector_p_gsl_vector__int);
7779 if (!SWIG_IsOK(res)) {
7780 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multifit_robust_type_wfun_set" "', argument " "2"" of type '" "int (*)(gsl_vector const *,gsl_vector *)""'");
7781 }
7782 }
7783 if (arg1) (arg1)->wfun = arg2;
7784 ST(argvi) = &PL_sv_undef;
7785
7786
7787 XSRETURN(argvi);
7788 fail:
7789
7790
7791 SWIG_croak_null();
7792 }
7793 }
7794
7795
XS(_wrap_gsl_multifit_robust_type_wfun_get)7796 XS(_wrap_gsl_multifit_robust_type_wfun_get) {
7797 {
7798 gsl_multifit_robust_type *arg1 = (gsl_multifit_robust_type *) 0 ;
7799 void *argp1 = 0 ;
7800 int res1 = 0 ;
7801 int argvi = 0;
7802 int (*result)(gsl_vector const *,gsl_vector *) = 0 ;
7803 dXSARGS;
7804
7805 if ((items < 1) || (items > 1)) {
7806 SWIG_croak("Usage: gsl_multifit_robust_type_wfun_get(self);");
7807 }
7808 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_type, 0 | 0 );
7809 if (!SWIG_IsOK(res1)) {
7810 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_type_wfun_get" "', argument " "1"" of type '" "gsl_multifit_robust_type *""'");
7811 }
7812 arg1 = (gsl_multifit_robust_type *)(argp1);
7813 result = (int (*)(gsl_vector const *,gsl_vector *)) ((arg1)->wfun);
7814 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__gsl_vector_p_gsl_vector__int); argvi++ ;
7815
7816 XSRETURN(argvi);
7817 fail:
7818
7819 SWIG_croak_null();
7820 }
7821 }
7822
7823
XS(_wrap_gsl_multifit_robust_type_psi_deriv_set)7824 XS(_wrap_gsl_multifit_robust_type_psi_deriv_set) {
7825 {
7826 gsl_multifit_robust_type *arg1 = (gsl_multifit_robust_type *) 0 ;
7827 int (*arg2)(gsl_vector const *,gsl_vector *) = (int (*)(gsl_vector const *,gsl_vector *)) 0 ;
7828 void *argp1 = 0 ;
7829 int res1 = 0 ;
7830 int argvi = 0;
7831 dXSARGS;
7832
7833 if ((items < 2) || (items > 2)) {
7834 SWIG_croak("Usage: gsl_multifit_robust_type_psi_deriv_set(self,psi_deriv);");
7835 }
7836 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_type, 0 | 0 );
7837 if (!SWIG_IsOK(res1)) {
7838 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_type_psi_deriv_set" "', argument " "1"" of type '" "gsl_multifit_robust_type *""'");
7839 }
7840 arg1 = (gsl_multifit_robust_type *)(argp1);
7841 {
7842 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_q_const__gsl_vector_p_gsl_vector__int);
7843 if (!SWIG_IsOK(res)) {
7844 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 *)""'");
7845 }
7846 }
7847 if (arg1) (arg1)->psi_deriv = arg2;
7848 ST(argvi) = &PL_sv_undef;
7849
7850
7851 XSRETURN(argvi);
7852 fail:
7853
7854
7855 SWIG_croak_null();
7856 }
7857 }
7858
7859
XS(_wrap_gsl_multifit_robust_type_psi_deriv_get)7860 XS(_wrap_gsl_multifit_robust_type_psi_deriv_get) {
7861 {
7862 gsl_multifit_robust_type *arg1 = (gsl_multifit_robust_type *) 0 ;
7863 void *argp1 = 0 ;
7864 int res1 = 0 ;
7865 int argvi = 0;
7866 int (*result)(gsl_vector const *,gsl_vector *) = 0 ;
7867 dXSARGS;
7868
7869 if ((items < 1) || (items > 1)) {
7870 SWIG_croak("Usage: gsl_multifit_robust_type_psi_deriv_get(self);");
7871 }
7872 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_type, 0 | 0 );
7873 if (!SWIG_IsOK(res1)) {
7874 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_type_psi_deriv_get" "', argument " "1"" of type '" "gsl_multifit_robust_type *""'");
7875 }
7876 arg1 = (gsl_multifit_robust_type *)(argp1);
7877 result = (int (*)(gsl_vector const *,gsl_vector *)) ((arg1)->psi_deriv);
7878 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__gsl_vector_p_gsl_vector__int); argvi++ ;
7879
7880 XSRETURN(argvi);
7881 fail:
7882
7883 SWIG_croak_null();
7884 }
7885 }
7886
7887
XS(_wrap_gsl_multifit_robust_type_tuning_default_set)7888 XS(_wrap_gsl_multifit_robust_type_tuning_default_set) {
7889 {
7890 gsl_multifit_robust_type *arg1 = (gsl_multifit_robust_type *) 0 ;
7891 double arg2 ;
7892 void *argp1 = 0 ;
7893 int res1 = 0 ;
7894 double val2 ;
7895 int ecode2 = 0 ;
7896 int argvi = 0;
7897 dXSARGS;
7898
7899 if ((items < 2) || (items > 2)) {
7900 SWIG_croak("Usage: gsl_multifit_robust_type_tuning_default_set(self,tuning_default);");
7901 }
7902 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_type, 0 | 0 );
7903 if (!SWIG_IsOK(res1)) {
7904 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_type_tuning_default_set" "', argument " "1"" of type '" "gsl_multifit_robust_type *""'");
7905 }
7906 arg1 = (gsl_multifit_robust_type *)(argp1);
7907 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
7908 if (!SWIG_IsOK(ecode2)) {
7909 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_type_tuning_default_set" "', argument " "2"" of type '" "double""'");
7910 }
7911 arg2 = (double)(val2);
7912 if (arg1) (arg1)->tuning_default = arg2;
7913 ST(argvi) = &PL_sv_undef;
7914
7915
7916 XSRETURN(argvi);
7917 fail:
7918
7919
7920 SWIG_croak_null();
7921 }
7922 }
7923
7924
XS(_wrap_gsl_multifit_robust_type_tuning_default_get)7925 XS(_wrap_gsl_multifit_robust_type_tuning_default_get) {
7926 {
7927 gsl_multifit_robust_type *arg1 = (gsl_multifit_robust_type *) 0 ;
7928 void *argp1 = 0 ;
7929 int res1 = 0 ;
7930 int argvi = 0;
7931 double result;
7932 dXSARGS;
7933
7934 if ((items < 1) || (items > 1)) {
7935 SWIG_croak("Usage: gsl_multifit_robust_type_tuning_default_get(self);");
7936 }
7937 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_type, 0 | 0 );
7938 if (!SWIG_IsOK(res1)) {
7939 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_type_tuning_default_get" "', argument " "1"" of type '" "gsl_multifit_robust_type *""'");
7940 }
7941 arg1 = (gsl_multifit_robust_type *)(argp1);
7942 result = (double) ((arg1)->tuning_default);
7943 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
7944
7945 XSRETURN(argvi);
7946 fail:
7947
7948 SWIG_croak_null();
7949 }
7950 }
7951
7952
XS(_wrap_new_gsl_multifit_robust_type)7953 XS(_wrap_new_gsl_multifit_robust_type) {
7954 {
7955 int argvi = 0;
7956 gsl_multifit_robust_type *result = 0 ;
7957 dXSARGS;
7958
7959 if ((items < 0) || (items > 0)) {
7960 SWIG_croak("Usage: new_gsl_multifit_robust_type();");
7961 }
7962 result = (gsl_multifit_robust_type *)calloc(1, sizeof(gsl_multifit_robust_type));
7963 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_robust_type, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
7964 XSRETURN(argvi);
7965 fail:
7966 SWIG_croak_null();
7967 }
7968 }
7969
7970
XS(_wrap_delete_gsl_multifit_robust_type)7971 XS(_wrap_delete_gsl_multifit_robust_type) {
7972 {
7973 gsl_multifit_robust_type *arg1 = (gsl_multifit_robust_type *) 0 ;
7974 void *argp1 = 0 ;
7975 int res1 = 0 ;
7976 int argvi = 0;
7977 dXSARGS;
7978
7979 if ((items < 1) || (items > 1)) {
7980 SWIG_croak("Usage: delete_gsl_multifit_robust_type(self);");
7981 }
7982 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_type, SWIG_POINTER_DISOWN | 0 );
7983 if (!SWIG_IsOK(res1)) {
7984 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_multifit_robust_type" "', argument " "1"" of type '" "gsl_multifit_robust_type *""'");
7985 }
7986 arg1 = (gsl_multifit_robust_type *)(argp1);
7987 free((char *) arg1);
7988 ST(argvi) = &PL_sv_undef;
7989
7990 XSRETURN(argvi);
7991 fail:
7992
7993 SWIG_croak_null();
7994 }
7995 }
7996
7997
XS(_wrap_gsl_multifit_robust_stats_sigma_ols_set)7998 XS(_wrap_gsl_multifit_robust_stats_sigma_ols_set) {
7999 {
8000 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8001 double arg2 ;
8002 void *argp1 = 0 ;
8003 int res1 = 0 ;
8004 double val2 ;
8005 int ecode2 = 0 ;
8006 int argvi = 0;
8007 dXSARGS;
8008
8009 if ((items < 2) || (items > 2)) {
8010 SWIG_croak("Usage: gsl_multifit_robust_stats_sigma_ols_set(self,sigma_ols);");
8011 }
8012 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8013 if (!SWIG_IsOK(res1)) {
8014 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_sigma_ols_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8015 }
8016 arg1 = (gsl_multifit_robust_stats *)(argp1);
8017 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8018 if (!SWIG_IsOK(ecode2)) {
8019 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_stats_sigma_ols_set" "', argument " "2"" of type '" "double""'");
8020 }
8021 arg2 = (double)(val2);
8022 if (arg1) (arg1)->sigma_ols = arg2;
8023 ST(argvi) = &PL_sv_undef;
8024
8025
8026 XSRETURN(argvi);
8027 fail:
8028
8029
8030 SWIG_croak_null();
8031 }
8032 }
8033
8034
XS(_wrap_gsl_multifit_robust_stats_sigma_ols_get)8035 XS(_wrap_gsl_multifit_robust_stats_sigma_ols_get) {
8036 {
8037 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8038 void *argp1 = 0 ;
8039 int res1 = 0 ;
8040 int argvi = 0;
8041 double result;
8042 dXSARGS;
8043
8044 if ((items < 1) || (items > 1)) {
8045 SWIG_croak("Usage: gsl_multifit_robust_stats_sigma_ols_get(self);");
8046 }
8047 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8048 if (!SWIG_IsOK(res1)) {
8049 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_sigma_ols_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8050 }
8051 arg1 = (gsl_multifit_robust_stats *)(argp1);
8052 result = (double) ((arg1)->sigma_ols);
8053 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8054
8055 XSRETURN(argvi);
8056 fail:
8057
8058 SWIG_croak_null();
8059 }
8060 }
8061
8062
XS(_wrap_gsl_multifit_robust_stats_sigma_mad_set)8063 XS(_wrap_gsl_multifit_robust_stats_sigma_mad_set) {
8064 {
8065 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8066 double arg2 ;
8067 void *argp1 = 0 ;
8068 int res1 = 0 ;
8069 double val2 ;
8070 int ecode2 = 0 ;
8071 int argvi = 0;
8072 dXSARGS;
8073
8074 if ((items < 2) || (items > 2)) {
8075 SWIG_croak("Usage: gsl_multifit_robust_stats_sigma_mad_set(self,sigma_mad);");
8076 }
8077 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8078 if (!SWIG_IsOK(res1)) {
8079 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_sigma_mad_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8080 }
8081 arg1 = (gsl_multifit_robust_stats *)(argp1);
8082 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8083 if (!SWIG_IsOK(ecode2)) {
8084 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_stats_sigma_mad_set" "', argument " "2"" of type '" "double""'");
8085 }
8086 arg2 = (double)(val2);
8087 if (arg1) (arg1)->sigma_mad = arg2;
8088 ST(argvi) = &PL_sv_undef;
8089
8090
8091 XSRETURN(argvi);
8092 fail:
8093
8094
8095 SWIG_croak_null();
8096 }
8097 }
8098
8099
XS(_wrap_gsl_multifit_robust_stats_sigma_mad_get)8100 XS(_wrap_gsl_multifit_robust_stats_sigma_mad_get) {
8101 {
8102 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8103 void *argp1 = 0 ;
8104 int res1 = 0 ;
8105 int argvi = 0;
8106 double result;
8107 dXSARGS;
8108
8109 if ((items < 1) || (items > 1)) {
8110 SWIG_croak("Usage: gsl_multifit_robust_stats_sigma_mad_get(self);");
8111 }
8112 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8113 if (!SWIG_IsOK(res1)) {
8114 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_sigma_mad_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8115 }
8116 arg1 = (gsl_multifit_robust_stats *)(argp1);
8117 result = (double) ((arg1)->sigma_mad);
8118 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8119
8120 XSRETURN(argvi);
8121 fail:
8122
8123 SWIG_croak_null();
8124 }
8125 }
8126
8127
XS(_wrap_gsl_multifit_robust_stats_sigma_rob_set)8128 XS(_wrap_gsl_multifit_robust_stats_sigma_rob_set) {
8129 {
8130 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8131 double arg2 ;
8132 void *argp1 = 0 ;
8133 int res1 = 0 ;
8134 double val2 ;
8135 int ecode2 = 0 ;
8136 int argvi = 0;
8137 dXSARGS;
8138
8139 if ((items < 2) || (items > 2)) {
8140 SWIG_croak("Usage: gsl_multifit_robust_stats_sigma_rob_set(self,sigma_rob);");
8141 }
8142 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8143 if (!SWIG_IsOK(res1)) {
8144 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_sigma_rob_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8145 }
8146 arg1 = (gsl_multifit_robust_stats *)(argp1);
8147 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8148 if (!SWIG_IsOK(ecode2)) {
8149 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_stats_sigma_rob_set" "', argument " "2"" of type '" "double""'");
8150 }
8151 arg2 = (double)(val2);
8152 if (arg1) (arg1)->sigma_rob = arg2;
8153 ST(argvi) = &PL_sv_undef;
8154
8155
8156 XSRETURN(argvi);
8157 fail:
8158
8159
8160 SWIG_croak_null();
8161 }
8162 }
8163
8164
XS(_wrap_gsl_multifit_robust_stats_sigma_rob_get)8165 XS(_wrap_gsl_multifit_robust_stats_sigma_rob_get) {
8166 {
8167 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8168 void *argp1 = 0 ;
8169 int res1 = 0 ;
8170 int argvi = 0;
8171 double result;
8172 dXSARGS;
8173
8174 if ((items < 1) || (items > 1)) {
8175 SWIG_croak("Usage: gsl_multifit_robust_stats_sigma_rob_get(self);");
8176 }
8177 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8178 if (!SWIG_IsOK(res1)) {
8179 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_sigma_rob_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8180 }
8181 arg1 = (gsl_multifit_robust_stats *)(argp1);
8182 result = (double) ((arg1)->sigma_rob);
8183 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8184
8185 XSRETURN(argvi);
8186 fail:
8187
8188 SWIG_croak_null();
8189 }
8190 }
8191
8192
XS(_wrap_gsl_multifit_robust_stats_sigma_set)8193 XS(_wrap_gsl_multifit_robust_stats_sigma_set) {
8194 {
8195 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8196 double arg2 ;
8197 void *argp1 = 0 ;
8198 int res1 = 0 ;
8199 double val2 ;
8200 int ecode2 = 0 ;
8201 int argvi = 0;
8202 dXSARGS;
8203
8204 if ((items < 2) || (items > 2)) {
8205 SWIG_croak("Usage: gsl_multifit_robust_stats_sigma_set(self,sigma);");
8206 }
8207 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8208 if (!SWIG_IsOK(res1)) {
8209 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_sigma_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8210 }
8211 arg1 = (gsl_multifit_robust_stats *)(argp1);
8212 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8213 if (!SWIG_IsOK(ecode2)) {
8214 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_stats_sigma_set" "', argument " "2"" of type '" "double""'");
8215 }
8216 arg2 = (double)(val2);
8217 if (arg1) (arg1)->sigma = arg2;
8218 ST(argvi) = &PL_sv_undef;
8219
8220
8221 XSRETURN(argvi);
8222 fail:
8223
8224
8225 SWIG_croak_null();
8226 }
8227 }
8228
8229
XS(_wrap_gsl_multifit_robust_stats_sigma_get)8230 XS(_wrap_gsl_multifit_robust_stats_sigma_get) {
8231 {
8232 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8233 void *argp1 = 0 ;
8234 int res1 = 0 ;
8235 int argvi = 0;
8236 double result;
8237 dXSARGS;
8238
8239 if ((items < 1) || (items > 1)) {
8240 SWIG_croak("Usage: gsl_multifit_robust_stats_sigma_get(self);");
8241 }
8242 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8243 if (!SWIG_IsOK(res1)) {
8244 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_sigma_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8245 }
8246 arg1 = (gsl_multifit_robust_stats *)(argp1);
8247 result = (double) ((arg1)->sigma);
8248 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8249
8250 XSRETURN(argvi);
8251 fail:
8252
8253 SWIG_croak_null();
8254 }
8255 }
8256
8257
XS(_wrap_gsl_multifit_robust_stats_Rsq_set)8258 XS(_wrap_gsl_multifit_robust_stats_Rsq_set) {
8259 {
8260 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8261 double arg2 ;
8262 void *argp1 = 0 ;
8263 int res1 = 0 ;
8264 double val2 ;
8265 int ecode2 = 0 ;
8266 int argvi = 0;
8267 dXSARGS;
8268
8269 if ((items < 2) || (items > 2)) {
8270 SWIG_croak("Usage: gsl_multifit_robust_stats_Rsq_set(self,Rsq);");
8271 }
8272 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8273 if (!SWIG_IsOK(res1)) {
8274 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_Rsq_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8275 }
8276 arg1 = (gsl_multifit_robust_stats *)(argp1);
8277 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8278 if (!SWIG_IsOK(ecode2)) {
8279 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_stats_Rsq_set" "', argument " "2"" of type '" "double""'");
8280 }
8281 arg2 = (double)(val2);
8282 if (arg1) (arg1)->Rsq = arg2;
8283 ST(argvi) = &PL_sv_undef;
8284
8285
8286 XSRETURN(argvi);
8287 fail:
8288
8289
8290 SWIG_croak_null();
8291 }
8292 }
8293
8294
XS(_wrap_gsl_multifit_robust_stats_Rsq_get)8295 XS(_wrap_gsl_multifit_robust_stats_Rsq_get) {
8296 {
8297 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8298 void *argp1 = 0 ;
8299 int res1 = 0 ;
8300 int argvi = 0;
8301 double result;
8302 dXSARGS;
8303
8304 if ((items < 1) || (items > 1)) {
8305 SWIG_croak("Usage: gsl_multifit_robust_stats_Rsq_get(self);");
8306 }
8307 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8308 if (!SWIG_IsOK(res1)) {
8309 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_Rsq_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8310 }
8311 arg1 = (gsl_multifit_robust_stats *)(argp1);
8312 result = (double) ((arg1)->Rsq);
8313 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8314
8315 XSRETURN(argvi);
8316 fail:
8317
8318 SWIG_croak_null();
8319 }
8320 }
8321
8322
XS(_wrap_gsl_multifit_robust_stats_adj_Rsq_set)8323 XS(_wrap_gsl_multifit_robust_stats_adj_Rsq_set) {
8324 {
8325 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8326 double arg2 ;
8327 void *argp1 = 0 ;
8328 int res1 = 0 ;
8329 double val2 ;
8330 int ecode2 = 0 ;
8331 int argvi = 0;
8332 dXSARGS;
8333
8334 if ((items < 2) || (items > 2)) {
8335 SWIG_croak("Usage: gsl_multifit_robust_stats_adj_Rsq_set(self,adj_Rsq);");
8336 }
8337 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8338 if (!SWIG_IsOK(res1)) {
8339 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_adj_Rsq_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8340 }
8341 arg1 = (gsl_multifit_robust_stats *)(argp1);
8342 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8343 if (!SWIG_IsOK(ecode2)) {
8344 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_stats_adj_Rsq_set" "', argument " "2"" of type '" "double""'");
8345 }
8346 arg2 = (double)(val2);
8347 if (arg1) (arg1)->adj_Rsq = arg2;
8348 ST(argvi) = &PL_sv_undef;
8349
8350
8351 XSRETURN(argvi);
8352 fail:
8353
8354
8355 SWIG_croak_null();
8356 }
8357 }
8358
8359
XS(_wrap_gsl_multifit_robust_stats_adj_Rsq_get)8360 XS(_wrap_gsl_multifit_robust_stats_adj_Rsq_get) {
8361 {
8362 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8363 void *argp1 = 0 ;
8364 int res1 = 0 ;
8365 int argvi = 0;
8366 double result;
8367 dXSARGS;
8368
8369 if ((items < 1) || (items > 1)) {
8370 SWIG_croak("Usage: gsl_multifit_robust_stats_adj_Rsq_get(self);");
8371 }
8372 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8373 if (!SWIG_IsOK(res1)) {
8374 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_adj_Rsq_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8375 }
8376 arg1 = (gsl_multifit_robust_stats *)(argp1);
8377 result = (double) ((arg1)->adj_Rsq);
8378 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8379
8380 XSRETURN(argvi);
8381 fail:
8382
8383 SWIG_croak_null();
8384 }
8385 }
8386
8387
XS(_wrap_gsl_multifit_robust_stats_rmse_set)8388 XS(_wrap_gsl_multifit_robust_stats_rmse_set) {
8389 {
8390 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8391 double arg2 ;
8392 void *argp1 = 0 ;
8393 int res1 = 0 ;
8394 double val2 ;
8395 int ecode2 = 0 ;
8396 int argvi = 0;
8397 dXSARGS;
8398
8399 if ((items < 2) || (items > 2)) {
8400 SWIG_croak("Usage: gsl_multifit_robust_stats_rmse_set(self,rmse);");
8401 }
8402 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8403 if (!SWIG_IsOK(res1)) {
8404 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_rmse_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8405 }
8406 arg1 = (gsl_multifit_robust_stats *)(argp1);
8407 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8408 if (!SWIG_IsOK(ecode2)) {
8409 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_stats_rmse_set" "', argument " "2"" of type '" "double""'");
8410 }
8411 arg2 = (double)(val2);
8412 if (arg1) (arg1)->rmse = arg2;
8413 ST(argvi) = &PL_sv_undef;
8414
8415
8416 XSRETURN(argvi);
8417 fail:
8418
8419
8420 SWIG_croak_null();
8421 }
8422 }
8423
8424
XS(_wrap_gsl_multifit_robust_stats_rmse_get)8425 XS(_wrap_gsl_multifit_robust_stats_rmse_get) {
8426 {
8427 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8428 void *argp1 = 0 ;
8429 int res1 = 0 ;
8430 int argvi = 0;
8431 double result;
8432 dXSARGS;
8433
8434 if ((items < 1) || (items > 1)) {
8435 SWIG_croak("Usage: gsl_multifit_robust_stats_rmse_get(self);");
8436 }
8437 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8438 if (!SWIG_IsOK(res1)) {
8439 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_rmse_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8440 }
8441 arg1 = (gsl_multifit_robust_stats *)(argp1);
8442 result = (double) ((arg1)->rmse);
8443 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8444
8445 XSRETURN(argvi);
8446 fail:
8447
8448 SWIG_croak_null();
8449 }
8450 }
8451
8452
XS(_wrap_gsl_multifit_robust_stats_sse_set)8453 XS(_wrap_gsl_multifit_robust_stats_sse_set) {
8454 {
8455 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8456 double arg2 ;
8457 void *argp1 = 0 ;
8458 int res1 = 0 ;
8459 double val2 ;
8460 int ecode2 = 0 ;
8461 int argvi = 0;
8462 dXSARGS;
8463
8464 if ((items < 2) || (items > 2)) {
8465 SWIG_croak("Usage: gsl_multifit_robust_stats_sse_set(self,sse);");
8466 }
8467 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8468 if (!SWIG_IsOK(res1)) {
8469 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_sse_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8470 }
8471 arg1 = (gsl_multifit_robust_stats *)(argp1);
8472 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8473 if (!SWIG_IsOK(ecode2)) {
8474 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_stats_sse_set" "', argument " "2"" of type '" "double""'");
8475 }
8476 arg2 = (double)(val2);
8477 if (arg1) (arg1)->sse = arg2;
8478 ST(argvi) = &PL_sv_undef;
8479
8480
8481 XSRETURN(argvi);
8482 fail:
8483
8484
8485 SWIG_croak_null();
8486 }
8487 }
8488
8489
XS(_wrap_gsl_multifit_robust_stats_sse_get)8490 XS(_wrap_gsl_multifit_robust_stats_sse_get) {
8491 {
8492 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8493 void *argp1 = 0 ;
8494 int res1 = 0 ;
8495 int argvi = 0;
8496 double result;
8497 dXSARGS;
8498
8499 if ((items < 1) || (items > 1)) {
8500 SWIG_croak("Usage: gsl_multifit_robust_stats_sse_get(self);");
8501 }
8502 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8503 if (!SWIG_IsOK(res1)) {
8504 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_sse_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8505 }
8506 arg1 = (gsl_multifit_robust_stats *)(argp1);
8507 result = (double) ((arg1)->sse);
8508 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
8509
8510 XSRETURN(argvi);
8511 fail:
8512
8513 SWIG_croak_null();
8514 }
8515 }
8516
8517
XS(_wrap_gsl_multifit_robust_stats_dof_set)8518 XS(_wrap_gsl_multifit_robust_stats_dof_set) {
8519 {
8520 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8521 size_t arg2 ;
8522 void *argp1 = 0 ;
8523 int res1 = 0 ;
8524 size_t val2 ;
8525 int ecode2 = 0 ;
8526 int argvi = 0;
8527 dXSARGS;
8528
8529 if ((items < 2) || (items > 2)) {
8530 SWIG_croak("Usage: gsl_multifit_robust_stats_dof_set(self,dof);");
8531 }
8532 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8533 if (!SWIG_IsOK(res1)) {
8534 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_dof_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8535 }
8536 arg1 = (gsl_multifit_robust_stats *)(argp1);
8537 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8538 if (!SWIG_IsOK(ecode2)) {
8539 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_stats_dof_set" "', argument " "2"" of type '" "size_t""'");
8540 }
8541 arg2 = (size_t)(val2);
8542 if (arg1) (arg1)->dof = arg2;
8543 ST(argvi) = &PL_sv_undef;
8544
8545
8546 XSRETURN(argvi);
8547 fail:
8548
8549
8550 SWIG_croak_null();
8551 }
8552 }
8553
8554
XS(_wrap_gsl_multifit_robust_stats_dof_get)8555 XS(_wrap_gsl_multifit_robust_stats_dof_get) {
8556 {
8557 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8558 void *argp1 = 0 ;
8559 int res1 = 0 ;
8560 int argvi = 0;
8561 size_t result;
8562 dXSARGS;
8563
8564 if ((items < 1) || (items > 1)) {
8565 SWIG_croak("Usage: gsl_multifit_robust_stats_dof_get(self);");
8566 }
8567 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8568 if (!SWIG_IsOK(res1)) {
8569 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_dof_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8570 }
8571 arg1 = (gsl_multifit_robust_stats *)(argp1);
8572 result = ((arg1)->dof);
8573 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
8574
8575 XSRETURN(argvi);
8576 fail:
8577
8578 SWIG_croak_null();
8579 }
8580 }
8581
8582
XS(_wrap_gsl_multifit_robust_stats_numit_set)8583 XS(_wrap_gsl_multifit_robust_stats_numit_set) {
8584 {
8585 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8586 size_t arg2 ;
8587 void *argp1 = 0 ;
8588 int res1 = 0 ;
8589 size_t val2 ;
8590 int ecode2 = 0 ;
8591 int argvi = 0;
8592 dXSARGS;
8593
8594 if ((items < 2) || (items > 2)) {
8595 SWIG_croak("Usage: gsl_multifit_robust_stats_numit_set(self,numit);");
8596 }
8597 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8598 if (!SWIG_IsOK(res1)) {
8599 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_numit_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8600 }
8601 arg1 = (gsl_multifit_robust_stats *)(argp1);
8602 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8603 if (!SWIG_IsOK(ecode2)) {
8604 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_stats_numit_set" "', argument " "2"" of type '" "size_t""'");
8605 }
8606 arg2 = (size_t)(val2);
8607 if (arg1) (arg1)->numit = arg2;
8608 ST(argvi) = &PL_sv_undef;
8609
8610
8611 XSRETURN(argvi);
8612 fail:
8613
8614
8615 SWIG_croak_null();
8616 }
8617 }
8618
8619
XS(_wrap_gsl_multifit_robust_stats_numit_get)8620 XS(_wrap_gsl_multifit_robust_stats_numit_get) {
8621 {
8622 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8623 void *argp1 = 0 ;
8624 int res1 = 0 ;
8625 int argvi = 0;
8626 size_t result;
8627 dXSARGS;
8628
8629 if ((items < 1) || (items > 1)) {
8630 SWIG_croak("Usage: gsl_multifit_robust_stats_numit_get(self);");
8631 }
8632 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8633 if (!SWIG_IsOK(res1)) {
8634 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_numit_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8635 }
8636 arg1 = (gsl_multifit_robust_stats *)(argp1);
8637 result = ((arg1)->numit);
8638 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
8639
8640 XSRETURN(argvi);
8641 fail:
8642
8643 SWIG_croak_null();
8644 }
8645 }
8646
8647
XS(_wrap_gsl_multifit_robust_stats_weights_set)8648 XS(_wrap_gsl_multifit_robust_stats_weights_set) {
8649 {
8650 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8651 gsl_vector *arg2 = (gsl_vector *) 0 ;
8652 void *argp1 = 0 ;
8653 int res1 = 0 ;
8654 void *argp2 = 0 ;
8655 int res2 = 0 ;
8656 int argvi = 0;
8657 dXSARGS;
8658
8659 if ((items < 2) || (items > 2)) {
8660 SWIG_croak("Usage: gsl_multifit_robust_stats_weights_set(self,weights);");
8661 }
8662 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8663 if (!SWIG_IsOK(res1)) {
8664 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_weights_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8665 }
8666 arg1 = (gsl_multifit_robust_stats *)(argp1);
8667 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
8668 if (!SWIG_IsOK(res2)) {
8669 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_stats_weights_set" "', argument " "2"" of type '" "gsl_vector *""'");
8670 }
8671 arg2 = (gsl_vector *)(argp2);
8672 if (arg1) (arg1)->weights = arg2;
8673 ST(argvi) = &PL_sv_undef;
8674
8675
8676 XSRETURN(argvi);
8677 fail:
8678
8679
8680 SWIG_croak_null();
8681 }
8682 }
8683
8684
XS(_wrap_gsl_multifit_robust_stats_weights_get)8685 XS(_wrap_gsl_multifit_robust_stats_weights_get) {
8686 {
8687 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8688 void *argp1 = 0 ;
8689 int res1 = 0 ;
8690 int argvi = 0;
8691 gsl_vector *result = 0 ;
8692 dXSARGS;
8693
8694 if ((items < 1) || (items > 1)) {
8695 SWIG_croak("Usage: gsl_multifit_robust_stats_weights_get(self);");
8696 }
8697 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8698 if (!SWIG_IsOK(res1)) {
8699 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_weights_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8700 }
8701 arg1 = (gsl_multifit_robust_stats *)(argp1);
8702 result = (gsl_vector *) ((arg1)->weights);
8703 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
8704
8705 XSRETURN(argvi);
8706 fail:
8707
8708 SWIG_croak_null();
8709 }
8710 }
8711
8712
XS(_wrap_gsl_multifit_robust_stats_r_set)8713 XS(_wrap_gsl_multifit_robust_stats_r_set) {
8714 {
8715 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8716 gsl_vector *arg2 = (gsl_vector *) 0 ;
8717 void *argp1 = 0 ;
8718 int res1 = 0 ;
8719 void *argp2 = 0 ;
8720 int res2 = 0 ;
8721 int argvi = 0;
8722 dXSARGS;
8723
8724 if ((items < 2) || (items > 2)) {
8725 SWIG_croak("Usage: gsl_multifit_robust_stats_r_set(self,r);");
8726 }
8727 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8728 if (!SWIG_IsOK(res1)) {
8729 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_r_set" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8730 }
8731 arg1 = (gsl_multifit_robust_stats *)(argp1);
8732 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
8733 if (!SWIG_IsOK(res2)) {
8734 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_stats_r_set" "', argument " "2"" of type '" "gsl_vector *""'");
8735 }
8736 arg2 = (gsl_vector *)(argp2);
8737 if (arg1) (arg1)->r = arg2;
8738 ST(argvi) = &PL_sv_undef;
8739
8740
8741 XSRETURN(argvi);
8742 fail:
8743
8744
8745 SWIG_croak_null();
8746 }
8747 }
8748
8749
XS(_wrap_gsl_multifit_robust_stats_r_get)8750 XS(_wrap_gsl_multifit_robust_stats_r_get) {
8751 {
8752 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8753 void *argp1 = 0 ;
8754 int res1 = 0 ;
8755 int argvi = 0;
8756 gsl_vector *result = 0 ;
8757 dXSARGS;
8758
8759 if ((items < 1) || (items > 1)) {
8760 SWIG_croak("Usage: gsl_multifit_robust_stats_r_get(self);");
8761 }
8762 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
8763 if (!SWIG_IsOK(res1)) {
8764 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_stats_r_get" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8765 }
8766 arg1 = (gsl_multifit_robust_stats *)(argp1);
8767 result = (gsl_vector *) ((arg1)->r);
8768 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
8769
8770 XSRETURN(argvi);
8771 fail:
8772
8773 SWIG_croak_null();
8774 }
8775 }
8776
8777
XS(_wrap_new_gsl_multifit_robust_stats)8778 XS(_wrap_new_gsl_multifit_robust_stats) {
8779 {
8780 int argvi = 0;
8781 gsl_multifit_robust_stats *result = 0 ;
8782 dXSARGS;
8783
8784 if ((items < 0) || (items > 0)) {
8785 SWIG_croak("Usage: new_gsl_multifit_robust_stats();");
8786 }
8787 result = (gsl_multifit_robust_stats *)calloc(1, sizeof(gsl_multifit_robust_stats));
8788 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_robust_stats, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
8789 XSRETURN(argvi);
8790 fail:
8791 SWIG_croak_null();
8792 }
8793 }
8794
8795
XS(_wrap_delete_gsl_multifit_robust_stats)8796 XS(_wrap_delete_gsl_multifit_robust_stats) {
8797 {
8798 gsl_multifit_robust_stats *arg1 = (gsl_multifit_robust_stats *) 0 ;
8799 void *argp1 = 0 ;
8800 int res1 = 0 ;
8801 int argvi = 0;
8802 dXSARGS;
8803
8804 if ((items < 1) || (items > 1)) {
8805 SWIG_croak("Usage: delete_gsl_multifit_robust_stats(self);");
8806 }
8807 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_stats, SWIG_POINTER_DISOWN | 0 );
8808 if (!SWIG_IsOK(res1)) {
8809 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_multifit_robust_stats" "', argument " "1"" of type '" "gsl_multifit_robust_stats *""'");
8810 }
8811 arg1 = (gsl_multifit_robust_stats *)(argp1);
8812 free((char *) arg1);
8813 ST(argvi) = &PL_sv_undef;
8814
8815 XSRETURN(argvi);
8816 fail:
8817
8818 SWIG_croak_null();
8819 }
8820 }
8821
8822
XS(_wrap_gsl_multifit_robust_workspace_n_set)8823 XS(_wrap_gsl_multifit_robust_workspace_n_set) {
8824 {
8825 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
8826 size_t arg2 ;
8827 void *argp1 = 0 ;
8828 int res1 = 0 ;
8829 size_t val2 ;
8830 int ecode2 = 0 ;
8831 int argvi = 0;
8832 dXSARGS;
8833
8834 if ((items < 2) || (items > 2)) {
8835 SWIG_croak("Usage: gsl_multifit_robust_workspace_n_set(self,n);");
8836 }
8837 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
8838 if (!SWIG_IsOK(res1)) {
8839 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_n_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
8840 }
8841 arg1 = (gsl_multifit_robust_workspace *)(argp1);
8842 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8843 if (!SWIG_IsOK(ecode2)) {
8844 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_workspace_n_set" "', argument " "2"" of type '" "size_t""'");
8845 }
8846 arg2 = (size_t)(val2);
8847 if (arg1) (arg1)->n = arg2;
8848 ST(argvi) = &PL_sv_undef;
8849
8850
8851 XSRETURN(argvi);
8852 fail:
8853
8854
8855 SWIG_croak_null();
8856 }
8857 }
8858
8859
XS(_wrap_gsl_multifit_robust_workspace_n_get)8860 XS(_wrap_gsl_multifit_robust_workspace_n_get) {
8861 {
8862 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
8863 void *argp1 = 0 ;
8864 int res1 = 0 ;
8865 int argvi = 0;
8866 size_t result;
8867 dXSARGS;
8868
8869 if ((items < 1) || (items > 1)) {
8870 SWIG_croak("Usage: gsl_multifit_robust_workspace_n_get(self);");
8871 }
8872 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
8873 if (!SWIG_IsOK(res1)) {
8874 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_n_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
8875 }
8876 arg1 = (gsl_multifit_robust_workspace *)(argp1);
8877 result = ((arg1)->n);
8878 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
8879
8880 XSRETURN(argvi);
8881 fail:
8882
8883 SWIG_croak_null();
8884 }
8885 }
8886
8887
XS(_wrap_gsl_multifit_robust_workspace_p_set)8888 XS(_wrap_gsl_multifit_robust_workspace_p_set) {
8889 {
8890 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
8891 size_t arg2 ;
8892 void *argp1 = 0 ;
8893 int res1 = 0 ;
8894 size_t val2 ;
8895 int ecode2 = 0 ;
8896 int argvi = 0;
8897 dXSARGS;
8898
8899 if ((items < 2) || (items > 2)) {
8900 SWIG_croak("Usage: gsl_multifit_robust_workspace_p_set(self,p);");
8901 }
8902 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
8903 if (!SWIG_IsOK(res1)) {
8904 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_p_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
8905 }
8906 arg1 = (gsl_multifit_robust_workspace *)(argp1);
8907 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8908 if (!SWIG_IsOK(ecode2)) {
8909 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_workspace_p_set" "', argument " "2"" of type '" "size_t""'");
8910 }
8911 arg2 = (size_t)(val2);
8912 if (arg1) (arg1)->p = arg2;
8913 ST(argvi) = &PL_sv_undef;
8914
8915
8916 XSRETURN(argvi);
8917 fail:
8918
8919
8920 SWIG_croak_null();
8921 }
8922 }
8923
8924
XS(_wrap_gsl_multifit_robust_workspace_p_get)8925 XS(_wrap_gsl_multifit_robust_workspace_p_get) {
8926 {
8927 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
8928 void *argp1 = 0 ;
8929 int res1 = 0 ;
8930 int argvi = 0;
8931 size_t result;
8932 dXSARGS;
8933
8934 if ((items < 1) || (items > 1)) {
8935 SWIG_croak("Usage: gsl_multifit_robust_workspace_p_get(self);");
8936 }
8937 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
8938 if (!SWIG_IsOK(res1)) {
8939 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_p_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
8940 }
8941 arg1 = (gsl_multifit_robust_workspace *)(argp1);
8942 result = ((arg1)->p);
8943 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
8944
8945 XSRETURN(argvi);
8946 fail:
8947
8948 SWIG_croak_null();
8949 }
8950 }
8951
8952
XS(_wrap_gsl_multifit_robust_workspace_numit_set)8953 XS(_wrap_gsl_multifit_robust_workspace_numit_set) {
8954 {
8955 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
8956 size_t arg2 ;
8957 void *argp1 = 0 ;
8958 int res1 = 0 ;
8959 size_t val2 ;
8960 int ecode2 = 0 ;
8961 int argvi = 0;
8962 dXSARGS;
8963
8964 if ((items < 2) || (items > 2)) {
8965 SWIG_croak("Usage: gsl_multifit_robust_workspace_numit_set(self,numit);");
8966 }
8967 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
8968 if (!SWIG_IsOK(res1)) {
8969 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_numit_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
8970 }
8971 arg1 = (gsl_multifit_robust_workspace *)(argp1);
8972 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
8973 if (!SWIG_IsOK(ecode2)) {
8974 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_workspace_numit_set" "', argument " "2"" of type '" "size_t""'");
8975 }
8976 arg2 = (size_t)(val2);
8977 if (arg1) (arg1)->numit = arg2;
8978 ST(argvi) = &PL_sv_undef;
8979
8980
8981 XSRETURN(argvi);
8982 fail:
8983
8984
8985 SWIG_croak_null();
8986 }
8987 }
8988
8989
XS(_wrap_gsl_multifit_robust_workspace_numit_get)8990 XS(_wrap_gsl_multifit_robust_workspace_numit_get) {
8991 {
8992 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
8993 void *argp1 = 0 ;
8994 int res1 = 0 ;
8995 int argvi = 0;
8996 size_t result;
8997 dXSARGS;
8998
8999 if ((items < 1) || (items > 1)) {
9000 SWIG_croak("Usage: gsl_multifit_robust_workspace_numit_get(self);");
9001 }
9002 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9003 if (!SWIG_IsOK(res1)) {
9004 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_numit_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9005 }
9006 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9007 result = ((arg1)->numit);
9008 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9009
9010 XSRETURN(argvi);
9011 fail:
9012
9013 SWIG_croak_null();
9014 }
9015 }
9016
9017
XS(_wrap_gsl_multifit_robust_workspace_maxiter_set)9018 XS(_wrap_gsl_multifit_robust_workspace_maxiter_set) {
9019 {
9020 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9021 size_t arg2 ;
9022 void *argp1 = 0 ;
9023 int res1 = 0 ;
9024 size_t val2 ;
9025 int ecode2 = 0 ;
9026 int argvi = 0;
9027 dXSARGS;
9028
9029 if ((items < 2) || (items > 2)) {
9030 SWIG_croak("Usage: gsl_multifit_robust_workspace_maxiter_set(self,maxiter);");
9031 }
9032 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9033 if (!SWIG_IsOK(res1)) {
9034 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_maxiter_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9035 }
9036 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9037 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9038 if (!SWIG_IsOK(ecode2)) {
9039 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_workspace_maxiter_set" "', argument " "2"" of type '" "size_t""'");
9040 }
9041 arg2 = (size_t)(val2);
9042 if (arg1) (arg1)->maxiter = arg2;
9043 ST(argvi) = &PL_sv_undef;
9044
9045
9046 XSRETURN(argvi);
9047 fail:
9048
9049
9050 SWIG_croak_null();
9051 }
9052 }
9053
9054
XS(_wrap_gsl_multifit_robust_workspace_maxiter_get)9055 XS(_wrap_gsl_multifit_robust_workspace_maxiter_get) {
9056 {
9057 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9058 void *argp1 = 0 ;
9059 int res1 = 0 ;
9060 int argvi = 0;
9061 size_t result;
9062 dXSARGS;
9063
9064 if ((items < 1) || (items > 1)) {
9065 SWIG_croak("Usage: gsl_multifit_robust_workspace_maxiter_get(self);");
9066 }
9067 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9068 if (!SWIG_IsOK(res1)) {
9069 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_maxiter_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9070 }
9071 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9072 result = ((arg1)->maxiter);
9073 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
9074
9075 XSRETURN(argvi);
9076 fail:
9077
9078 SWIG_croak_null();
9079 }
9080 }
9081
9082
XS(_wrap_gsl_multifit_robust_workspace_type_set)9083 XS(_wrap_gsl_multifit_robust_workspace_type_set) {
9084 {
9085 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9086 gsl_multifit_robust_type *arg2 = (gsl_multifit_robust_type *) 0 ;
9087 void *argp1 = 0 ;
9088 int res1 = 0 ;
9089 void *argp2 = 0 ;
9090 int res2 = 0 ;
9091 int argvi = 0;
9092 dXSARGS;
9093
9094 if ((items < 2) || (items > 2)) {
9095 SWIG_croak("Usage: gsl_multifit_robust_workspace_type_set(self,type);");
9096 }
9097 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9098 if (!SWIG_IsOK(res1)) {
9099 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_type_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9100 }
9101 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9102 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_robust_type, SWIG_POINTER_DISOWN | 0 );
9103 if (!SWIG_IsOK(res2)) {
9104 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_type_set" "', argument " "2"" of type '" "gsl_multifit_robust_type const *""'");
9105 }
9106 arg2 = (gsl_multifit_robust_type *)(argp2);
9107 if (arg1) (arg1)->type = (gsl_multifit_robust_type const *)arg2;
9108 ST(argvi) = &PL_sv_undef;
9109
9110
9111 XSRETURN(argvi);
9112 fail:
9113
9114
9115 SWIG_croak_null();
9116 }
9117 }
9118
9119
XS(_wrap_gsl_multifit_robust_workspace_type_get)9120 XS(_wrap_gsl_multifit_robust_workspace_type_get) {
9121 {
9122 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9123 void *argp1 = 0 ;
9124 int res1 = 0 ;
9125 int argvi = 0;
9126 gsl_multifit_robust_type *result = 0 ;
9127 dXSARGS;
9128
9129 if ((items < 1) || (items > 1)) {
9130 SWIG_croak("Usage: gsl_multifit_robust_workspace_type_get(self);");
9131 }
9132 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9133 if (!SWIG_IsOK(res1)) {
9134 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_type_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9135 }
9136 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9137 result = (gsl_multifit_robust_type *) ((arg1)->type);
9138 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_robust_type, 0 | SWIG_SHADOW); argvi++ ;
9139
9140 XSRETURN(argvi);
9141 fail:
9142
9143 SWIG_croak_null();
9144 }
9145 }
9146
9147
XS(_wrap_gsl_multifit_robust_workspace_tune_set)9148 XS(_wrap_gsl_multifit_robust_workspace_tune_set) {
9149 {
9150 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9151 double arg2 ;
9152 void *argp1 = 0 ;
9153 int res1 = 0 ;
9154 double val2 ;
9155 int ecode2 = 0 ;
9156 int argvi = 0;
9157 dXSARGS;
9158
9159 if ((items < 2) || (items > 2)) {
9160 SWIG_croak("Usage: gsl_multifit_robust_workspace_tune_set(self,tune);");
9161 }
9162 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9163 if (!SWIG_IsOK(res1)) {
9164 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_tune_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9165 }
9166 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9167 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9168 if (!SWIG_IsOK(ecode2)) {
9169 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_workspace_tune_set" "', argument " "2"" of type '" "double""'");
9170 }
9171 arg2 = (double)(val2);
9172 if (arg1) (arg1)->tune = arg2;
9173 ST(argvi) = &PL_sv_undef;
9174
9175
9176 XSRETURN(argvi);
9177 fail:
9178
9179
9180 SWIG_croak_null();
9181 }
9182 }
9183
9184
XS(_wrap_gsl_multifit_robust_workspace_tune_get)9185 XS(_wrap_gsl_multifit_robust_workspace_tune_get) {
9186 {
9187 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9188 void *argp1 = 0 ;
9189 int res1 = 0 ;
9190 int argvi = 0;
9191 double result;
9192 dXSARGS;
9193
9194 if ((items < 1) || (items > 1)) {
9195 SWIG_croak("Usage: gsl_multifit_robust_workspace_tune_get(self);");
9196 }
9197 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9198 if (!SWIG_IsOK(res1)) {
9199 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_tune_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9200 }
9201 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9202 result = (double) ((arg1)->tune);
9203 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
9204
9205 XSRETURN(argvi);
9206 fail:
9207
9208 SWIG_croak_null();
9209 }
9210 }
9211
9212
XS(_wrap_gsl_multifit_robust_workspace_r_set)9213 XS(_wrap_gsl_multifit_robust_workspace_r_set) {
9214 {
9215 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9216 gsl_vector *arg2 = (gsl_vector *) 0 ;
9217 void *argp1 = 0 ;
9218 int res1 = 0 ;
9219 void *argp2 = 0 ;
9220 int res2 = 0 ;
9221 int argvi = 0;
9222 dXSARGS;
9223
9224 if ((items < 2) || (items > 2)) {
9225 SWIG_croak("Usage: gsl_multifit_robust_workspace_r_set(self,r);");
9226 }
9227 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9228 if (!SWIG_IsOK(res1)) {
9229 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_r_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9230 }
9231 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9232 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
9233 if (!SWIG_IsOK(res2)) {
9234 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_r_set" "', argument " "2"" of type '" "gsl_vector *""'");
9235 }
9236 arg2 = (gsl_vector *)(argp2);
9237 if (arg1) (arg1)->r = arg2;
9238 ST(argvi) = &PL_sv_undef;
9239
9240
9241 XSRETURN(argvi);
9242 fail:
9243
9244
9245 SWIG_croak_null();
9246 }
9247 }
9248
9249
XS(_wrap_gsl_multifit_robust_workspace_r_get)9250 XS(_wrap_gsl_multifit_robust_workspace_r_get) {
9251 {
9252 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9253 void *argp1 = 0 ;
9254 int res1 = 0 ;
9255 int argvi = 0;
9256 gsl_vector *result = 0 ;
9257 dXSARGS;
9258
9259 if ((items < 1) || (items > 1)) {
9260 SWIG_croak("Usage: gsl_multifit_robust_workspace_r_get(self);");
9261 }
9262 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9263 if (!SWIG_IsOK(res1)) {
9264 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_r_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9265 }
9266 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9267 result = (gsl_vector *) ((arg1)->r);
9268 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
9269
9270 XSRETURN(argvi);
9271 fail:
9272
9273 SWIG_croak_null();
9274 }
9275 }
9276
9277
XS(_wrap_gsl_multifit_robust_workspace_weights_set)9278 XS(_wrap_gsl_multifit_robust_workspace_weights_set) {
9279 {
9280 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9281 gsl_vector *arg2 = (gsl_vector *) 0 ;
9282 void *argp1 = 0 ;
9283 int res1 = 0 ;
9284 void *argp2 = 0 ;
9285 int res2 = 0 ;
9286 int argvi = 0;
9287 dXSARGS;
9288
9289 if ((items < 2) || (items > 2)) {
9290 SWIG_croak("Usage: gsl_multifit_robust_workspace_weights_set(self,weights);");
9291 }
9292 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9293 if (!SWIG_IsOK(res1)) {
9294 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_weights_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9295 }
9296 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9297 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
9298 if (!SWIG_IsOK(res2)) {
9299 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_weights_set" "', argument " "2"" of type '" "gsl_vector *""'");
9300 }
9301 arg2 = (gsl_vector *)(argp2);
9302 if (arg1) (arg1)->weights = arg2;
9303 ST(argvi) = &PL_sv_undef;
9304
9305
9306 XSRETURN(argvi);
9307 fail:
9308
9309
9310 SWIG_croak_null();
9311 }
9312 }
9313
9314
XS(_wrap_gsl_multifit_robust_workspace_weights_get)9315 XS(_wrap_gsl_multifit_robust_workspace_weights_get) {
9316 {
9317 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9318 void *argp1 = 0 ;
9319 int res1 = 0 ;
9320 int argvi = 0;
9321 gsl_vector *result = 0 ;
9322 dXSARGS;
9323
9324 if ((items < 1) || (items > 1)) {
9325 SWIG_croak("Usage: gsl_multifit_robust_workspace_weights_get(self);");
9326 }
9327 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9328 if (!SWIG_IsOK(res1)) {
9329 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_weights_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9330 }
9331 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9332 result = (gsl_vector *) ((arg1)->weights);
9333 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
9334
9335 XSRETURN(argvi);
9336 fail:
9337
9338 SWIG_croak_null();
9339 }
9340 }
9341
9342
XS(_wrap_gsl_multifit_robust_workspace_c_prev_set)9343 XS(_wrap_gsl_multifit_robust_workspace_c_prev_set) {
9344 {
9345 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9346 gsl_vector *arg2 = (gsl_vector *) 0 ;
9347 void *argp1 = 0 ;
9348 int res1 = 0 ;
9349 void *argp2 = 0 ;
9350 int res2 = 0 ;
9351 int argvi = 0;
9352 dXSARGS;
9353
9354 if ((items < 2) || (items > 2)) {
9355 SWIG_croak("Usage: gsl_multifit_robust_workspace_c_prev_set(self,c_prev);");
9356 }
9357 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9358 if (!SWIG_IsOK(res1)) {
9359 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_c_prev_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9360 }
9361 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9362 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
9363 if (!SWIG_IsOK(res2)) {
9364 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_c_prev_set" "', argument " "2"" of type '" "gsl_vector *""'");
9365 }
9366 arg2 = (gsl_vector *)(argp2);
9367 if (arg1) (arg1)->c_prev = arg2;
9368 ST(argvi) = &PL_sv_undef;
9369
9370
9371 XSRETURN(argvi);
9372 fail:
9373
9374
9375 SWIG_croak_null();
9376 }
9377 }
9378
9379
XS(_wrap_gsl_multifit_robust_workspace_c_prev_get)9380 XS(_wrap_gsl_multifit_robust_workspace_c_prev_get) {
9381 {
9382 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9383 void *argp1 = 0 ;
9384 int res1 = 0 ;
9385 int argvi = 0;
9386 gsl_vector *result = 0 ;
9387 dXSARGS;
9388
9389 if ((items < 1) || (items > 1)) {
9390 SWIG_croak("Usage: gsl_multifit_robust_workspace_c_prev_get(self);");
9391 }
9392 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9393 if (!SWIG_IsOK(res1)) {
9394 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_c_prev_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9395 }
9396 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9397 result = (gsl_vector *) ((arg1)->c_prev);
9398 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
9399
9400 XSRETURN(argvi);
9401 fail:
9402
9403 SWIG_croak_null();
9404 }
9405 }
9406
9407
XS(_wrap_gsl_multifit_robust_workspace_resfac_set)9408 XS(_wrap_gsl_multifit_robust_workspace_resfac_set) {
9409 {
9410 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9411 gsl_vector *arg2 = (gsl_vector *) 0 ;
9412 void *argp1 = 0 ;
9413 int res1 = 0 ;
9414 void *argp2 = 0 ;
9415 int res2 = 0 ;
9416 int argvi = 0;
9417 dXSARGS;
9418
9419 if ((items < 2) || (items > 2)) {
9420 SWIG_croak("Usage: gsl_multifit_robust_workspace_resfac_set(self,resfac);");
9421 }
9422 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9423 if (!SWIG_IsOK(res1)) {
9424 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_resfac_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9425 }
9426 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9427 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
9428 if (!SWIG_IsOK(res2)) {
9429 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_resfac_set" "', argument " "2"" of type '" "gsl_vector *""'");
9430 }
9431 arg2 = (gsl_vector *)(argp2);
9432 if (arg1) (arg1)->resfac = arg2;
9433 ST(argvi) = &PL_sv_undef;
9434
9435
9436 XSRETURN(argvi);
9437 fail:
9438
9439
9440 SWIG_croak_null();
9441 }
9442 }
9443
9444
XS(_wrap_gsl_multifit_robust_workspace_resfac_get)9445 XS(_wrap_gsl_multifit_robust_workspace_resfac_get) {
9446 {
9447 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9448 void *argp1 = 0 ;
9449 int res1 = 0 ;
9450 int argvi = 0;
9451 gsl_vector *result = 0 ;
9452 dXSARGS;
9453
9454 if ((items < 1) || (items > 1)) {
9455 SWIG_croak("Usage: gsl_multifit_robust_workspace_resfac_get(self);");
9456 }
9457 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9458 if (!SWIG_IsOK(res1)) {
9459 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_resfac_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9460 }
9461 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9462 result = (gsl_vector *) ((arg1)->resfac);
9463 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
9464
9465 XSRETURN(argvi);
9466 fail:
9467
9468 SWIG_croak_null();
9469 }
9470 }
9471
9472
XS(_wrap_gsl_multifit_robust_workspace_psi_set)9473 XS(_wrap_gsl_multifit_robust_workspace_psi_set) {
9474 {
9475 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9476 gsl_vector *arg2 = (gsl_vector *) 0 ;
9477 void *argp1 = 0 ;
9478 int res1 = 0 ;
9479 void *argp2 = 0 ;
9480 int res2 = 0 ;
9481 int argvi = 0;
9482 dXSARGS;
9483
9484 if ((items < 2) || (items > 2)) {
9485 SWIG_croak("Usage: gsl_multifit_robust_workspace_psi_set(self,psi);");
9486 }
9487 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9488 if (!SWIG_IsOK(res1)) {
9489 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_psi_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9490 }
9491 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9492 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
9493 if (!SWIG_IsOK(res2)) {
9494 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_psi_set" "', argument " "2"" of type '" "gsl_vector *""'");
9495 }
9496 arg2 = (gsl_vector *)(argp2);
9497 if (arg1) (arg1)->psi = arg2;
9498 ST(argvi) = &PL_sv_undef;
9499
9500
9501 XSRETURN(argvi);
9502 fail:
9503
9504
9505 SWIG_croak_null();
9506 }
9507 }
9508
9509
XS(_wrap_gsl_multifit_robust_workspace_psi_get)9510 XS(_wrap_gsl_multifit_robust_workspace_psi_get) {
9511 {
9512 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9513 void *argp1 = 0 ;
9514 int res1 = 0 ;
9515 int argvi = 0;
9516 gsl_vector *result = 0 ;
9517 dXSARGS;
9518
9519 if ((items < 1) || (items > 1)) {
9520 SWIG_croak("Usage: gsl_multifit_robust_workspace_psi_get(self);");
9521 }
9522 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9523 if (!SWIG_IsOK(res1)) {
9524 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_psi_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9525 }
9526 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9527 result = (gsl_vector *) ((arg1)->psi);
9528 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
9529
9530 XSRETURN(argvi);
9531 fail:
9532
9533 SWIG_croak_null();
9534 }
9535 }
9536
9537
XS(_wrap_gsl_multifit_robust_workspace_dpsi_set)9538 XS(_wrap_gsl_multifit_robust_workspace_dpsi_set) {
9539 {
9540 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9541 gsl_vector *arg2 = (gsl_vector *) 0 ;
9542 void *argp1 = 0 ;
9543 int res1 = 0 ;
9544 void *argp2 = 0 ;
9545 int res2 = 0 ;
9546 int argvi = 0;
9547 dXSARGS;
9548
9549 if ((items < 2) || (items > 2)) {
9550 SWIG_croak("Usage: gsl_multifit_robust_workspace_dpsi_set(self,dpsi);");
9551 }
9552 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9553 if (!SWIG_IsOK(res1)) {
9554 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_dpsi_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9555 }
9556 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9557 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
9558 if (!SWIG_IsOK(res2)) {
9559 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_dpsi_set" "', argument " "2"" of type '" "gsl_vector *""'");
9560 }
9561 arg2 = (gsl_vector *)(argp2);
9562 if (arg1) (arg1)->dpsi = arg2;
9563 ST(argvi) = &PL_sv_undef;
9564
9565
9566 XSRETURN(argvi);
9567 fail:
9568
9569
9570 SWIG_croak_null();
9571 }
9572 }
9573
9574
XS(_wrap_gsl_multifit_robust_workspace_dpsi_get)9575 XS(_wrap_gsl_multifit_robust_workspace_dpsi_get) {
9576 {
9577 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9578 void *argp1 = 0 ;
9579 int res1 = 0 ;
9580 int argvi = 0;
9581 gsl_vector *result = 0 ;
9582 dXSARGS;
9583
9584 if ((items < 1) || (items > 1)) {
9585 SWIG_croak("Usage: gsl_multifit_robust_workspace_dpsi_get(self);");
9586 }
9587 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9588 if (!SWIG_IsOK(res1)) {
9589 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_dpsi_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9590 }
9591 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9592 result = (gsl_vector *) ((arg1)->dpsi);
9593 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
9594
9595 XSRETURN(argvi);
9596 fail:
9597
9598 SWIG_croak_null();
9599 }
9600 }
9601
9602
XS(_wrap_gsl_multifit_robust_workspace_QSI_set)9603 XS(_wrap_gsl_multifit_robust_workspace_QSI_set) {
9604 {
9605 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9606 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
9607 void *argp1 = 0 ;
9608 int res1 = 0 ;
9609 void *argp2 = 0 ;
9610 int res2 = 0 ;
9611 int argvi = 0;
9612 dXSARGS;
9613
9614 if ((items < 2) || (items > 2)) {
9615 SWIG_croak("Usage: gsl_multifit_robust_workspace_QSI_set(self,QSI);");
9616 }
9617 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9618 if (!SWIG_IsOK(res1)) {
9619 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_QSI_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9620 }
9621 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9622 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, SWIG_POINTER_DISOWN | 0 );
9623 if (!SWIG_IsOK(res2)) {
9624 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_QSI_set" "', argument " "2"" of type '" "gsl_matrix *""'");
9625 }
9626 arg2 = (gsl_matrix *)(argp2);
9627 if (arg1) (arg1)->QSI = arg2;
9628 ST(argvi) = &PL_sv_undef;
9629
9630
9631 XSRETURN(argvi);
9632 fail:
9633
9634
9635 SWIG_croak_null();
9636 }
9637 }
9638
9639
XS(_wrap_gsl_multifit_robust_workspace_QSI_get)9640 XS(_wrap_gsl_multifit_robust_workspace_QSI_get) {
9641 {
9642 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9643 void *argp1 = 0 ;
9644 int res1 = 0 ;
9645 int argvi = 0;
9646 gsl_matrix *result = 0 ;
9647 dXSARGS;
9648
9649 if ((items < 1) || (items > 1)) {
9650 SWIG_croak("Usage: gsl_multifit_robust_workspace_QSI_get(self);");
9651 }
9652 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9653 if (!SWIG_IsOK(res1)) {
9654 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_QSI_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9655 }
9656 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9657 result = (gsl_matrix *) ((arg1)->QSI);
9658 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_matrix, 0 | 0); argvi++ ;
9659
9660 XSRETURN(argvi);
9661 fail:
9662
9663 SWIG_croak_null();
9664 }
9665 }
9666
9667
XS(_wrap_gsl_multifit_robust_workspace_D_set)9668 XS(_wrap_gsl_multifit_robust_workspace_D_set) {
9669 {
9670 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9671 gsl_vector *arg2 = (gsl_vector *) 0 ;
9672 void *argp1 = 0 ;
9673 int res1 = 0 ;
9674 void *argp2 = 0 ;
9675 int res2 = 0 ;
9676 int argvi = 0;
9677 dXSARGS;
9678
9679 if ((items < 2) || (items > 2)) {
9680 SWIG_croak("Usage: gsl_multifit_robust_workspace_D_set(self,D);");
9681 }
9682 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9683 if (!SWIG_IsOK(res1)) {
9684 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_D_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9685 }
9686 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9687 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
9688 if (!SWIG_IsOK(res2)) {
9689 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_D_set" "', argument " "2"" of type '" "gsl_vector *""'");
9690 }
9691 arg2 = (gsl_vector *)(argp2);
9692 if (arg1) (arg1)->D = arg2;
9693 ST(argvi) = &PL_sv_undef;
9694
9695
9696 XSRETURN(argvi);
9697 fail:
9698
9699
9700 SWIG_croak_null();
9701 }
9702 }
9703
9704
XS(_wrap_gsl_multifit_robust_workspace_D_get)9705 XS(_wrap_gsl_multifit_robust_workspace_D_get) {
9706 {
9707 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9708 void *argp1 = 0 ;
9709 int res1 = 0 ;
9710 int argvi = 0;
9711 gsl_vector *result = 0 ;
9712 dXSARGS;
9713
9714 if ((items < 1) || (items > 1)) {
9715 SWIG_croak("Usage: gsl_multifit_robust_workspace_D_get(self);");
9716 }
9717 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9718 if (!SWIG_IsOK(res1)) {
9719 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_D_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9720 }
9721 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9722 result = (gsl_vector *) ((arg1)->D);
9723 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
9724
9725 XSRETURN(argvi);
9726 fail:
9727
9728 SWIG_croak_null();
9729 }
9730 }
9731
9732
XS(_wrap_gsl_multifit_robust_workspace_workn_set)9733 XS(_wrap_gsl_multifit_robust_workspace_workn_set) {
9734 {
9735 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9736 gsl_vector *arg2 = (gsl_vector *) 0 ;
9737 void *argp1 = 0 ;
9738 int res1 = 0 ;
9739 void *argp2 = 0 ;
9740 int res2 = 0 ;
9741 int argvi = 0;
9742 dXSARGS;
9743
9744 if ((items < 2) || (items > 2)) {
9745 SWIG_croak("Usage: gsl_multifit_robust_workspace_workn_set(self,workn);");
9746 }
9747 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9748 if (!SWIG_IsOK(res1)) {
9749 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_workn_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9750 }
9751 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9752 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
9753 if (!SWIG_IsOK(res2)) {
9754 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_workn_set" "', argument " "2"" of type '" "gsl_vector *""'");
9755 }
9756 arg2 = (gsl_vector *)(argp2);
9757 if (arg1) (arg1)->workn = arg2;
9758 ST(argvi) = &PL_sv_undef;
9759
9760
9761 XSRETURN(argvi);
9762 fail:
9763
9764
9765 SWIG_croak_null();
9766 }
9767 }
9768
9769
XS(_wrap_gsl_multifit_robust_workspace_workn_get)9770 XS(_wrap_gsl_multifit_robust_workspace_workn_get) {
9771 {
9772 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9773 void *argp1 = 0 ;
9774 int res1 = 0 ;
9775 int argvi = 0;
9776 gsl_vector *result = 0 ;
9777 dXSARGS;
9778
9779 if ((items < 1) || (items > 1)) {
9780 SWIG_croak("Usage: gsl_multifit_robust_workspace_workn_get(self);");
9781 }
9782 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9783 if (!SWIG_IsOK(res1)) {
9784 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_workn_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9785 }
9786 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9787 result = (gsl_vector *) ((arg1)->workn);
9788 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
9789
9790 XSRETURN(argvi);
9791 fail:
9792
9793 SWIG_croak_null();
9794 }
9795 }
9796
9797
XS(_wrap_gsl_multifit_robust_workspace_stats_set)9798 XS(_wrap_gsl_multifit_robust_workspace_stats_set) {
9799 {
9800 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9801 gsl_multifit_robust_stats *arg2 = (gsl_multifit_robust_stats *) 0 ;
9802 void *argp1 = 0 ;
9803 int res1 = 0 ;
9804 void *argp2 = 0 ;
9805 int res2 = 0 ;
9806 int argvi = 0;
9807 dXSARGS;
9808
9809 if ((items < 2) || (items > 2)) {
9810 SWIG_croak("Usage: gsl_multifit_robust_workspace_stats_set(self,stats);");
9811 }
9812 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9813 if (!SWIG_IsOK(res1)) {
9814 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_stats_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9815 }
9816 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9817 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_robust_stats, 0 | 0 );
9818 if (!SWIG_IsOK(res2)) {
9819 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_stats_set" "', argument " "2"" of type '" "gsl_multifit_robust_stats *""'");
9820 }
9821 arg2 = (gsl_multifit_robust_stats *)(argp2);
9822 if (arg1) (arg1)->stats = *arg2;
9823 ST(argvi) = &PL_sv_undef;
9824
9825
9826 XSRETURN(argvi);
9827 fail:
9828
9829
9830 SWIG_croak_null();
9831 }
9832 }
9833
9834
XS(_wrap_gsl_multifit_robust_workspace_stats_get)9835 XS(_wrap_gsl_multifit_robust_workspace_stats_get) {
9836 {
9837 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9838 void *argp1 = 0 ;
9839 int res1 = 0 ;
9840 int argvi = 0;
9841 gsl_multifit_robust_stats *result = 0 ;
9842 dXSARGS;
9843
9844 if ((items < 1) || (items > 1)) {
9845 SWIG_croak("Usage: gsl_multifit_robust_workspace_stats_get(self);");
9846 }
9847 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9848 if (!SWIG_IsOK(res1)) {
9849 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_stats_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9850 }
9851 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9852 result = (gsl_multifit_robust_stats *)& ((arg1)->stats);
9853 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_robust_stats, 0 | SWIG_SHADOW); argvi++ ;
9854
9855 XSRETURN(argvi);
9856 fail:
9857
9858 SWIG_croak_null();
9859 }
9860 }
9861
9862
XS(_wrap_gsl_multifit_robust_workspace_multifit_p_set)9863 XS(_wrap_gsl_multifit_robust_workspace_multifit_p_set) {
9864 {
9865 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9866 gsl_multifit_linear_workspace *arg2 = (gsl_multifit_linear_workspace *) 0 ;
9867 void *argp1 = 0 ;
9868 int res1 = 0 ;
9869 void *argp2 = 0 ;
9870 int res2 = 0 ;
9871 int argvi = 0;
9872 dXSARGS;
9873
9874 if ((items < 2) || (items > 2)) {
9875 SWIG_croak("Usage: gsl_multifit_robust_workspace_multifit_p_set(self,multifit_p);");
9876 }
9877 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9878 if (!SWIG_IsOK(res1)) {
9879 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_multifit_p_set" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9880 }
9881 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9882 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_linear_workspace, SWIG_POINTER_DISOWN | 0 );
9883 if (!SWIG_IsOK(res2)) {
9884 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_workspace_multifit_p_set" "', argument " "2"" of type '" "gsl_multifit_linear_workspace *""'");
9885 }
9886 arg2 = (gsl_multifit_linear_workspace *)(argp2);
9887 if (arg1) (arg1)->multifit_p = arg2;
9888 ST(argvi) = &PL_sv_undef;
9889
9890
9891 XSRETURN(argvi);
9892 fail:
9893
9894
9895 SWIG_croak_null();
9896 }
9897 }
9898
9899
XS(_wrap_gsl_multifit_robust_workspace_multifit_p_get)9900 XS(_wrap_gsl_multifit_robust_workspace_multifit_p_get) {
9901 {
9902 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9903 void *argp1 = 0 ;
9904 int res1 = 0 ;
9905 int argvi = 0;
9906 gsl_multifit_linear_workspace *result = 0 ;
9907 dXSARGS;
9908
9909 if ((items < 1) || (items > 1)) {
9910 SWIG_croak("Usage: gsl_multifit_robust_workspace_multifit_p_get(self);");
9911 }
9912 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
9913 if (!SWIG_IsOK(res1)) {
9914 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_workspace_multifit_p_get" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9915 }
9916 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9917 result = (gsl_multifit_linear_workspace *) ((arg1)->multifit_p);
9918 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_linear_workspace, 0 | SWIG_SHADOW); argvi++ ;
9919
9920 XSRETURN(argvi);
9921 fail:
9922
9923 SWIG_croak_null();
9924 }
9925 }
9926
9927
XS(_wrap_new_gsl_multifit_robust_workspace)9928 XS(_wrap_new_gsl_multifit_robust_workspace) {
9929 {
9930 int argvi = 0;
9931 gsl_multifit_robust_workspace *result = 0 ;
9932 dXSARGS;
9933
9934 if ((items < 0) || (items > 0)) {
9935 SWIG_croak("Usage: new_gsl_multifit_robust_workspace();");
9936 }
9937 result = (gsl_multifit_robust_workspace *)calloc(1, sizeof(gsl_multifit_robust_workspace));
9938 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_robust_workspace, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
9939 XSRETURN(argvi);
9940 fail:
9941 SWIG_croak_null();
9942 }
9943 }
9944
9945
XS(_wrap_delete_gsl_multifit_robust_workspace)9946 XS(_wrap_delete_gsl_multifit_robust_workspace) {
9947 {
9948 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
9949 void *argp1 = 0 ;
9950 int res1 = 0 ;
9951 int argvi = 0;
9952 dXSARGS;
9953
9954 if ((items < 1) || (items > 1)) {
9955 SWIG_croak("Usage: delete_gsl_multifit_robust_workspace(self);");
9956 }
9957 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, SWIG_POINTER_DISOWN | 0 );
9958 if (!SWIG_IsOK(res1)) {
9959 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_multifit_robust_workspace" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
9960 }
9961 arg1 = (gsl_multifit_robust_workspace *)(argp1);
9962 free((char *) arg1);
9963 ST(argvi) = &PL_sv_undef;
9964
9965 XSRETURN(argvi);
9966 fail:
9967
9968 SWIG_croak_null();
9969 }
9970 }
9971
9972
XS(_wrap_gsl_multifit_robust_alloc)9973 XS(_wrap_gsl_multifit_robust_alloc) {
9974 {
9975 gsl_multifit_robust_type *arg1 = (gsl_multifit_robust_type *) 0 ;
9976 size_t arg2 ;
9977 size_t arg3 ;
9978 void *argp1 = 0 ;
9979 int res1 = 0 ;
9980 size_t val2 ;
9981 int ecode2 = 0 ;
9982 size_t val3 ;
9983 int ecode3 = 0 ;
9984 int argvi = 0;
9985 gsl_multifit_robust_workspace *result = 0 ;
9986 dXSARGS;
9987
9988 if ((items < 3) || (items > 3)) {
9989 SWIG_croak("Usage: gsl_multifit_robust_alloc(T,n,p);");
9990 }
9991 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_type, 0 | 0 );
9992 if (!SWIG_IsOK(res1)) {
9993 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_alloc" "', argument " "1"" of type '" "gsl_multifit_robust_type const *""'");
9994 }
9995 arg1 = (gsl_multifit_robust_type *)(argp1);
9996 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
9997 if (!SWIG_IsOK(ecode2)) {
9998 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_robust_alloc" "', argument " "2"" of type '" "size_t""'");
9999 }
10000 arg2 = (size_t)(val2);
10001 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
10002 if (!SWIG_IsOK(ecode3)) {
10003 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_multifit_robust_alloc" "', argument " "3"" of type '" "size_t""'");
10004 }
10005 arg3 = (size_t)(val3);
10006 result = (gsl_multifit_robust_workspace *)gsl_multifit_robust_alloc((gsl_multifit_robust_type const *)arg1,arg2,arg3);
10007 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | SWIG_SHADOW); argvi++ ;
10008
10009
10010
10011 XSRETURN(argvi);
10012 fail:
10013
10014
10015
10016 SWIG_croak_null();
10017 }
10018 }
10019
10020
XS(_wrap_gsl_multifit_robust_free)10021 XS(_wrap_gsl_multifit_robust_free) {
10022 {
10023 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
10024 void *argp1 = 0 ;
10025 int res1 = 0 ;
10026 int argvi = 0;
10027 dXSARGS;
10028
10029 if ((items < 1) || (items > 1)) {
10030 SWIG_croak("Usage: gsl_multifit_robust_free(w);");
10031 }
10032 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
10033 if (!SWIG_IsOK(res1)) {
10034 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_free" "', argument " "1"" of type '" "gsl_multifit_robust_workspace *""'");
10035 }
10036 arg1 = (gsl_multifit_robust_workspace *)(argp1);
10037 gsl_multifit_robust_free(arg1);
10038 ST(argvi) = &PL_sv_undef;
10039
10040 XSRETURN(argvi);
10041 fail:
10042
10043 SWIG_croak_null();
10044 }
10045 }
10046
10047
XS(_wrap_gsl_multifit_robust_tune)10048 XS(_wrap_gsl_multifit_robust_tune) {
10049 {
10050 double arg1 ;
10051 gsl_multifit_robust_workspace *arg2 = (gsl_multifit_robust_workspace *) 0 ;
10052 double val1 ;
10053 int ecode1 = 0 ;
10054 void *argp2 = 0 ;
10055 int res2 = 0 ;
10056 int argvi = 0;
10057 int result;
10058 dXSARGS;
10059
10060 if ((items < 2) || (items > 2)) {
10061 SWIG_croak("Usage: gsl_multifit_robust_tune(tune,w);");
10062 }
10063 ecode1 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10064 if (!SWIG_IsOK(ecode1)) {
10065 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_multifit_robust_tune" "', argument " "1"" of type '" "double""'");
10066 }
10067 arg1 = (double)(val1);
10068 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
10069 if (!SWIG_IsOK(res2)) {
10070 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_tune" "', argument " "2"" of type '" "gsl_multifit_robust_workspace *""'");
10071 }
10072 arg2 = (gsl_multifit_robust_workspace *)(argp2);
10073 result = (int)gsl_multifit_robust_tune(arg1,arg2);
10074 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10075
10076
10077 XSRETURN(argvi);
10078 fail:
10079
10080
10081 SWIG_croak_null();
10082 }
10083 }
10084
10085
XS(_wrap_gsl_multifit_robust_maxiter)10086 XS(_wrap_gsl_multifit_robust_maxiter) {
10087 {
10088 size_t arg1 ;
10089 gsl_multifit_robust_workspace *arg2 = (gsl_multifit_robust_workspace *) 0 ;
10090 size_t val1 ;
10091 int ecode1 = 0 ;
10092 void *argp2 = 0 ;
10093 int res2 = 0 ;
10094 int argvi = 0;
10095 int result;
10096 dXSARGS;
10097
10098 if ((items < 2) || (items > 2)) {
10099 SWIG_croak("Usage: gsl_multifit_robust_maxiter(maxiter,w);");
10100 }
10101 ecode1 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(0), &val1);
10102 if (!SWIG_IsOK(ecode1)) {
10103 SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "gsl_multifit_robust_maxiter" "', argument " "1"" of type '" "size_t""'");
10104 }
10105 arg1 = (size_t)(val1);
10106 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
10107 if (!SWIG_IsOK(res2)) {
10108 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_maxiter" "', argument " "2"" of type '" "gsl_multifit_robust_workspace *""'");
10109 }
10110 arg2 = (gsl_multifit_robust_workspace *)(argp2);
10111 result = (int)gsl_multifit_robust_maxiter(arg1,arg2);
10112 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10113
10114
10115 XSRETURN(argvi);
10116 fail:
10117
10118
10119 SWIG_croak_null();
10120 }
10121 }
10122
10123
XS(_wrap_gsl_multifit_robust_name)10124 XS(_wrap_gsl_multifit_robust_name) {
10125 {
10126 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
10127 void *argp1 = 0 ;
10128 int res1 = 0 ;
10129 int argvi = 0;
10130 char *result = 0 ;
10131 dXSARGS;
10132
10133 if ((items < 1) || (items > 1)) {
10134 SWIG_croak("Usage: gsl_multifit_robust_name(w);");
10135 }
10136 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
10137 if (!SWIG_IsOK(res1)) {
10138 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_name" "', argument " "1"" of type '" "gsl_multifit_robust_workspace const *""'");
10139 }
10140 arg1 = (gsl_multifit_robust_workspace *)(argp1);
10141 result = (char *)gsl_multifit_robust_name((gsl_multifit_robust_workspace const *)arg1);
10142 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
10143
10144 XSRETURN(argvi);
10145 fail:
10146
10147 SWIG_croak_null();
10148 }
10149 }
10150
10151
XS(_wrap_gsl_multifit_robust_statistics)10152 XS(_wrap_gsl_multifit_robust_statistics) {
10153 {
10154 gsl_multifit_robust_workspace *arg1 = (gsl_multifit_robust_workspace *) 0 ;
10155 void *argp1 = 0 ;
10156 int res1 = 0 ;
10157 int argvi = 0;
10158 gsl_multifit_robust_stats result;
10159 dXSARGS;
10160
10161 if ((items < 1) || (items > 1)) {
10162 SWIG_croak("Usage: gsl_multifit_robust_statistics(w);");
10163 }
10164 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
10165 if (!SWIG_IsOK(res1)) {
10166 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_statistics" "', argument " "1"" of type '" "gsl_multifit_robust_workspace const *""'");
10167 }
10168 arg1 = (gsl_multifit_robust_workspace *)(argp1);
10169 result = gsl_multifit_robust_statistics((gsl_multifit_robust_workspace const *)arg1);
10170 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++ ;
10171
10172 XSRETURN(argvi);
10173 fail:
10174
10175 SWIG_croak_null();
10176 }
10177 }
10178
10179
XS(_wrap_gsl_multifit_robust_weights)10180 XS(_wrap_gsl_multifit_robust_weights) {
10181 {
10182 gsl_vector *arg1 = (gsl_vector *) 0 ;
10183 gsl_vector *arg2 = (gsl_vector *) 0 ;
10184 gsl_multifit_robust_workspace *arg3 = (gsl_multifit_robust_workspace *) 0 ;
10185 void *argp1 = 0 ;
10186 int res1 = 0 ;
10187 void *argp2 = 0 ;
10188 int res2 = 0 ;
10189 void *argp3 = 0 ;
10190 int res3 = 0 ;
10191 int argvi = 0;
10192 int result;
10193 dXSARGS;
10194
10195 if ((items < 3) || (items > 3)) {
10196 SWIG_croak("Usage: gsl_multifit_robust_weights(r,wts,w);");
10197 }
10198 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
10199 if (!SWIG_IsOK(res1)) {
10200 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_weights" "', argument " "1"" of type '" "gsl_vector const *""'");
10201 }
10202 arg1 = (gsl_vector *)(argp1);
10203 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10204 if (!SWIG_IsOK(res2)) {
10205 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_weights" "', argument " "2"" of type '" "gsl_vector *""'");
10206 }
10207 arg2 = (gsl_vector *)(argp2);
10208 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
10209 if (!SWIG_IsOK(res3)) {
10210 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_robust_weights" "', argument " "3"" of type '" "gsl_multifit_robust_workspace *""'");
10211 }
10212 arg3 = (gsl_multifit_robust_workspace *)(argp3);
10213 result = (int)gsl_multifit_robust_weights((gsl_vector const *)arg1,arg2,arg3);
10214 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10215
10216
10217
10218 XSRETURN(argvi);
10219 fail:
10220
10221
10222
10223 SWIG_croak_null();
10224 }
10225 }
10226
10227
XS(_wrap_gsl_multifit_robust)10228 XS(_wrap_gsl_multifit_robust) {
10229 {
10230 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10231 gsl_vector *arg2 = (gsl_vector *) 0 ;
10232 gsl_vector *arg3 = (gsl_vector *) 0 ;
10233 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
10234 gsl_multifit_robust_workspace *arg5 = (gsl_multifit_robust_workspace *) 0 ;
10235 void *argp1 = 0 ;
10236 int res1 = 0 ;
10237 void *argp2 = 0 ;
10238 int res2 = 0 ;
10239 void *argp3 = 0 ;
10240 int res3 = 0 ;
10241 void *argp4 = 0 ;
10242 int res4 = 0 ;
10243 void *argp5 = 0 ;
10244 int res5 = 0 ;
10245 int argvi = 0;
10246 int result;
10247 dXSARGS;
10248
10249 if ((items < 5) || (items > 5)) {
10250 SWIG_croak("Usage: gsl_multifit_robust(X,y,c,cov,w);");
10251 }
10252 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10253 if (!SWIG_IsOK(res1)) {
10254 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust" "', argument " "1"" of type '" "gsl_matrix const *""'");
10255 }
10256 arg1 = (gsl_matrix *)(argp1);
10257 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10258 if (!SWIG_IsOK(res2)) {
10259 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust" "', argument " "2"" of type '" "gsl_vector const *""'");
10260 }
10261 arg2 = (gsl_vector *)(argp2);
10262 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
10263 if (!SWIG_IsOK(res3)) {
10264 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_robust" "', argument " "3"" of type '" "gsl_vector *""'");
10265 }
10266 arg3 = (gsl_vector *)(argp3);
10267 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10268 if (!SWIG_IsOK(res4)) {
10269 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_robust" "', argument " "4"" of type '" "gsl_matrix *""'");
10270 }
10271 arg4 = (gsl_matrix *)(argp4);
10272 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
10273 if (!SWIG_IsOK(res5)) {
10274 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_robust" "', argument " "5"" of type '" "gsl_multifit_robust_workspace *""'");
10275 }
10276 arg5 = (gsl_multifit_robust_workspace *)(argp5);
10277 result = (int)gsl_multifit_robust((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3,arg4,arg5);
10278 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10279
10280
10281
10282
10283
10284 XSRETURN(argvi);
10285 fail:
10286
10287
10288
10289
10290
10291 SWIG_croak_null();
10292 }
10293 }
10294
10295
XS(_wrap_gsl_multifit_robust_est)10296 XS(_wrap_gsl_multifit_robust_est) {
10297 {
10298 gsl_vector *arg1 = (gsl_vector *) 0 ;
10299 gsl_vector *arg2 = (gsl_vector *) 0 ;
10300 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
10301 double *arg4 = (double *) 0 ;
10302 double *arg5 = (double *) 0 ;
10303 void *argp1 = 0 ;
10304 int res1 = 0 ;
10305 void *argp2 = 0 ;
10306 int res2 = 0 ;
10307 void *argp3 = 0 ;
10308 int res3 = 0 ;
10309 double temp4 ;
10310 int res4 = SWIG_TMPOBJ ;
10311 double temp5 ;
10312 int res5 = SWIG_TMPOBJ ;
10313 int argvi = 0;
10314 int result;
10315 dXSARGS;
10316
10317 arg4 = &temp4;
10318 arg5 = &temp5;
10319 if ((items < 3) || (items > 3)) {
10320 SWIG_croak("Usage: gsl_multifit_robust_est(x,c,cov);");
10321 }
10322 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
10323 if (!SWIG_IsOK(res1)) {
10324 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_est" "', argument " "1"" of type '" "gsl_vector const *""'");
10325 }
10326 arg1 = (gsl_vector *)(argp1);
10327 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10328 if (!SWIG_IsOK(res2)) {
10329 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_est" "', argument " "2"" of type '" "gsl_vector const *""'");
10330 }
10331 arg2 = (gsl_vector *)(argp2);
10332 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10333 if (!SWIG_IsOK(res3)) {
10334 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_robust_est" "', argument " "3"" of type '" "gsl_matrix const *""'");
10335 }
10336 arg3 = (gsl_matrix *)(argp3);
10337 result = (int)gsl_multifit_robust_est((gsl_vector const *)arg1,(gsl_vector const *)arg2,(gsl_matrix const *)arg3,arg4,arg5);
10338 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10339 if (SWIG_IsTmpObj(res4)) {
10340 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg4)); argvi++ ;
10341 } else {
10342 int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN | 0) : 0;
10343 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags); argvi++ ;
10344 }
10345 if (SWIG_IsTmpObj(res5)) {
10346 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((*arg5)); argvi++ ;
10347 } else {
10348 int new_flags = SWIG_IsNewObj(res5) ? (SWIG_POINTER_OWN | 0) : 0;
10349 if (argvi >= items) EXTEND(sp, argvi+1); ST(argvi) = SWIG_NewPointerObj((void*)(arg5), SWIGTYPE_p_double, new_flags); argvi++ ;
10350 }
10351
10352
10353
10354
10355
10356 XSRETURN(argvi);
10357 fail:
10358
10359
10360
10361
10362
10363 SWIG_croak_null();
10364 }
10365 }
10366
10367
XS(_wrap_gsl_multifit_robust_residuals)10368 XS(_wrap_gsl_multifit_robust_residuals) {
10369 {
10370 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10371 gsl_vector *arg2 = (gsl_vector *) 0 ;
10372 gsl_vector *arg3 = (gsl_vector *) 0 ;
10373 gsl_vector *arg4 = (gsl_vector *) 0 ;
10374 gsl_multifit_robust_workspace *arg5 = (gsl_multifit_robust_workspace *) 0 ;
10375 void *argp1 = 0 ;
10376 int res1 = 0 ;
10377 void *argp2 = 0 ;
10378 int res2 = 0 ;
10379 void *argp3 = 0 ;
10380 int res3 = 0 ;
10381 void *argp4 = 0 ;
10382 int res4 = 0 ;
10383 void *argp5 = 0 ;
10384 int res5 = 0 ;
10385 int argvi = 0;
10386 int result;
10387 dXSARGS;
10388
10389 if ((items < 5) || (items > 5)) {
10390 SWIG_croak("Usage: gsl_multifit_robust_residuals(X,y,c,r,w);");
10391 }
10392 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10393 if (!SWIG_IsOK(res1)) {
10394 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_robust_residuals" "', argument " "1"" of type '" "gsl_matrix const *""'");
10395 }
10396 arg1 = (gsl_matrix *)(argp1);
10397 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10398 if (!SWIG_IsOK(res2)) {
10399 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_robust_residuals" "', argument " "2"" of type '" "gsl_vector const *""'");
10400 }
10401 arg2 = (gsl_vector *)(argp2);
10402 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
10403 if (!SWIG_IsOK(res3)) {
10404 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_robust_residuals" "', argument " "3"" of type '" "gsl_vector const *""'");
10405 }
10406 arg3 = (gsl_vector *)(argp3);
10407 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
10408 if (!SWIG_IsOK(res4)) {
10409 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_robust_residuals" "', argument " "4"" of type '" "gsl_vector *""'");
10410 }
10411 arg4 = (gsl_vector *)(argp4);
10412 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_multifit_robust_workspace, 0 | 0 );
10413 if (!SWIG_IsOK(res5)) {
10414 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_robust_residuals" "', argument " "5"" of type '" "gsl_multifit_robust_workspace *""'");
10415 }
10416 arg5 = (gsl_multifit_robust_workspace *)(argp5);
10417 result = (int)gsl_multifit_robust_residuals((gsl_matrix const *)arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4,arg5);
10418 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10419
10420
10421
10422
10423
10424 XSRETURN(argvi);
10425 fail:
10426
10427
10428
10429
10430
10431 SWIG_croak_null();
10432 }
10433 }
10434
10435
XS(_wrap_gsl_multifit_gradient)10436 XS(_wrap_gsl_multifit_gradient) {
10437 {
10438 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10439 gsl_vector *arg2 = (gsl_vector *) 0 ;
10440 gsl_vector *arg3 = (gsl_vector *) 0 ;
10441 void *argp1 = 0 ;
10442 int res1 = 0 ;
10443 void *argp2 = 0 ;
10444 int res2 = 0 ;
10445 void *argp3 = 0 ;
10446 int res3 = 0 ;
10447 int argvi = 0;
10448 int result;
10449 dXSARGS;
10450
10451 if ((items < 3) || (items > 3)) {
10452 SWIG_croak("Usage: gsl_multifit_gradient(J,f,g);");
10453 }
10454 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10455 if (!SWIG_IsOK(res1)) {
10456 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_gradient" "', argument " "1"" of type '" "gsl_matrix const *""'");
10457 }
10458 arg1 = (gsl_matrix *)(argp1);
10459 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
10460 if (!SWIG_IsOK(res2)) {
10461 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_gradient" "', argument " "2"" of type '" "gsl_vector const *""'");
10462 }
10463 arg2 = (gsl_vector *)(argp2);
10464 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
10465 if (!SWIG_IsOK(res3)) {
10466 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_gradient" "', argument " "3"" of type '" "gsl_vector *""'");
10467 }
10468 arg3 = (gsl_vector *)(argp3);
10469 result = (int)gsl_multifit_gradient((gsl_matrix const *)arg1,(gsl_vector const *)arg2,arg3);
10470 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10471
10472
10473
10474 XSRETURN(argvi);
10475 fail:
10476
10477
10478
10479 SWIG_croak_null();
10480 }
10481 }
10482
10483
XS(_wrap_gsl_multifit_covar)10484 XS(_wrap_gsl_multifit_covar) {
10485 {
10486 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10487 double arg2 ;
10488 gsl_matrix *arg3 = (gsl_matrix *) 0 ;
10489 void *argp1 = 0 ;
10490 int res1 = 0 ;
10491 double val2 ;
10492 int ecode2 = 0 ;
10493 void *argp3 = 0 ;
10494 int res3 = 0 ;
10495 int argvi = 0;
10496 int result;
10497 dXSARGS;
10498
10499 if ((items < 3) || (items > 3)) {
10500 SWIG_croak("Usage: gsl_multifit_covar(J,epsrel,covar);");
10501 }
10502 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10503 if (!SWIG_IsOK(res1)) {
10504 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_covar" "', argument " "1"" of type '" "gsl_matrix const *""'");
10505 }
10506 arg1 = (gsl_matrix *)(argp1);
10507 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10508 if (!SWIG_IsOK(ecode2)) {
10509 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_covar" "', argument " "2"" of type '" "double""'");
10510 }
10511 arg2 = (double)(val2);
10512 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10513 if (!SWIG_IsOK(res3)) {
10514 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_covar" "', argument " "3"" of type '" "gsl_matrix *""'");
10515 }
10516 arg3 = (gsl_matrix *)(argp3);
10517 result = (int)gsl_multifit_covar((gsl_matrix const *)arg1,arg2,arg3);
10518 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10519
10520
10521
10522 XSRETURN(argvi);
10523 fail:
10524
10525
10526
10527 SWIG_croak_null();
10528 }
10529 }
10530
10531
XS(_wrap_gsl_multifit_covar_QRPT)10532 XS(_wrap_gsl_multifit_covar_QRPT) {
10533 {
10534 gsl_matrix *arg1 = (gsl_matrix *) 0 ;
10535 gsl_permutation *arg2 = (gsl_permutation *) 0 ;
10536 double arg3 ;
10537 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
10538 void *argp1 = 0 ;
10539 int res1 = 0 ;
10540 void *argp2 = 0 ;
10541 int res2 = 0 ;
10542 double val3 ;
10543 int ecode3 = 0 ;
10544 void *argp4 = 0 ;
10545 int res4 = 0 ;
10546 int argvi = 0;
10547 int result;
10548 dXSARGS;
10549
10550 if ((items < 4) || (items > 4)) {
10551 SWIG_croak("Usage: gsl_multifit_covar_QRPT(r,perm,epsrel,covar);");
10552 }
10553 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10554 if (!SWIG_IsOK(res1)) {
10555 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_covar_QRPT" "', argument " "1"" of type '" "gsl_matrix *""'");
10556 }
10557 arg1 = (gsl_matrix *)(argp1);
10558 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_permutation_struct, 0 | 0 );
10559 if (!SWIG_IsOK(res2)) {
10560 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_covar_QRPT" "', argument " "2"" of type '" "gsl_permutation *""'");
10561 }
10562 arg2 = (gsl_permutation *)(argp2);
10563 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
10564 if (!SWIG_IsOK(ecode3)) {
10565 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_multifit_covar_QRPT" "', argument " "3"" of type '" "double""'");
10566 }
10567 arg3 = (double)(val3);
10568 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
10569 if (!SWIG_IsOK(res4)) {
10570 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_covar_QRPT" "', argument " "4"" of type '" "gsl_matrix *""'");
10571 }
10572 arg4 = (gsl_matrix *)(argp4);
10573 result = (int)gsl_multifit_covar_QRPT(arg1,arg2,arg3,arg4);
10574 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
10575
10576
10577
10578
10579 XSRETURN(argvi);
10580 fail:
10581
10582
10583
10584
10585 SWIG_croak_null();
10586 }
10587 }
10588
10589
XS(_wrap_gsl_multifit_function_struct_f_set)10590 XS(_wrap_gsl_multifit_function_struct_f_set) {
10591 {
10592 struct gsl_multifit_function_struct *arg1 = (struct gsl_multifit_function_struct *) 0 ;
10593 int (*arg2)(gsl_vector const *,void *,gsl_vector *) = (int (*)(gsl_vector const *,void *,gsl_vector *)) 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_multifit_function_struct_f_set(self,f);");
10601 }
10602 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_function_struct, 0 | 0 );
10603 if (!SWIG_IsOK(res1)) {
10604 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_function_struct_f_set" "', argument " "1"" of type '" "struct gsl_multifit_function_struct *""'");
10605 }
10606 arg1 = (struct gsl_multifit_function_struct *)(argp1);
10607 {
10608 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_q_const__gsl_vector_p_void_p_gsl_vector__int);
10609 if (!SWIG_IsOK(res)) {
10610 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multifit_function_struct_f_set" "', argument " "2"" of type '" "int (*)(gsl_vector const *,void *,gsl_vector *)""'");
10611 }
10612 }
10613 if (arg1) (arg1)->f = 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_multifit_function_struct_f_get)10626 XS(_wrap_gsl_multifit_function_struct_f_get) {
10627 {
10628 struct gsl_multifit_function_struct *arg1 = (struct gsl_multifit_function_struct *) 0 ;
10629 void *argp1 = 0 ;
10630 int res1 = 0 ;
10631 int argvi = 0;
10632 int (*result)(gsl_vector const *,void *,gsl_vector *) = 0 ;
10633 dXSARGS;
10634
10635 if ((items < 1) || (items > 1)) {
10636 SWIG_croak("Usage: gsl_multifit_function_struct_f_get(self);");
10637 }
10638 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_function_struct, 0 | 0 );
10639 if (!SWIG_IsOK(res1)) {
10640 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_function_struct_f_get" "', argument " "1"" of type '" "struct gsl_multifit_function_struct *""'");
10641 }
10642 arg1 = (struct gsl_multifit_function_struct *)(argp1);
10643 result = (int (*)(gsl_vector const *,void *,gsl_vector *)) ((arg1)->f);
10644 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__gsl_vector_p_void_p_gsl_vector__int); argvi++ ;
10645
10646 XSRETURN(argvi);
10647 fail:
10648
10649 SWIG_croak_null();
10650 }
10651 }
10652
10653
XS(_wrap_gsl_multifit_function_struct_n_set)10654 XS(_wrap_gsl_multifit_function_struct_n_set) {
10655 {
10656 struct gsl_multifit_function_struct *arg1 = (struct gsl_multifit_function_struct *) 0 ;
10657 size_t arg2 ;
10658 void *argp1 = 0 ;
10659 int res1 = 0 ;
10660 size_t val2 ;
10661 int ecode2 = 0 ;
10662 int argvi = 0;
10663 dXSARGS;
10664
10665 if ((items < 2) || (items > 2)) {
10666 SWIG_croak("Usage: gsl_multifit_function_struct_n_set(self,n);");
10667 }
10668 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_function_struct, 0 | 0 );
10669 if (!SWIG_IsOK(res1)) {
10670 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_function_struct_n_set" "', argument " "1"" of type '" "struct gsl_multifit_function_struct *""'");
10671 }
10672 arg1 = (struct gsl_multifit_function_struct *)(argp1);
10673 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10674 if (!SWIG_IsOK(ecode2)) {
10675 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_function_struct_n_set" "', argument " "2"" of type '" "size_t""'");
10676 }
10677 arg2 = (size_t)(val2);
10678 if (arg1) (arg1)->n = arg2;
10679 ST(argvi) = &PL_sv_undef;
10680
10681
10682 XSRETURN(argvi);
10683 fail:
10684
10685
10686 SWIG_croak_null();
10687 }
10688 }
10689
10690
XS(_wrap_gsl_multifit_function_struct_n_get)10691 XS(_wrap_gsl_multifit_function_struct_n_get) {
10692 {
10693 struct gsl_multifit_function_struct *arg1 = (struct gsl_multifit_function_struct *) 0 ;
10694 void *argp1 = 0 ;
10695 int res1 = 0 ;
10696 int argvi = 0;
10697 size_t result;
10698 dXSARGS;
10699
10700 if ((items < 1) || (items > 1)) {
10701 SWIG_croak("Usage: gsl_multifit_function_struct_n_get(self);");
10702 }
10703 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_function_struct, 0 | 0 );
10704 if (!SWIG_IsOK(res1)) {
10705 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_function_struct_n_get" "', argument " "1"" of type '" "struct gsl_multifit_function_struct *""'");
10706 }
10707 arg1 = (struct gsl_multifit_function_struct *)(argp1);
10708 result = ((arg1)->n);
10709 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
10710
10711 XSRETURN(argvi);
10712 fail:
10713
10714 SWIG_croak_null();
10715 }
10716 }
10717
10718
XS(_wrap_gsl_multifit_function_struct_p_set)10719 XS(_wrap_gsl_multifit_function_struct_p_set) {
10720 {
10721 struct gsl_multifit_function_struct *arg1 = (struct gsl_multifit_function_struct *) 0 ;
10722 size_t arg2 ;
10723 void *argp1 = 0 ;
10724 int res1 = 0 ;
10725 size_t val2 ;
10726 int ecode2 = 0 ;
10727 int argvi = 0;
10728 dXSARGS;
10729
10730 if ((items < 2) || (items > 2)) {
10731 SWIG_croak("Usage: gsl_multifit_function_struct_p_set(self,p);");
10732 }
10733 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_function_struct, 0 | 0 );
10734 if (!SWIG_IsOK(res1)) {
10735 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_function_struct_p_set" "', argument " "1"" of type '" "struct gsl_multifit_function_struct *""'");
10736 }
10737 arg1 = (struct gsl_multifit_function_struct *)(argp1);
10738 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10739 if (!SWIG_IsOK(ecode2)) {
10740 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_function_struct_p_set" "', argument " "2"" of type '" "size_t""'");
10741 }
10742 arg2 = (size_t)(val2);
10743 if (arg1) (arg1)->p = arg2;
10744 ST(argvi) = &PL_sv_undef;
10745
10746
10747 XSRETURN(argvi);
10748 fail:
10749
10750
10751 SWIG_croak_null();
10752 }
10753 }
10754
10755
XS(_wrap_gsl_multifit_function_struct_p_get)10756 XS(_wrap_gsl_multifit_function_struct_p_get) {
10757 {
10758 struct gsl_multifit_function_struct *arg1 = (struct gsl_multifit_function_struct *) 0 ;
10759 void *argp1 = 0 ;
10760 int res1 = 0 ;
10761 int argvi = 0;
10762 size_t result;
10763 dXSARGS;
10764
10765 if ((items < 1) || (items > 1)) {
10766 SWIG_croak("Usage: gsl_multifit_function_struct_p_get(self);");
10767 }
10768 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_function_struct, 0 | 0 );
10769 if (!SWIG_IsOK(res1)) {
10770 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_function_struct_p_get" "', argument " "1"" of type '" "struct gsl_multifit_function_struct *""'");
10771 }
10772 arg1 = (struct gsl_multifit_function_struct *)(argp1);
10773 result = ((arg1)->p);
10774 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
10775
10776 XSRETURN(argvi);
10777 fail:
10778
10779 SWIG_croak_null();
10780 }
10781 }
10782
10783
XS(_wrap_gsl_multifit_function_struct_params_set)10784 XS(_wrap_gsl_multifit_function_struct_params_set) {
10785 {
10786 struct gsl_multifit_function_struct *arg1 = (struct gsl_multifit_function_struct *) 0 ;
10787 void *arg2 = (void *) 0 ;
10788 void *argp1 = 0 ;
10789 int res1 = 0 ;
10790 int res2 ;
10791 int argvi = 0;
10792 dXSARGS;
10793
10794 if ((items < 2) || (items > 2)) {
10795 SWIG_croak("Usage: gsl_multifit_function_struct_params_set(self,params);");
10796 }
10797 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_function_struct, 0 | 0 );
10798 if (!SWIG_IsOK(res1)) {
10799 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_function_struct_params_set" "', argument " "1"" of type '" "struct gsl_multifit_function_struct *""'");
10800 }
10801 arg1 = (struct gsl_multifit_function_struct *)(argp1);
10802 res2 = SWIG_ConvertPtr(ST(1),SWIG_as_voidptrptr(&arg2), 0, SWIG_POINTER_DISOWN);
10803 if (!SWIG_IsOK(res2)) {
10804 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_function_struct_params_set" "', argument " "2"" of type '" "void *""'");
10805 }
10806 if (arg1) (arg1)->params = arg2;
10807 ST(argvi) = &PL_sv_undef;
10808
10809
10810 XSRETURN(argvi);
10811 fail:
10812
10813
10814 SWIG_croak_null();
10815 }
10816 }
10817
10818
XS(_wrap_gsl_multifit_function_struct_params_get)10819 XS(_wrap_gsl_multifit_function_struct_params_get) {
10820 {
10821 struct gsl_multifit_function_struct *arg1 = (struct gsl_multifit_function_struct *) 0 ;
10822 void *argp1 = 0 ;
10823 int res1 = 0 ;
10824 int argvi = 0;
10825 void *result = 0 ;
10826 dXSARGS;
10827
10828 if ((items < 1) || (items > 1)) {
10829 SWIG_croak("Usage: gsl_multifit_function_struct_params_get(self);");
10830 }
10831 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_function_struct, 0 | 0 );
10832 if (!SWIG_IsOK(res1)) {
10833 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_function_struct_params_get" "', argument " "1"" of type '" "struct gsl_multifit_function_struct *""'");
10834 }
10835 arg1 = (struct gsl_multifit_function_struct *)(argp1);
10836 result = (void *) ((arg1)->params);
10837 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_void, 0 | 0); argvi++ ;
10838
10839 XSRETURN(argvi);
10840 fail:
10841
10842 SWIG_croak_null();
10843 }
10844 }
10845
10846
XS(_wrap_new_gsl_multifit_function_struct)10847 XS(_wrap_new_gsl_multifit_function_struct) {
10848 {
10849 int argvi = 0;
10850 struct gsl_multifit_function_struct *result = 0 ;
10851 dXSARGS;
10852
10853 if ((items < 0) || (items > 0)) {
10854 SWIG_croak("Usage: new_gsl_multifit_function_struct();");
10855 }
10856 result = (struct gsl_multifit_function_struct *)calloc(1, sizeof(struct gsl_multifit_function_struct));
10857 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_function_struct, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
10858 XSRETURN(argvi);
10859 fail:
10860 SWIG_croak_null();
10861 }
10862 }
10863
10864
XS(_wrap_delete_gsl_multifit_function_struct)10865 XS(_wrap_delete_gsl_multifit_function_struct) {
10866 {
10867 struct gsl_multifit_function_struct *arg1 = (struct gsl_multifit_function_struct *) 0 ;
10868 void *argp1 = 0 ;
10869 int res1 = 0 ;
10870 int argvi = 0;
10871 dXSARGS;
10872
10873 if ((items < 1) || (items > 1)) {
10874 SWIG_croak("Usage: delete_gsl_multifit_function_struct(self);");
10875 }
10876 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_function_struct, SWIG_POINTER_DISOWN | 0 );
10877 if (!SWIG_IsOK(res1)) {
10878 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_multifit_function_struct" "', argument " "1"" of type '" "struct gsl_multifit_function_struct *""'");
10879 }
10880 arg1 = (struct gsl_multifit_function_struct *)(argp1);
10881 free((char *) arg1);
10882 ST(argvi) = &PL_sv_undef;
10883
10884 XSRETURN(argvi);
10885 fail:
10886
10887 SWIG_croak_null();
10888 }
10889 }
10890
10891
XS(_wrap_gsl_multifit_fsolver_type_name_set)10892 XS(_wrap_gsl_multifit_fsolver_type_name_set) {
10893 {
10894 gsl_multifit_fsolver_type *arg1 = (gsl_multifit_fsolver_type *) 0 ;
10895 char *arg2 = (char *) 0 ;
10896 void *argp1 = 0 ;
10897 int res1 = 0 ;
10898 int res2 ;
10899 char *buf2 = 0 ;
10900 int alloc2 = 0 ;
10901 int argvi = 0;
10902 dXSARGS;
10903
10904 if ((items < 2) || (items > 2)) {
10905 SWIG_croak("Usage: gsl_multifit_fsolver_type_name_set(self,name);");
10906 }
10907 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver_type, 0 | 0 );
10908 if (!SWIG_IsOK(res1)) {
10909 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_type_name_set" "', argument " "1"" of type '" "gsl_multifit_fsolver_type *""'");
10910 }
10911 arg1 = (gsl_multifit_fsolver_type *)(argp1);
10912 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
10913 if (!SWIG_IsOK(res2)) {
10914 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fsolver_type_name_set" "', argument " "2"" of type '" "char const *""'");
10915 }
10916 arg2 = (char *)(buf2);
10917 if (arg2) {
10918 size_t size = strlen((const char *)((const char *)(arg2))) + 1;
10919 arg1->name = (char const *)(char *)memcpy(malloc((size)*sizeof(char)), arg2, sizeof(char)*(size));
10920 } else {
10921 arg1->name = 0;
10922 }
10923 ST(argvi) = &PL_sv_undef;
10924
10925 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
10926 XSRETURN(argvi);
10927 fail:
10928
10929 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
10930 SWIG_croak_null();
10931 }
10932 }
10933
10934
XS(_wrap_gsl_multifit_fsolver_type_name_get)10935 XS(_wrap_gsl_multifit_fsolver_type_name_get) {
10936 {
10937 gsl_multifit_fsolver_type *arg1 = (gsl_multifit_fsolver_type *) 0 ;
10938 void *argp1 = 0 ;
10939 int res1 = 0 ;
10940 int argvi = 0;
10941 char *result = 0 ;
10942 dXSARGS;
10943
10944 if ((items < 1) || (items > 1)) {
10945 SWIG_croak("Usage: gsl_multifit_fsolver_type_name_get(self);");
10946 }
10947 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver_type, 0 | 0 );
10948 if (!SWIG_IsOK(res1)) {
10949 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_type_name_get" "', argument " "1"" of type '" "gsl_multifit_fsolver_type *""'");
10950 }
10951 arg1 = (gsl_multifit_fsolver_type *)(argp1);
10952 result = (char *) ((arg1)->name);
10953 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
10954
10955 XSRETURN(argvi);
10956 fail:
10957
10958 SWIG_croak_null();
10959 }
10960 }
10961
10962
XS(_wrap_gsl_multifit_fsolver_type_size_set)10963 XS(_wrap_gsl_multifit_fsolver_type_size_set) {
10964 {
10965 gsl_multifit_fsolver_type *arg1 = (gsl_multifit_fsolver_type *) 0 ;
10966 size_t arg2 ;
10967 void *argp1 = 0 ;
10968 int res1 = 0 ;
10969 size_t val2 ;
10970 int ecode2 = 0 ;
10971 int argvi = 0;
10972 dXSARGS;
10973
10974 if ((items < 2) || (items > 2)) {
10975 SWIG_croak("Usage: gsl_multifit_fsolver_type_size_set(self,size);");
10976 }
10977 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver_type, 0 | 0 );
10978 if (!SWIG_IsOK(res1)) {
10979 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_type_size_set" "', argument " "1"" of type '" "gsl_multifit_fsolver_type *""'");
10980 }
10981 arg1 = (gsl_multifit_fsolver_type *)(argp1);
10982 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
10983 if (!SWIG_IsOK(ecode2)) {
10984 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_fsolver_type_size_set" "', argument " "2"" of type '" "size_t""'");
10985 }
10986 arg2 = (size_t)(val2);
10987 if (arg1) (arg1)->size = arg2;
10988 ST(argvi) = &PL_sv_undef;
10989
10990
10991 XSRETURN(argvi);
10992 fail:
10993
10994
10995 SWIG_croak_null();
10996 }
10997 }
10998
10999
XS(_wrap_gsl_multifit_fsolver_type_size_get)11000 XS(_wrap_gsl_multifit_fsolver_type_size_get) {
11001 {
11002 gsl_multifit_fsolver_type *arg1 = (gsl_multifit_fsolver_type *) 0 ;
11003 void *argp1 = 0 ;
11004 int res1 = 0 ;
11005 int argvi = 0;
11006 size_t result;
11007 dXSARGS;
11008
11009 if ((items < 1) || (items > 1)) {
11010 SWIG_croak("Usage: gsl_multifit_fsolver_type_size_get(self);");
11011 }
11012 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver_type, 0 | 0 );
11013 if (!SWIG_IsOK(res1)) {
11014 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_type_size_get" "', argument " "1"" of type '" "gsl_multifit_fsolver_type *""'");
11015 }
11016 arg1 = (gsl_multifit_fsolver_type *)(argp1);
11017 result = ((arg1)->size);
11018 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
11019
11020 XSRETURN(argvi);
11021 fail:
11022
11023 SWIG_croak_null();
11024 }
11025 }
11026
11027
XS(_wrap_gsl_multifit_fsolver_type_alloc_set)11028 XS(_wrap_gsl_multifit_fsolver_type_alloc_set) {
11029 {
11030 gsl_multifit_fsolver_type *arg1 = (gsl_multifit_fsolver_type *) 0 ;
11031 int (*arg2)(void *,size_t,size_t) = (int (*)(void *,size_t,size_t)) 0 ;
11032 void *argp1 = 0 ;
11033 int res1 = 0 ;
11034 int argvi = 0;
11035 dXSARGS;
11036
11037 if ((items < 2) || (items > 2)) {
11038 SWIG_croak("Usage: gsl_multifit_fsolver_type_alloc_set(self,alloc);");
11039 }
11040 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver_type, 0 | 0 );
11041 if (!SWIG_IsOK(res1)) {
11042 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_type_alloc_set" "', argument " "1"" of type '" "gsl_multifit_fsolver_type *""'");
11043 }
11044 arg1 = (gsl_multifit_fsolver_type *)(argp1);
11045 {
11046 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_void_size_t_size_t__int);
11047 if (!SWIG_IsOK(res)) {
11048 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multifit_fsolver_type_alloc_set" "', argument " "2"" of type '" "int (*)(void *,size_t,size_t)""'");
11049 }
11050 }
11051 if (arg1) (arg1)->alloc = arg2;
11052 ST(argvi) = &PL_sv_undef;
11053
11054
11055 XSRETURN(argvi);
11056 fail:
11057
11058
11059 SWIG_croak_null();
11060 }
11061 }
11062
11063
XS(_wrap_gsl_multifit_fsolver_type_alloc_get)11064 XS(_wrap_gsl_multifit_fsolver_type_alloc_get) {
11065 {
11066 gsl_multifit_fsolver_type *arg1 = (gsl_multifit_fsolver_type *) 0 ;
11067 void *argp1 = 0 ;
11068 int res1 = 0 ;
11069 int argvi = 0;
11070 int (*result)(void *,size_t,size_t) = 0 ;
11071 dXSARGS;
11072
11073 if ((items < 1) || (items > 1)) {
11074 SWIG_croak("Usage: gsl_multifit_fsolver_type_alloc_get(self);");
11075 }
11076 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver_type, 0 | 0 );
11077 if (!SWIG_IsOK(res1)) {
11078 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_type_alloc_get" "', argument " "1"" of type '" "gsl_multifit_fsolver_type *""'");
11079 }
11080 arg1 = (gsl_multifit_fsolver_type *)(argp1);
11081 result = (int (*)(void *,size_t,size_t)) ((arg1)->alloc);
11082 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_void_size_t_size_t__int); argvi++ ;
11083
11084 XSRETURN(argvi);
11085 fail:
11086
11087 SWIG_croak_null();
11088 }
11089 }
11090
11091
XS(_wrap_gsl_multifit_fsolver_type_set_set)11092 XS(_wrap_gsl_multifit_fsolver_type_set_set) {
11093 {
11094 gsl_multifit_fsolver_type *arg1 = (gsl_multifit_fsolver_type *) 0 ;
11095 int (*arg2)(void *,gsl_multifit_function *,gsl_vector *,gsl_vector *,gsl_vector *) = (int (*)(void *,gsl_multifit_function *,gsl_vector *,gsl_vector *,gsl_vector *)) 0 ;
11096 void *argp1 = 0 ;
11097 int res1 = 0 ;
11098 int argvi = 0;
11099 dXSARGS;
11100
11101 if ((items < 2) || (items > 2)) {
11102 SWIG_croak("Usage: gsl_multifit_fsolver_type_set_set(self,set);");
11103 }
11104 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver_type, 0 | 0 );
11105 if (!SWIG_IsOK(res1)) {
11106 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_type_set_set" "', argument " "1"" of type '" "gsl_multifit_fsolver_type *""'");
11107 }
11108 arg1 = (gsl_multifit_fsolver_type *)(argp1);
11109 {
11110 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_void_p_struct_gsl_multifit_function_struct_p_gsl_vector_p_gsl_vector_p_gsl_vector__int);
11111 if (!SWIG_IsOK(res)) {
11112 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multifit_fsolver_type_set_set" "', argument " "2"" of type '" "int (*)(void *,gsl_multifit_function *,gsl_vector *,gsl_vector *,gsl_vector *)""'");
11113 }
11114 }
11115 if (arg1) (arg1)->set = arg2;
11116 ST(argvi) = &PL_sv_undef;
11117
11118
11119 XSRETURN(argvi);
11120 fail:
11121
11122
11123 SWIG_croak_null();
11124 }
11125 }
11126
11127
XS(_wrap_gsl_multifit_fsolver_type_set_get)11128 XS(_wrap_gsl_multifit_fsolver_type_set_get) {
11129 {
11130 gsl_multifit_fsolver_type *arg1 = (gsl_multifit_fsolver_type *) 0 ;
11131 void *argp1 = 0 ;
11132 int res1 = 0 ;
11133 int argvi = 0;
11134 int (*result)(void *,gsl_multifit_function *,gsl_vector *,gsl_vector *,gsl_vector *) = 0 ;
11135 dXSARGS;
11136
11137 if ((items < 1) || (items > 1)) {
11138 SWIG_croak("Usage: gsl_multifit_fsolver_type_set_get(self);");
11139 }
11140 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver_type, 0 | 0 );
11141 if (!SWIG_IsOK(res1)) {
11142 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_type_set_get" "', argument " "1"" of type '" "gsl_multifit_fsolver_type *""'");
11143 }
11144 arg1 = (gsl_multifit_fsolver_type *)(argp1);
11145 result = (int (*)(void *,gsl_multifit_function *,gsl_vector *,gsl_vector *,gsl_vector *)) ((arg1)->set);
11146 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_void_p_struct_gsl_multifit_function_struct_p_gsl_vector_p_gsl_vector_p_gsl_vector__int); argvi++ ;
11147
11148 XSRETURN(argvi);
11149 fail:
11150
11151 SWIG_croak_null();
11152 }
11153 }
11154
11155
XS(_wrap_gsl_multifit_fsolver_type_iterate_set)11156 XS(_wrap_gsl_multifit_fsolver_type_iterate_set) {
11157 {
11158 gsl_multifit_fsolver_type *arg1 = (gsl_multifit_fsolver_type *) 0 ;
11159 int (*arg2)(void *,gsl_multifit_function *,gsl_vector *,gsl_vector *,gsl_vector *) = (int (*)(void *,gsl_multifit_function *,gsl_vector *,gsl_vector *,gsl_vector *)) 0 ;
11160 void *argp1 = 0 ;
11161 int res1 = 0 ;
11162 int argvi = 0;
11163 dXSARGS;
11164
11165 if ((items < 2) || (items > 2)) {
11166 SWIG_croak("Usage: gsl_multifit_fsolver_type_iterate_set(self,iterate);");
11167 }
11168 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver_type, 0 | 0 );
11169 if (!SWIG_IsOK(res1)) {
11170 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_type_iterate_set" "', argument " "1"" of type '" "gsl_multifit_fsolver_type *""'");
11171 }
11172 arg1 = (gsl_multifit_fsolver_type *)(argp1);
11173 {
11174 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_void_p_struct_gsl_multifit_function_struct_p_gsl_vector_p_gsl_vector_p_gsl_vector__int);
11175 if (!SWIG_IsOK(res)) {
11176 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multifit_fsolver_type_iterate_set" "', argument " "2"" of type '" "int (*)(void *,gsl_multifit_function *,gsl_vector *,gsl_vector *,gsl_vector *)""'");
11177 }
11178 }
11179 if (arg1) (arg1)->iterate = arg2;
11180 ST(argvi) = &PL_sv_undef;
11181
11182
11183 XSRETURN(argvi);
11184 fail:
11185
11186
11187 SWIG_croak_null();
11188 }
11189 }
11190
11191
XS(_wrap_gsl_multifit_fsolver_type_iterate_get)11192 XS(_wrap_gsl_multifit_fsolver_type_iterate_get) {
11193 {
11194 gsl_multifit_fsolver_type *arg1 = (gsl_multifit_fsolver_type *) 0 ;
11195 void *argp1 = 0 ;
11196 int res1 = 0 ;
11197 int argvi = 0;
11198 int (*result)(void *,gsl_multifit_function *,gsl_vector *,gsl_vector *,gsl_vector *) = 0 ;
11199 dXSARGS;
11200
11201 if ((items < 1) || (items > 1)) {
11202 SWIG_croak("Usage: gsl_multifit_fsolver_type_iterate_get(self);");
11203 }
11204 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver_type, 0 | 0 );
11205 if (!SWIG_IsOK(res1)) {
11206 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_type_iterate_get" "', argument " "1"" of type '" "gsl_multifit_fsolver_type *""'");
11207 }
11208 arg1 = (gsl_multifit_fsolver_type *)(argp1);
11209 result = (int (*)(void *,gsl_multifit_function *,gsl_vector *,gsl_vector *,gsl_vector *)) ((arg1)->iterate);
11210 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_void_p_struct_gsl_multifit_function_struct_p_gsl_vector_p_gsl_vector_p_gsl_vector__int); argvi++ ;
11211
11212 XSRETURN(argvi);
11213 fail:
11214
11215 SWIG_croak_null();
11216 }
11217 }
11218
11219
XS(_wrap_gsl_multifit_fsolver_type_free_set)11220 XS(_wrap_gsl_multifit_fsolver_type_free_set) {
11221 {
11222 gsl_multifit_fsolver_type *arg1 = (gsl_multifit_fsolver_type *) 0 ;
11223 void (*arg2)(void *) = (void (*)(void *)) 0 ;
11224 void *argp1 = 0 ;
11225 int res1 = 0 ;
11226 int argvi = 0;
11227 dXSARGS;
11228
11229 if ((items < 2) || (items > 2)) {
11230 SWIG_croak("Usage: gsl_multifit_fsolver_type_free_set(self,free);");
11231 }
11232 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver_type, 0 | 0 );
11233 if (!SWIG_IsOK(res1)) {
11234 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_type_free_set" "', argument " "1"" of type '" "gsl_multifit_fsolver_type *""'");
11235 }
11236 arg1 = (gsl_multifit_fsolver_type *)(argp1);
11237 {
11238 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_void__void);
11239 if (!SWIG_IsOK(res)) {
11240 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multifit_fsolver_type_free_set" "', argument " "2"" of type '" "void (*)(void *)""'");
11241 }
11242 }
11243 if (arg1) (arg1)->free = arg2;
11244 ST(argvi) = &PL_sv_undef;
11245
11246
11247 XSRETURN(argvi);
11248 fail:
11249
11250
11251 SWIG_croak_null();
11252 }
11253 }
11254
11255
XS(_wrap_gsl_multifit_fsolver_type_free_get)11256 XS(_wrap_gsl_multifit_fsolver_type_free_get) {
11257 {
11258 gsl_multifit_fsolver_type *arg1 = (gsl_multifit_fsolver_type *) 0 ;
11259 void *argp1 = 0 ;
11260 int res1 = 0 ;
11261 int argvi = 0;
11262 void (*result)(void *) = 0 ;
11263 dXSARGS;
11264
11265 if ((items < 1) || (items > 1)) {
11266 SWIG_croak("Usage: gsl_multifit_fsolver_type_free_get(self);");
11267 }
11268 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver_type, 0 | 0 );
11269 if (!SWIG_IsOK(res1)) {
11270 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_type_free_get" "', argument " "1"" of type '" "gsl_multifit_fsolver_type *""'");
11271 }
11272 arg1 = (gsl_multifit_fsolver_type *)(argp1);
11273 result = (void (*)(void *)) ((arg1)->free);
11274 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_void__void); argvi++ ;
11275
11276 XSRETURN(argvi);
11277 fail:
11278
11279 SWIG_croak_null();
11280 }
11281 }
11282
11283
XS(_wrap_new_gsl_multifit_fsolver_type)11284 XS(_wrap_new_gsl_multifit_fsolver_type) {
11285 {
11286 int argvi = 0;
11287 gsl_multifit_fsolver_type *result = 0 ;
11288 dXSARGS;
11289
11290 if ((items < 0) || (items > 0)) {
11291 SWIG_croak("Usage: new_gsl_multifit_fsolver_type();");
11292 }
11293 result = (gsl_multifit_fsolver_type *)calloc(1, sizeof(gsl_multifit_fsolver_type));
11294 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_fsolver_type, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
11295 XSRETURN(argvi);
11296 fail:
11297 SWIG_croak_null();
11298 }
11299 }
11300
11301
XS(_wrap_delete_gsl_multifit_fsolver_type)11302 XS(_wrap_delete_gsl_multifit_fsolver_type) {
11303 {
11304 gsl_multifit_fsolver_type *arg1 = (gsl_multifit_fsolver_type *) 0 ;
11305 void *argp1 = 0 ;
11306 int res1 = 0 ;
11307 int argvi = 0;
11308 dXSARGS;
11309
11310 if ((items < 1) || (items > 1)) {
11311 SWIG_croak("Usage: delete_gsl_multifit_fsolver_type(self);");
11312 }
11313 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver_type, SWIG_POINTER_DISOWN | 0 );
11314 if (!SWIG_IsOK(res1)) {
11315 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_multifit_fsolver_type" "', argument " "1"" of type '" "gsl_multifit_fsolver_type *""'");
11316 }
11317 arg1 = (gsl_multifit_fsolver_type *)(argp1);
11318 free((char *) arg1);
11319 ST(argvi) = &PL_sv_undef;
11320
11321 XSRETURN(argvi);
11322 fail:
11323
11324 SWIG_croak_null();
11325 }
11326 }
11327
11328
XS(_wrap_gsl_multifit_fsolver_type_set)11329 XS(_wrap_gsl_multifit_fsolver_type_set) {
11330 {
11331 gsl_multifit_fsolver *arg1 = (gsl_multifit_fsolver *) 0 ;
11332 gsl_multifit_fsolver_type *arg2 = (gsl_multifit_fsolver_type *) 0 ;
11333 void *argp1 = 0 ;
11334 int res1 = 0 ;
11335 void *argp2 = 0 ;
11336 int res2 = 0 ;
11337 int argvi = 0;
11338 dXSARGS;
11339
11340 if ((items < 2) || (items > 2)) {
11341 SWIG_croak("Usage: gsl_multifit_fsolver_type_set(self,type);");
11342 }
11343 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver, 0 | 0 );
11344 if (!SWIG_IsOK(res1)) {
11345 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_type_set" "', argument " "1"" of type '" "gsl_multifit_fsolver *""'");
11346 }
11347 arg1 = (gsl_multifit_fsolver *)(argp1);
11348 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_fsolver_type, SWIG_POINTER_DISOWN | 0 );
11349 if (!SWIG_IsOK(res2)) {
11350 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fsolver_type_set" "', argument " "2"" of type '" "gsl_multifit_fsolver_type const *""'");
11351 }
11352 arg2 = (gsl_multifit_fsolver_type *)(argp2);
11353 if (arg1) (arg1)->type = (gsl_multifit_fsolver_type const *)arg2;
11354 ST(argvi) = &PL_sv_undef;
11355
11356
11357 XSRETURN(argvi);
11358 fail:
11359
11360
11361 SWIG_croak_null();
11362 }
11363 }
11364
11365
XS(_wrap_gsl_multifit_fsolver_type_get)11366 XS(_wrap_gsl_multifit_fsolver_type_get) {
11367 {
11368 gsl_multifit_fsolver *arg1 = (gsl_multifit_fsolver *) 0 ;
11369 void *argp1 = 0 ;
11370 int res1 = 0 ;
11371 int argvi = 0;
11372 gsl_multifit_fsolver_type *result = 0 ;
11373 dXSARGS;
11374
11375 if ((items < 1) || (items > 1)) {
11376 SWIG_croak("Usage: gsl_multifit_fsolver_type_get(self);");
11377 }
11378 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver, 0 | 0 );
11379 if (!SWIG_IsOK(res1)) {
11380 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_type_get" "', argument " "1"" of type '" "gsl_multifit_fsolver *""'");
11381 }
11382 arg1 = (gsl_multifit_fsolver *)(argp1);
11383 result = (gsl_multifit_fsolver_type *) ((arg1)->type);
11384 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_fsolver_type, 0 | SWIG_SHADOW); argvi++ ;
11385
11386 XSRETURN(argvi);
11387 fail:
11388
11389 SWIG_croak_null();
11390 }
11391 }
11392
11393
XS(_wrap_gsl_multifit_fsolver_function_set)11394 XS(_wrap_gsl_multifit_fsolver_function_set) {
11395 {
11396 gsl_multifit_fsolver *arg1 = (gsl_multifit_fsolver *) 0 ;
11397 gsl_multifit_function *arg2 = (gsl_multifit_function *) 0 ;
11398 void *argp1 = 0 ;
11399 int res1 = 0 ;
11400 void *argp2 = 0 ;
11401 int res2 = 0 ;
11402 int argvi = 0;
11403 dXSARGS;
11404
11405 if ((items < 2) || (items > 2)) {
11406 SWIG_croak("Usage: gsl_multifit_fsolver_function_set(self,function);");
11407 }
11408 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver, 0 | 0 );
11409 if (!SWIG_IsOK(res1)) {
11410 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_function_set" "', argument " "1"" of type '" "gsl_multifit_fsolver *""'");
11411 }
11412 arg1 = (gsl_multifit_fsolver *)(argp1);
11413 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_function_struct, SWIG_POINTER_DISOWN | 0 );
11414 if (!SWIG_IsOK(res2)) {
11415 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fsolver_function_set" "', argument " "2"" of type '" "gsl_multifit_function *""'");
11416 }
11417 arg2 = (gsl_multifit_function *)(argp2);
11418 if (arg1) (arg1)->function = arg2;
11419 ST(argvi) = &PL_sv_undef;
11420
11421
11422 XSRETURN(argvi);
11423 fail:
11424
11425
11426 SWIG_croak_null();
11427 }
11428 }
11429
11430
XS(_wrap_gsl_multifit_fsolver_function_get)11431 XS(_wrap_gsl_multifit_fsolver_function_get) {
11432 {
11433 gsl_multifit_fsolver *arg1 = (gsl_multifit_fsolver *) 0 ;
11434 void *argp1 = 0 ;
11435 int res1 = 0 ;
11436 int argvi = 0;
11437 gsl_multifit_function *result = 0 ;
11438 dXSARGS;
11439
11440 if ((items < 1) || (items > 1)) {
11441 SWIG_croak("Usage: gsl_multifit_fsolver_function_get(self);");
11442 }
11443 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver, 0 | 0 );
11444 if (!SWIG_IsOK(res1)) {
11445 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_function_get" "', argument " "1"" of type '" "gsl_multifit_fsolver *""'");
11446 }
11447 arg1 = (gsl_multifit_fsolver *)(argp1);
11448 result = (gsl_multifit_function *) ((arg1)->function);
11449 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_function_struct, 0 | SWIG_SHADOW); argvi++ ;
11450
11451 XSRETURN(argvi);
11452 fail:
11453
11454 SWIG_croak_null();
11455 }
11456 }
11457
11458
XS(_wrap_gsl_multifit_fsolver_x_set)11459 XS(_wrap_gsl_multifit_fsolver_x_set) {
11460 {
11461 gsl_multifit_fsolver *arg1 = (gsl_multifit_fsolver *) 0 ;
11462 gsl_vector *arg2 = (gsl_vector *) 0 ;
11463 void *argp1 = 0 ;
11464 int res1 = 0 ;
11465 void *argp2 = 0 ;
11466 int res2 = 0 ;
11467 int argvi = 0;
11468 dXSARGS;
11469
11470 if ((items < 2) || (items > 2)) {
11471 SWIG_croak("Usage: gsl_multifit_fsolver_x_set(self,x);");
11472 }
11473 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver, 0 | 0 );
11474 if (!SWIG_IsOK(res1)) {
11475 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_x_set" "', argument " "1"" of type '" "gsl_multifit_fsolver *""'");
11476 }
11477 arg1 = (gsl_multifit_fsolver *)(argp1);
11478 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
11479 if (!SWIG_IsOK(res2)) {
11480 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fsolver_x_set" "', argument " "2"" of type '" "gsl_vector *""'");
11481 }
11482 arg2 = (gsl_vector *)(argp2);
11483 if (arg1) (arg1)->x = arg2;
11484 ST(argvi) = &PL_sv_undef;
11485
11486
11487 XSRETURN(argvi);
11488 fail:
11489
11490
11491 SWIG_croak_null();
11492 }
11493 }
11494
11495
XS(_wrap_gsl_multifit_fsolver_x_get)11496 XS(_wrap_gsl_multifit_fsolver_x_get) {
11497 {
11498 gsl_multifit_fsolver *arg1 = (gsl_multifit_fsolver *) 0 ;
11499 void *argp1 = 0 ;
11500 int res1 = 0 ;
11501 int argvi = 0;
11502 gsl_vector *result = 0 ;
11503 dXSARGS;
11504
11505 if ((items < 1) || (items > 1)) {
11506 SWIG_croak("Usage: gsl_multifit_fsolver_x_get(self);");
11507 }
11508 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver, 0 | 0 );
11509 if (!SWIG_IsOK(res1)) {
11510 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_x_get" "', argument " "1"" of type '" "gsl_multifit_fsolver *""'");
11511 }
11512 arg1 = (gsl_multifit_fsolver *)(argp1);
11513 result = (gsl_vector *) ((arg1)->x);
11514 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
11515
11516 XSRETURN(argvi);
11517 fail:
11518
11519 SWIG_croak_null();
11520 }
11521 }
11522
11523
XS(_wrap_gsl_multifit_fsolver_f_set)11524 XS(_wrap_gsl_multifit_fsolver_f_set) {
11525 {
11526 gsl_multifit_fsolver *arg1 = (gsl_multifit_fsolver *) 0 ;
11527 gsl_vector *arg2 = (gsl_vector *) 0 ;
11528 void *argp1 = 0 ;
11529 int res1 = 0 ;
11530 void *argp2 = 0 ;
11531 int res2 = 0 ;
11532 int argvi = 0;
11533 dXSARGS;
11534
11535 if ((items < 2) || (items > 2)) {
11536 SWIG_croak("Usage: gsl_multifit_fsolver_f_set(self,f);");
11537 }
11538 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver, 0 | 0 );
11539 if (!SWIG_IsOK(res1)) {
11540 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_f_set" "', argument " "1"" of type '" "gsl_multifit_fsolver *""'");
11541 }
11542 arg1 = (gsl_multifit_fsolver *)(argp1);
11543 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
11544 if (!SWIG_IsOK(res2)) {
11545 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fsolver_f_set" "', argument " "2"" of type '" "gsl_vector *""'");
11546 }
11547 arg2 = (gsl_vector *)(argp2);
11548 if (arg1) (arg1)->f = arg2;
11549 ST(argvi) = &PL_sv_undef;
11550
11551
11552 XSRETURN(argvi);
11553 fail:
11554
11555
11556 SWIG_croak_null();
11557 }
11558 }
11559
11560
XS(_wrap_gsl_multifit_fsolver_f_get)11561 XS(_wrap_gsl_multifit_fsolver_f_get) {
11562 {
11563 gsl_multifit_fsolver *arg1 = (gsl_multifit_fsolver *) 0 ;
11564 void *argp1 = 0 ;
11565 int res1 = 0 ;
11566 int argvi = 0;
11567 gsl_vector *result = 0 ;
11568 dXSARGS;
11569
11570 if ((items < 1) || (items > 1)) {
11571 SWIG_croak("Usage: gsl_multifit_fsolver_f_get(self);");
11572 }
11573 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver, 0 | 0 );
11574 if (!SWIG_IsOK(res1)) {
11575 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_f_get" "', argument " "1"" of type '" "gsl_multifit_fsolver *""'");
11576 }
11577 arg1 = (gsl_multifit_fsolver *)(argp1);
11578 result = (gsl_vector *) ((arg1)->f);
11579 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
11580
11581 XSRETURN(argvi);
11582 fail:
11583
11584 SWIG_croak_null();
11585 }
11586 }
11587
11588
XS(_wrap_gsl_multifit_fsolver_dx_set)11589 XS(_wrap_gsl_multifit_fsolver_dx_set) {
11590 {
11591 gsl_multifit_fsolver *arg1 = (gsl_multifit_fsolver *) 0 ;
11592 gsl_vector *arg2 = (gsl_vector *) 0 ;
11593 void *argp1 = 0 ;
11594 int res1 = 0 ;
11595 void *argp2 = 0 ;
11596 int res2 = 0 ;
11597 int argvi = 0;
11598 dXSARGS;
11599
11600 if ((items < 2) || (items > 2)) {
11601 SWIG_croak("Usage: gsl_multifit_fsolver_dx_set(self,dx);");
11602 }
11603 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver, 0 | 0 );
11604 if (!SWIG_IsOK(res1)) {
11605 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_dx_set" "', argument " "1"" of type '" "gsl_multifit_fsolver *""'");
11606 }
11607 arg1 = (gsl_multifit_fsolver *)(argp1);
11608 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
11609 if (!SWIG_IsOK(res2)) {
11610 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fsolver_dx_set" "', argument " "2"" of type '" "gsl_vector *""'");
11611 }
11612 arg2 = (gsl_vector *)(argp2);
11613 if (arg1) (arg1)->dx = arg2;
11614 ST(argvi) = &PL_sv_undef;
11615
11616
11617 XSRETURN(argvi);
11618 fail:
11619
11620
11621 SWIG_croak_null();
11622 }
11623 }
11624
11625
XS(_wrap_gsl_multifit_fsolver_dx_get)11626 XS(_wrap_gsl_multifit_fsolver_dx_get) {
11627 {
11628 gsl_multifit_fsolver *arg1 = (gsl_multifit_fsolver *) 0 ;
11629 void *argp1 = 0 ;
11630 int res1 = 0 ;
11631 int argvi = 0;
11632 gsl_vector *result = 0 ;
11633 dXSARGS;
11634
11635 if ((items < 1) || (items > 1)) {
11636 SWIG_croak("Usage: gsl_multifit_fsolver_dx_get(self);");
11637 }
11638 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver, 0 | 0 );
11639 if (!SWIG_IsOK(res1)) {
11640 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_dx_get" "', argument " "1"" of type '" "gsl_multifit_fsolver *""'");
11641 }
11642 arg1 = (gsl_multifit_fsolver *)(argp1);
11643 result = (gsl_vector *) ((arg1)->dx);
11644 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
11645
11646 XSRETURN(argvi);
11647 fail:
11648
11649 SWIG_croak_null();
11650 }
11651 }
11652
11653
XS(_wrap_gsl_multifit_fsolver_state_set)11654 XS(_wrap_gsl_multifit_fsolver_state_set) {
11655 {
11656 gsl_multifit_fsolver *arg1 = (gsl_multifit_fsolver *) 0 ;
11657 void *arg2 = (void *) 0 ;
11658 void *argp1 = 0 ;
11659 int res1 = 0 ;
11660 int res2 ;
11661 int argvi = 0;
11662 dXSARGS;
11663
11664 if ((items < 2) || (items > 2)) {
11665 SWIG_croak("Usage: gsl_multifit_fsolver_state_set(self,state);");
11666 }
11667 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver, 0 | 0 );
11668 if (!SWIG_IsOK(res1)) {
11669 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_state_set" "', argument " "1"" of type '" "gsl_multifit_fsolver *""'");
11670 }
11671 arg1 = (gsl_multifit_fsolver *)(argp1);
11672 res2 = SWIG_ConvertPtr(ST(1),SWIG_as_voidptrptr(&arg2), 0, SWIG_POINTER_DISOWN);
11673 if (!SWIG_IsOK(res2)) {
11674 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fsolver_state_set" "', argument " "2"" of type '" "void *""'");
11675 }
11676 if (arg1) (arg1)->state = arg2;
11677 ST(argvi) = &PL_sv_undef;
11678
11679
11680 XSRETURN(argvi);
11681 fail:
11682
11683
11684 SWIG_croak_null();
11685 }
11686 }
11687
11688
XS(_wrap_gsl_multifit_fsolver_state_get)11689 XS(_wrap_gsl_multifit_fsolver_state_get) {
11690 {
11691 gsl_multifit_fsolver *arg1 = (gsl_multifit_fsolver *) 0 ;
11692 void *argp1 = 0 ;
11693 int res1 = 0 ;
11694 int argvi = 0;
11695 void *result = 0 ;
11696 dXSARGS;
11697
11698 if ((items < 1) || (items > 1)) {
11699 SWIG_croak("Usage: gsl_multifit_fsolver_state_get(self);");
11700 }
11701 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver, 0 | 0 );
11702 if (!SWIG_IsOK(res1)) {
11703 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_state_get" "', argument " "1"" of type '" "gsl_multifit_fsolver *""'");
11704 }
11705 arg1 = (gsl_multifit_fsolver *)(argp1);
11706 result = (void *) ((arg1)->state);
11707 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_void, 0 | 0); argvi++ ;
11708
11709 XSRETURN(argvi);
11710 fail:
11711
11712 SWIG_croak_null();
11713 }
11714 }
11715
11716
XS(_wrap_new_gsl_multifit_fsolver)11717 XS(_wrap_new_gsl_multifit_fsolver) {
11718 {
11719 int argvi = 0;
11720 gsl_multifit_fsolver *result = 0 ;
11721 dXSARGS;
11722
11723 if ((items < 0) || (items > 0)) {
11724 SWIG_croak("Usage: new_gsl_multifit_fsolver();");
11725 }
11726 result = (gsl_multifit_fsolver *)calloc(1, sizeof(gsl_multifit_fsolver));
11727 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_fsolver, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
11728 XSRETURN(argvi);
11729 fail:
11730 SWIG_croak_null();
11731 }
11732 }
11733
11734
XS(_wrap_delete_gsl_multifit_fsolver)11735 XS(_wrap_delete_gsl_multifit_fsolver) {
11736 {
11737 gsl_multifit_fsolver *arg1 = (gsl_multifit_fsolver *) 0 ;
11738 void *argp1 = 0 ;
11739 int res1 = 0 ;
11740 int argvi = 0;
11741 dXSARGS;
11742
11743 if ((items < 1) || (items > 1)) {
11744 SWIG_croak("Usage: delete_gsl_multifit_fsolver(self);");
11745 }
11746 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver, SWIG_POINTER_DISOWN | 0 );
11747 if (!SWIG_IsOK(res1)) {
11748 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_multifit_fsolver" "', argument " "1"" of type '" "gsl_multifit_fsolver *""'");
11749 }
11750 arg1 = (gsl_multifit_fsolver *)(argp1);
11751 free((char *) arg1);
11752 ST(argvi) = &PL_sv_undef;
11753
11754 XSRETURN(argvi);
11755 fail:
11756
11757 SWIG_croak_null();
11758 }
11759 }
11760
11761
XS(_wrap_gsl_multifit_fsolver_alloc)11762 XS(_wrap_gsl_multifit_fsolver_alloc) {
11763 {
11764 gsl_multifit_fsolver_type *arg1 = (gsl_multifit_fsolver_type *) 0 ;
11765 size_t arg2 ;
11766 size_t arg3 ;
11767 void *argp1 = 0 ;
11768 int res1 = 0 ;
11769 size_t val2 ;
11770 int ecode2 = 0 ;
11771 size_t val3 ;
11772 int ecode3 = 0 ;
11773 int argvi = 0;
11774 gsl_multifit_fsolver *result = 0 ;
11775 dXSARGS;
11776
11777 if ((items < 3) || (items > 3)) {
11778 SWIG_croak("Usage: gsl_multifit_fsolver_alloc(T,n,p);");
11779 }
11780 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver_type, 0 | 0 );
11781 if (!SWIG_IsOK(res1)) {
11782 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_alloc" "', argument " "1"" of type '" "gsl_multifit_fsolver_type const *""'");
11783 }
11784 arg1 = (gsl_multifit_fsolver_type *)(argp1);
11785 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11786 if (!SWIG_IsOK(ecode2)) {
11787 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_fsolver_alloc" "', argument " "2"" of type '" "size_t""'");
11788 }
11789 arg2 = (size_t)(val2);
11790 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
11791 if (!SWIG_IsOK(ecode3)) {
11792 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_multifit_fsolver_alloc" "', argument " "3"" of type '" "size_t""'");
11793 }
11794 arg3 = (size_t)(val3);
11795 result = (gsl_multifit_fsolver *)gsl_multifit_fsolver_alloc((gsl_multifit_fsolver_type const *)arg1,arg2,arg3);
11796 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_fsolver, 0 | SWIG_SHADOW); argvi++ ;
11797
11798
11799
11800 XSRETURN(argvi);
11801 fail:
11802
11803
11804
11805 SWIG_croak_null();
11806 }
11807 }
11808
11809
XS(_wrap_gsl_multifit_fsolver_free)11810 XS(_wrap_gsl_multifit_fsolver_free) {
11811 {
11812 gsl_multifit_fsolver *arg1 = (gsl_multifit_fsolver *) 0 ;
11813 void *argp1 = 0 ;
11814 int res1 = 0 ;
11815 int argvi = 0;
11816 dXSARGS;
11817
11818 if ((items < 1) || (items > 1)) {
11819 SWIG_croak("Usage: gsl_multifit_fsolver_free(s);");
11820 }
11821 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver, 0 | 0 );
11822 if (!SWIG_IsOK(res1)) {
11823 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_free" "', argument " "1"" of type '" "gsl_multifit_fsolver *""'");
11824 }
11825 arg1 = (gsl_multifit_fsolver *)(argp1);
11826 gsl_multifit_fsolver_free(arg1);
11827 ST(argvi) = &PL_sv_undef;
11828
11829 XSRETURN(argvi);
11830 fail:
11831
11832 SWIG_croak_null();
11833 }
11834 }
11835
11836
XS(_wrap_gsl_multifit_fsolver_set)11837 XS(_wrap_gsl_multifit_fsolver_set) {
11838 {
11839 gsl_multifit_fsolver *arg1 = (gsl_multifit_fsolver *) 0 ;
11840 gsl_multifit_function *arg2 = (gsl_multifit_function *) 0 ;
11841 gsl_vector *arg3 = (gsl_vector *) 0 ;
11842 void *argp1 = 0 ;
11843 int res1 = 0 ;
11844 void *argp2 = 0 ;
11845 int res2 = 0 ;
11846 void *argp3 = 0 ;
11847 int res3 = 0 ;
11848 int argvi = 0;
11849 int result;
11850 dXSARGS;
11851
11852 if ((items < 3) || (items > 3)) {
11853 SWIG_croak("Usage: gsl_multifit_fsolver_set(s,f,x);");
11854 }
11855 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver, 0 | 0 );
11856 if (!SWIG_IsOK(res1)) {
11857 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_set" "', argument " "1"" of type '" "gsl_multifit_fsolver *""'");
11858 }
11859 arg1 = (gsl_multifit_fsolver *)(argp1);
11860 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_function_struct, 0 | 0 );
11861 if (!SWIG_IsOK(res2)) {
11862 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fsolver_set" "', argument " "2"" of type '" "gsl_multifit_function *""'");
11863 }
11864 arg2 = (gsl_multifit_function *)(argp2);
11865 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
11866 if (!SWIG_IsOK(res3)) {
11867 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_fsolver_set" "', argument " "3"" of type '" "gsl_vector const *""'");
11868 }
11869 arg3 = (gsl_vector *)(argp3);
11870 result = (int)gsl_multifit_fsolver_set(arg1,arg2,(gsl_vector const *)arg3);
11871 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11872
11873
11874
11875 XSRETURN(argvi);
11876 fail:
11877
11878
11879
11880 SWIG_croak_null();
11881 }
11882 }
11883
11884
XS(_wrap_gsl_multifit_fsolver_iterate)11885 XS(_wrap_gsl_multifit_fsolver_iterate) {
11886 {
11887 gsl_multifit_fsolver *arg1 = (gsl_multifit_fsolver *) 0 ;
11888 void *argp1 = 0 ;
11889 int res1 = 0 ;
11890 int argvi = 0;
11891 int result;
11892 dXSARGS;
11893
11894 if ((items < 1) || (items > 1)) {
11895 SWIG_croak("Usage: gsl_multifit_fsolver_iterate(s);");
11896 }
11897 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver, 0 | 0 );
11898 if (!SWIG_IsOK(res1)) {
11899 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_iterate" "', argument " "1"" of type '" "gsl_multifit_fsolver *""'");
11900 }
11901 arg1 = (gsl_multifit_fsolver *)(argp1);
11902 result = (int)gsl_multifit_fsolver_iterate(arg1);
11903 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11904
11905 XSRETURN(argvi);
11906 fail:
11907
11908 SWIG_croak_null();
11909 }
11910 }
11911
11912
XS(_wrap_gsl_multifit_fsolver_driver)11913 XS(_wrap_gsl_multifit_fsolver_driver) {
11914 {
11915 gsl_multifit_fsolver *arg1 = (gsl_multifit_fsolver *) 0 ;
11916 size_t arg2 ;
11917 double arg3 ;
11918 double arg4 ;
11919 void *argp1 = 0 ;
11920 int res1 = 0 ;
11921 size_t val2 ;
11922 int ecode2 = 0 ;
11923 double val3 ;
11924 int ecode3 = 0 ;
11925 double val4 ;
11926 int ecode4 = 0 ;
11927 int argvi = 0;
11928 int result;
11929 dXSARGS;
11930
11931 if ((items < 4) || (items > 4)) {
11932 SWIG_croak("Usage: gsl_multifit_fsolver_driver(s,maxiter,epsabs,epsrel);");
11933 }
11934 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver, 0 | 0 );
11935 if (!SWIG_IsOK(res1)) {
11936 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_driver" "', argument " "1"" of type '" "gsl_multifit_fsolver *""'");
11937 }
11938 arg1 = (gsl_multifit_fsolver *)(argp1);
11939 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
11940 if (!SWIG_IsOK(ecode2)) {
11941 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_fsolver_driver" "', argument " "2"" of type '" "size_t""'");
11942 }
11943 arg2 = (size_t)(val2);
11944 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
11945 if (!SWIG_IsOK(ecode3)) {
11946 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_multifit_fsolver_driver" "', argument " "3"" of type '" "double""'");
11947 }
11948 arg3 = (double)(val3);
11949 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
11950 if (!SWIG_IsOK(ecode4)) {
11951 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_multifit_fsolver_driver" "', argument " "4"" of type '" "double""'");
11952 }
11953 arg4 = (double)(val4);
11954 result = (int)gsl_multifit_fsolver_driver(arg1,arg2,arg3,arg4);
11955 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
11956
11957
11958
11959
11960 XSRETURN(argvi);
11961 fail:
11962
11963
11964
11965
11966 SWIG_croak_null();
11967 }
11968 }
11969
11970
XS(_wrap_gsl_multifit_fsolver_name)11971 XS(_wrap_gsl_multifit_fsolver_name) {
11972 {
11973 gsl_multifit_fsolver *arg1 = (gsl_multifit_fsolver *) 0 ;
11974 void *argp1 = 0 ;
11975 int res1 = 0 ;
11976 int argvi = 0;
11977 char *result = 0 ;
11978 dXSARGS;
11979
11980 if ((items < 1) || (items > 1)) {
11981 SWIG_croak("Usage: gsl_multifit_fsolver_name(s);");
11982 }
11983 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver, 0 | 0 );
11984 if (!SWIG_IsOK(res1)) {
11985 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_name" "', argument " "1"" of type '" "gsl_multifit_fsolver const *""'");
11986 }
11987 arg1 = (gsl_multifit_fsolver *)(argp1);
11988 result = (char *)gsl_multifit_fsolver_name((gsl_multifit_fsolver const *)arg1);
11989 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
11990
11991 XSRETURN(argvi);
11992 fail:
11993
11994 SWIG_croak_null();
11995 }
11996 }
11997
11998
XS(_wrap_gsl_multifit_fsolver_position)11999 XS(_wrap_gsl_multifit_fsolver_position) {
12000 {
12001 gsl_multifit_fsolver *arg1 = (gsl_multifit_fsolver *) 0 ;
12002 void *argp1 = 0 ;
12003 int res1 = 0 ;
12004 int argvi = 0;
12005 gsl_vector *result = 0 ;
12006 dXSARGS;
12007
12008 if ((items < 1) || (items > 1)) {
12009 SWIG_croak("Usage: gsl_multifit_fsolver_position(s);");
12010 }
12011 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fsolver, 0 | 0 );
12012 if (!SWIG_IsOK(res1)) {
12013 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fsolver_position" "', argument " "1"" of type '" "gsl_multifit_fsolver const *""'");
12014 }
12015 arg1 = (gsl_multifit_fsolver *)(argp1);
12016 result = (gsl_vector *)gsl_multifit_fsolver_position((gsl_multifit_fsolver const *)arg1);
12017 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
12018
12019 XSRETURN(argvi);
12020 fail:
12021
12022 SWIG_croak_null();
12023 }
12024 }
12025
12026
XS(_wrap_gsl_multifit_function_fdf_struct_f_set)12027 XS(_wrap_gsl_multifit_function_fdf_struct_f_set) {
12028 {
12029 struct gsl_multifit_function_fdf_struct *arg1 = (struct gsl_multifit_function_fdf_struct *) 0 ;
12030 int (*arg2)(gsl_vector const *,void *,gsl_vector *) = (int (*)(gsl_vector const *,void *,gsl_vector *)) 0 ;
12031 void *argp1 = 0 ;
12032 int res1 = 0 ;
12033 int argvi = 0;
12034 dXSARGS;
12035
12036 if ((items < 2) || (items > 2)) {
12037 SWIG_croak("Usage: gsl_multifit_function_fdf_struct_f_set(self,f);");
12038 }
12039 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | 0 );
12040 if (!SWIG_IsOK(res1)) {
12041 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_function_fdf_struct_f_set" "', argument " "1"" of type '" "struct gsl_multifit_function_fdf_struct *""'");
12042 }
12043 arg1 = (struct gsl_multifit_function_fdf_struct *)(argp1);
12044 {
12045 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_q_const__gsl_vector_p_void_p_gsl_vector__int);
12046 if (!SWIG_IsOK(res)) {
12047 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multifit_function_fdf_struct_f_set" "', argument " "2"" of type '" "int (*)(gsl_vector const *,void *,gsl_vector *)""'");
12048 }
12049 }
12050 if (arg1) (arg1)->f = arg2;
12051 ST(argvi) = &PL_sv_undef;
12052
12053
12054 XSRETURN(argvi);
12055 fail:
12056
12057
12058 SWIG_croak_null();
12059 }
12060 }
12061
12062
XS(_wrap_gsl_multifit_function_fdf_struct_f_get)12063 XS(_wrap_gsl_multifit_function_fdf_struct_f_get) {
12064 {
12065 struct gsl_multifit_function_fdf_struct *arg1 = (struct gsl_multifit_function_fdf_struct *) 0 ;
12066 void *argp1 = 0 ;
12067 int res1 = 0 ;
12068 int argvi = 0;
12069 int (*result)(gsl_vector const *,void *,gsl_vector *) = 0 ;
12070 dXSARGS;
12071
12072 if ((items < 1) || (items > 1)) {
12073 SWIG_croak("Usage: gsl_multifit_function_fdf_struct_f_get(self);");
12074 }
12075 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | 0 );
12076 if (!SWIG_IsOK(res1)) {
12077 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_function_fdf_struct_f_get" "', argument " "1"" of type '" "struct gsl_multifit_function_fdf_struct *""'");
12078 }
12079 arg1 = (struct gsl_multifit_function_fdf_struct *)(argp1);
12080 result = (int (*)(gsl_vector const *,void *,gsl_vector *)) ((arg1)->f);
12081 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__gsl_vector_p_void_p_gsl_vector__int); argvi++ ;
12082
12083 XSRETURN(argvi);
12084 fail:
12085
12086 SWIG_croak_null();
12087 }
12088 }
12089
12090
XS(_wrap_gsl_multifit_function_fdf_struct_df_set)12091 XS(_wrap_gsl_multifit_function_fdf_struct_df_set) {
12092 {
12093 struct gsl_multifit_function_fdf_struct *arg1 = (struct gsl_multifit_function_fdf_struct *) 0 ;
12094 int (*arg2)(gsl_vector const *,void *,gsl_matrix *) = (int (*)(gsl_vector const *,void *,gsl_matrix *)) 0 ;
12095 void *argp1 = 0 ;
12096 int res1 = 0 ;
12097 int argvi = 0;
12098 dXSARGS;
12099
12100 if ((items < 2) || (items > 2)) {
12101 SWIG_croak("Usage: gsl_multifit_function_fdf_struct_df_set(self,df);");
12102 }
12103 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | 0 );
12104 if (!SWIG_IsOK(res1)) {
12105 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_function_fdf_struct_df_set" "', argument " "1"" of type '" "struct gsl_multifit_function_fdf_struct *""'");
12106 }
12107 arg1 = (struct gsl_multifit_function_fdf_struct *)(argp1);
12108 {
12109 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_q_const__gsl_vector_p_void_p_gsl_matrix__int);
12110 if (!SWIG_IsOK(res)) {
12111 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multifit_function_fdf_struct_df_set" "', argument " "2"" of type '" "int (*)(gsl_vector const *,void *,gsl_matrix *)""'");
12112 }
12113 }
12114 if (arg1) (arg1)->df = arg2;
12115 ST(argvi) = &PL_sv_undef;
12116
12117
12118 XSRETURN(argvi);
12119 fail:
12120
12121
12122 SWIG_croak_null();
12123 }
12124 }
12125
12126
XS(_wrap_gsl_multifit_function_fdf_struct_df_get)12127 XS(_wrap_gsl_multifit_function_fdf_struct_df_get) {
12128 {
12129 struct gsl_multifit_function_fdf_struct *arg1 = (struct gsl_multifit_function_fdf_struct *) 0 ;
12130 void *argp1 = 0 ;
12131 int res1 = 0 ;
12132 int argvi = 0;
12133 int (*result)(gsl_vector const *,void *,gsl_matrix *) = 0 ;
12134 dXSARGS;
12135
12136 if ((items < 1) || (items > 1)) {
12137 SWIG_croak("Usage: gsl_multifit_function_fdf_struct_df_get(self);");
12138 }
12139 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | 0 );
12140 if (!SWIG_IsOK(res1)) {
12141 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_function_fdf_struct_df_get" "', argument " "1"" of type '" "struct gsl_multifit_function_fdf_struct *""'");
12142 }
12143 arg1 = (struct gsl_multifit_function_fdf_struct *)(argp1);
12144 result = (int (*)(gsl_vector const *,void *,gsl_matrix *)) ((arg1)->df);
12145 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__gsl_vector_p_void_p_gsl_matrix__int); argvi++ ;
12146
12147 XSRETURN(argvi);
12148 fail:
12149
12150 SWIG_croak_null();
12151 }
12152 }
12153
12154
XS(_wrap_gsl_multifit_function_fdf_struct_fdf_set)12155 XS(_wrap_gsl_multifit_function_fdf_struct_fdf_set) {
12156 {
12157 struct gsl_multifit_function_fdf_struct *arg1 = (struct gsl_multifit_function_fdf_struct *) 0 ;
12158 int (*arg2)(gsl_vector const *,void *,gsl_vector *,gsl_matrix *) = (int (*)(gsl_vector const *,void *,gsl_vector *,gsl_matrix *)) 0 ;
12159 void *argp1 = 0 ;
12160 int res1 = 0 ;
12161 int argvi = 0;
12162 dXSARGS;
12163
12164 if ((items < 2) || (items > 2)) {
12165 SWIG_croak("Usage: gsl_multifit_function_fdf_struct_fdf_set(self,fdf);");
12166 }
12167 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | 0 );
12168 if (!SWIG_IsOK(res1)) {
12169 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_function_fdf_struct_fdf_set" "', argument " "1"" of type '" "struct gsl_multifit_function_fdf_struct *""'");
12170 }
12171 arg1 = (struct gsl_multifit_function_fdf_struct *)(argp1);
12172 {
12173 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_q_const__gsl_vector_p_void_p_gsl_vector_p_gsl_matrix__int);
12174 if (!SWIG_IsOK(res)) {
12175 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multifit_function_fdf_struct_fdf_set" "', argument " "2"" of type '" "int (*)(gsl_vector const *,void *,gsl_vector *,gsl_matrix *)""'");
12176 }
12177 }
12178 if (arg1) (arg1)->fdf = arg2;
12179 ST(argvi) = &PL_sv_undef;
12180
12181
12182 XSRETURN(argvi);
12183 fail:
12184
12185
12186 SWIG_croak_null();
12187 }
12188 }
12189
12190
XS(_wrap_gsl_multifit_function_fdf_struct_fdf_get)12191 XS(_wrap_gsl_multifit_function_fdf_struct_fdf_get) {
12192 {
12193 struct gsl_multifit_function_fdf_struct *arg1 = (struct gsl_multifit_function_fdf_struct *) 0 ;
12194 void *argp1 = 0 ;
12195 int res1 = 0 ;
12196 int argvi = 0;
12197 int (*result)(gsl_vector const *,void *,gsl_vector *,gsl_matrix *) = 0 ;
12198 dXSARGS;
12199
12200 if ((items < 1) || (items > 1)) {
12201 SWIG_croak("Usage: gsl_multifit_function_fdf_struct_fdf_get(self);");
12202 }
12203 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | 0 );
12204 if (!SWIG_IsOK(res1)) {
12205 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_function_fdf_struct_fdf_get" "', argument " "1"" of type '" "struct gsl_multifit_function_fdf_struct *""'");
12206 }
12207 arg1 = (struct gsl_multifit_function_fdf_struct *)(argp1);
12208 result = (int (*)(gsl_vector const *,void *,gsl_vector *,gsl_matrix *)) ((arg1)->fdf);
12209 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_q_const__gsl_vector_p_void_p_gsl_vector_p_gsl_matrix__int); argvi++ ;
12210
12211 XSRETURN(argvi);
12212 fail:
12213
12214 SWIG_croak_null();
12215 }
12216 }
12217
12218
XS(_wrap_gsl_multifit_function_fdf_struct_n_set)12219 XS(_wrap_gsl_multifit_function_fdf_struct_n_set) {
12220 {
12221 struct gsl_multifit_function_fdf_struct *arg1 = (struct gsl_multifit_function_fdf_struct *) 0 ;
12222 size_t arg2 ;
12223 void *argp1 = 0 ;
12224 int res1 = 0 ;
12225 size_t val2 ;
12226 int ecode2 = 0 ;
12227 int argvi = 0;
12228 dXSARGS;
12229
12230 if ((items < 2) || (items > 2)) {
12231 SWIG_croak("Usage: gsl_multifit_function_fdf_struct_n_set(self,n);");
12232 }
12233 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | 0 );
12234 if (!SWIG_IsOK(res1)) {
12235 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_function_fdf_struct_n_set" "', argument " "1"" of type '" "struct gsl_multifit_function_fdf_struct *""'");
12236 }
12237 arg1 = (struct gsl_multifit_function_fdf_struct *)(argp1);
12238 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12239 if (!SWIG_IsOK(ecode2)) {
12240 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_function_fdf_struct_n_set" "', argument " "2"" of type '" "size_t""'");
12241 }
12242 arg2 = (size_t)(val2);
12243 if (arg1) (arg1)->n = arg2;
12244 ST(argvi) = &PL_sv_undef;
12245
12246
12247 XSRETURN(argvi);
12248 fail:
12249
12250
12251 SWIG_croak_null();
12252 }
12253 }
12254
12255
XS(_wrap_gsl_multifit_function_fdf_struct_n_get)12256 XS(_wrap_gsl_multifit_function_fdf_struct_n_get) {
12257 {
12258 struct gsl_multifit_function_fdf_struct *arg1 = (struct gsl_multifit_function_fdf_struct *) 0 ;
12259 void *argp1 = 0 ;
12260 int res1 = 0 ;
12261 int argvi = 0;
12262 size_t result;
12263 dXSARGS;
12264
12265 if ((items < 1) || (items > 1)) {
12266 SWIG_croak("Usage: gsl_multifit_function_fdf_struct_n_get(self);");
12267 }
12268 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | 0 );
12269 if (!SWIG_IsOK(res1)) {
12270 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_function_fdf_struct_n_get" "', argument " "1"" of type '" "struct gsl_multifit_function_fdf_struct *""'");
12271 }
12272 arg1 = (struct gsl_multifit_function_fdf_struct *)(argp1);
12273 result = ((arg1)->n);
12274 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
12275
12276 XSRETURN(argvi);
12277 fail:
12278
12279 SWIG_croak_null();
12280 }
12281 }
12282
12283
XS(_wrap_gsl_multifit_function_fdf_struct_p_set)12284 XS(_wrap_gsl_multifit_function_fdf_struct_p_set) {
12285 {
12286 struct gsl_multifit_function_fdf_struct *arg1 = (struct gsl_multifit_function_fdf_struct *) 0 ;
12287 size_t arg2 ;
12288 void *argp1 = 0 ;
12289 int res1 = 0 ;
12290 size_t val2 ;
12291 int ecode2 = 0 ;
12292 int argvi = 0;
12293 dXSARGS;
12294
12295 if ((items < 2) || (items > 2)) {
12296 SWIG_croak("Usage: gsl_multifit_function_fdf_struct_p_set(self,p);");
12297 }
12298 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | 0 );
12299 if (!SWIG_IsOK(res1)) {
12300 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_function_fdf_struct_p_set" "', argument " "1"" of type '" "struct gsl_multifit_function_fdf_struct *""'");
12301 }
12302 arg1 = (struct gsl_multifit_function_fdf_struct *)(argp1);
12303 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12304 if (!SWIG_IsOK(ecode2)) {
12305 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_function_fdf_struct_p_set" "', argument " "2"" of type '" "size_t""'");
12306 }
12307 arg2 = (size_t)(val2);
12308 if (arg1) (arg1)->p = arg2;
12309 ST(argvi) = &PL_sv_undef;
12310
12311
12312 XSRETURN(argvi);
12313 fail:
12314
12315
12316 SWIG_croak_null();
12317 }
12318 }
12319
12320
XS(_wrap_gsl_multifit_function_fdf_struct_p_get)12321 XS(_wrap_gsl_multifit_function_fdf_struct_p_get) {
12322 {
12323 struct gsl_multifit_function_fdf_struct *arg1 = (struct gsl_multifit_function_fdf_struct *) 0 ;
12324 void *argp1 = 0 ;
12325 int res1 = 0 ;
12326 int argvi = 0;
12327 size_t result;
12328 dXSARGS;
12329
12330 if ((items < 1) || (items > 1)) {
12331 SWIG_croak("Usage: gsl_multifit_function_fdf_struct_p_get(self);");
12332 }
12333 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | 0 );
12334 if (!SWIG_IsOK(res1)) {
12335 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_function_fdf_struct_p_get" "', argument " "1"" of type '" "struct gsl_multifit_function_fdf_struct *""'");
12336 }
12337 arg1 = (struct gsl_multifit_function_fdf_struct *)(argp1);
12338 result = ((arg1)->p);
12339 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
12340
12341 XSRETURN(argvi);
12342 fail:
12343
12344 SWIG_croak_null();
12345 }
12346 }
12347
12348
XS(_wrap_gsl_multifit_function_fdf_struct_params_set)12349 XS(_wrap_gsl_multifit_function_fdf_struct_params_set) {
12350 {
12351 struct gsl_multifit_function_fdf_struct *arg1 = (struct gsl_multifit_function_fdf_struct *) 0 ;
12352 void *arg2 = (void *) 0 ;
12353 void *argp1 = 0 ;
12354 int res1 = 0 ;
12355 int res2 ;
12356 int argvi = 0;
12357 dXSARGS;
12358
12359 if ((items < 2) || (items > 2)) {
12360 SWIG_croak("Usage: gsl_multifit_function_fdf_struct_params_set(self,params);");
12361 }
12362 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | 0 );
12363 if (!SWIG_IsOK(res1)) {
12364 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_function_fdf_struct_params_set" "', argument " "1"" of type '" "struct gsl_multifit_function_fdf_struct *""'");
12365 }
12366 arg1 = (struct gsl_multifit_function_fdf_struct *)(argp1);
12367 res2 = SWIG_ConvertPtr(ST(1),SWIG_as_voidptrptr(&arg2), 0, SWIG_POINTER_DISOWN);
12368 if (!SWIG_IsOK(res2)) {
12369 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_function_fdf_struct_params_set" "', argument " "2"" of type '" "void *""'");
12370 }
12371 if (arg1) (arg1)->params = arg2;
12372 ST(argvi) = &PL_sv_undef;
12373
12374
12375 XSRETURN(argvi);
12376 fail:
12377
12378
12379 SWIG_croak_null();
12380 }
12381 }
12382
12383
XS(_wrap_gsl_multifit_function_fdf_struct_params_get)12384 XS(_wrap_gsl_multifit_function_fdf_struct_params_get) {
12385 {
12386 struct gsl_multifit_function_fdf_struct *arg1 = (struct gsl_multifit_function_fdf_struct *) 0 ;
12387 void *argp1 = 0 ;
12388 int res1 = 0 ;
12389 int argvi = 0;
12390 void *result = 0 ;
12391 dXSARGS;
12392
12393 if ((items < 1) || (items > 1)) {
12394 SWIG_croak("Usage: gsl_multifit_function_fdf_struct_params_get(self);");
12395 }
12396 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | 0 );
12397 if (!SWIG_IsOK(res1)) {
12398 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_function_fdf_struct_params_get" "', argument " "1"" of type '" "struct gsl_multifit_function_fdf_struct *""'");
12399 }
12400 arg1 = (struct gsl_multifit_function_fdf_struct *)(argp1);
12401 result = (void *) ((arg1)->params);
12402 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_void, 0 | 0); argvi++ ;
12403
12404 XSRETURN(argvi);
12405 fail:
12406
12407 SWIG_croak_null();
12408 }
12409 }
12410
12411
XS(_wrap_gsl_multifit_function_fdf_struct_nevalf_set)12412 XS(_wrap_gsl_multifit_function_fdf_struct_nevalf_set) {
12413 {
12414 struct gsl_multifit_function_fdf_struct *arg1 = (struct gsl_multifit_function_fdf_struct *) 0 ;
12415 size_t arg2 ;
12416 void *argp1 = 0 ;
12417 int res1 = 0 ;
12418 size_t val2 ;
12419 int ecode2 = 0 ;
12420 int argvi = 0;
12421 dXSARGS;
12422
12423 if ((items < 2) || (items > 2)) {
12424 SWIG_croak("Usage: gsl_multifit_function_fdf_struct_nevalf_set(self,nevalf);");
12425 }
12426 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | 0 );
12427 if (!SWIG_IsOK(res1)) {
12428 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_function_fdf_struct_nevalf_set" "', argument " "1"" of type '" "struct gsl_multifit_function_fdf_struct *""'");
12429 }
12430 arg1 = (struct gsl_multifit_function_fdf_struct *)(argp1);
12431 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12432 if (!SWIG_IsOK(ecode2)) {
12433 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_function_fdf_struct_nevalf_set" "', argument " "2"" of type '" "size_t""'");
12434 }
12435 arg2 = (size_t)(val2);
12436 if (arg1) (arg1)->nevalf = arg2;
12437 ST(argvi) = &PL_sv_undef;
12438
12439
12440 XSRETURN(argvi);
12441 fail:
12442
12443
12444 SWIG_croak_null();
12445 }
12446 }
12447
12448
XS(_wrap_gsl_multifit_function_fdf_struct_nevalf_get)12449 XS(_wrap_gsl_multifit_function_fdf_struct_nevalf_get) {
12450 {
12451 struct gsl_multifit_function_fdf_struct *arg1 = (struct gsl_multifit_function_fdf_struct *) 0 ;
12452 void *argp1 = 0 ;
12453 int res1 = 0 ;
12454 int argvi = 0;
12455 size_t result;
12456 dXSARGS;
12457
12458 if ((items < 1) || (items > 1)) {
12459 SWIG_croak("Usage: gsl_multifit_function_fdf_struct_nevalf_get(self);");
12460 }
12461 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | 0 );
12462 if (!SWIG_IsOK(res1)) {
12463 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_function_fdf_struct_nevalf_get" "', argument " "1"" of type '" "struct gsl_multifit_function_fdf_struct *""'");
12464 }
12465 arg1 = (struct gsl_multifit_function_fdf_struct *)(argp1);
12466 result = ((arg1)->nevalf);
12467 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
12468
12469 XSRETURN(argvi);
12470 fail:
12471
12472 SWIG_croak_null();
12473 }
12474 }
12475
12476
XS(_wrap_gsl_multifit_function_fdf_struct_nevaldf_set)12477 XS(_wrap_gsl_multifit_function_fdf_struct_nevaldf_set) {
12478 {
12479 struct gsl_multifit_function_fdf_struct *arg1 = (struct gsl_multifit_function_fdf_struct *) 0 ;
12480 size_t arg2 ;
12481 void *argp1 = 0 ;
12482 int res1 = 0 ;
12483 size_t val2 ;
12484 int ecode2 = 0 ;
12485 int argvi = 0;
12486 dXSARGS;
12487
12488 if ((items < 2) || (items > 2)) {
12489 SWIG_croak("Usage: gsl_multifit_function_fdf_struct_nevaldf_set(self,nevaldf);");
12490 }
12491 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | 0 );
12492 if (!SWIG_IsOK(res1)) {
12493 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_function_fdf_struct_nevaldf_set" "', argument " "1"" of type '" "struct gsl_multifit_function_fdf_struct *""'");
12494 }
12495 arg1 = (struct gsl_multifit_function_fdf_struct *)(argp1);
12496 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12497 if (!SWIG_IsOK(ecode2)) {
12498 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_function_fdf_struct_nevaldf_set" "', argument " "2"" of type '" "size_t""'");
12499 }
12500 arg2 = (size_t)(val2);
12501 if (arg1) (arg1)->nevaldf = arg2;
12502 ST(argvi) = &PL_sv_undef;
12503
12504
12505 XSRETURN(argvi);
12506 fail:
12507
12508
12509 SWIG_croak_null();
12510 }
12511 }
12512
12513
XS(_wrap_gsl_multifit_function_fdf_struct_nevaldf_get)12514 XS(_wrap_gsl_multifit_function_fdf_struct_nevaldf_get) {
12515 {
12516 struct gsl_multifit_function_fdf_struct *arg1 = (struct gsl_multifit_function_fdf_struct *) 0 ;
12517 void *argp1 = 0 ;
12518 int res1 = 0 ;
12519 int argvi = 0;
12520 size_t result;
12521 dXSARGS;
12522
12523 if ((items < 1) || (items > 1)) {
12524 SWIG_croak("Usage: gsl_multifit_function_fdf_struct_nevaldf_get(self);");
12525 }
12526 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | 0 );
12527 if (!SWIG_IsOK(res1)) {
12528 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_function_fdf_struct_nevaldf_get" "', argument " "1"" of type '" "struct gsl_multifit_function_fdf_struct *""'");
12529 }
12530 arg1 = (struct gsl_multifit_function_fdf_struct *)(argp1);
12531 result = ((arg1)->nevaldf);
12532 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
12533
12534 XSRETURN(argvi);
12535 fail:
12536
12537 SWIG_croak_null();
12538 }
12539 }
12540
12541
XS(_wrap_new_gsl_multifit_function_fdf_struct)12542 XS(_wrap_new_gsl_multifit_function_fdf_struct) {
12543 {
12544 int argvi = 0;
12545 struct gsl_multifit_function_fdf_struct *result = 0 ;
12546 dXSARGS;
12547
12548 if ((items < 0) || (items > 0)) {
12549 SWIG_croak("Usage: new_gsl_multifit_function_fdf_struct();");
12550 }
12551 result = (struct gsl_multifit_function_fdf_struct *)calloc(1, sizeof(struct gsl_multifit_function_fdf_struct));
12552 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_function_fdf_struct, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
12553 XSRETURN(argvi);
12554 fail:
12555 SWIG_croak_null();
12556 }
12557 }
12558
12559
XS(_wrap_delete_gsl_multifit_function_fdf_struct)12560 XS(_wrap_delete_gsl_multifit_function_fdf_struct) {
12561 {
12562 struct gsl_multifit_function_fdf_struct *arg1 = (struct gsl_multifit_function_fdf_struct *) 0 ;
12563 void *argp1 = 0 ;
12564 int res1 = 0 ;
12565 int argvi = 0;
12566 dXSARGS;
12567
12568 if ((items < 1) || (items > 1)) {
12569 SWIG_croak("Usage: delete_gsl_multifit_function_fdf_struct(self);");
12570 }
12571 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_function_fdf_struct, SWIG_POINTER_DISOWN | 0 );
12572 if (!SWIG_IsOK(res1)) {
12573 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_multifit_function_fdf_struct" "', argument " "1"" of type '" "struct gsl_multifit_function_fdf_struct *""'");
12574 }
12575 arg1 = (struct gsl_multifit_function_fdf_struct *)(argp1);
12576 free((char *) arg1);
12577 ST(argvi) = &PL_sv_undef;
12578
12579 XSRETURN(argvi);
12580 fail:
12581
12582 SWIG_croak_null();
12583 }
12584 }
12585
12586
XS(_wrap_gsl_multifit_fdfsolver_type_name_set)12587 XS(_wrap_gsl_multifit_fdfsolver_type_name_set) {
12588 {
12589 gsl_multifit_fdfsolver_type *arg1 = (gsl_multifit_fdfsolver_type *) 0 ;
12590 char *arg2 = (char *) 0 ;
12591 void *argp1 = 0 ;
12592 int res1 = 0 ;
12593 int res2 ;
12594 char *buf2 = 0 ;
12595 int alloc2 = 0 ;
12596 int argvi = 0;
12597 dXSARGS;
12598
12599 if ((items < 2) || (items > 2)) {
12600 SWIG_croak("Usage: gsl_multifit_fdfsolver_type_name_set(self,name);");
12601 }
12602 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver_type, 0 | 0 );
12603 if (!SWIG_IsOK(res1)) {
12604 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_type_name_set" "', argument " "1"" of type '" "gsl_multifit_fdfsolver_type *""'");
12605 }
12606 arg1 = (gsl_multifit_fdfsolver_type *)(argp1);
12607 res2 = SWIG_AsCharPtrAndSize(ST(1), &buf2, NULL, &alloc2);
12608 if (!SWIG_IsOK(res2)) {
12609 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fdfsolver_type_name_set" "', argument " "2"" of type '" "char const *""'");
12610 }
12611 arg2 = (char *)(buf2);
12612 if (arg2) {
12613 size_t size = strlen((const char *)((const char *)(arg2))) + 1;
12614 arg1->name = (char const *)(char *)memcpy(malloc((size)*sizeof(char)), arg2, sizeof(char)*(size));
12615 } else {
12616 arg1->name = 0;
12617 }
12618 ST(argvi) = &PL_sv_undef;
12619
12620 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
12621 XSRETURN(argvi);
12622 fail:
12623
12624 if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
12625 SWIG_croak_null();
12626 }
12627 }
12628
12629
XS(_wrap_gsl_multifit_fdfsolver_type_name_get)12630 XS(_wrap_gsl_multifit_fdfsolver_type_name_get) {
12631 {
12632 gsl_multifit_fdfsolver_type *arg1 = (gsl_multifit_fdfsolver_type *) 0 ;
12633 void *argp1 = 0 ;
12634 int res1 = 0 ;
12635 int argvi = 0;
12636 char *result = 0 ;
12637 dXSARGS;
12638
12639 if ((items < 1) || (items > 1)) {
12640 SWIG_croak("Usage: gsl_multifit_fdfsolver_type_name_get(self);");
12641 }
12642 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver_type, 0 | 0 );
12643 if (!SWIG_IsOK(res1)) {
12644 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_type_name_get" "', argument " "1"" of type '" "gsl_multifit_fdfsolver_type *""'");
12645 }
12646 arg1 = (gsl_multifit_fdfsolver_type *)(argp1);
12647 result = (char *) ((arg1)->name);
12648 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
12649
12650 XSRETURN(argvi);
12651 fail:
12652
12653 SWIG_croak_null();
12654 }
12655 }
12656
12657
XS(_wrap_gsl_multifit_fdfsolver_type_size_set)12658 XS(_wrap_gsl_multifit_fdfsolver_type_size_set) {
12659 {
12660 gsl_multifit_fdfsolver_type *arg1 = (gsl_multifit_fdfsolver_type *) 0 ;
12661 size_t arg2 ;
12662 void *argp1 = 0 ;
12663 int res1 = 0 ;
12664 size_t val2 ;
12665 int ecode2 = 0 ;
12666 int argvi = 0;
12667 dXSARGS;
12668
12669 if ((items < 2) || (items > 2)) {
12670 SWIG_croak("Usage: gsl_multifit_fdfsolver_type_size_set(self,size);");
12671 }
12672 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver_type, 0 | 0 );
12673 if (!SWIG_IsOK(res1)) {
12674 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_type_size_set" "', argument " "1"" of type '" "gsl_multifit_fdfsolver_type *""'");
12675 }
12676 arg1 = (gsl_multifit_fdfsolver_type *)(argp1);
12677 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
12678 if (!SWIG_IsOK(ecode2)) {
12679 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_fdfsolver_type_size_set" "', argument " "2"" of type '" "size_t""'");
12680 }
12681 arg2 = (size_t)(val2);
12682 if (arg1) (arg1)->size = arg2;
12683 ST(argvi) = &PL_sv_undef;
12684
12685
12686 XSRETURN(argvi);
12687 fail:
12688
12689
12690 SWIG_croak_null();
12691 }
12692 }
12693
12694
XS(_wrap_gsl_multifit_fdfsolver_type_size_get)12695 XS(_wrap_gsl_multifit_fdfsolver_type_size_get) {
12696 {
12697 gsl_multifit_fdfsolver_type *arg1 = (gsl_multifit_fdfsolver_type *) 0 ;
12698 void *argp1 = 0 ;
12699 int res1 = 0 ;
12700 int argvi = 0;
12701 size_t result;
12702 dXSARGS;
12703
12704 if ((items < 1) || (items > 1)) {
12705 SWIG_croak("Usage: gsl_multifit_fdfsolver_type_size_get(self);");
12706 }
12707 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver_type, 0 | 0 );
12708 if (!SWIG_IsOK(res1)) {
12709 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_type_size_get" "', argument " "1"" of type '" "gsl_multifit_fdfsolver_type *""'");
12710 }
12711 arg1 = (gsl_multifit_fdfsolver_type *)(argp1);
12712 result = ((arg1)->size);
12713 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
12714
12715 XSRETURN(argvi);
12716 fail:
12717
12718 SWIG_croak_null();
12719 }
12720 }
12721
12722
XS(_wrap_gsl_multifit_fdfsolver_type_alloc_set)12723 XS(_wrap_gsl_multifit_fdfsolver_type_alloc_set) {
12724 {
12725 gsl_multifit_fdfsolver_type *arg1 = (gsl_multifit_fdfsolver_type *) 0 ;
12726 int (*arg2)(void *,size_t,size_t) = (int (*)(void *,size_t,size_t)) 0 ;
12727 void *argp1 = 0 ;
12728 int res1 = 0 ;
12729 int argvi = 0;
12730 dXSARGS;
12731
12732 if ((items < 2) || (items > 2)) {
12733 SWIG_croak("Usage: gsl_multifit_fdfsolver_type_alloc_set(self,alloc);");
12734 }
12735 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver_type, 0 | 0 );
12736 if (!SWIG_IsOK(res1)) {
12737 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_type_alloc_set" "', argument " "1"" of type '" "gsl_multifit_fdfsolver_type *""'");
12738 }
12739 arg1 = (gsl_multifit_fdfsolver_type *)(argp1);
12740 {
12741 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_void_size_t_size_t__int);
12742 if (!SWIG_IsOK(res)) {
12743 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multifit_fdfsolver_type_alloc_set" "', argument " "2"" of type '" "int (*)(void *,size_t,size_t)""'");
12744 }
12745 }
12746 if (arg1) (arg1)->alloc = arg2;
12747 ST(argvi) = &PL_sv_undef;
12748
12749
12750 XSRETURN(argvi);
12751 fail:
12752
12753
12754 SWIG_croak_null();
12755 }
12756 }
12757
12758
XS(_wrap_gsl_multifit_fdfsolver_type_alloc_get)12759 XS(_wrap_gsl_multifit_fdfsolver_type_alloc_get) {
12760 {
12761 gsl_multifit_fdfsolver_type *arg1 = (gsl_multifit_fdfsolver_type *) 0 ;
12762 void *argp1 = 0 ;
12763 int res1 = 0 ;
12764 int argvi = 0;
12765 int (*result)(void *,size_t,size_t) = 0 ;
12766 dXSARGS;
12767
12768 if ((items < 1) || (items > 1)) {
12769 SWIG_croak("Usage: gsl_multifit_fdfsolver_type_alloc_get(self);");
12770 }
12771 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver_type, 0 | 0 );
12772 if (!SWIG_IsOK(res1)) {
12773 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_type_alloc_get" "', argument " "1"" of type '" "gsl_multifit_fdfsolver_type *""'");
12774 }
12775 arg1 = (gsl_multifit_fdfsolver_type *)(argp1);
12776 result = (int (*)(void *,size_t,size_t)) ((arg1)->alloc);
12777 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_void_size_t_size_t__int); argvi++ ;
12778
12779 XSRETURN(argvi);
12780 fail:
12781
12782 SWIG_croak_null();
12783 }
12784 }
12785
12786
XS(_wrap_gsl_multifit_fdfsolver_type_set_set)12787 XS(_wrap_gsl_multifit_fdfsolver_type_set_set) {
12788 {
12789 gsl_multifit_fdfsolver_type *arg1 = (gsl_multifit_fdfsolver_type *) 0 ;
12790 int (*arg2)(void *,gsl_vector const *,gsl_multifit_function_fdf *,gsl_vector *,gsl_vector *,gsl_vector *) = (int (*)(void *,gsl_vector const *,gsl_multifit_function_fdf *,gsl_vector *,gsl_vector *,gsl_vector *)) 0 ;
12791 void *argp1 = 0 ;
12792 int res1 = 0 ;
12793 int argvi = 0;
12794 dXSARGS;
12795
12796 if ((items < 2) || (items > 2)) {
12797 SWIG_croak("Usage: gsl_multifit_fdfsolver_type_set_set(self,set);");
12798 }
12799 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver_type, 0 | 0 );
12800 if (!SWIG_IsOK(res1)) {
12801 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_type_set_set" "', argument " "1"" of type '" "gsl_multifit_fdfsolver_type *""'");
12802 }
12803 arg1 = (gsl_multifit_fdfsolver_type *)(argp1);
12804 {
12805 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_void_p_q_const__gsl_vector_p_struct_gsl_multifit_function_fdf_struct_p_gsl_vector_p_gsl_vector_p_gsl_vector__int);
12806 if (!SWIG_IsOK(res)) {
12807 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multifit_fdfsolver_type_set_set" "', argument " "2"" of type '" "int (*)(void *,gsl_vector const *,gsl_multifit_function_fdf *,gsl_vector *,gsl_vector *,gsl_vector *)""'");
12808 }
12809 }
12810 if (arg1) (arg1)->set = arg2;
12811 ST(argvi) = &PL_sv_undef;
12812
12813
12814 XSRETURN(argvi);
12815 fail:
12816
12817
12818 SWIG_croak_null();
12819 }
12820 }
12821
12822
XS(_wrap_gsl_multifit_fdfsolver_type_set_get)12823 XS(_wrap_gsl_multifit_fdfsolver_type_set_get) {
12824 {
12825 gsl_multifit_fdfsolver_type *arg1 = (gsl_multifit_fdfsolver_type *) 0 ;
12826 void *argp1 = 0 ;
12827 int res1 = 0 ;
12828 int argvi = 0;
12829 int (*result)(void *,gsl_vector const *,gsl_multifit_function_fdf *,gsl_vector *,gsl_vector *,gsl_vector *) = 0 ;
12830 dXSARGS;
12831
12832 if ((items < 1) || (items > 1)) {
12833 SWIG_croak("Usage: gsl_multifit_fdfsolver_type_set_get(self);");
12834 }
12835 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver_type, 0 | 0 );
12836 if (!SWIG_IsOK(res1)) {
12837 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_type_set_get" "', argument " "1"" of type '" "gsl_multifit_fdfsolver_type *""'");
12838 }
12839 arg1 = (gsl_multifit_fdfsolver_type *)(argp1);
12840 result = (int (*)(void *,gsl_vector const *,gsl_multifit_function_fdf *,gsl_vector *,gsl_vector *,gsl_vector *)) ((arg1)->set);
12841 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_void_p_q_const__gsl_vector_p_struct_gsl_multifit_function_fdf_struct_p_gsl_vector_p_gsl_vector_p_gsl_vector__int); argvi++ ;
12842
12843 XSRETURN(argvi);
12844 fail:
12845
12846 SWIG_croak_null();
12847 }
12848 }
12849
12850
XS(_wrap_gsl_multifit_fdfsolver_type_iterate_set)12851 XS(_wrap_gsl_multifit_fdfsolver_type_iterate_set) {
12852 {
12853 gsl_multifit_fdfsolver_type *arg1 = (gsl_multifit_fdfsolver_type *) 0 ;
12854 int (*arg2)(void *,gsl_vector const *,gsl_multifit_function_fdf *,gsl_vector *,gsl_vector *,gsl_vector *) = (int (*)(void *,gsl_vector const *,gsl_multifit_function_fdf *,gsl_vector *,gsl_vector *,gsl_vector *)) 0 ;
12855 void *argp1 = 0 ;
12856 int res1 = 0 ;
12857 int argvi = 0;
12858 dXSARGS;
12859
12860 if ((items < 2) || (items > 2)) {
12861 SWIG_croak("Usage: gsl_multifit_fdfsolver_type_iterate_set(self,iterate);");
12862 }
12863 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver_type, 0 | 0 );
12864 if (!SWIG_IsOK(res1)) {
12865 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_type_iterate_set" "', argument " "1"" of type '" "gsl_multifit_fdfsolver_type *""'");
12866 }
12867 arg1 = (gsl_multifit_fdfsolver_type *)(argp1);
12868 {
12869 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_void_p_q_const__gsl_vector_p_struct_gsl_multifit_function_fdf_struct_p_gsl_vector_p_gsl_vector_p_gsl_vector__int);
12870 if (!SWIG_IsOK(res)) {
12871 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multifit_fdfsolver_type_iterate_set" "', argument " "2"" of type '" "int (*)(void *,gsl_vector const *,gsl_multifit_function_fdf *,gsl_vector *,gsl_vector *,gsl_vector *)""'");
12872 }
12873 }
12874 if (arg1) (arg1)->iterate = arg2;
12875 ST(argvi) = &PL_sv_undef;
12876
12877
12878 XSRETURN(argvi);
12879 fail:
12880
12881
12882 SWIG_croak_null();
12883 }
12884 }
12885
12886
XS(_wrap_gsl_multifit_fdfsolver_type_iterate_get)12887 XS(_wrap_gsl_multifit_fdfsolver_type_iterate_get) {
12888 {
12889 gsl_multifit_fdfsolver_type *arg1 = (gsl_multifit_fdfsolver_type *) 0 ;
12890 void *argp1 = 0 ;
12891 int res1 = 0 ;
12892 int argvi = 0;
12893 int (*result)(void *,gsl_vector const *,gsl_multifit_function_fdf *,gsl_vector *,gsl_vector *,gsl_vector *) = 0 ;
12894 dXSARGS;
12895
12896 if ((items < 1) || (items > 1)) {
12897 SWIG_croak("Usage: gsl_multifit_fdfsolver_type_iterate_get(self);");
12898 }
12899 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver_type, 0 | 0 );
12900 if (!SWIG_IsOK(res1)) {
12901 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_type_iterate_get" "', argument " "1"" of type '" "gsl_multifit_fdfsolver_type *""'");
12902 }
12903 arg1 = (gsl_multifit_fdfsolver_type *)(argp1);
12904 result = (int (*)(void *,gsl_vector const *,gsl_multifit_function_fdf *,gsl_vector *,gsl_vector *,gsl_vector *)) ((arg1)->iterate);
12905 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_void_p_q_const__gsl_vector_p_struct_gsl_multifit_function_fdf_struct_p_gsl_vector_p_gsl_vector_p_gsl_vector__int); argvi++ ;
12906
12907 XSRETURN(argvi);
12908 fail:
12909
12910 SWIG_croak_null();
12911 }
12912 }
12913
12914
XS(_wrap_gsl_multifit_fdfsolver_type_gradient_set)12915 XS(_wrap_gsl_multifit_fdfsolver_type_gradient_set) {
12916 {
12917 gsl_multifit_fdfsolver_type *arg1 = (gsl_multifit_fdfsolver_type *) 0 ;
12918 int (*arg2)(void *,gsl_vector *) = (int (*)(void *,gsl_vector *)) 0 ;
12919 void *argp1 = 0 ;
12920 int res1 = 0 ;
12921 int argvi = 0;
12922 dXSARGS;
12923
12924 if ((items < 2) || (items > 2)) {
12925 SWIG_croak("Usage: gsl_multifit_fdfsolver_type_gradient_set(self,gradient);");
12926 }
12927 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver_type, 0 | 0 );
12928 if (!SWIG_IsOK(res1)) {
12929 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_type_gradient_set" "', argument " "1"" of type '" "gsl_multifit_fdfsolver_type *""'");
12930 }
12931 arg1 = (gsl_multifit_fdfsolver_type *)(argp1);
12932 {
12933 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_void_p_gsl_vector__int);
12934 if (!SWIG_IsOK(res)) {
12935 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multifit_fdfsolver_type_gradient_set" "', argument " "2"" of type '" "int (*)(void *,gsl_vector *)""'");
12936 }
12937 }
12938 if (arg1) (arg1)->gradient = arg2;
12939 ST(argvi) = &PL_sv_undef;
12940
12941
12942 XSRETURN(argvi);
12943 fail:
12944
12945
12946 SWIG_croak_null();
12947 }
12948 }
12949
12950
XS(_wrap_gsl_multifit_fdfsolver_type_gradient_get)12951 XS(_wrap_gsl_multifit_fdfsolver_type_gradient_get) {
12952 {
12953 gsl_multifit_fdfsolver_type *arg1 = (gsl_multifit_fdfsolver_type *) 0 ;
12954 void *argp1 = 0 ;
12955 int res1 = 0 ;
12956 int argvi = 0;
12957 int (*result)(void *,gsl_vector *) = 0 ;
12958 dXSARGS;
12959
12960 if ((items < 1) || (items > 1)) {
12961 SWIG_croak("Usage: gsl_multifit_fdfsolver_type_gradient_get(self);");
12962 }
12963 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver_type, 0 | 0 );
12964 if (!SWIG_IsOK(res1)) {
12965 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_type_gradient_get" "', argument " "1"" of type '" "gsl_multifit_fdfsolver_type *""'");
12966 }
12967 arg1 = (gsl_multifit_fdfsolver_type *)(argp1);
12968 result = (int (*)(void *,gsl_vector *)) ((arg1)->gradient);
12969 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_void_p_gsl_vector__int); argvi++ ;
12970
12971 XSRETURN(argvi);
12972 fail:
12973
12974 SWIG_croak_null();
12975 }
12976 }
12977
12978
XS(_wrap_gsl_multifit_fdfsolver_type_jac_set)12979 XS(_wrap_gsl_multifit_fdfsolver_type_jac_set) {
12980 {
12981 gsl_multifit_fdfsolver_type *arg1 = (gsl_multifit_fdfsolver_type *) 0 ;
12982 int (*arg2)(void *,gsl_matrix *) = (int (*)(void *,gsl_matrix *)) 0 ;
12983 void *argp1 = 0 ;
12984 int res1 = 0 ;
12985 int argvi = 0;
12986 dXSARGS;
12987
12988 if ((items < 2) || (items > 2)) {
12989 SWIG_croak("Usage: gsl_multifit_fdfsolver_type_jac_set(self,jac);");
12990 }
12991 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver_type, 0 | 0 );
12992 if (!SWIG_IsOK(res1)) {
12993 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_type_jac_set" "', argument " "1"" of type '" "gsl_multifit_fdfsolver_type *""'");
12994 }
12995 arg1 = (gsl_multifit_fdfsolver_type *)(argp1);
12996 {
12997 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_void_p_gsl_matrix__int);
12998 if (!SWIG_IsOK(res)) {
12999 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multifit_fdfsolver_type_jac_set" "', argument " "2"" of type '" "int (*)(void *,gsl_matrix *)""'");
13000 }
13001 }
13002 if (arg1) (arg1)->jac = arg2;
13003 ST(argvi) = &PL_sv_undef;
13004
13005
13006 XSRETURN(argvi);
13007 fail:
13008
13009
13010 SWIG_croak_null();
13011 }
13012 }
13013
13014
XS(_wrap_gsl_multifit_fdfsolver_type_jac_get)13015 XS(_wrap_gsl_multifit_fdfsolver_type_jac_get) {
13016 {
13017 gsl_multifit_fdfsolver_type *arg1 = (gsl_multifit_fdfsolver_type *) 0 ;
13018 void *argp1 = 0 ;
13019 int res1 = 0 ;
13020 int argvi = 0;
13021 int (*result)(void *,gsl_matrix *) = 0 ;
13022 dXSARGS;
13023
13024 if ((items < 1) || (items > 1)) {
13025 SWIG_croak("Usage: gsl_multifit_fdfsolver_type_jac_get(self);");
13026 }
13027 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver_type, 0 | 0 );
13028 if (!SWIG_IsOK(res1)) {
13029 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_type_jac_get" "', argument " "1"" of type '" "gsl_multifit_fdfsolver_type *""'");
13030 }
13031 arg1 = (gsl_multifit_fdfsolver_type *)(argp1);
13032 result = (int (*)(void *,gsl_matrix *)) ((arg1)->jac);
13033 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_void_p_gsl_matrix__int); argvi++ ;
13034
13035 XSRETURN(argvi);
13036 fail:
13037
13038 SWIG_croak_null();
13039 }
13040 }
13041
13042
XS(_wrap_gsl_multifit_fdfsolver_type_free_set)13043 XS(_wrap_gsl_multifit_fdfsolver_type_free_set) {
13044 {
13045 gsl_multifit_fdfsolver_type *arg1 = (gsl_multifit_fdfsolver_type *) 0 ;
13046 void (*arg2)(void *) = (void (*)(void *)) 0 ;
13047 void *argp1 = 0 ;
13048 int res1 = 0 ;
13049 int argvi = 0;
13050 dXSARGS;
13051
13052 if ((items < 2) || (items > 2)) {
13053 SWIG_croak("Usage: gsl_multifit_fdfsolver_type_free_set(self,free);");
13054 }
13055 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver_type, 0 | 0 );
13056 if (!SWIG_IsOK(res1)) {
13057 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_type_free_set" "', argument " "1"" of type '" "gsl_multifit_fdfsolver_type *""'");
13058 }
13059 arg1 = (gsl_multifit_fdfsolver_type *)(argp1);
13060 {
13061 int res = SWIG_ConvertFunctionPtr(ST(1), (void**)(&arg2), SWIGTYPE_p_f_p_void__void);
13062 if (!SWIG_IsOK(res)) {
13063 SWIG_exception_fail(SWIG_ArgError(res), "in method '" "gsl_multifit_fdfsolver_type_free_set" "', argument " "2"" of type '" "void (*)(void *)""'");
13064 }
13065 }
13066 if (arg1) (arg1)->free = arg2;
13067 ST(argvi) = &PL_sv_undef;
13068
13069
13070 XSRETURN(argvi);
13071 fail:
13072
13073
13074 SWIG_croak_null();
13075 }
13076 }
13077
13078
XS(_wrap_gsl_multifit_fdfsolver_type_free_get)13079 XS(_wrap_gsl_multifit_fdfsolver_type_free_get) {
13080 {
13081 gsl_multifit_fdfsolver_type *arg1 = (gsl_multifit_fdfsolver_type *) 0 ;
13082 void *argp1 = 0 ;
13083 int res1 = 0 ;
13084 int argvi = 0;
13085 void (*result)(void *) = 0 ;
13086 dXSARGS;
13087
13088 if ((items < 1) || (items > 1)) {
13089 SWIG_croak("Usage: gsl_multifit_fdfsolver_type_free_get(self);");
13090 }
13091 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver_type, 0 | 0 );
13092 if (!SWIG_IsOK(res1)) {
13093 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_type_free_get" "', argument " "1"" of type '" "gsl_multifit_fdfsolver_type *""'");
13094 }
13095 arg1 = (gsl_multifit_fdfsolver_type *)(argp1);
13096 result = (void (*)(void *)) ((arg1)->free);
13097 ST(argvi) = SWIG_NewFunctionPtrObj((void *)(result), SWIGTYPE_p_f_p_void__void); argvi++ ;
13098
13099 XSRETURN(argvi);
13100 fail:
13101
13102 SWIG_croak_null();
13103 }
13104 }
13105
13106
XS(_wrap_new_gsl_multifit_fdfsolver_type)13107 XS(_wrap_new_gsl_multifit_fdfsolver_type) {
13108 {
13109 int argvi = 0;
13110 gsl_multifit_fdfsolver_type *result = 0 ;
13111 dXSARGS;
13112
13113 if ((items < 0) || (items > 0)) {
13114 SWIG_croak("Usage: new_gsl_multifit_fdfsolver_type();");
13115 }
13116 result = (gsl_multifit_fdfsolver_type *)calloc(1, sizeof(gsl_multifit_fdfsolver_type));
13117 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_fdfsolver_type, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
13118 XSRETURN(argvi);
13119 fail:
13120 SWIG_croak_null();
13121 }
13122 }
13123
13124
XS(_wrap_delete_gsl_multifit_fdfsolver_type)13125 XS(_wrap_delete_gsl_multifit_fdfsolver_type) {
13126 {
13127 gsl_multifit_fdfsolver_type *arg1 = (gsl_multifit_fdfsolver_type *) 0 ;
13128 void *argp1 = 0 ;
13129 int res1 = 0 ;
13130 int argvi = 0;
13131 dXSARGS;
13132
13133 if ((items < 1) || (items > 1)) {
13134 SWIG_croak("Usage: delete_gsl_multifit_fdfsolver_type(self);");
13135 }
13136 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver_type, SWIG_POINTER_DISOWN | 0 );
13137 if (!SWIG_IsOK(res1)) {
13138 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_multifit_fdfsolver_type" "', argument " "1"" of type '" "gsl_multifit_fdfsolver_type *""'");
13139 }
13140 arg1 = (gsl_multifit_fdfsolver_type *)(argp1);
13141 free((char *) arg1);
13142 ST(argvi) = &PL_sv_undef;
13143
13144 XSRETURN(argvi);
13145 fail:
13146
13147 SWIG_croak_null();
13148 }
13149 }
13150
13151
XS(_wrap_gsl_multifit_fdfsolver_type_set)13152 XS(_wrap_gsl_multifit_fdfsolver_type_set) {
13153 {
13154 gsl_multifit_fdfsolver *arg1 = (gsl_multifit_fdfsolver *) 0 ;
13155 gsl_multifit_fdfsolver_type *arg2 = (gsl_multifit_fdfsolver_type *) 0 ;
13156 void *argp1 = 0 ;
13157 int res1 = 0 ;
13158 void *argp2 = 0 ;
13159 int res2 = 0 ;
13160 int argvi = 0;
13161 dXSARGS;
13162
13163 if ((items < 2) || (items > 2)) {
13164 SWIG_croak("Usage: gsl_multifit_fdfsolver_type_set(self,type);");
13165 }
13166 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | 0 );
13167 if (!SWIG_IsOK(res1)) {
13168 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_type_set" "', argument " "1"" of type '" "gsl_multifit_fdfsolver *""'");
13169 }
13170 arg1 = (gsl_multifit_fdfsolver *)(argp1);
13171 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_fdfsolver_type, SWIG_POINTER_DISOWN | 0 );
13172 if (!SWIG_IsOK(res2)) {
13173 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fdfsolver_type_set" "', argument " "2"" of type '" "gsl_multifit_fdfsolver_type const *""'");
13174 }
13175 arg2 = (gsl_multifit_fdfsolver_type *)(argp2);
13176 if (arg1) (arg1)->type = (gsl_multifit_fdfsolver_type const *)arg2;
13177 ST(argvi) = &PL_sv_undef;
13178
13179
13180 XSRETURN(argvi);
13181 fail:
13182
13183
13184 SWIG_croak_null();
13185 }
13186 }
13187
13188
XS(_wrap_gsl_multifit_fdfsolver_type_get)13189 XS(_wrap_gsl_multifit_fdfsolver_type_get) {
13190 {
13191 gsl_multifit_fdfsolver *arg1 = (gsl_multifit_fdfsolver *) 0 ;
13192 void *argp1 = 0 ;
13193 int res1 = 0 ;
13194 int argvi = 0;
13195 gsl_multifit_fdfsolver_type *result = 0 ;
13196 dXSARGS;
13197
13198 if ((items < 1) || (items > 1)) {
13199 SWIG_croak("Usage: gsl_multifit_fdfsolver_type_get(self);");
13200 }
13201 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | 0 );
13202 if (!SWIG_IsOK(res1)) {
13203 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_type_get" "', argument " "1"" of type '" "gsl_multifit_fdfsolver *""'");
13204 }
13205 arg1 = (gsl_multifit_fdfsolver *)(argp1);
13206 result = (gsl_multifit_fdfsolver_type *) ((arg1)->type);
13207 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_fdfsolver_type, 0 | SWIG_SHADOW); argvi++ ;
13208
13209 XSRETURN(argvi);
13210 fail:
13211
13212 SWIG_croak_null();
13213 }
13214 }
13215
13216
XS(_wrap_gsl_multifit_fdfsolver_fdf_set)13217 XS(_wrap_gsl_multifit_fdfsolver_fdf_set) {
13218 {
13219 gsl_multifit_fdfsolver *arg1 = (gsl_multifit_fdfsolver *) 0 ;
13220 gsl_multifit_function_fdf *arg2 = (gsl_multifit_function_fdf *) 0 ;
13221 void *argp1 = 0 ;
13222 int res1 = 0 ;
13223 void *argp2 = 0 ;
13224 int res2 = 0 ;
13225 int argvi = 0;
13226 dXSARGS;
13227
13228 if ((items < 2) || (items > 2)) {
13229 SWIG_croak("Usage: gsl_multifit_fdfsolver_fdf_set(self,fdf);");
13230 }
13231 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | 0 );
13232 if (!SWIG_IsOK(res1)) {
13233 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_fdf_set" "', argument " "1"" of type '" "gsl_multifit_fdfsolver *""'");
13234 }
13235 arg1 = (gsl_multifit_fdfsolver *)(argp1);
13236 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_function_fdf_struct, SWIG_POINTER_DISOWN | 0 );
13237 if (!SWIG_IsOK(res2)) {
13238 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fdfsolver_fdf_set" "', argument " "2"" of type '" "gsl_multifit_function_fdf *""'");
13239 }
13240 arg2 = (gsl_multifit_function_fdf *)(argp2);
13241 if (arg1) (arg1)->fdf = arg2;
13242 ST(argvi) = &PL_sv_undef;
13243
13244
13245 XSRETURN(argvi);
13246 fail:
13247
13248
13249 SWIG_croak_null();
13250 }
13251 }
13252
13253
XS(_wrap_gsl_multifit_fdfsolver_fdf_get)13254 XS(_wrap_gsl_multifit_fdfsolver_fdf_get) {
13255 {
13256 gsl_multifit_fdfsolver *arg1 = (gsl_multifit_fdfsolver *) 0 ;
13257 void *argp1 = 0 ;
13258 int res1 = 0 ;
13259 int argvi = 0;
13260 gsl_multifit_function_fdf *result = 0 ;
13261 dXSARGS;
13262
13263 if ((items < 1) || (items > 1)) {
13264 SWIG_croak("Usage: gsl_multifit_fdfsolver_fdf_get(self);");
13265 }
13266 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | 0 );
13267 if (!SWIG_IsOK(res1)) {
13268 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_fdf_get" "', argument " "1"" of type '" "gsl_multifit_fdfsolver *""'");
13269 }
13270 arg1 = (gsl_multifit_fdfsolver *)(argp1);
13271 result = (gsl_multifit_function_fdf *) ((arg1)->fdf);
13272 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | SWIG_SHADOW); argvi++ ;
13273
13274 XSRETURN(argvi);
13275 fail:
13276
13277 SWIG_croak_null();
13278 }
13279 }
13280
13281
XS(_wrap_gsl_multifit_fdfsolver_x_set)13282 XS(_wrap_gsl_multifit_fdfsolver_x_set) {
13283 {
13284 gsl_multifit_fdfsolver *arg1 = (gsl_multifit_fdfsolver *) 0 ;
13285 gsl_vector *arg2 = (gsl_vector *) 0 ;
13286 void *argp1 = 0 ;
13287 int res1 = 0 ;
13288 void *argp2 = 0 ;
13289 int res2 = 0 ;
13290 int argvi = 0;
13291 dXSARGS;
13292
13293 if ((items < 2) || (items > 2)) {
13294 SWIG_croak("Usage: gsl_multifit_fdfsolver_x_set(self,x);");
13295 }
13296 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | 0 );
13297 if (!SWIG_IsOK(res1)) {
13298 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_x_set" "', argument " "1"" of type '" "gsl_multifit_fdfsolver *""'");
13299 }
13300 arg1 = (gsl_multifit_fdfsolver *)(argp1);
13301 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
13302 if (!SWIG_IsOK(res2)) {
13303 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fdfsolver_x_set" "', argument " "2"" of type '" "gsl_vector *""'");
13304 }
13305 arg2 = (gsl_vector *)(argp2);
13306 if (arg1) (arg1)->x = arg2;
13307 ST(argvi) = &PL_sv_undef;
13308
13309
13310 XSRETURN(argvi);
13311 fail:
13312
13313
13314 SWIG_croak_null();
13315 }
13316 }
13317
13318
XS(_wrap_gsl_multifit_fdfsolver_x_get)13319 XS(_wrap_gsl_multifit_fdfsolver_x_get) {
13320 {
13321 gsl_multifit_fdfsolver *arg1 = (gsl_multifit_fdfsolver *) 0 ;
13322 void *argp1 = 0 ;
13323 int res1 = 0 ;
13324 int argvi = 0;
13325 gsl_vector *result = 0 ;
13326 dXSARGS;
13327
13328 if ((items < 1) || (items > 1)) {
13329 SWIG_croak("Usage: gsl_multifit_fdfsolver_x_get(self);");
13330 }
13331 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | 0 );
13332 if (!SWIG_IsOK(res1)) {
13333 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_x_get" "', argument " "1"" of type '" "gsl_multifit_fdfsolver *""'");
13334 }
13335 arg1 = (gsl_multifit_fdfsolver *)(argp1);
13336 result = (gsl_vector *) ((arg1)->x);
13337 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
13338
13339 XSRETURN(argvi);
13340 fail:
13341
13342 SWIG_croak_null();
13343 }
13344 }
13345
13346
XS(_wrap_gsl_multifit_fdfsolver_f_set)13347 XS(_wrap_gsl_multifit_fdfsolver_f_set) {
13348 {
13349 gsl_multifit_fdfsolver *arg1 = (gsl_multifit_fdfsolver *) 0 ;
13350 gsl_vector *arg2 = (gsl_vector *) 0 ;
13351 void *argp1 = 0 ;
13352 int res1 = 0 ;
13353 void *argp2 = 0 ;
13354 int res2 = 0 ;
13355 int argvi = 0;
13356 dXSARGS;
13357
13358 if ((items < 2) || (items > 2)) {
13359 SWIG_croak("Usage: gsl_multifit_fdfsolver_f_set(self,f);");
13360 }
13361 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | 0 );
13362 if (!SWIG_IsOK(res1)) {
13363 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_f_set" "', argument " "1"" of type '" "gsl_multifit_fdfsolver *""'");
13364 }
13365 arg1 = (gsl_multifit_fdfsolver *)(argp1);
13366 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
13367 if (!SWIG_IsOK(res2)) {
13368 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fdfsolver_f_set" "', argument " "2"" of type '" "gsl_vector *""'");
13369 }
13370 arg2 = (gsl_vector *)(argp2);
13371 if (arg1) (arg1)->f = arg2;
13372 ST(argvi) = &PL_sv_undef;
13373
13374
13375 XSRETURN(argvi);
13376 fail:
13377
13378
13379 SWIG_croak_null();
13380 }
13381 }
13382
13383
XS(_wrap_gsl_multifit_fdfsolver_f_get)13384 XS(_wrap_gsl_multifit_fdfsolver_f_get) {
13385 {
13386 gsl_multifit_fdfsolver *arg1 = (gsl_multifit_fdfsolver *) 0 ;
13387 void *argp1 = 0 ;
13388 int res1 = 0 ;
13389 int argvi = 0;
13390 gsl_vector *result = 0 ;
13391 dXSARGS;
13392
13393 if ((items < 1) || (items > 1)) {
13394 SWIG_croak("Usage: gsl_multifit_fdfsolver_f_get(self);");
13395 }
13396 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | 0 );
13397 if (!SWIG_IsOK(res1)) {
13398 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_f_get" "', argument " "1"" of type '" "gsl_multifit_fdfsolver *""'");
13399 }
13400 arg1 = (gsl_multifit_fdfsolver *)(argp1);
13401 result = (gsl_vector *) ((arg1)->f);
13402 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
13403
13404 XSRETURN(argvi);
13405 fail:
13406
13407 SWIG_croak_null();
13408 }
13409 }
13410
13411
XS(_wrap_gsl_multifit_fdfsolver_dx_set)13412 XS(_wrap_gsl_multifit_fdfsolver_dx_set) {
13413 {
13414 gsl_multifit_fdfsolver *arg1 = (gsl_multifit_fdfsolver *) 0 ;
13415 gsl_vector *arg2 = (gsl_vector *) 0 ;
13416 void *argp1 = 0 ;
13417 int res1 = 0 ;
13418 void *argp2 = 0 ;
13419 int res2 = 0 ;
13420 int argvi = 0;
13421 dXSARGS;
13422
13423 if ((items < 2) || (items > 2)) {
13424 SWIG_croak("Usage: gsl_multifit_fdfsolver_dx_set(self,dx);");
13425 }
13426 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | 0 );
13427 if (!SWIG_IsOK(res1)) {
13428 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_dx_set" "', argument " "1"" of type '" "gsl_multifit_fdfsolver *""'");
13429 }
13430 arg1 = (gsl_multifit_fdfsolver *)(argp1);
13431 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
13432 if (!SWIG_IsOK(res2)) {
13433 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fdfsolver_dx_set" "', argument " "2"" of type '" "gsl_vector *""'");
13434 }
13435 arg2 = (gsl_vector *)(argp2);
13436 if (arg1) (arg1)->dx = arg2;
13437 ST(argvi) = &PL_sv_undef;
13438
13439
13440 XSRETURN(argvi);
13441 fail:
13442
13443
13444 SWIG_croak_null();
13445 }
13446 }
13447
13448
XS(_wrap_gsl_multifit_fdfsolver_dx_get)13449 XS(_wrap_gsl_multifit_fdfsolver_dx_get) {
13450 {
13451 gsl_multifit_fdfsolver *arg1 = (gsl_multifit_fdfsolver *) 0 ;
13452 void *argp1 = 0 ;
13453 int res1 = 0 ;
13454 int argvi = 0;
13455 gsl_vector *result = 0 ;
13456 dXSARGS;
13457
13458 if ((items < 1) || (items > 1)) {
13459 SWIG_croak("Usage: gsl_multifit_fdfsolver_dx_get(self);");
13460 }
13461 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | 0 );
13462 if (!SWIG_IsOK(res1)) {
13463 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_dx_get" "', argument " "1"" of type '" "gsl_multifit_fdfsolver *""'");
13464 }
13465 arg1 = (gsl_multifit_fdfsolver *)(argp1);
13466 result = (gsl_vector *) ((arg1)->dx);
13467 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
13468
13469 XSRETURN(argvi);
13470 fail:
13471
13472 SWIG_croak_null();
13473 }
13474 }
13475
13476
XS(_wrap_gsl_multifit_fdfsolver_g_set)13477 XS(_wrap_gsl_multifit_fdfsolver_g_set) {
13478 {
13479 gsl_multifit_fdfsolver *arg1 = (gsl_multifit_fdfsolver *) 0 ;
13480 gsl_vector *arg2 = (gsl_vector *) 0 ;
13481 void *argp1 = 0 ;
13482 int res1 = 0 ;
13483 void *argp2 = 0 ;
13484 int res2 = 0 ;
13485 int argvi = 0;
13486 dXSARGS;
13487
13488 if ((items < 2) || (items > 2)) {
13489 SWIG_croak("Usage: gsl_multifit_fdfsolver_g_set(self,g);");
13490 }
13491 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | 0 );
13492 if (!SWIG_IsOK(res1)) {
13493 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_g_set" "', argument " "1"" of type '" "gsl_multifit_fdfsolver *""'");
13494 }
13495 arg1 = (gsl_multifit_fdfsolver *)(argp1);
13496 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
13497 if (!SWIG_IsOK(res2)) {
13498 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fdfsolver_g_set" "', argument " "2"" of type '" "gsl_vector *""'");
13499 }
13500 arg2 = (gsl_vector *)(argp2);
13501 if (arg1) (arg1)->g = arg2;
13502 ST(argvi) = &PL_sv_undef;
13503
13504
13505 XSRETURN(argvi);
13506 fail:
13507
13508
13509 SWIG_croak_null();
13510 }
13511 }
13512
13513
XS(_wrap_gsl_multifit_fdfsolver_g_get)13514 XS(_wrap_gsl_multifit_fdfsolver_g_get) {
13515 {
13516 gsl_multifit_fdfsolver *arg1 = (gsl_multifit_fdfsolver *) 0 ;
13517 void *argp1 = 0 ;
13518 int res1 = 0 ;
13519 int argvi = 0;
13520 gsl_vector *result = 0 ;
13521 dXSARGS;
13522
13523 if ((items < 1) || (items > 1)) {
13524 SWIG_croak("Usage: gsl_multifit_fdfsolver_g_get(self);");
13525 }
13526 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | 0 );
13527 if (!SWIG_IsOK(res1)) {
13528 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_g_get" "', argument " "1"" of type '" "gsl_multifit_fdfsolver *""'");
13529 }
13530 arg1 = (gsl_multifit_fdfsolver *)(argp1);
13531 result = (gsl_vector *) ((arg1)->g);
13532 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
13533
13534 XSRETURN(argvi);
13535 fail:
13536
13537 SWIG_croak_null();
13538 }
13539 }
13540
13541
XS(_wrap_gsl_multifit_fdfsolver_sqrt_wts_set)13542 XS(_wrap_gsl_multifit_fdfsolver_sqrt_wts_set) {
13543 {
13544 gsl_multifit_fdfsolver *arg1 = (gsl_multifit_fdfsolver *) 0 ;
13545 gsl_vector *arg2 = (gsl_vector *) 0 ;
13546 void *argp1 = 0 ;
13547 int res1 = 0 ;
13548 void *argp2 = 0 ;
13549 int res2 = 0 ;
13550 int argvi = 0;
13551 dXSARGS;
13552
13553 if ((items < 2) || (items > 2)) {
13554 SWIG_croak("Usage: gsl_multifit_fdfsolver_sqrt_wts_set(self,sqrt_wts);");
13555 }
13556 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | 0 );
13557 if (!SWIG_IsOK(res1)) {
13558 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_sqrt_wts_set" "', argument " "1"" of type '" "gsl_multifit_fdfsolver *""'");
13559 }
13560 arg1 = (gsl_multifit_fdfsolver *)(argp1);
13561 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
13562 if (!SWIG_IsOK(res2)) {
13563 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fdfsolver_sqrt_wts_set" "', argument " "2"" of type '" "gsl_vector *""'");
13564 }
13565 arg2 = (gsl_vector *)(argp2);
13566 if (arg1) (arg1)->sqrt_wts = arg2;
13567 ST(argvi) = &PL_sv_undef;
13568
13569
13570 XSRETURN(argvi);
13571 fail:
13572
13573
13574 SWIG_croak_null();
13575 }
13576 }
13577
13578
XS(_wrap_gsl_multifit_fdfsolver_sqrt_wts_get)13579 XS(_wrap_gsl_multifit_fdfsolver_sqrt_wts_get) {
13580 {
13581 gsl_multifit_fdfsolver *arg1 = (gsl_multifit_fdfsolver *) 0 ;
13582 void *argp1 = 0 ;
13583 int res1 = 0 ;
13584 int argvi = 0;
13585 gsl_vector *result = 0 ;
13586 dXSARGS;
13587
13588 if ((items < 1) || (items > 1)) {
13589 SWIG_croak("Usage: gsl_multifit_fdfsolver_sqrt_wts_get(self);");
13590 }
13591 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | 0 );
13592 if (!SWIG_IsOK(res1)) {
13593 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_sqrt_wts_get" "', argument " "1"" of type '" "gsl_multifit_fdfsolver *""'");
13594 }
13595 arg1 = (gsl_multifit_fdfsolver *)(argp1);
13596 result = (gsl_vector *) ((arg1)->sqrt_wts);
13597 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
13598
13599 XSRETURN(argvi);
13600 fail:
13601
13602 SWIG_croak_null();
13603 }
13604 }
13605
13606
XS(_wrap_gsl_multifit_fdfsolver_niter_set)13607 XS(_wrap_gsl_multifit_fdfsolver_niter_set) {
13608 {
13609 gsl_multifit_fdfsolver *arg1 = (gsl_multifit_fdfsolver *) 0 ;
13610 size_t arg2 ;
13611 void *argp1 = 0 ;
13612 int res1 = 0 ;
13613 size_t val2 ;
13614 int ecode2 = 0 ;
13615 int argvi = 0;
13616 dXSARGS;
13617
13618 if ((items < 2) || (items > 2)) {
13619 SWIG_croak("Usage: gsl_multifit_fdfsolver_niter_set(self,niter);");
13620 }
13621 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | 0 );
13622 if (!SWIG_IsOK(res1)) {
13623 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_niter_set" "', argument " "1"" of type '" "gsl_multifit_fdfsolver *""'");
13624 }
13625 arg1 = (gsl_multifit_fdfsolver *)(argp1);
13626 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
13627 if (!SWIG_IsOK(ecode2)) {
13628 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_fdfsolver_niter_set" "', argument " "2"" of type '" "size_t""'");
13629 }
13630 arg2 = (size_t)(val2);
13631 if (arg1) (arg1)->niter = arg2;
13632 ST(argvi) = &PL_sv_undef;
13633
13634
13635 XSRETURN(argvi);
13636 fail:
13637
13638
13639 SWIG_croak_null();
13640 }
13641 }
13642
13643
XS(_wrap_gsl_multifit_fdfsolver_niter_get)13644 XS(_wrap_gsl_multifit_fdfsolver_niter_get) {
13645 {
13646 gsl_multifit_fdfsolver *arg1 = (gsl_multifit_fdfsolver *) 0 ;
13647 void *argp1 = 0 ;
13648 int res1 = 0 ;
13649 int argvi = 0;
13650 size_t result;
13651 dXSARGS;
13652
13653 if ((items < 1) || (items > 1)) {
13654 SWIG_croak("Usage: gsl_multifit_fdfsolver_niter_get(self);");
13655 }
13656 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | 0 );
13657 if (!SWIG_IsOK(res1)) {
13658 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_niter_get" "', argument " "1"" of type '" "gsl_multifit_fdfsolver *""'");
13659 }
13660 arg1 = (gsl_multifit_fdfsolver *)(argp1);
13661 result = ((arg1)->niter);
13662 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
13663
13664 XSRETURN(argvi);
13665 fail:
13666
13667 SWIG_croak_null();
13668 }
13669 }
13670
13671
XS(_wrap_gsl_multifit_fdfsolver_state_set)13672 XS(_wrap_gsl_multifit_fdfsolver_state_set) {
13673 {
13674 gsl_multifit_fdfsolver *arg1 = (gsl_multifit_fdfsolver *) 0 ;
13675 void *arg2 = (void *) 0 ;
13676 void *argp1 = 0 ;
13677 int res1 = 0 ;
13678 int res2 ;
13679 int argvi = 0;
13680 dXSARGS;
13681
13682 if ((items < 2) || (items > 2)) {
13683 SWIG_croak("Usage: gsl_multifit_fdfsolver_state_set(self,state);");
13684 }
13685 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | 0 );
13686 if (!SWIG_IsOK(res1)) {
13687 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_state_set" "', argument " "1"" of type '" "gsl_multifit_fdfsolver *""'");
13688 }
13689 arg1 = (gsl_multifit_fdfsolver *)(argp1);
13690 res2 = SWIG_ConvertPtr(ST(1),SWIG_as_voidptrptr(&arg2), 0, SWIG_POINTER_DISOWN);
13691 if (!SWIG_IsOK(res2)) {
13692 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fdfsolver_state_set" "', argument " "2"" of type '" "void *""'");
13693 }
13694 if (arg1) (arg1)->state = arg2;
13695 ST(argvi) = &PL_sv_undef;
13696
13697
13698 XSRETURN(argvi);
13699 fail:
13700
13701
13702 SWIG_croak_null();
13703 }
13704 }
13705
13706
XS(_wrap_gsl_multifit_fdfsolver_state_get)13707 XS(_wrap_gsl_multifit_fdfsolver_state_get) {
13708 {
13709 gsl_multifit_fdfsolver *arg1 = (gsl_multifit_fdfsolver *) 0 ;
13710 void *argp1 = 0 ;
13711 int res1 = 0 ;
13712 int argvi = 0;
13713 void *result = 0 ;
13714 dXSARGS;
13715
13716 if ((items < 1) || (items > 1)) {
13717 SWIG_croak("Usage: gsl_multifit_fdfsolver_state_get(self);");
13718 }
13719 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | 0 );
13720 if (!SWIG_IsOK(res1)) {
13721 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_state_get" "', argument " "1"" of type '" "gsl_multifit_fdfsolver *""'");
13722 }
13723 arg1 = (gsl_multifit_fdfsolver *)(argp1);
13724 result = (void *) ((arg1)->state);
13725 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_void, 0 | 0); argvi++ ;
13726
13727 XSRETURN(argvi);
13728 fail:
13729
13730 SWIG_croak_null();
13731 }
13732 }
13733
13734
XS(_wrap_new_gsl_multifit_fdfsolver)13735 XS(_wrap_new_gsl_multifit_fdfsolver) {
13736 {
13737 int argvi = 0;
13738 gsl_multifit_fdfsolver *result = 0 ;
13739 dXSARGS;
13740
13741 if ((items < 0) || (items > 0)) {
13742 SWIG_croak("Usage: new_gsl_multifit_fdfsolver();");
13743 }
13744 result = (gsl_multifit_fdfsolver *)calloc(1, sizeof(gsl_multifit_fdfsolver));
13745 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_fdfsolver, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
13746 XSRETURN(argvi);
13747 fail:
13748 SWIG_croak_null();
13749 }
13750 }
13751
13752
XS(_wrap_delete_gsl_multifit_fdfsolver)13753 XS(_wrap_delete_gsl_multifit_fdfsolver) {
13754 {
13755 gsl_multifit_fdfsolver *arg1 = (gsl_multifit_fdfsolver *) 0 ;
13756 void *argp1 = 0 ;
13757 int res1 = 0 ;
13758 int argvi = 0;
13759 dXSARGS;
13760
13761 if ((items < 1) || (items > 1)) {
13762 SWIG_croak("Usage: delete_gsl_multifit_fdfsolver(self);");
13763 }
13764 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver, SWIG_POINTER_DISOWN | 0 );
13765 if (!SWIG_IsOK(res1)) {
13766 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_multifit_fdfsolver" "', argument " "1"" of type '" "gsl_multifit_fdfsolver *""'");
13767 }
13768 arg1 = (gsl_multifit_fdfsolver *)(argp1);
13769 free((char *) arg1);
13770 ST(argvi) = &PL_sv_undef;
13771
13772 XSRETURN(argvi);
13773 fail:
13774
13775 SWIG_croak_null();
13776 }
13777 }
13778
13779
XS(_wrap_gsl_multifit_fdfsolver_alloc)13780 XS(_wrap_gsl_multifit_fdfsolver_alloc) {
13781 {
13782 gsl_multifit_fdfsolver_type *arg1 = (gsl_multifit_fdfsolver_type *) 0 ;
13783 size_t arg2 ;
13784 size_t arg3 ;
13785 void *argp1 = 0 ;
13786 int res1 = 0 ;
13787 size_t val2 ;
13788 int ecode2 = 0 ;
13789 size_t val3 ;
13790 int ecode3 = 0 ;
13791 int argvi = 0;
13792 gsl_multifit_fdfsolver *result = 0 ;
13793 dXSARGS;
13794
13795 if ((items < 3) || (items > 3)) {
13796 SWIG_croak("Usage: gsl_multifit_fdfsolver_alloc(T,n,p);");
13797 }
13798 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver_type, 0 | 0 );
13799 if (!SWIG_IsOK(res1)) {
13800 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_alloc" "', argument " "1"" of type '" "gsl_multifit_fdfsolver_type const *""'");
13801 }
13802 arg1 = (gsl_multifit_fdfsolver_type *)(argp1);
13803 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
13804 if (!SWIG_IsOK(ecode2)) {
13805 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_fdfsolver_alloc" "', argument " "2"" of type '" "size_t""'");
13806 }
13807 arg2 = (size_t)(val2);
13808 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
13809 if (!SWIG_IsOK(ecode3)) {
13810 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_multifit_fdfsolver_alloc" "', argument " "3"" of type '" "size_t""'");
13811 }
13812 arg3 = (size_t)(val3);
13813 result = (gsl_multifit_fdfsolver *)gsl_multifit_fdfsolver_alloc((gsl_multifit_fdfsolver_type const *)arg1,arg2,arg3);
13814 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | SWIG_SHADOW); argvi++ ;
13815
13816
13817
13818 XSRETURN(argvi);
13819 fail:
13820
13821
13822
13823 SWIG_croak_null();
13824 }
13825 }
13826
13827
XS(_wrap_gsl_multifit_fdfsolver_set)13828 XS(_wrap_gsl_multifit_fdfsolver_set) {
13829 {
13830 gsl_multifit_fdfsolver *arg1 = (gsl_multifit_fdfsolver *) 0 ;
13831 gsl_multifit_function_fdf *arg2 = (gsl_multifit_function_fdf *) 0 ;
13832 gsl_vector *arg3 = (gsl_vector *) 0 ;
13833 void *argp1 = 0 ;
13834 int res1 = 0 ;
13835 void *argp2 = 0 ;
13836 int res2 = 0 ;
13837 void *argp3 = 0 ;
13838 int res3 = 0 ;
13839 int argvi = 0;
13840 int result;
13841 dXSARGS;
13842
13843 if ((items < 3) || (items > 3)) {
13844 SWIG_croak("Usage: gsl_multifit_fdfsolver_set(s,fdf,x);");
13845 }
13846 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | 0 );
13847 if (!SWIG_IsOK(res1)) {
13848 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_set" "', argument " "1"" of type '" "gsl_multifit_fdfsolver *""'");
13849 }
13850 arg1 = (gsl_multifit_fdfsolver *)(argp1);
13851 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | 0 );
13852 if (!SWIG_IsOK(res2)) {
13853 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fdfsolver_set" "', argument " "2"" of type '" "gsl_multifit_function_fdf *""'");
13854 }
13855 arg2 = (gsl_multifit_function_fdf *)(argp2);
13856 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
13857 if (!SWIG_IsOK(res3)) {
13858 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_fdfsolver_set" "', argument " "3"" of type '" "gsl_vector const *""'");
13859 }
13860 arg3 = (gsl_vector *)(argp3);
13861 result = (int)gsl_multifit_fdfsolver_set(arg1,arg2,(gsl_vector const *)arg3);
13862 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
13863
13864
13865
13866 XSRETURN(argvi);
13867 fail:
13868
13869
13870
13871 SWIG_croak_null();
13872 }
13873 }
13874
13875
XS(_wrap_gsl_multifit_fdfsolver_wset)13876 XS(_wrap_gsl_multifit_fdfsolver_wset) {
13877 {
13878 gsl_multifit_fdfsolver *arg1 = (gsl_multifit_fdfsolver *) 0 ;
13879 gsl_multifit_function_fdf *arg2 = (gsl_multifit_function_fdf *) 0 ;
13880 gsl_vector *arg3 = (gsl_vector *) 0 ;
13881 gsl_vector *arg4 = (gsl_vector *) 0 ;
13882 void *argp1 = 0 ;
13883 int res1 = 0 ;
13884 void *argp2 = 0 ;
13885 int res2 = 0 ;
13886 void *argp3 = 0 ;
13887 int res3 = 0 ;
13888 void *argp4 = 0 ;
13889 int res4 = 0 ;
13890 int argvi = 0;
13891 int result;
13892 dXSARGS;
13893
13894 if ((items < 4) || (items > 4)) {
13895 SWIG_croak("Usage: gsl_multifit_fdfsolver_wset(s,f,x,wts);");
13896 }
13897 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | 0 );
13898 if (!SWIG_IsOK(res1)) {
13899 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_wset" "', argument " "1"" of type '" "gsl_multifit_fdfsolver *""'");
13900 }
13901 arg1 = (gsl_multifit_fdfsolver *)(argp1);
13902 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | 0 );
13903 if (!SWIG_IsOK(res2)) {
13904 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fdfsolver_wset" "', argument " "2"" of type '" "gsl_multifit_function_fdf *""'");
13905 }
13906 arg2 = (gsl_multifit_function_fdf *)(argp2);
13907 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
13908 if (!SWIG_IsOK(res3)) {
13909 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_fdfsolver_wset" "', argument " "3"" of type '" "gsl_vector const *""'");
13910 }
13911 arg3 = (gsl_vector *)(argp3);
13912 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
13913 if (!SWIG_IsOK(res4)) {
13914 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_fdfsolver_wset" "', argument " "4"" of type '" "gsl_vector const *""'");
13915 }
13916 arg4 = (gsl_vector *)(argp4);
13917 result = (int)gsl_multifit_fdfsolver_wset(arg1,arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4);
13918 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
13919
13920
13921
13922
13923 XSRETURN(argvi);
13924 fail:
13925
13926
13927
13928
13929 SWIG_croak_null();
13930 }
13931 }
13932
13933
XS(_wrap_gsl_multifit_fdfsolver_iterate)13934 XS(_wrap_gsl_multifit_fdfsolver_iterate) {
13935 {
13936 gsl_multifit_fdfsolver *arg1 = (gsl_multifit_fdfsolver *) 0 ;
13937 void *argp1 = 0 ;
13938 int res1 = 0 ;
13939 int argvi = 0;
13940 int result;
13941 dXSARGS;
13942
13943 if ((items < 1) || (items > 1)) {
13944 SWIG_croak("Usage: gsl_multifit_fdfsolver_iterate(s);");
13945 }
13946 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | 0 );
13947 if (!SWIG_IsOK(res1)) {
13948 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_iterate" "', argument " "1"" of type '" "gsl_multifit_fdfsolver *""'");
13949 }
13950 arg1 = (gsl_multifit_fdfsolver *)(argp1);
13951 result = (int)gsl_multifit_fdfsolver_iterate(arg1);
13952 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
13953
13954 XSRETURN(argvi);
13955 fail:
13956
13957 SWIG_croak_null();
13958 }
13959 }
13960
13961
XS(_wrap_gsl_multifit_fdfsolver_driver)13962 XS(_wrap_gsl_multifit_fdfsolver_driver) {
13963 {
13964 gsl_multifit_fdfsolver *arg1 = (gsl_multifit_fdfsolver *) 0 ;
13965 size_t arg2 ;
13966 double arg3 ;
13967 double arg4 ;
13968 double arg5 ;
13969 int *arg6 = (int *) 0 ;
13970 void *argp1 = 0 ;
13971 int res1 = 0 ;
13972 size_t val2 ;
13973 int ecode2 = 0 ;
13974 double val3 ;
13975 int ecode3 = 0 ;
13976 double val4 ;
13977 int ecode4 = 0 ;
13978 double val5 ;
13979 int ecode5 = 0 ;
13980 void *argp6 = 0 ;
13981 int res6 = 0 ;
13982 int argvi = 0;
13983 int result;
13984 dXSARGS;
13985
13986 if ((items < 6) || (items > 6)) {
13987 SWIG_croak("Usage: gsl_multifit_fdfsolver_driver(s,maxiter,xtol,gtol,ftol,info);");
13988 }
13989 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | 0 );
13990 if (!SWIG_IsOK(res1)) {
13991 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_driver" "', argument " "1"" of type '" "gsl_multifit_fdfsolver *""'");
13992 }
13993 arg1 = (gsl_multifit_fdfsolver *)(argp1);
13994 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
13995 if (!SWIG_IsOK(ecode2)) {
13996 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_fdfsolver_driver" "', argument " "2"" of type '" "size_t""'");
13997 }
13998 arg2 = (size_t)(val2);
13999 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
14000 if (!SWIG_IsOK(ecode3)) {
14001 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_multifit_fdfsolver_driver" "', argument " "3"" of type '" "double""'");
14002 }
14003 arg3 = (double)(val3);
14004 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
14005 if (!SWIG_IsOK(ecode4)) {
14006 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_multifit_fdfsolver_driver" "', argument " "4"" of type '" "double""'");
14007 }
14008 arg4 = (double)(val4);
14009 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
14010 if (!SWIG_IsOK(ecode5)) {
14011 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_multifit_fdfsolver_driver" "', argument " "5"" of type '" "double""'");
14012 }
14013 arg5 = (double)(val5);
14014 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_int, 0 | 0 );
14015 if (!SWIG_IsOK(res6)) {
14016 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_fdfsolver_driver" "', argument " "6"" of type '" "int *""'");
14017 }
14018 arg6 = (int *)(argp6);
14019 result = (int)gsl_multifit_fdfsolver_driver(arg1,arg2,arg3,arg4,arg5,arg6);
14020 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
14021
14022
14023
14024
14025
14026
14027 XSRETURN(argvi);
14028 fail:
14029
14030
14031
14032
14033
14034
14035 SWIG_croak_null();
14036 }
14037 }
14038
14039
XS(_wrap_gsl_multifit_fdfsolver_jac)14040 XS(_wrap_gsl_multifit_fdfsolver_jac) {
14041 {
14042 gsl_multifit_fdfsolver *arg1 = (gsl_multifit_fdfsolver *) 0 ;
14043 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
14044 void *argp1 = 0 ;
14045 int res1 = 0 ;
14046 void *argp2 = 0 ;
14047 int res2 = 0 ;
14048 int argvi = 0;
14049 int result;
14050 dXSARGS;
14051
14052 if ((items < 2) || (items > 2)) {
14053 SWIG_croak("Usage: gsl_multifit_fdfsolver_jac(s,J);");
14054 }
14055 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | 0 );
14056 if (!SWIG_IsOK(res1)) {
14057 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_jac" "', argument " "1"" of type '" "gsl_multifit_fdfsolver *""'");
14058 }
14059 arg1 = (gsl_multifit_fdfsolver *)(argp1);
14060 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, 0 | 0 );
14061 if (!SWIG_IsOK(res2)) {
14062 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fdfsolver_jac" "', argument " "2"" of type '" "gsl_matrix *""'");
14063 }
14064 arg2 = (gsl_matrix *)(argp2);
14065 result = (int)gsl_multifit_fdfsolver_jac(arg1,arg2);
14066 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
14067
14068
14069 XSRETURN(argvi);
14070 fail:
14071
14072
14073 SWIG_croak_null();
14074 }
14075 }
14076
14077
XS(_wrap_gsl_multifit_fdfsolver_free)14078 XS(_wrap_gsl_multifit_fdfsolver_free) {
14079 {
14080 gsl_multifit_fdfsolver *arg1 = (gsl_multifit_fdfsolver *) 0 ;
14081 void *argp1 = 0 ;
14082 int res1 = 0 ;
14083 int argvi = 0;
14084 dXSARGS;
14085
14086 if ((items < 1) || (items > 1)) {
14087 SWIG_croak("Usage: gsl_multifit_fdfsolver_free(s);");
14088 }
14089 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | 0 );
14090 if (!SWIG_IsOK(res1)) {
14091 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_free" "', argument " "1"" of type '" "gsl_multifit_fdfsolver *""'");
14092 }
14093 arg1 = (gsl_multifit_fdfsolver *)(argp1);
14094 gsl_multifit_fdfsolver_free(arg1);
14095 ST(argvi) = &PL_sv_undef;
14096
14097 XSRETURN(argvi);
14098 fail:
14099
14100 SWIG_croak_null();
14101 }
14102 }
14103
14104
XS(_wrap_gsl_multifit_fdfsolver_name)14105 XS(_wrap_gsl_multifit_fdfsolver_name) {
14106 {
14107 gsl_multifit_fdfsolver *arg1 = (gsl_multifit_fdfsolver *) 0 ;
14108 void *argp1 = 0 ;
14109 int res1 = 0 ;
14110 int argvi = 0;
14111 char *result = 0 ;
14112 dXSARGS;
14113
14114 if ((items < 1) || (items > 1)) {
14115 SWIG_croak("Usage: gsl_multifit_fdfsolver_name(s);");
14116 }
14117 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | 0 );
14118 if (!SWIG_IsOK(res1)) {
14119 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_name" "', argument " "1"" of type '" "gsl_multifit_fdfsolver const *""'");
14120 }
14121 arg1 = (gsl_multifit_fdfsolver *)(argp1);
14122 result = (char *)gsl_multifit_fdfsolver_name((gsl_multifit_fdfsolver const *)arg1);
14123 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
14124
14125 XSRETURN(argvi);
14126 fail:
14127
14128 SWIG_croak_null();
14129 }
14130 }
14131
14132
XS(_wrap_gsl_multifit_fdfsolver_position)14133 XS(_wrap_gsl_multifit_fdfsolver_position) {
14134 {
14135 gsl_multifit_fdfsolver *arg1 = (gsl_multifit_fdfsolver *) 0 ;
14136 void *argp1 = 0 ;
14137 int res1 = 0 ;
14138 int argvi = 0;
14139 gsl_vector *result = 0 ;
14140 dXSARGS;
14141
14142 if ((items < 1) || (items > 1)) {
14143 SWIG_croak("Usage: gsl_multifit_fdfsolver_position(s);");
14144 }
14145 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | 0 );
14146 if (!SWIG_IsOK(res1)) {
14147 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_position" "', argument " "1"" of type '" "gsl_multifit_fdfsolver const *""'");
14148 }
14149 arg1 = (gsl_multifit_fdfsolver *)(argp1);
14150 result = (gsl_vector *)gsl_multifit_fdfsolver_position((gsl_multifit_fdfsolver const *)arg1);
14151 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
14152
14153 XSRETURN(argvi);
14154 fail:
14155
14156 SWIG_croak_null();
14157 }
14158 }
14159
14160
XS(_wrap_gsl_multifit_fdfsolver_residual)14161 XS(_wrap_gsl_multifit_fdfsolver_residual) {
14162 {
14163 gsl_multifit_fdfsolver *arg1 = (gsl_multifit_fdfsolver *) 0 ;
14164 void *argp1 = 0 ;
14165 int res1 = 0 ;
14166 int argvi = 0;
14167 gsl_vector *result = 0 ;
14168 dXSARGS;
14169
14170 if ((items < 1) || (items > 1)) {
14171 SWIG_croak("Usage: gsl_multifit_fdfsolver_residual(s);");
14172 }
14173 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | 0 );
14174 if (!SWIG_IsOK(res1)) {
14175 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_residual" "', argument " "1"" of type '" "gsl_multifit_fdfsolver const *""'");
14176 }
14177 arg1 = (gsl_multifit_fdfsolver *)(argp1);
14178 result = (gsl_vector *)gsl_multifit_fdfsolver_residual((gsl_multifit_fdfsolver const *)arg1);
14179 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
14180
14181 XSRETURN(argvi);
14182 fail:
14183
14184 SWIG_croak_null();
14185 }
14186 }
14187
14188
XS(_wrap_gsl_multifit_fdfsolver_niter)14189 XS(_wrap_gsl_multifit_fdfsolver_niter) {
14190 {
14191 gsl_multifit_fdfsolver *arg1 = (gsl_multifit_fdfsolver *) 0 ;
14192 void *argp1 = 0 ;
14193 int res1 = 0 ;
14194 int argvi = 0;
14195 size_t result;
14196 dXSARGS;
14197
14198 if ((items < 1) || (items > 1)) {
14199 SWIG_croak("Usage: gsl_multifit_fdfsolver_niter(s);");
14200 }
14201 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | 0 );
14202 if (!SWIG_IsOK(res1)) {
14203 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_niter" "', argument " "1"" of type '" "gsl_multifit_fdfsolver const *""'");
14204 }
14205 arg1 = (gsl_multifit_fdfsolver *)(argp1);
14206 result = gsl_multifit_fdfsolver_niter((gsl_multifit_fdfsolver const *)arg1);
14207 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
14208
14209 XSRETURN(argvi);
14210 fail:
14211
14212 SWIG_croak_null();
14213 }
14214 }
14215
14216
XS(_wrap_gsl_multifit_eval_wf)14217 XS(_wrap_gsl_multifit_eval_wf) {
14218 {
14219 gsl_multifit_function_fdf *arg1 = (gsl_multifit_function_fdf *) 0 ;
14220 gsl_vector *arg2 = (gsl_vector *) 0 ;
14221 gsl_vector *arg3 = (gsl_vector *) 0 ;
14222 gsl_vector *arg4 = (gsl_vector *) 0 ;
14223 void *argp1 = 0 ;
14224 int res1 = 0 ;
14225 void *argp2 = 0 ;
14226 int res2 = 0 ;
14227 void *argp3 = 0 ;
14228 int res3 = 0 ;
14229 void *argp4 = 0 ;
14230 int res4 = 0 ;
14231 int argvi = 0;
14232 int result;
14233 dXSARGS;
14234
14235 if ((items < 4) || (items > 4)) {
14236 SWIG_croak("Usage: gsl_multifit_eval_wf(fdf,x,wts,y);");
14237 }
14238 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | 0 );
14239 if (!SWIG_IsOK(res1)) {
14240 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_eval_wf" "', argument " "1"" of type '" "gsl_multifit_function_fdf *""'");
14241 }
14242 arg1 = (gsl_multifit_function_fdf *)(argp1);
14243 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
14244 if (!SWIG_IsOK(res2)) {
14245 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_eval_wf" "', argument " "2"" of type '" "gsl_vector const *""'");
14246 }
14247 arg2 = (gsl_vector *)(argp2);
14248 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
14249 if (!SWIG_IsOK(res3)) {
14250 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_eval_wf" "', argument " "3"" of type '" "gsl_vector const *""'");
14251 }
14252 arg3 = (gsl_vector *)(argp3);
14253 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
14254 if (!SWIG_IsOK(res4)) {
14255 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_eval_wf" "', argument " "4"" of type '" "gsl_vector *""'");
14256 }
14257 arg4 = (gsl_vector *)(argp4);
14258 result = (int)gsl_multifit_eval_wf(arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
14259 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
14260
14261
14262
14263
14264 XSRETURN(argvi);
14265 fail:
14266
14267
14268
14269
14270 SWIG_croak_null();
14271 }
14272 }
14273
14274
XS(_wrap_gsl_multifit_eval_wdf)14275 XS(_wrap_gsl_multifit_eval_wdf) {
14276 {
14277 gsl_multifit_function_fdf *arg1 = (gsl_multifit_function_fdf *) 0 ;
14278 gsl_vector *arg2 = (gsl_vector *) 0 ;
14279 gsl_vector *arg3 = (gsl_vector *) 0 ;
14280 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
14281 void *argp1 = 0 ;
14282 int res1 = 0 ;
14283 void *argp2 = 0 ;
14284 int res2 = 0 ;
14285 void *argp3 = 0 ;
14286 int res3 = 0 ;
14287 void *argp4 = 0 ;
14288 int res4 = 0 ;
14289 int argvi = 0;
14290 int result;
14291 dXSARGS;
14292
14293 if ((items < 4) || (items > 4)) {
14294 SWIG_croak("Usage: gsl_multifit_eval_wdf(fdf,x,wts,dy);");
14295 }
14296 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | 0 );
14297 if (!SWIG_IsOK(res1)) {
14298 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_eval_wdf" "', argument " "1"" of type '" "gsl_multifit_function_fdf *""'");
14299 }
14300 arg1 = (gsl_multifit_function_fdf *)(argp1);
14301 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
14302 if (!SWIG_IsOK(res2)) {
14303 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_eval_wdf" "', argument " "2"" of type '" "gsl_vector const *""'");
14304 }
14305 arg2 = (gsl_vector *)(argp2);
14306 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
14307 if (!SWIG_IsOK(res3)) {
14308 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_eval_wdf" "', argument " "3"" of type '" "gsl_vector const *""'");
14309 }
14310 arg3 = (gsl_vector *)(argp3);
14311 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
14312 if (!SWIG_IsOK(res4)) {
14313 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_eval_wdf" "', argument " "4"" of type '" "gsl_matrix *""'");
14314 }
14315 arg4 = (gsl_matrix *)(argp4);
14316 result = (int)gsl_multifit_eval_wdf(arg1,(gsl_vector const *)arg2,(gsl_vector const *)arg3,arg4);
14317 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
14318
14319
14320
14321
14322 XSRETURN(argvi);
14323 fail:
14324
14325
14326
14327
14328 SWIG_croak_null();
14329 }
14330 }
14331
14332
XS(_wrap_gsl_multifit_fdfsolver_test)14333 XS(_wrap_gsl_multifit_fdfsolver_test) {
14334 {
14335 gsl_multifit_fdfsolver *arg1 = (gsl_multifit_fdfsolver *) 0 ;
14336 double arg2 ;
14337 double arg3 ;
14338 double arg4 ;
14339 int *arg5 = (int *) 0 ;
14340 void *argp1 = 0 ;
14341 int res1 = 0 ;
14342 double val2 ;
14343 int ecode2 = 0 ;
14344 double val3 ;
14345 int ecode3 = 0 ;
14346 double val4 ;
14347 int ecode4 = 0 ;
14348 void *argp5 = 0 ;
14349 int res5 = 0 ;
14350 int argvi = 0;
14351 int result;
14352 dXSARGS;
14353
14354 if ((items < 5) || (items > 5)) {
14355 SWIG_croak("Usage: gsl_multifit_fdfsolver_test(s,xtol,gtol,ftol,info);");
14356 }
14357 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | 0 );
14358 if (!SWIG_IsOK(res1)) {
14359 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_test" "', argument " "1"" of type '" "gsl_multifit_fdfsolver const *""'");
14360 }
14361 arg1 = (gsl_multifit_fdfsolver *)(argp1);
14362 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
14363 if (!SWIG_IsOK(ecode2)) {
14364 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_fdfsolver_test" "', argument " "2"" of type '" "double""'");
14365 }
14366 arg2 = (double)(val2);
14367 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
14368 if (!SWIG_IsOK(ecode3)) {
14369 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_multifit_fdfsolver_test" "', argument " "3"" of type '" "double""'");
14370 }
14371 arg3 = (double)(val3);
14372 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
14373 if (!SWIG_IsOK(ecode4)) {
14374 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_multifit_fdfsolver_test" "', argument " "4"" of type '" "double""'");
14375 }
14376 arg4 = (double)(val4);
14377 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_int, 0 | 0 );
14378 if (!SWIG_IsOK(res5)) {
14379 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_fdfsolver_test" "', argument " "5"" of type '" "int *""'");
14380 }
14381 arg5 = (int *)(argp5);
14382 result = (int)gsl_multifit_fdfsolver_test((gsl_multifit_fdfsolver const *)arg1,arg2,arg3,arg4,arg5);
14383 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
14384
14385
14386
14387
14388
14389 XSRETURN(argvi);
14390 fail:
14391
14392
14393
14394
14395
14396 SWIG_croak_null();
14397 }
14398 }
14399
14400
XS(_wrap_gsl_multifit_test_delta)14401 XS(_wrap_gsl_multifit_test_delta) {
14402 {
14403 gsl_vector *arg1 = (gsl_vector *) 0 ;
14404 gsl_vector *arg2 = (gsl_vector *) 0 ;
14405 double arg3 ;
14406 double arg4 ;
14407 void *argp1 = 0 ;
14408 int res1 = 0 ;
14409 void *argp2 = 0 ;
14410 int res2 = 0 ;
14411 double val3 ;
14412 int ecode3 = 0 ;
14413 double val4 ;
14414 int ecode4 = 0 ;
14415 int argvi = 0;
14416 int result;
14417 dXSARGS;
14418
14419 if ((items < 4) || (items > 4)) {
14420 SWIG_croak("Usage: gsl_multifit_test_delta(dx,x,epsabs,epsrel);");
14421 }
14422 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
14423 if (!SWIG_IsOK(res1)) {
14424 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_test_delta" "', argument " "1"" of type '" "gsl_vector const *""'");
14425 }
14426 arg1 = (gsl_vector *)(argp1);
14427 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
14428 if (!SWIG_IsOK(res2)) {
14429 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_test_delta" "', argument " "2"" of type '" "gsl_vector const *""'");
14430 }
14431 arg2 = (gsl_vector *)(argp2);
14432 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
14433 if (!SWIG_IsOK(ecode3)) {
14434 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_multifit_test_delta" "', argument " "3"" of type '" "double""'");
14435 }
14436 arg3 = (double)(val3);
14437 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
14438 if (!SWIG_IsOK(ecode4)) {
14439 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_multifit_test_delta" "', argument " "4"" of type '" "double""'");
14440 }
14441 arg4 = (double)(val4);
14442 result = (int)gsl_multifit_test_delta((gsl_vector const *)arg1,(gsl_vector const *)arg2,arg3,arg4);
14443 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
14444
14445
14446
14447
14448 XSRETURN(argvi);
14449 fail:
14450
14451
14452
14453
14454 SWIG_croak_null();
14455 }
14456 }
14457
14458
XS(_wrap_gsl_multifit_test_gradient)14459 XS(_wrap_gsl_multifit_test_gradient) {
14460 {
14461 gsl_vector *arg1 = (gsl_vector *) 0 ;
14462 double arg2 ;
14463 void *argp1 = 0 ;
14464 int res1 = 0 ;
14465 double val2 ;
14466 int ecode2 = 0 ;
14467 int argvi = 0;
14468 int result;
14469 dXSARGS;
14470
14471 if ((items < 2) || (items > 2)) {
14472 SWIG_croak("Usage: gsl_multifit_test_gradient(g,epsabs);");
14473 }
14474 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
14475 if (!SWIG_IsOK(res1)) {
14476 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_test_gradient" "', argument " "1"" of type '" "gsl_vector const *""'");
14477 }
14478 arg1 = (gsl_vector *)(argp1);
14479 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
14480 if (!SWIG_IsOK(ecode2)) {
14481 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_test_gradient" "', argument " "2"" of type '" "double""'");
14482 }
14483 arg2 = (double)(val2);
14484 result = (int)gsl_multifit_test_gradient((gsl_vector const *)arg1,arg2);
14485 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
14486
14487
14488 XSRETURN(argvi);
14489 fail:
14490
14491
14492 SWIG_croak_null();
14493 }
14494 }
14495
14496
XS(_wrap_gsl_multifit_fdfsolver_dif_df)14497 XS(_wrap_gsl_multifit_fdfsolver_dif_df) {
14498 {
14499 gsl_vector *arg1 = (gsl_vector *) 0 ;
14500 gsl_vector *arg2 = (gsl_vector *) 0 ;
14501 gsl_multifit_function_fdf *arg3 = (gsl_multifit_function_fdf *) 0 ;
14502 gsl_vector *arg4 = (gsl_vector *) 0 ;
14503 gsl_matrix *arg5 = (gsl_matrix *) 0 ;
14504 void *argp1 = 0 ;
14505 int res1 = 0 ;
14506 void *argp2 = 0 ;
14507 int res2 = 0 ;
14508 void *argp3 = 0 ;
14509 int res3 = 0 ;
14510 void *argp4 = 0 ;
14511 int res4 = 0 ;
14512 void *argp5 = 0 ;
14513 int res5 = 0 ;
14514 int argvi = 0;
14515 int result;
14516 dXSARGS;
14517
14518 if ((items < 5) || (items > 5)) {
14519 SWIG_croak("Usage: gsl_multifit_fdfsolver_dif_df(x,wts,fdf,f,J);");
14520 }
14521 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_vector, 0 | 0 );
14522 if (!SWIG_IsOK(res1)) {
14523 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfsolver_dif_df" "', argument " "1"" of type '" "gsl_vector const *""'");
14524 }
14525 arg1 = (gsl_vector *)(argp1);
14526 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, 0 | 0 );
14527 if (!SWIG_IsOK(res2)) {
14528 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fdfsolver_dif_df" "', argument " "2"" of type '" "gsl_vector const *""'");
14529 }
14530 arg2 = (gsl_vector *)(argp2);
14531 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | 0 );
14532 if (!SWIG_IsOK(res3)) {
14533 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_fdfsolver_dif_df" "', argument " "3"" of type '" "gsl_multifit_function_fdf *""'");
14534 }
14535 arg3 = (gsl_multifit_function_fdf *)(argp3);
14536 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
14537 if (!SWIG_IsOK(res4)) {
14538 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_fdfsolver_dif_df" "', argument " "4"" of type '" "gsl_vector const *""'");
14539 }
14540 arg4 = (gsl_vector *)(argp4);
14541 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_matrix, 0 | 0 );
14542 if (!SWIG_IsOK(res5)) {
14543 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_fdfsolver_dif_df" "', argument " "5"" of type '" "gsl_matrix *""'");
14544 }
14545 arg5 = (gsl_matrix *)(argp5);
14546 result = (int)gsl_multifit_fdfsolver_dif_df((gsl_vector const *)arg1,(gsl_vector const *)arg2,arg3,(gsl_vector const *)arg4,arg5);
14547 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
14548
14549
14550
14551
14552
14553 XSRETURN(argvi);
14554 fail:
14555
14556
14557
14558
14559
14560 SWIG_croak_null();
14561 }
14562 }
14563
14564
XS(_wrap_gsl_multifit_fdfridge_n_set)14565 XS(_wrap_gsl_multifit_fdfridge_n_set) {
14566 {
14567 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
14568 size_t arg2 ;
14569 void *argp1 = 0 ;
14570 int res1 = 0 ;
14571 size_t val2 ;
14572 int ecode2 = 0 ;
14573 int argvi = 0;
14574 dXSARGS;
14575
14576 if ((items < 2) || (items > 2)) {
14577 SWIG_croak("Usage: gsl_multifit_fdfridge_n_set(self,n);");
14578 }
14579 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
14580 if (!SWIG_IsOK(res1)) {
14581 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_n_set" "', argument " "1"" of type '" "gsl_multifit_fdfridge *""'");
14582 }
14583 arg1 = (gsl_multifit_fdfridge *)(argp1);
14584 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
14585 if (!SWIG_IsOK(ecode2)) {
14586 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_fdfridge_n_set" "', argument " "2"" of type '" "size_t""'");
14587 }
14588 arg2 = (size_t)(val2);
14589 if (arg1) (arg1)->n = arg2;
14590 ST(argvi) = &PL_sv_undef;
14591
14592
14593 XSRETURN(argvi);
14594 fail:
14595
14596
14597 SWIG_croak_null();
14598 }
14599 }
14600
14601
XS(_wrap_gsl_multifit_fdfridge_n_get)14602 XS(_wrap_gsl_multifit_fdfridge_n_get) {
14603 {
14604 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
14605 void *argp1 = 0 ;
14606 int res1 = 0 ;
14607 int argvi = 0;
14608 size_t result;
14609 dXSARGS;
14610
14611 if ((items < 1) || (items > 1)) {
14612 SWIG_croak("Usage: gsl_multifit_fdfridge_n_get(self);");
14613 }
14614 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
14615 if (!SWIG_IsOK(res1)) {
14616 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_n_get" "', argument " "1"" of type '" "gsl_multifit_fdfridge *""'");
14617 }
14618 arg1 = (gsl_multifit_fdfridge *)(argp1);
14619 result = ((arg1)->n);
14620 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
14621
14622 XSRETURN(argvi);
14623 fail:
14624
14625 SWIG_croak_null();
14626 }
14627 }
14628
14629
XS(_wrap_gsl_multifit_fdfridge_p_set)14630 XS(_wrap_gsl_multifit_fdfridge_p_set) {
14631 {
14632 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
14633 size_t arg2 ;
14634 void *argp1 = 0 ;
14635 int res1 = 0 ;
14636 size_t val2 ;
14637 int ecode2 = 0 ;
14638 int argvi = 0;
14639 dXSARGS;
14640
14641 if ((items < 2) || (items > 2)) {
14642 SWIG_croak("Usage: gsl_multifit_fdfridge_p_set(self,p);");
14643 }
14644 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
14645 if (!SWIG_IsOK(res1)) {
14646 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_p_set" "', argument " "1"" of type '" "gsl_multifit_fdfridge *""'");
14647 }
14648 arg1 = (gsl_multifit_fdfridge *)(argp1);
14649 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
14650 if (!SWIG_IsOK(ecode2)) {
14651 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_fdfridge_p_set" "', argument " "2"" of type '" "size_t""'");
14652 }
14653 arg2 = (size_t)(val2);
14654 if (arg1) (arg1)->p = arg2;
14655 ST(argvi) = &PL_sv_undef;
14656
14657
14658 XSRETURN(argvi);
14659 fail:
14660
14661
14662 SWIG_croak_null();
14663 }
14664 }
14665
14666
XS(_wrap_gsl_multifit_fdfridge_p_get)14667 XS(_wrap_gsl_multifit_fdfridge_p_get) {
14668 {
14669 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
14670 void *argp1 = 0 ;
14671 int res1 = 0 ;
14672 int argvi = 0;
14673 size_t result;
14674 dXSARGS;
14675
14676 if ((items < 1) || (items > 1)) {
14677 SWIG_croak("Usage: gsl_multifit_fdfridge_p_get(self);");
14678 }
14679 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
14680 if (!SWIG_IsOK(res1)) {
14681 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_p_get" "', argument " "1"" of type '" "gsl_multifit_fdfridge *""'");
14682 }
14683 arg1 = (gsl_multifit_fdfridge *)(argp1);
14684 result = ((arg1)->p);
14685 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
14686
14687 XSRETURN(argvi);
14688 fail:
14689
14690 SWIG_croak_null();
14691 }
14692 }
14693
14694
XS(_wrap_gsl_multifit_fdfridge_lambda_set)14695 XS(_wrap_gsl_multifit_fdfridge_lambda_set) {
14696 {
14697 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
14698 double arg2 ;
14699 void *argp1 = 0 ;
14700 int res1 = 0 ;
14701 double val2 ;
14702 int ecode2 = 0 ;
14703 int argvi = 0;
14704 dXSARGS;
14705
14706 if ((items < 2) || (items > 2)) {
14707 SWIG_croak("Usage: gsl_multifit_fdfridge_lambda_set(self,lambda);");
14708 }
14709 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
14710 if (!SWIG_IsOK(res1)) {
14711 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_lambda_set" "', argument " "1"" of type '" "gsl_multifit_fdfridge *""'");
14712 }
14713 arg1 = (gsl_multifit_fdfridge *)(argp1);
14714 ecode2 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
14715 if (!SWIG_IsOK(ecode2)) {
14716 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_fdfridge_lambda_set" "', argument " "2"" of type '" "double""'");
14717 }
14718 arg2 = (double)(val2);
14719 if (arg1) (arg1)->lambda = arg2;
14720 ST(argvi) = &PL_sv_undef;
14721
14722
14723 XSRETURN(argvi);
14724 fail:
14725
14726
14727 SWIG_croak_null();
14728 }
14729 }
14730
14731
XS(_wrap_gsl_multifit_fdfridge_lambda_get)14732 XS(_wrap_gsl_multifit_fdfridge_lambda_get) {
14733 {
14734 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
14735 void *argp1 = 0 ;
14736 int res1 = 0 ;
14737 int argvi = 0;
14738 double result;
14739 dXSARGS;
14740
14741 if ((items < 1) || (items > 1)) {
14742 SWIG_croak("Usage: gsl_multifit_fdfridge_lambda_get(self);");
14743 }
14744 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
14745 if (!SWIG_IsOK(res1)) {
14746 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_lambda_get" "', argument " "1"" of type '" "gsl_multifit_fdfridge *""'");
14747 }
14748 arg1 = (gsl_multifit_fdfridge *)(argp1);
14749 result = (double) ((arg1)->lambda);
14750 ST(argvi) = SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(result)); argvi++ ;
14751
14752 XSRETURN(argvi);
14753 fail:
14754
14755 SWIG_croak_null();
14756 }
14757 }
14758
14759
XS(_wrap_gsl_multifit_fdfridge_L_diag_set)14760 XS(_wrap_gsl_multifit_fdfridge_L_diag_set) {
14761 {
14762 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
14763 gsl_vector *arg2 = (gsl_vector *) 0 ;
14764 void *argp1 = 0 ;
14765 int res1 = 0 ;
14766 void *argp2 = 0 ;
14767 int res2 = 0 ;
14768 int argvi = 0;
14769 dXSARGS;
14770
14771 if ((items < 2) || (items > 2)) {
14772 SWIG_croak("Usage: gsl_multifit_fdfridge_L_diag_set(self,L_diag);");
14773 }
14774 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
14775 if (!SWIG_IsOK(res1)) {
14776 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_L_diag_set" "', argument " "1"" of type '" "gsl_multifit_fdfridge *""'");
14777 }
14778 arg1 = (gsl_multifit_fdfridge *)(argp1);
14779 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
14780 if (!SWIG_IsOK(res2)) {
14781 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fdfridge_L_diag_set" "', argument " "2"" of type '" "gsl_vector const *""'");
14782 }
14783 arg2 = (gsl_vector *)(argp2);
14784 if (arg1) (arg1)->L_diag = (gsl_vector const *)arg2;
14785 ST(argvi) = &PL_sv_undef;
14786
14787
14788 XSRETURN(argvi);
14789 fail:
14790
14791
14792 SWIG_croak_null();
14793 }
14794 }
14795
14796
XS(_wrap_gsl_multifit_fdfridge_L_diag_get)14797 XS(_wrap_gsl_multifit_fdfridge_L_diag_get) {
14798 {
14799 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
14800 void *argp1 = 0 ;
14801 int res1 = 0 ;
14802 int argvi = 0;
14803 gsl_vector *result = 0 ;
14804 dXSARGS;
14805
14806 if ((items < 1) || (items > 1)) {
14807 SWIG_croak("Usage: gsl_multifit_fdfridge_L_diag_get(self);");
14808 }
14809 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
14810 if (!SWIG_IsOK(res1)) {
14811 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_L_diag_get" "', argument " "1"" of type '" "gsl_multifit_fdfridge *""'");
14812 }
14813 arg1 = (gsl_multifit_fdfridge *)(argp1);
14814 result = (gsl_vector *) ((arg1)->L_diag);
14815 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
14816
14817 XSRETURN(argvi);
14818 fail:
14819
14820 SWIG_croak_null();
14821 }
14822 }
14823
14824
XS(_wrap_gsl_multifit_fdfridge_L_set)14825 XS(_wrap_gsl_multifit_fdfridge_L_set) {
14826 {
14827 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
14828 gsl_matrix *arg2 = (gsl_matrix *) 0 ;
14829 void *argp1 = 0 ;
14830 int res1 = 0 ;
14831 void *argp2 = 0 ;
14832 int res2 = 0 ;
14833 int argvi = 0;
14834 dXSARGS;
14835
14836 if ((items < 2) || (items > 2)) {
14837 SWIG_croak("Usage: gsl_multifit_fdfridge_L_set(self,L);");
14838 }
14839 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
14840 if (!SWIG_IsOK(res1)) {
14841 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_L_set" "', argument " "1"" of type '" "gsl_multifit_fdfridge *""'");
14842 }
14843 arg1 = (gsl_multifit_fdfridge *)(argp1);
14844 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_matrix, SWIG_POINTER_DISOWN | 0 );
14845 if (!SWIG_IsOK(res2)) {
14846 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fdfridge_L_set" "', argument " "2"" of type '" "gsl_matrix const *""'");
14847 }
14848 arg2 = (gsl_matrix *)(argp2);
14849 if (arg1) (arg1)->L = (gsl_matrix const *)arg2;
14850 ST(argvi) = &PL_sv_undef;
14851
14852
14853 XSRETURN(argvi);
14854 fail:
14855
14856
14857 SWIG_croak_null();
14858 }
14859 }
14860
14861
XS(_wrap_gsl_multifit_fdfridge_L_get)14862 XS(_wrap_gsl_multifit_fdfridge_L_get) {
14863 {
14864 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
14865 void *argp1 = 0 ;
14866 int res1 = 0 ;
14867 int argvi = 0;
14868 gsl_matrix *result = 0 ;
14869 dXSARGS;
14870
14871 if ((items < 1) || (items > 1)) {
14872 SWIG_croak("Usage: gsl_multifit_fdfridge_L_get(self);");
14873 }
14874 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
14875 if (!SWIG_IsOK(res1)) {
14876 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_L_get" "', argument " "1"" of type '" "gsl_multifit_fdfridge *""'");
14877 }
14878 arg1 = (gsl_multifit_fdfridge *)(argp1);
14879 result = (gsl_matrix *) ((arg1)->L);
14880 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_matrix, 0 | 0); argvi++ ;
14881
14882 XSRETURN(argvi);
14883 fail:
14884
14885 SWIG_croak_null();
14886 }
14887 }
14888
14889
XS(_wrap_gsl_multifit_fdfridge_f_set)14890 XS(_wrap_gsl_multifit_fdfridge_f_set) {
14891 {
14892 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
14893 gsl_vector *arg2 = (gsl_vector *) 0 ;
14894 void *argp1 = 0 ;
14895 int res1 = 0 ;
14896 void *argp2 = 0 ;
14897 int res2 = 0 ;
14898 int argvi = 0;
14899 dXSARGS;
14900
14901 if ((items < 2) || (items > 2)) {
14902 SWIG_croak("Usage: gsl_multifit_fdfridge_f_set(self,f);");
14903 }
14904 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
14905 if (!SWIG_IsOK(res1)) {
14906 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_f_set" "', argument " "1"" of type '" "gsl_multifit_fdfridge *""'");
14907 }
14908 arg1 = (gsl_multifit_fdfridge *)(argp1);
14909 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
14910 if (!SWIG_IsOK(res2)) {
14911 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fdfridge_f_set" "', argument " "2"" of type '" "gsl_vector *""'");
14912 }
14913 arg2 = (gsl_vector *)(argp2);
14914 if (arg1) (arg1)->f = arg2;
14915 ST(argvi) = &PL_sv_undef;
14916
14917
14918 XSRETURN(argvi);
14919 fail:
14920
14921
14922 SWIG_croak_null();
14923 }
14924 }
14925
14926
XS(_wrap_gsl_multifit_fdfridge_f_get)14927 XS(_wrap_gsl_multifit_fdfridge_f_get) {
14928 {
14929 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
14930 void *argp1 = 0 ;
14931 int res1 = 0 ;
14932 int argvi = 0;
14933 gsl_vector *result = 0 ;
14934 dXSARGS;
14935
14936 if ((items < 1) || (items > 1)) {
14937 SWIG_croak("Usage: gsl_multifit_fdfridge_f_get(self);");
14938 }
14939 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
14940 if (!SWIG_IsOK(res1)) {
14941 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_f_get" "', argument " "1"" of type '" "gsl_multifit_fdfridge *""'");
14942 }
14943 arg1 = (gsl_multifit_fdfridge *)(argp1);
14944 result = (gsl_vector *) ((arg1)->f);
14945 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
14946
14947 XSRETURN(argvi);
14948 fail:
14949
14950 SWIG_croak_null();
14951 }
14952 }
14953
14954
XS(_wrap_gsl_multifit_fdfridge_wts_set)14955 XS(_wrap_gsl_multifit_fdfridge_wts_set) {
14956 {
14957 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
14958 gsl_vector *arg2 = (gsl_vector *) 0 ;
14959 void *argp1 = 0 ;
14960 int res1 = 0 ;
14961 void *argp2 = 0 ;
14962 int res2 = 0 ;
14963 int argvi = 0;
14964 dXSARGS;
14965
14966 if ((items < 2) || (items > 2)) {
14967 SWIG_croak("Usage: gsl_multifit_fdfridge_wts_set(self,wts);");
14968 }
14969 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
14970 if (!SWIG_IsOK(res1)) {
14971 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_wts_set" "', argument " "1"" of type '" "gsl_multifit_fdfridge *""'");
14972 }
14973 arg1 = (gsl_multifit_fdfridge *)(argp1);
14974 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_vector, SWIG_POINTER_DISOWN | 0 );
14975 if (!SWIG_IsOK(res2)) {
14976 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fdfridge_wts_set" "', argument " "2"" of type '" "gsl_vector *""'");
14977 }
14978 arg2 = (gsl_vector *)(argp2);
14979 if (arg1) (arg1)->wts = arg2;
14980 ST(argvi) = &PL_sv_undef;
14981
14982
14983 XSRETURN(argvi);
14984 fail:
14985
14986
14987 SWIG_croak_null();
14988 }
14989 }
14990
14991
XS(_wrap_gsl_multifit_fdfridge_wts_get)14992 XS(_wrap_gsl_multifit_fdfridge_wts_get) {
14993 {
14994 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
14995 void *argp1 = 0 ;
14996 int res1 = 0 ;
14997 int argvi = 0;
14998 gsl_vector *result = 0 ;
14999 dXSARGS;
15000
15001 if ((items < 1) || (items > 1)) {
15002 SWIG_croak("Usage: gsl_multifit_fdfridge_wts_get(self);");
15003 }
15004 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
15005 if (!SWIG_IsOK(res1)) {
15006 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_wts_get" "', argument " "1"" of type '" "gsl_multifit_fdfridge *""'");
15007 }
15008 arg1 = (gsl_multifit_fdfridge *)(argp1);
15009 result = (gsl_vector *) ((arg1)->wts);
15010 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
15011
15012 XSRETURN(argvi);
15013 fail:
15014
15015 SWIG_croak_null();
15016 }
15017 }
15018
15019
XS(_wrap_gsl_multifit_fdfridge_s_set)15020 XS(_wrap_gsl_multifit_fdfridge_s_set) {
15021 {
15022 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
15023 gsl_multifit_fdfsolver *arg2 = (gsl_multifit_fdfsolver *) 0 ;
15024 void *argp1 = 0 ;
15025 int res1 = 0 ;
15026 void *argp2 = 0 ;
15027 int res2 = 0 ;
15028 int argvi = 0;
15029 dXSARGS;
15030
15031 if ((items < 2) || (items > 2)) {
15032 SWIG_croak("Usage: gsl_multifit_fdfridge_s_set(self,s);");
15033 }
15034 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
15035 if (!SWIG_IsOK(res1)) {
15036 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_s_set" "', argument " "1"" of type '" "gsl_multifit_fdfridge *""'");
15037 }
15038 arg1 = (gsl_multifit_fdfridge *)(argp1);
15039 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_fdfsolver, SWIG_POINTER_DISOWN | 0 );
15040 if (!SWIG_IsOK(res2)) {
15041 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fdfridge_s_set" "', argument " "2"" of type '" "gsl_multifit_fdfsolver *""'");
15042 }
15043 arg2 = (gsl_multifit_fdfsolver *)(argp2);
15044 if (arg1) (arg1)->s = arg2;
15045 ST(argvi) = &PL_sv_undef;
15046
15047
15048 XSRETURN(argvi);
15049 fail:
15050
15051
15052 SWIG_croak_null();
15053 }
15054 }
15055
15056
XS(_wrap_gsl_multifit_fdfridge_s_get)15057 XS(_wrap_gsl_multifit_fdfridge_s_get) {
15058 {
15059 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
15060 void *argp1 = 0 ;
15061 int res1 = 0 ;
15062 int argvi = 0;
15063 gsl_multifit_fdfsolver *result = 0 ;
15064 dXSARGS;
15065
15066 if ((items < 1) || (items > 1)) {
15067 SWIG_croak("Usage: gsl_multifit_fdfridge_s_get(self);");
15068 }
15069 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
15070 if (!SWIG_IsOK(res1)) {
15071 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_s_get" "', argument " "1"" of type '" "gsl_multifit_fdfridge *""'");
15072 }
15073 arg1 = (gsl_multifit_fdfridge *)(argp1);
15074 result = (gsl_multifit_fdfsolver *) ((arg1)->s);
15075 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_fdfsolver, 0 | SWIG_SHADOW); argvi++ ;
15076
15077 XSRETURN(argvi);
15078 fail:
15079
15080 SWIG_croak_null();
15081 }
15082 }
15083
15084
XS(_wrap_gsl_multifit_fdfridge_fdf_set)15085 XS(_wrap_gsl_multifit_fdfridge_fdf_set) {
15086 {
15087 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
15088 gsl_multifit_function_fdf *arg2 = (gsl_multifit_function_fdf *) 0 ;
15089 void *argp1 = 0 ;
15090 int res1 = 0 ;
15091 void *argp2 = 0 ;
15092 int res2 = 0 ;
15093 int argvi = 0;
15094 dXSARGS;
15095
15096 if ((items < 2) || (items > 2)) {
15097 SWIG_croak("Usage: gsl_multifit_fdfridge_fdf_set(self,fdf);");
15098 }
15099 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
15100 if (!SWIG_IsOK(res1)) {
15101 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_fdf_set" "', argument " "1"" of type '" "gsl_multifit_fdfridge *""'");
15102 }
15103 arg1 = (gsl_multifit_fdfridge *)(argp1);
15104 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_function_fdf_struct, SWIG_POINTER_DISOWN | 0 );
15105 if (!SWIG_IsOK(res2)) {
15106 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fdfridge_fdf_set" "', argument " "2"" of type '" "gsl_multifit_function_fdf *""'");
15107 }
15108 arg2 = (gsl_multifit_function_fdf *)(argp2);
15109 if (arg1) (arg1)->fdf = arg2;
15110 ST(argvi) = &PL_sv_undef;
15111
15112
15113 XSRETURN(argvi);
15114 fail:
15115
15116
15117 SWIG_croak_null();
15118 }
15119 }
15120
15121
XS(_wrap_gsl_multifit_fdfridge_fdf_get)15122 XS(_wrap_gsl_multifit_fdfridge_fdf_get) {
15123 {
15124 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
15125 void *argp1 = 0 ;
15126 int res1 = 0 ;
15127 int argvi = 0;
15128 gsl_multifit_function_fdf *result = 0 ;
15129 dXSARGS;
15130
15131 if ((items < 1) || (items > 1)) {
15132 SWIG_croak("Usage: gsl_multifit_fdfridge_fdf_get(self);");
15133 }
15134 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
15135 if (!SWIG_IsOK(res1)) {
15136 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_fdf_get" "', argument " "1"" of type '" "gsl_multifit_fdfridge *""'");
15137 }
15138 arg1 = (gsl_multifit_fdfridge *)(argp1);
15139 result = (gsl_multifit_function_fdf *) ((arg1)->fdf);
15140 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | SWIG_SHADOW); argvi++ ;
15141
15142 XSRETURN(argvi);
15143 fail:
15144
15145 SWIG_croak_null();
15146 }
15147 }
15148
15149
XS(_wrap_gsl_multifit_fdfridge_fdftik_set)15150 XS(_wrap_gsl_multifit_fdfridge_fdftik_set) {
15151 {
15152 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
15153 gsl_multifit_function_fdf *arg2 = (gsl_multifit_function_fdf *) 0 ;
15154 void *argp1 = 0 ;
15155 int res1 = 0 ;
15156 void *argp2 = 0 ;
15157 int res2 = 0 ;
15158 int argvi = 0;
15159 dXSARGS;
15160
15161 if ((items < 2) || (items > 2)) {
15162 SWIG_croak("Usage: gsl_multifit_fdfridge_fdftik_set(self,fdftik);");
15163 }
15164 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
15165 if (!SWIG_IsOK(res1)) {
15166 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_fdftik_set" "', argument " "1"" of type '" "gsl_multifit_fdfridge *""'");
15167 }
15168 arg1 = (gsl_multifit_fdfridge *)(argp1);
15169 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | 0 );
15170 if (!SWIG_IsOK(res2)) {
15171 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fdfridge_fdftik_set" "', argument " "2"" of type '" "gsl_multifit_function_fdf *""'");
15172 }
15173 arg2 = (gsl_multifit_function_fdf *)(argp2);
15174 if (arg1) (arg1)->fdftik = *arg2;
15175 ST(argvi) = &PL_sv_undef;
15176
15177
15178 XSRETURN(argvi);
15179 fail:
15180
15181
15182 SWIG_croak_null();
15183 }
15184 }
15185
15186
XS(_wrap_gsl_multifit_fdfridge_fdftik_get)15187 XS(_wrap_gsl_multifit_fdfridge_fdftik_get) {
15188 {
15189 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
15190 void *argp1 = 0 ;
15191 int res1 = 0 ;
15192 int argvi = 0;
15193 gsl_multifit_function_fdf *result = 0 ;
15194 dXSARGS;
15195
15196 if ((items < 1) || (items > 1)) {
15197 SWIG_croak("Usage: gsl_multifit_fdfridge_fdftik_get(self);");
15198 }
15199 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
15200 if (!SWIG_IsOK(res1)) {
15201 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_fdftik_get" "', argument " "1"" of type '" "gsl_multifit_fdfridge *""'");
15202 }
15203 arg1 = (gsl_multifit_fdfridge *)(argp1);
15204 result = (gsl_multifit_function_fdf *)& ((arg1)->fdftik);
15205 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | SWIG_SHADOW); argvi++ ;
15206
15207 XSRETURN(argvi);
15208 fail:
15209
15210 SWIG_croak_null();
15211 }
15212 }
15213
15214
XS(_wrap_new_gsl_multifit_fdfridge)15215 XS(_wrap_new_gsl_multifit_fdfridge) {
15216 {
15217 int argvi = 0;
15218 gsl_multifit_fdfridge *result = 0 ;
15219 dXSARGS;
15220
15221 if ((items < 0) || (items > 0)) {
15222 SWIG_croak("Usage: new_gsl_multifit_fdfridge();");
15223 }
15224 result = (gsl_multifit_fdfridge *)calloc(1, sizeof(gsl_multifit_fdfridge));
15225 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_fdfridge, SWIG_OWNER | SWIG_SHADOW); argvi++ ;
15226 XSRETURN(argvi);
15227 fail:
15228 SWIG_croak_null();
15229 }
15230 }
15231
15232
XS(_wrap_delete_gsl_multifit_fdfridge)15233 XS(_wrap_delete_gsl_multifit_fdfridge) {
15234 {
15235 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
15236 void *argp1 = 0 ;
15237 int res1 = 0 ;
15238 int argvi = 0;
15239 dXSARGS;
15240
15241 if ((items < 1) || (items > 1)) {
15242 SWIG_croak("Usage: delete_gsl_multifit_fdfridge(self);");
15243 }
15244 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, SWIG_POINTER_DISOWN | 0 );
15245 if (!SWIG_IsOK(res1)) {
15246 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_gsl_multifit_fdfridge" "', argument " "1"" of type '" "gsl_multifit_fdfridge *""'");
15247 }
15248 arg1 = (gsl_multifit_fdfridge *)(argp1);
15249 free((char *) arg1);
15250 ST(argvi) = &PL_sv_undef;
15251
15252 XSRETURN(argvi);
15253 fail:
15254
15255 SWIG_croak_null();
15256 }
15257 }
15258
15259
XS(_wrap_gsl_multifit_fdfridge_alloc)15260 XS(_wrap_gsl_multifit_fdfridge_alloc) {
15261 {
15262 gsl_multifit_fdfsolver_type *arg1 = (gsl_multifit_fdfsolver_type *) 0 ;
15263 size_t arg2 ;
15264 size_t arg3 ;
15265 void *argp1 = 0 ;
15266 int res1 = 0 ;
15267 size_t val2 ;
15268 int ecode2 = 0 ;
15269 size_t val3 ;
15270 int ecode3 = 0 ;
15271 int argvi = 0;
15272 gsl_multifit_fdfridge *result = 0 ;
15273 dXSARGS;
15274
15275 if ((items < 3) || (items > 3)) {
15276 SWIG_croak("Usage: gsl_multifit_fdfridge_alloc(T,n,p);");
15277 }
15278 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfsolver_type, 0 | 0 );
15279 if (!SWIG_IsOK(res1)) {
15280 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_alloc" "', argument " "1"" of type '" "gsl_multifit_fdfsolver_type const *""'");
15281 }
15282 arg1 = (gsl_multifit_fdfsolver_type *)(argp1);
15283 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
15284 if (!SWIG_IsOK(ecode2)) {
15285 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_fdfridge_alloc" "', argument " "2"" of type '" "size_t""'");
15286 }
15287 arg2 = (size_t)(val2);
15288 ecode3 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
15289 if (!SWIG_IsOK(ecode3)) {
15290 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_multifit_fdfridge_alloc" "', argument " "3"" of type '" "size_t""'");
15291 }
15292 arg3 = (size_t)(val3);
15293 result = (gsl_multifit_fdfridge *)gsl_multifit_fdfridge_alloc((gsl_multifit_fdfsolver_type const *)arg1,arg2,arg3);
15294 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_multifit_fdfridge, 0 | SWIG_SHADOW); argvi++ ;
15295
15296
15297
15298 XSRETURN(argvi);
15299 fail:
15300
15301
15302
15303 SWIG_croak_null();
15304 }
15305 }
15306
15307
XS(_wrap_gsl_multifit_fdfridge_free)15308 XS(_wrap_gsl_multifit_fdfridge_free) {
15309 {
15310 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
15311 void *argp1 = 0 ;
15312 int res1 = 0 ;
15313 int argvi = 0;
15314 dXSARGS;
15315
15316 if ((items < 1) || (items > 1)) {
15317 SWIG_croak("Usage: gsl_multifit_fdfridge_free(work);");
15318 }
15319 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
15320 if (!SWIG_IsOK(res1)) {
15321 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_free" "', argument " "1"" of type '" "gsl_multifit_fdfridge *""'");
15322 }
15323 arg1 = (gsl_multifit_fdfridge *)(argp1);
15324 gsl_multifit_fdfridge_free(arg1);
15325 ST(argvi) = &PL_sv_undef;
15326
15327 XSRETURN(argvi);
15328 fail:
15329
15330 SWIG_croak_null();
15331 }
15332 }
15333
15334
XS(_wrap_gsl_multifit_fdfridge_name)15335 XS(_wrap_gsl_multifit_fdfridge_name) {
15336 {
15337 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
15338 void *argp1 = 0 ;
15339 int res1 = 0 ;
15340 int argvi = 0;
15341 char *result = 0 ;
15342 dXSARGS;
15343
15344 if ((items < 1) || (items > 1)) {
15345 SWIG_croak("Usage: gsl_multifit_fdfridge_name(w);");
15346 }
15347 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
15348 if (!SWIG_IsOK(res1)) {
15349 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_name" "', argument " "1"" of type '" "gsl_multifit_fdfridge const *""'");
15350 }
15351 arg1 = (gsl_multifit_fdfridge *)(argp1);
15352 result = (char *)gsl_multifit_fdfridge_name((gsl_multifit_fdfridge const *)arg1);
15353 ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
15354
15355 XSRETURN(argvi);
15356 fail:
15357
15358 SWIG_croak_null();
15359 }
15360 }
15361
15362
XS(_wrap_gsl_multifit_fdfridge_position)15363 XS(_wrap_gsl_multifit_fdfridge_position) {
15364 {
15365 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
15366 void *argp1 = 0 ;
15367 int res1 = 0 ;
15368 int argvi = 0;
15369 gsl_vector *result = 0 ;
15370 dXSARGS;
15371
15372 if ((items < 1) || (items > 1)) {
15373 SWIG_croak("Usage: gsl_multifit_fdfridge_position(w);");
15374 }
15375 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
15376 if (!SWIG_IsOK(res1)) {
15377 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_position" "', argument " "1"" of type '" "gsl_multifit_fdfridge const *""'");
15378 }
15379 arg1 = (gsl_multifit_fdfridge *)(argp1);
15380 result = (gsl_vector *)gsl_multifit_fdfridge_position((gsl_multifit_fdfridge const *)arg1);
15381 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
15382
15383 XSRETURN(argvi);
15384 fail:
15385
15386 SWIG_croak_null();
15387 }
15388 }
15389
15390
XS(_wrap_gsl_multifit_fdfridge_residual)15391 XS(_wrap_gsl_multifit_fdfridge_residual) {
15392 {
15393 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
15394 void *argp1 = 0 ;
15395 int res1 = 0 ;
15396 int argvi = 0;
15397 gsl_vector *result = 0 ;
15398 dXSARGS;
15399
15400 if ((items < 1) || (items > 1)) {
15401 SWIG_croak("Usage: gsl_multifit_fdfridge_residual(w);");
15402 }
15403 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
15404 if (!SWIG_IsOK(res1)) {
15405 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_residual" "', argument " "1"" of type '" "gsl_multifit_fdfridge const *""'");
15406 }
15407 arg1 = (gsl_multifit_fdfridge *)(argp1);
15408 result = (gsl_vector *)gsl_multifit_fdfridge_residual((gsl_multifit_fdfridge const *)arg1);
15409 ST(argvi) = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_gsl_vector, 0 | 0); argvi++ ;
15410
15411 XSRETURN(argvi);
15412 fail:
15413
15414 SWIG_croak_null();
15415 }
15416 }
15417
15418
XS(_wrap_gsl_multifit_fdfridge_niter)15419 XS(_wrap_gsl_multifit_fdfridge_niter) {
15420 {
15421 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
15422 void *argp1 = 0 ;
15423 int res1 = 0 ;
15424 int argvi = 0;
15425 size_t result;
15426 dXSARGS;
15427
15428 if ((items < 1) || (items > 1)) {
15429 SWIG_croak("Usage: gsl_multifit_fdfridge_niter(w);");
15430 }
15431 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
15432 if (!SWIG_IsOK(res1)) {
15433 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_niter" "', argument " "1"" of type '" "gsl_multifit_fdfridge const *""'");
15434 }
15435 arg1 = (gsl_multifit_fdfridge *)(argp1);
15436 result = gsl_multifit_fdfridge_niter((gsl_multifit_fdfridge const *)arg1);
15437 ST(argvi) = SWIG_From_size_t SWIG_PERL_CALL_ARGS_1((size_t)(result)); argvi++ ;
15438
15439 XSRETURN(argvi);
15440 fail:
15441
15442 SWIG_croak_null();
15443 }
15444 }
15445
15446
XS(_wrap_gsl_multifit_fdfridge_set)15447 XS(_wrap_gsl_multifit_fdfridge_set) {
15448 {
15449 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
15450 gsl_multifit_function_fdf *arg2 = (gsl_multifit_function_fdf *) 0 ;
15451 gsl_vector *arg3 = (gsl_vector *) 0 ;
15452 double arg4 ;
15453 void *argp1 = 0 ;
15454 int res1 = 0 ;
15455 void *argp2 = 0 ;
15456 int res2 = 0 ;
15457 void *argp3 = 0 ;
15458 int res3 = 0 ;
15459 double val4 ;
15460 int ecode4 = 0 ;
15461 int argvi = 0;
15462 int result;
15463 dXSARGS;
15464
15465 if ((items < 4) || (items > 4)) {
15466 SWIG_croak("Usage: gsl_multifit_fdfridge_set(w,f,x,lambda);");
15467 }
15468 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
15469 if (!SWIG_IsOK(res1)) {
15470 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_set" "', argument " "1"" of type '" "gsl_multifit_fdfridge *""'");
15471 }
15472 arg1 = (gsl_multifit_fdfridge *)(argp1);
15473 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | 0 );
15474 if (!SWIG_IsOK(res2)) {
15475 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fdfridge_set" "', argument " "2"" of type '" "gsl_multifit_function_fdf *""'");
15476 }
15477 arg2 = (gsl_multifit_function_fdf *)(argp2);
15478 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
15479 if (!SWIG_IsOK(res3)) {
15480 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_fdfridge_set" "', argument " "3"" of type '" "gsl_vector const *""'");
15481 }
15482 arg3 = (gsl_vector *)(argp3);
15483 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
15484 if (!SWIG_IsOK(ecode4)) {
15485 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_multifit_fdfridge_set" "', argument " "4"" of type '" "double""'");
15486 }
15487 arg4 = (double)(val4);
15488 result = (int)gsl_multifit_fdfridge_set(arg1,arg2,(gsl_vector const *)arg3,arg4);
15489 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
15490
15491
15492
15493
15494 XSRETURN(argvi);
15495 fail:
15496
15497
15498
15499
15500 SWIG_croak_null();
15501 }
15502 }
15503
15504
XS(_wrap_gsl_multifit_fdfridge_wset)15505 XS(_wrap_gsl_multifit_fdfridge_wset) {
15506 {
15507 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
15508 gsl_multifit_function_fdf *arg2 = (gsl_multifit_function_fdf *) 0 ;
15509 gsl_vector *arg3 = (gsl_vector *) 0 ;
15510 double arg4 ;
15511 gsl_vector *arg5 = (gsl_vector *) 0 ;
15512 void *argp1 = 0 ;
15513 int res1 = 0 ;
15514 void *argp2 = 0 ;
15515 int res2 = 0 ;
15516 void *argp3 = 0 ;
15517 int res3 = 0 ;
15518 double val4 ;
15519 int ecode4 = 0 ;
15520 void *argp5 = 0 ;
15521 int res5 = 0 ;
15522 int argvi = 0;
15523 int result;
15524 dXSARGS;
15525
15526 if ((items < 5) || (items > 5)) {
15527 SWIG_croak("Usage: gsl_multifit_fdfridge_wset(w,f,x,lambda,wts);");
15528 }
15529 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
15530 if (!SWIG_IsOK(res1)) {
15531 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_wset" "', argument " "1"" of type '" "gsl_multifit_fdfridge *""'");
15532 }
15533 arg1 = (gsl_multifit_fdfridge *)(argp1);
15534 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | 0 );
15535 if (!SWIG_IsOK(res2)) {
15536 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fdfridge_wset" "', argument " "2"" of type '" "gsl_multifit_function_fdf *""'");
15537 }
15538 arg2 = (gsl_multifit_function_fdf *)(argp2);
15539 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
15540 if (!SWIG_IsOK(res3)) {
15541 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_fdfridge_wset" "', argument " "3"" of type '" "gsl_vector const *""'");
15542 }
15543 arg3 = (gsl_vector *)(argp3);
15544 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
15545 if (!SWIG_IsOK(ecode4)) {
15546 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_multifit_fdfridge_wset" "', argument " "4"" of type '" "double""'");
15547 }
15548 arg4 = (double)(val4);
15549 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
15550 if (!SWIG_IsOK(res5)) {
15551 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_fdfridge_wset" "', argument " "5"" of type '" "gsl_vector const *""'");
15552 }
15553 arg5 = (gsl_vector *)(argp5);
15554 result = (int)gsl_multifit_fdfridge_wset(arg1,arg2,(gsl_vector const *)arg3,arg4,(gsl_vector const *)arg5);
15555 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
15556
15557
15558
15559
15560
15561 XSRETURN(argvi);
15562 fail:
15563
15564
15565
15566
15567
15568 SWIG_croak_null();
15569 }
15570 }
15571
15572
XS(_wrap_gsl_multifit_fdfridge_set2)15573 XS(_wrap_gsl_multifit_fdfridge_set2) {
15574 {
15575 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
15576 gsl_multifit_function_fdf *arg2 = (gsl_multifit_function_fdf *) 0 ;
15577 gsl_vector *arg3 = (gsl_vector *) 0 ;
15578 gsl_vector *arg4 = (gsl_vector *) 0 ;
15579 void *argp1 = 0 ;
15580 int res1 = 0 ;
15581 void *argp2 = 0 ;
15582 int res2 = 0 ;
15583 void *argp3 = 0 ;
15584 int res3 = 0 ;
15585 void *argp4 = 0 ;
15586 int res4 = 0 ;
15587 int argvi = 0;
15588 int result;
15589 dXSARGS;
15590
15591 if ((items < 4) || (items > 4)) {
15592 SWIG_croak("Usage: gsl_multifit_fdfridge_set2(w,f,x,lambda);");
15593 }
15594 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
15595 if (!SWIG_IsOK(res1)) {
15596 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_set2" "', argument " "1"" of type '" "gsl_multifit_fdfridge *""'");
15597 }
15598 arg1 = (gsl_multifit_fdfridge *)(argp1);
15599 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | 0 );
15600 if (!SWIG_IsOK(res2)) {
15601 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fdfridge_set2" "', argument " "2"" of type '" "gsl_multifit_function_fdf *""'");
15602 }
15603 arg2 = (gsl_multifit_function_fdf *)(argp2);
15604 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
15605 if (!SWIG_IsOK(res3)) {
15606 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_fdfridge_set2" "', argument " "3"" of type '" "gsl_vector const *""'");
15607 }
15608 arg3 = (gsl_vector *)(argp3);
15609 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
15610 if (!SWIG_IsOK(res4)) {
15611 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_fdfridge_set2" "', argument " "4"" of type '" "gsl_vector const *""'");
15612 }
15613 arg4 = (gsl_vector *)(argp4);
15614 result = (int)gsl_multifit_fdfridge_set2(arg1,arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4);
15615 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
15616
15617
15618
15619
15620 XSRETURN(argvi);
15621 fail:
15622
15623
15624
15625
15626 SWIG_croak_null();
15627 }
15628 }
15629
15630
XS(_wrap_gsl_multifit_fdfridge_wset2)15631 XS(_wrap_gsl_multifit_fdfridge_wset2) {
15632 {
15633 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
15634 gsl_multifit_function_fdf *arg2 = (gsl_multifit_function_fdf *) 0 ;
15635 gsl_vector *arg3 = (gsl_vector *) 0 ;
15636 gsl_vector *arg4 = (gsl_vector *) 0 ;
15637 gsl_vector *arg5 = (gsl_vector *) 0 ;
15638 void *argp1 = 0 ;
15639 int res1 = 0 ;
15640 void *argp2 = 0 ;
15641 int res2 = 0 ;
15642 void *argp3 = 0 ;
15643 int res3 = 0 ;
15644 void *argp4 = 0 ;
15645 int res4 = 0 ;
15646 void *argp5 = 0 ;
15647 int res5 = 0 ;
15648 int argvi = 0;
15649 int result;
15650 dXSARGS;
15651
15652 if ((items < 5) || (items > 5)) {
15653 SWIG_croak("Usage: gsl_multifit_fdfridge_wset2(w,f,x,lambda,wts);");
15654 }
15655 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
15656 if (!SWIG_IsOK(res1)) {
15657 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_wset2" "', argument " "1"" of type '" "gsl_multifit_fdfridge *""'");
15658 }
15659 arg1 = (gsl_multifit_fdfridge *)(argp1);
15660 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | 0 );
15661 if (!SWIG_IsOK(res2)) {
15662 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fdfridge_wset2" "', argument " "2"" of type '" "gsl_multifit_function_fdf *""'");
15663 }
15664 arg2 = (gsl_multifit_function_fdf *)(argp2);
15665 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
15666 if (!SWIG_IsOK(res3)) {
15667 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_fdfridge_wset2" "', argument " "3"" of type '" "gsl_vector const *""'");
15668 }
15669 arg3 = (gsl_vector *)(argp3);
15670 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_vector, 0 | 0 );
15671 if (!SWIG_IsOK(res4)) {
15672 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_fdfridge_wset2" "', argument " "4"" of type '" "gsl_vector const *""'");
15673 }
15674 arg4 = (gsl_vector *)(argp4);
15675 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
15676 if (!SWIG_IsOK(res5)) {
15677 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_fdfridge_wset2" "', argument " "5"" of type '" "gsl_vector const *""'");
15678 }
15679 arg5 = (gsl_vector *)(argp5);
15680 result = (int)gsl_multifit_fdfridge_wset2(arg1,arg2,(gsl_vector const *)arg3,(gsl_vector const *)arg4,(gsl_vector const *)arg5);
15681 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
15682
15683
15684
15685
15686
15687 XSRETURN(argvi);
15688 fail:
15689
15690
15691
15692
15693
15694 SWIG_croak_null();
15695 }
15696 }
15697
15698
XS(_wrap_gsl_multifit_fdfridge_set3)15699 XS(_wrap_gsl_multifit_fdfridge_set3) {
15700 {
15701 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
15702 gsl_multifit_function_fdf *arg2 = (gsl_multifit_function_fdf *) 0 ;
15703 gsl_vector *arg3 = (gsl_vector *) 0 ;
15704 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
15705 void *argp1 = 0 ;
15706 int res1 = 0 ;
15707 void *argp2 = 0 ;
15708 int res2 = 0 ;
15709 void *argp3 = 0 ;
15710 int res3 = 0 ;
15711 void *argp4 = 0 ;
15712 int res4 = 0 ;
15713 int argvi = 0;
15714 int result;
15715 dXSARGS;
15716
15717 if ((items < 4) || (items > 4)) {
15718 SWIG_croak("Usage: gsl_multifit_fdfridge_set3(w,f,x,L);");
15719 }
15720 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
15721 if (!SWIG_IsOK(res1)) {
15722 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_set3" "', argument " "1"" of type '" "gsl_multifit_fdfridge *""'");
15723 }
15724 arg1 = (gsl_multifit_fdfridge *)(argp1);
15725 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | 0 );
15726 if (!SWIG_IsOK(res2)) {
15727 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fdfridge_set3" "', argument " "2"" of type '" "gsl_multifit_function_fdf *""'");
15728 }
15729 arg2 = (gsl_multifit_function_fdf *)(argp2);
15730 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
15731 if (!SWIG_IsOK(res3)) {
15732 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_fdfridge_set3" "', argument " "3"" of type '" "gsl_vector const *""'");
15733 }
15734 arg3 = (gsl_vector *)(argp3);
15735 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
15736 if (!SWIG_IsOK(res4)) {
15737 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_fdfridge_set3" "', argument " "4"" of type '" "gsl_matrix const *""'");
15738 }
15739 arg4 = (gsl_matrix *)(argp4);
15740 result = (int)gsl_multifit_fdfridge_set3(arg1,arg2,(gsl_vector const *)arg3,(gsl_matrix const *)arg4);
15741 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
15742
15743
15744
15745
15746 XSRETURN(argvi);
15747 fail:
15748
15749
15750
15751
15752 SWIG_croak_null();
15753 }
15754 }
15755
15756
XS(_wrap_gsl_multifit_fdfridge_wset3)15757 XS(_wrap_gsl_multifit_fdfridge_wset3) {
15758 {
15759 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
15760 gsl_multifit_function_fdf *arg2 = (gsl_multifit_function_fdf *) 0 ;
15761 gsl_vector *arg3 = (gsl_vector *) 0 ;
15762 gsl_matrix *arg4 = (gsl_matrix *) 0 ;
15763 gsl_vector *arg5 = (gsl_vector *) 0 ;
15764 void *argp1 = 0 ;
15765 int res1 = 0 ;
15766 void *argp2 = 0 ;
15767 int res2 = 0 ;
15768 void *argp3 = 0 ;
15769 int res3 = 0 ;
15770 void *argp4 = 0 ;
15771 int res4 = 0 ;
15772 void *argp5 = 0 ;
15773 int res5 = 0 ;
15774 int argvi = 0;
15775 int result;
15776 dXSARGS;
15777
15778 if ((items < 5) || (items > 5)) {
15779 SWIG_croak("Usage: gsl_multifit_fdfridge_wset3(w,f,x,L,wts);");
15780 }
15781 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
15782 if (!SWIG_IsOK(res1)) {
15783 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_wset3" "', argument " "1"" of type '" "gsl_multifit_fdfridge *""'");
15784 }
15785 arg1 = (gsl_multifit_fdfridge *)(argp1);
15786 res2 = SWIG_ConvertPtr(ST(1), &argp2,SWIGTYPE_p_gsl_multifit_function_fdf_struct, 0 | 0 );
15787 if (!SWIG_IsOK(res2)) {
15788 SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "gsl_multifit_fdfridge_wset3" "', argument " "2"" of type '" "gsl_multifit_function_fdf *""'");
15789 }
15790 arg2 = (gsl_multifit_function_fdf *)(argp2);
15791 res3 = SWIG_ConvertPtr(ST(2), &argp3,SWIGTYPE_p_gsl_vector, 0 | 0 );
15792 if (!SWIG_IsOK(res3)) {
15793 SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "gsl_multifit_fdfridge_wset3" "', argument " "3"" of type '" "gsl_vector const *""'");
15794 }
15795 arg3 = (gsl_vector *)(argp3);
15796 res4 = SWIG_ConvertPtr(ST(3), &argp4,SWIGTYPE_p_gsl_matrix, 0 | 0 );
15797 if (!SWIG_IsOK(res4)) {
15798 SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "gsl_multifit_fdfridge_wset3" "', argument " "4"" of type '" "gsl_matrix const *""'");
15799 }
15800 arg4 = (gsl_matrix *)(argp4);
15801 res5 = SWIG_ConvertPtr(ST(4), &argp5,SWIGTYPE_p_gsl_vector, 0 | 0 );
15802 if (!SWIG_IsOK(res5)) {
15803 SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "gsl_multifit_fdfridge_wset3" "', argument " "5"" of type '" "gsl_vector const *""'");
15804 }
15805 arg5 = (gsl_vector *)(argp5);
15806 result = (int)gsl_multifit_fdfridge_wset3(arg1,arg2,(gsl_vector const *)arg3,(gsl_matrix const *)arg4,(gsl_vector const *)arg5);
15807 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
15808
15809
15810
15811
15812
15813 XSRETURN(argvi);
15814 fail:
15815
15816
15817
15818
15819
15820 SWIG_croak_null();
15821 }
15822 }
15823
15824
XS(_wrap_gsl_multifit_fdfridge_iterate)15825 XS(_wrap_gsl_multifit_fdfridge_iterate) {
15826 {
15827 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
15828 void *argp1 = 0 ;
15829 int res1 = 0 ;
15830 int argvi = 0;
15831 int result;
15832 dXSARGS;
15833
15834 if ((items < 1) || (items > 1)) {
15835 SWIG_croak("Usage: gsl_multifit_fdfridge_iterate(w);");
15836 }
15837 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
15838 if (!SWIG_IsOK(res1)) {
15839 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_iterate" "', argument " "1"" of type '" "gsl_multifit_fdfridge *""'");
15840 }
15841 arg1 = (gsl_multifit_fdfridge *)(argp1);
15842 result = (int)gsl_multifit_fdfridge_iterate(arg1);
15843 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
15844
15845 XSRETURN(argvi);
15846 fail:
15847
15848 SWIG_croak_null();
15849 }
15850 }
15851
15852
XS(_wrap_gsl_multifit_fdfridge_driver)15853 XS(_wrap_gsl_multifit_fdfridge_driver) {
15854 {
15855 gsl_multifit_fdfridge *arg1 = (gsl_multifit_fdfridge *) 0 ;
15856 size_t arg2 ;
15857 double arg3 ;
15858 double arg4 ;
15859 double arg5 ;
15860 int *arg6 = (int *) 0 ;
15861 void *argp1 = 0 ;
15862 int res1 = 0 ;
15863 size_t val2 ;
15864 int ecode2 = 0 ;
15865 double val3 ;
15866 int ecode3 = 0 ;
15867 double val4 ;
15868 int ecode4 = 0 ;
15869 double val5 ;
15870 int ecode5 = 0 ;
15871 void *argp6 = 0 ;
15872 int res6 = 0 ;
15873 int argvi = 0;
15874 int result;
15875 dXSARGS;
15876
15877 if ((items < 6) || (items > 6)) {
15878 SWIG_croak("Usage: gsl_multifit_fdfridge_driver(w,maxiter,xtol,gtol,ftol,info);");
15879 }
15880 res1 = SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_gsl_multifit_fdfridge, 0 | 0 );
15881 if (!SWIG_IsOK(res1)) {
15882 SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "gsl_multifit_fdfridge_driver" "', argument " "1"" of type '" "gsl_multifit_fdfridge *""'");
15883 }
15884 arg1 = (gsl_multifit_fdfridge *)(argp1);
15885 ecode2 = SWIG_AsVal_size_t SWIG_PERL_CALL_ARGS_2(ST(1), &val2);
15886 if (!SWIG_IsOK(ecode2)) {
15887 SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "gsl_multifit_fdfridge_driver" "', argument " "2"" of type '" "size_t""'");
15888 }
15889 arg2 = (size_t)(val2);
15890 ecode3 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(2), &val3);
15891 if (!SWIG_IsOK(ecode3)) {
15892 SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "gsl_multifit_fdfridge_driver" "', argument " "3"" of type '" "double""'");
15893 }
15894 arg3 = (double)(val3);
15895 ecode4 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(3), &val4);
15896 if (!SWIG_IsOK(ecode4)) {
15897 SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "gsl_multifit_fdfridge_driver" "', argument " "4"" of type '" "double""'");
15898 }
15899 arg4 = (double)(val4);
15900 ecode5 = SWIG_AsVal_double SWIG_PERL_CALL_ARGS_2(ST(4), &val5);
15901 if (!SWIG_IsOK(ecode5)) {
15902 SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "gsl_multifit_fdfridge_driver" "', argument " "5"" of type '" "double""'");
15903 }
15904 arg5 = (double)(val5);
15905 res6 = SWIG_ConvertPtr(ST(5), &argp6,SWIGTYPE_p_int, 0 | 0 );
15906 if (!SWIG_IsOK(res6)) {
15907 SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "gsl_multifit_fdfridge_driver" "', argument " "6"" of type '" "int *""'");
15908 }
15909 arg6 = (int *)(argp6);
15910 result = (int)gsl_multifit_fdfridge_driver(arg1,arg2,arg3,arg4,arg5,arg6);
15911 ST(argvi) = SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(result)); argvi++ ;
15912
15913
15914
15915
15916
15917
15918 XSRETURN(argvi);
15919 fail:
15920
15921
15922
15923
15924
15925
15926 SWIG_croak_null();
15927 }
15928 }
15929
15930
15931
15932 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */
15933
15934 static swig_type_info _swigt__p_FILE = {"_p_FILE", "FILE *", 0, 0, (void*)0, 0};
15935 static swig_type_info _swigt__p_char = {"_p_char", "char *", 0, 0, (void*)0, 0};
15936 static swig_type_info _swigt__p_double = {"_p_double", "double *", 0, 0, (void*)0, 0};
15937 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};
15938 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};
15939 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};
15940 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};
15941 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};
15942 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};
15943 static swig_type_info _swigt__p_f_p_q_const__gsl_vector_p_void_p_gsl_matrix__int = {"_p_f_p_q_const__gsl_vector_p_void_p_gsl_matrix__int", "int (*)(gsl_vector const *,void *,gsl_matrix *)", 0, 0, (void*)0, 0};
15944 static swig_type_info _swigt__p_f_p_q_const__gsl_vector_p_void_p_gsl_vector__int = {"_p_f_p_q_const__gsl_vector_p_void_p_gsl_vector__int", "int (*)(gsl_vector const *,void *,gsl_vector *)", 0, 0, (void*)0, 0};
15945 static swig_type_info _swigt__p_f_p_q_const__gsl_vector_p_void_p_gsl_vector_p_gsl_matrix__int = {"_p_f_p_q_const__gsl_vector_p_void_p_gsl_vector_p_gsl_matrix__int", "int (*)(gsl_vector const *,void *,gsl_vector *,gsl_matrix *)", 0, 0, (void*)0, 0};
15946 static swig_type_info _swigt__p_f_p_void__void = {"_p_f_p_void__void", "void (*)(void *)", 0, 0, (void*)0, 0};
15947 static swig_type_info _swigt__p_f_p_void_p_gsl_matrix__int = {"_p_f_p_void_p_gsl_matrix__int", "int (*)(void *,gsl_matrix *)", 0, 0, (void*)0, 0};
15948 static swig_type_info _swigt__p_f_p_void_p_gsl_vector__int = {"_p_f_p_void_p_gsl_vector__int", "int (*)(void *,gsl_vector *)", 0, 0, (void*)0, 0};
15949 static swig_type_info _swigt__p_f_p_void_p_q_const__gsl_vector_p_struct_gsl_multifit_function_fdf_struct_p_gsl_vector_p_gsl_vector_p_gsl_vector__int = {"_p_f_p_void_p_q_const__gsl_vector_p_struct_gsl_multifit_function_fdf_struct_p_gsl_vector_p_gsl_vector_p_gsl_vector__int", "int (*)(void *,gsl_vector const *,struct gsl_multifit_function_fdf_struct *,gsl_vector *,gsl_vector *,gsl_vector *)|int (*)(void *,gsl_vector const *,gsl_multifit_function_fdf *,gsl_vector *,gsl_vector *,gsl_vector *)", 0, 0, (void*)0, 0};
15950 static swig_type_info _swigt__p_f_p_void_p_struct_gsl_multifit_function_struct_p_gsl_vector_p_gsl_vector_p_gsl_vector__int = {"_p_f_p_void_p_struct_gsl_multifit_function_struct_p_gsl_vector_p_gsl_vector_p_gsl_vector__int", "int (*)(void *,gsl_multifit_function *,gsl_vector *,gsl_vector *,gsl_vector *)|int (*)(void *,struct gsl_multifit_function_struct *,gsl_vector *,gsl_vector *,gsl_vector *)", 0, 0, (void*)0, 0};
15951 static swig_type_info _swigt__p_f_p_void_size_t_size_t__int = {"_p_f_p_void_size_t_size_t__int", "int (*)(void *,size_t,size_t)", 0, 0, (void*)0, 0};
15952 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::Multifit::gsl_function_fdf_struct", 0};
15953 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::Multifit::gsl_function_struct", 0};
15954 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::Multifit::gsl_function_vec_struct", 0};
15955 static swig_type_info _swigt__p_gsl_matrix = {"_p_gsl_matrix", "gsl_matrix *", 0, 0, (void*)0, 0};
15956 static swig_type_info _swigt__p_gsl_multifit_fdfridge = {"_p_gsl_multifit_fdfridge", "gsl_multifit_fdfridge *", 0, 0, (void*)"Math::GSL::Multifit::gsl_multifit_fdfridge", 0};
15957 static swig_type_info _swigt__p_gsl_multifit_fdfsolver = {"_p_gsl_multifit_fdfsolver", "gsl_multifit_fdfsolver *", 0, 0, (void*)"Math::GSL::Multifit::gsl_multifit_fdfsolver", 0};
15958 static swig_type_info _swigt__p_gsl_multifit_fdfsolver_type = {"_p_gsl_multifit_fdfsolver_type", "gsl_multifit_fdfsolver_type *", 0, 0, (void*)"Math::GSL::Multifit::gsl_multifit_fdfsolver_type", 0};
15959 static swig_type_info _swigt__p_gsl_multifit_fsolver = {"_p_gsl_multifit_fsolver", "gsl_multifit_fsolver *", 0, 0, (void*)"Math::GSL::Multifit::gsl_multifit_fsolver", 0};
15960 static swig_type_info _swigt__p_gsl_multifit_fsolver_type = {"_p_gsl_multifit_fsolver_type", "gsl_multifit_fsolver_type *", 0, 0, (void*)"Math::GSL::Multifit::gsl_multifit_fsolver_type", 0};
15961 static swig_type_info _swigt__p_gsl_multifit_function_fdf_struct = {"_p_gsl_multifit_function_fdf_struct", "struct gsl_multifit_function_fdf_struct *|gsl_multifit_function_fdf_struct *|gsl_multifit_function_fdf *", 0, 0, (void*)"Math::GSL::Multifit::gsl_multifit_function_fdf_struct", 0};
15962 static swig_type_info _swigt__p_gsl_multifit_function_struct = {"_p_gsl_multifit_function_struct", "gsl_multifit_function *|struct gsl_multifit_function_struct *|gsl_multifit_function_struct *", 0, 0, (void*)"Math::GSL::Multifit::gsl_multifit_function_struct", 0};
15963 static swig_type_info _swigt__p_gsl_multifit_linear_workspace = {"_p_gsl_multifit_linear_workspace", "gsl_multifit_linear_workspace *", 0, 0, (void*)"Math::GSL::Multifit::gsl_multifit_linear_workspace", 0};
15964 static swig_type_info _swigt__p_gsl_multifit_robust_stats = {"_p_gsl_multifit_robust_stats", "gsl_multifit_robust_stats *", 0, 0, (void*)"Math::GSL::Multifit::gsl_multifit_robust_stats", 0};
15965 static swig_type_info _swigt__p_gsl_multifit_robust_type = {"_p_gsl_multifit_robust_type", "gsl_multifit_robust_type *", 0, 0, (void*)"Math::GSL::Multifit::gsl_multifit_robust_type", 0};
15966 static swig_type_info _swigt__p_gsl_multifit_robust_workspace = {"_p_gsl_multifit_robust_workspace", "gsl_multifit_robust_workspace *", 0, 0, (void*)"Math::GSL::Multifit::gsl_multifit_robust_workspace", 0};
15967 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::Multifit::gsl_permutation_struct", 0};
15968 static swig_type_info _swigt__p_gsl_vector = {"_p_gsl_vector", "gsl_vector *", 0, 0, (void*)0, 0};
15969 static swig_type_info _swigt__p_int = {"_p_int", "int *", 0, 0, (void*)0, 0};
15970 static swig_type_info _swigt__p_size_t = {"_p_size_t", "size_t *", 0, 0, (void*)0, 0};
15971 static swig_type_info _swigt__p_void = {"_p_void", "void *", 0, 0, (void*)0, 0};
15972
15973 static swig_type_info *swig_type_initial[] = {
15974 &_swigt__p_FILE,
15975 &_swigt__p_char,
15976 &_swigt__p_double,
15977 &_swigt__p_f_double_a___double_p_void__int,
15978 &_swigt__p_f_double_p_void__double,
15979 &_swigt__p_f_double_p_void_p_double_p_double__void,
15980 &_swigt__p_f_p_q_const__char_p_q_const__char_int_int__void,
15981 &_swigt__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
15982 &_swigt__p_f_p_q_const__gsl_vector_p_gsl_vector__int,
15983 &_swigt__p_f_p_q_const__gsl_vector_p_void_p_gsl_matrix__int,
15984 &_swigt__p_f_p_q_const__gsl_vector_p_void_p_gsl_vector__int,
15985 &_swigt__p_f_p_q_const__gsl_vector_p_void_p_gsl_vector_p_gsl_matrix__int,
15986 &_swigt__p_f_p_void__void,
15987 &_swigt__p_f_p_void_p_gsl_matrix__int,
15988 &_swigt__p_f_p_void_p_gsl_vector__int,
15989 &_swigt__p_f_p_void_p_q_const__gsl_vector_p_struct_gsl_multifit_function_fdf_struct_p_gsl_vector_p_gsl_vector_p_gsl_vector__int,
15990 &_swigt__p_f_p_void_p_struct_gsl_multifit_function_struct_p_gsl_vector_p_gsl_vector_p_gsl_vector__int,
15991 &_swigt__p_f_p_void_size_t_size_t__int,
15992 &_swigt__p_gsl_function_fdf_struct,
15993 &_swigt__p_gsl_function_struct,
15994 &_swigt__p_gsl_function_vec_struct,
15995 &_swigt__p_gsl_matrix,
15996 &_swigt__p_gsl_multifit_fdfridge,
15997 &_swigt__p_gsl_multifit_fdfsolver,
15998 &_swigt__p_gsl_multifit_fdfsolver_type,
15999 &_swigt__p_gsl_multifit_fsolver,
16000 &_swigt__p_gsl_multifit_fsolver_type,
16001 &_swigt__p_gsl_multifit_function_fdf_struct,
16002 &_swigt__p_gsl_multifit_function_struct,
16003 &_swigt__p_gsl_multifit_linear_workspace,
16004 &_swigt__p_gsl_multifit_robust_stats,
16005 &_swigt__p_gsl_multifit_robust_type,
16006 &_swigt__p_gsl_multifit_robust_workspace,
16007 &_swigt__p_gsl_permutation_struct,
16008 &_swigt__p_gsl_vector,
16009 &_swigt__p_int,
16010 &_swigt__p_size_t,
16011 &_swigt__p_void,
16012 };
16013
16014 static swig_cast_info _swigc__p_FILE[] = { {&_swigt__p_FILE, 0, 0, 0},{0, 0, 0, 0}};
16015 static swig_cast_info _swigc__p_char[] = { {&_swigt__p_char, 0, 0, 0},{0, 0, 0, 0}};
16016 static swig_cast_info _swigc__p_double[] = { {&_swigt__p_double, 0, 0, 0},{0, 0, 0, 0}};
16017 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}};
16018 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}};
16019 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}};
16020 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}};
16021 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}};
16022 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}};
16023 static swig_cast_info _swigc__p_f_p_q_const__gsl_vector_p_void_p_gsl_matrix__int[] = { {&_swigt__p_f_p_q_const__gsl_vector_p_void_p_gsl_matrix__int, 0, 0, 0},{0, 0, 0, 0}};
16024 static swig_cast_info _swigc__p_f_p_q_const__gsl_vector_p_void_p_gsl_vector__int[] = { {&_swigt__p_f_p_q_const__gsl_vector_p_void_p_gsl_vector__int, 0, 0, 0},{0, 0, 0, 0}};
16025 static swig_cast_info _swigc__p_f_p_q_const__gsl_vector_p_void_p_gsl_vector_p_gsl_matrix__int[] = { {&_swigt__p_f_p_q_const__gsl_vector_p_void_p_gsl_vector_p_gsl_matrix__int, 0, 0, 0},{0, 0, 0, 0}};
16026 static swig_cast_info _swigc__p_f_p_void__void[] = { {&_swigt__p_f_p_void__void, 0, 0, 0},{0, 0, 0, 0}};
16027 static swig_cast_info _swigc__p_f_p_void_p_gsl_matrix__int[] = { {&_swigt__p_f_p_void_p_gsl_matrix__int, 0, 0, 0},{0, 0, 0, 0}};
16028 static swig_cast_info _swigc__p_f_p_void_p_gsl_vector__int[] = { {&_swigt__p_f_p_void_p_gsl_vector__int, 0, 0, 0},{0, 0, 0, 0}};
16029 static swig_cast_info _swigc__p_f_p_void_p_q_const__gsl_vector_p_struct_gsl_multifit_function_fdf_struct_p_gsl_vector_p_gsl_vector_p_gsl_vector__int[] = { {&_swigt__p_f_p_void_p_q_const__gsl_vector_p_struct_gsl_multifit_function_fdf_struct_p_gsl_vector_p_gsl_vector_p_gsl_vector__int, 0, 0, 0},{0, 0, 0, 0}};
16030 static swig_cast_info _swigc__p_f_p_void_p_struct_gsl_multifit_function_struct_p_gsl_vector_p_gsl_vector_p_gsl_vector__int[] = { {&_swigt__p_f_p_void_p_struct_gsl_multifit_function_struct_p_gsl_vector_p_gsl_vector_p_gsl_vector__int, 0, 0, 0},{0, 0, 0, 0}};
16031 static swig_cast_info _swigc__p_f_p_void_size_t_size_t__int[] = { {&_swigt__p_f_p_void_size_t_size_t__int, 0, 0, 0},{0, 0, 0, 0}};
16032 static swig_cast_info _swigc__p_gsl_function_fdf_struct[] = { {&_swigt__p_gsl_function_fdf_struct, 0, 0, 0},{0, 0, 0, 0}};
16033 static swig_cast_info _swigc__p_gsl_function_struct[] = { {&_swigt__p_gsl_function_struct, 0, 0, 0},{0, 0, 0, 0}};
16034 static swig_cast_info _swigc__p_gsl_function_vec_struct[] = { {&_swigt__p_gsl_function_vec_struct, 0, 0, 0},{0, 0, 0, 0}};
16035 static swig_cast_info _swigc__p_gsl_matrix[] = { {&_swigt__p_gsl_matrix, 0, 0, 0},{0, 0, 0, 0}};
16036 static swig_cast_info _swigc__p_gsl_multifit_fdfridge[] = { {&_swigt__p_gsl_multifit_fdfridge, 0, 0, 0},{0, 0, 0, 0}};
16037 static swig_cast_info _swigc__p_gsl_multifit_fdfsolver[] = { {&_swigt__p_gsl_multifit_fdfsolver, 0, 0, 0},{0, 0, 0, 0}};
16038 static swig_cast_info _swigc__p_gsl_multifit_fdfsolver_type[] = { {&_swigt__p_gsl_multifit_fdfsolver_type, 0, 0, 0},{0, 0, 0, 0}};
16039 static swig_cast_info _swigc__p_gsl_multifit_fsolver[] = { {&_swigt__p_gsl_multifit_fsolver, 0, 0, 0},{0, 0, 0, 0}};
16040 static swig_cast_info _swigc__p_gsl_multifit_fsolver_type[] = { {&_swigt__p_gsl_multifit_fsolver_type, 0, 0, 0},{0, 0, 0, 0}};
16041 static swig_cast_info _swigc__p_gsl_multifit_function_fdf_struct[] = { {&_swigt__p_gsl_multifit_function_fdf_struct, 0, 0, 0},{0, 0, 0, 0}};
16042 static swig_cast_info _swigc__p_gsl_multifit_function_struct[] = { {&_swigt__p_gsl_multifit_function_struct, 0, 0, 0},{0, 0, 0, 0}};
16043 static swig_cast_info _swigc__p_gsl_multifit_linear_workspace[] = { {&_swigt__p_gsl_multifit_linear_workspace, 0, 0, 0},{0, 0, 0, 0}};
16044 static swig_cast_info _swigc__p_gsl_multifit_robust_stats[] = { {&_swigt__p_gsl_multifit_robust_stats, 0, 0, 0},{0, 0, 0, 0}};
16045 static swig_cast_info _swigc__p_gsl_multifit_robust_type[] = { {&_swigt__p_gsl_multifit_robust_type, 0, 0, 0},{0, 0, 0, 0}};
16046 static swig_cast_info _swigc__p_gsl_multifit_robust_workspace[] = { {&_swigt__p_gsl_multifit_robust_workspace, 0, 0, 0},{0, 0, 0, 0}};
16047 static swig_cast_info _swigc__p_gsl_permutation_struct[] = { {&_swigt__p_gsl_permutation_struct, 0, 0, 0},{0, 0, 0, 0}};
16048 static swig_cast_info _swigc__p_gsl_vector[] = { {&_swigt__p_gsl_vector, 0, 0, 0},{0, 0, 0, 0}};
16049 static swig_cast_info _swigc__p_int[] = { {&_swigt__p_int, 0, 0, 0},{0, 0, 0, 0}};
16050 static swig_cast_info _swigc__p_size_t[] = { {&_swigt__p_size_t, 0, 0, 0},{0, 0, 0, 0}};
16051 static swig_cast_info _swigc__p_void[] = { {&_swigt__p_void, 0, 0, 0},{0, 0, 0, 0}};
16052
16053 static swig_cast_info *swig_cast_initial[] = {
16054 _swigc__p_FILE,
16055 _swigc__p_char,
16056 _swigc__p_double,
16057 _swigc__p_f_double_a___double_p_void__int,
16058 _swigc__p_f_double_p_void__double,
16059 _swigc__p_f_double_p_void_p_double_p_double__void,
16060 _swigc__p_f_p_q_const__char_p_q_const__char_int_int__void,
16061 _swigc__p_f_p_q_const__char_p_q_const__char_int_p_q_const__char__void,
16062 _swigc__p_f_p_q_const__gsl_vector_p_gsl_vector__int,
16063 _swigc__p_f_p_q_const__gsl_vector_p_void_p_gsl_matrix__int,
16064 _swigc__p_f_p_q_const__gsl_vector_p_void_p_gsl_vector__int,
16065 _swigc__p_f_p_q_const__gsl_vector_p_void_p_gsl_vector_p_gsl_matrix__int,
16066 _swigc__p_f_p_void__void,
16067 _swigc__p_f_p_void_p_gsl_matrix__int,
16068 _swigc__p_f_p_void_p_gsl_vector__int,
16069 _swigc__p_f_p_void_p_q_const__gsl_vector_p_struct_gsl_multifit_function_fdf_struct_p_gsl_vector_p_gsl_vector_p_gsl_vector__int,
16070 _swigc__p_f_p_void_p_struct_gsl_multifit_function_struct_p_gsl_vector_p_gsl_vector_p_gsl_vector__int,
16071 _swigc__p_f_p_void_size_t_size_t__int,
16072 _swigc__p_gsl_function_fdf_struct,
16073 _swigc__p_gsl_function_struct,
16074 _swigc__p_gsl_function_vec_struct,
16075 _swigc__p_gsl_matrix,
16076 _swigc__p_gsl_multifit_fdfridge,
16077 _swigc__p_gsl_multifit_fdfsolver,
16078 _swigc__p_gsl_multifit_fdfsolver_type,
16079 _swigc__p_gsl_multifit_fsolver,
16080 _swigc__p_gsl_multifit_fsolver_type,
16081 _swigc__p_gsl_multifit_function_fdf_struct,
16082 _swigc__p_gsl_multifit_function_struct,
16083 _swigc__p_gsl_multifit_linear_workspace,
16084 _swigc__p_gsl_multifit_robust_stats,
16085 _swigc__p_gsl_multifit_robust_type,
16086 _swigc__p_gsl_multifit_robust_workspace,
16087 _swigc__p_gsl_permutation_struct,
16088 _swigc__p_gsl_vector,
16089 _swigc__p_int,
16090 _swigc__p_size_t,
16091 _swigc__p_void,
16092 };
16093
16094
16095 /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */
16096
16097 static swig_constant_info swig_constants[] = {
16098 {0,0,0,0,0,0}
16099 };
16100 #ifdef __cplusplus
16101 }
16102 #endif
16103 static swig_variable_info swig_variables[] = {
16104 { "Math::GSL::Multifitc::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 },
16105 { "Math::GSL::Multifitc::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 },
16106 { "Math::GSL::Multifitc::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 },
16107 { "Math::GSL::Multifitc::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 },
16108 { "Math::GSL::Multifitc::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 },
16109 { "Math::GSL::Multifitc::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 },
16110 { "Math::GSL::Multifitc::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 },
16111 { "Math::GSL::Multifitc::gsl_multifit_fdfsolver_lmsder", MAGIC_CLASS _wrap_gsl_multifit_fdfsolver_lmsder_set, MAGIC_CLASS _wrap_gsl_multifit_fdfsolver_lmsder_get,&SWIGTYPE_p_gsl_multifit_fdfsolver_type },
16112 { "Math::GSL::Multifitc::gsl_multifit_fdfsolver_lmder", MAGIC_CLASS _wrap_gsl_multifit_fdfsolver_lmder_set, MAGIC_CLASS _wrap_gsl_multifit_fdfsolver_lmder_get,&SWIGTYPE_p_gsl_multifit_fdfsolver_type },
16113 { "Math::GSL::Multifitc::gsl_multifit_fdfsolver_lmniel", MAGIC_CLASS _wrap_gsl_multifit_fdfsolver_lmniel_set, MAGIC_CLASS _wrap_gsl_multifit_fdfsolver_lmniel_get,&SWIGTYPE_p_gsl_multifit_fdfsolver_type },
16114 {0,0,0,0}
16115 };
16116 static swig_command_info swig_commands[] = {
16117 {"Math::GSL::Multifitc::gsl_error", _wrap_gsl_error},
16118 {"Math::GSL::Multifitc::gsl_stream_printf", _wrap_gsl_stream_printf},
16119 {"Math::GSL::Multifitc::gsl_strerror", _wrap_gsl_strerror},
16120 {"Math::GSL::Multifitc::gsl_set_error_handler", _wrap_gsl_set_error_handler},
16121 {"Math::GSL::Multifitc::gsl_set_error_handler_off", _wrap_gsl_set_error_handler_off},
16122 {"Math::GSL::Multifitc::gsl_set_stream_handler", _wrap_gsl_set_stream_handler},
16123 {"Math::GSL::Multifitc::gsl_set_stream", _wrap_gsl_set_stream},
16124 {"Math::GSL::Multifitc::gsl_function_struct_function_set", _wrap_gsl_function_struct_function_set},
16125 {"Math::GSL::Multifitc::gsl_function_struct_function_get", _wrap_gsl_function_struct_function_get},
16126 {"Math::GSL::Multifitc::gsl_function_struct_params_set", _wrap_gsl_function_struct_params_set},
16127 {"Math::GSL::Multifitc::gsl_function_struct_params_get", _wrap_gsl_function_struct_params_get},
16128 {"Math::GSL::Multifitc::new_gsl_function_struct", _wrap_new_gsl_function_struct},
16129 {"Math::GSL::Multifitc::delete_gsl_function_struct", _wrap_delete_gsl_function_struct},
16130 {"Math::GSL::Multifitc::gsl_function_fdf_struct_f_set", _wrap_gsl_function_fdf_struct_f_set},
16131 {"Math::GSL::Multifitc::gsl_function_fdf_struct_f_get", _wrap_gsl_function_fdf_struct_f_get},
16132 {"Math::GSL::Multifitc::gsl_function_fdf_struct_df_set", _wrap_gsl_function_fdf_struct_df_set},
16133 {"Math::GSL::Multifitc::gsl_function_fdf_struct_df_get", _wrap_gsl_function_fdf_struct_df_get},
16134 {"Math::GSL::Multifitc::gsl_function_fdf_struct_fdf_set", _wrap_gsl_function_fdf_struct_fdf_set},
16135 {"Math::GSL::Multifitc::gsl_function_fdf_struct_fdf_get", _wrap_gsl_function_fdf_struct_fdf_get},
16136 {"Math::GSL::Multifitc::gsl_function_fdf_struct_params_set", _wrap_gsl_function_fdf_struct_params_set},
16137 {"Math::GSL::Multifitc::gsl_function_fdf_struct_params_get", _wrap_gsl_function_fdf_struct_params_get},
16138 {"Math::GSL::Multifitc::new_gsl_function_fdf_struct", _wrap_new_gsl_function_fdf_struct},
16139 {"Math::GSL::Multifitc::delete_gsl_function_fdf_struct", _wrap_delete_gsl_function_fdf_struct},
16140 {"Math::GSL::Multifitc::gsl_function_vec_struct_function_set", _wrap_gsl_function_vec_struct_function_set},
16141 {"Math::GSL::Multifitc::gsl_function_vec_struct_function_get", _wrap_gsl_function_vec_struct_function_get},
16142 {"Math::GSL::Multifitc::gsl_function_vec_struct_params_set", _wrap_gsl_function_vec_struct_params_set},
16143 {"Math::GSL::Multifitc::gsl_function_vec_struct_params_get", _wrap_gsl_function_vec_struct_params_get},
16144 {"Math::GSL::Multifitc::new_gsl_function_vec_struct", _wrap_new_gsl_function_vec_struct},
16145 {"Math::GSL::Multifitc::delete_gsl_function_vec_struct", _wrap_delete_gsl_function_vec_struct},
16146 {"Math::GSL::Multifitc::gsl_permutation_struct_size_set", _wrap_gsl_permutation_struct_size_set},
16147 {"Math::GSL::Multifitc::gsl_permutation_struct_size_get", _wrap_gsl_permutation_struct_size_get},
16148 {"Math::GSL::Multifitc::gsl_permutation_struct_data_set", _wrap_gsl_permutation_struct_data_set},
16149 {"Math::GSL::Multifitc::gsl_permutation_struct_data_get", _wrap_gsl_permutation_struct_data_get},
16150 {"Math::GSL::Multifitc::new_gsl_permutation_struct", _wrap_new_gsl_permutation_struct},
16151 {"Math::GSL::Multifitc::delete_gsl_permutation_struct", _wrap_delete_gsl_permutation_struct},
16152 {"Math::GSL::Multifitc::gsl_permutation_alloc", _wrap_gsl_permutation_alloc},
16153 {"Math::GSL::Multifitc::gsl_permutation_calloc", _wrap_gsl_permutation_calloc},
16154 {"Math::GSL::Multifitc::gsl_permutation_init", _wrap_gsl_permutation_init},
16155 {"Math::GSL::Multifitc::gsl_permutation_free", _wrap_gsl_permutation_free},
16156 {"Math::GSL::Multifitc::gsl_permutation_memcpy", _wrap_gsl_permutation_memcpy},
16157 {"Math::GSL::Multifitc::gsl_permutation_fread", _wrap_gsl_permutation_fread},
16158 {"Math::GSL::Multifitc::gsl_permutation_fwrite", _wrap_gsl_permutation_fwrite},
16159 {"Math::GSL::Multifitc::gsl_permutation_fscanf", _wrap_gsl_permutation_fscanf},
16160 {"Math::GSL::Multifitc::gsl_permutation_fprintf", _wrap_gsl_permutation_fprintf},
16161 {"Math::GSL::Multifitc::gsl_permutation_size", _wrap_gsl_permutation_size},
16162 {"Math::GSL::Multifitc::gsl_permutation_data", _wrap_gsl_permutation_data},
16163 {"Math::GSL::Multifitc::gsl_permutation_swap", _wrap_gsl_permutation_swap},
16164 {"Math::GSL::Multifitc::gsl_permutation_valid", _wrap_gsl_permutation_valid},
16165 {"Math::GSL::Multifitc::gsl_permutation_reverse", _wrap_gsl_permutation_reverse},
16166 {"Math::GSL::Multifitc::gsl_permutation_inverse", _wrap_gsl_permutation_inverse},
16167 {"Math::GSL::Multifitc::gsl_permutation_next", _wrap_gsl_permutation_next},
16168 {"Math::GSL::Multifitc::gsl_permutation_prev", _wrap_gsl_permutation_prev},
16169 {"Math::GSL::Multifitc::gsl_permutation_mul", _wrap_gsl_permutation_mul},
16170 {"Math::GSL::Multifitc::gsl_permutation_linear_to_canonical", _wrap_gsl_permutation_linear_to_canonical},
16171 {"Math::GSL::Multifitc::gsl_permutation_canonical_to_linear", _wrap_gsl_permutation_canonical_to_linear},
16172 {"Math::GSL::Multifitc::gsl_permutation_inversions", _wrap_gsl_permutation_inversions},
16173 {"Math::GSL::Multifitc::gsl_permutation_linear_cycles", _wrap_gsl_permutation_linear_cycles},
16174 {"Math::GSL::Multifitc::gsl_permutation_canonical_cycles", _wrap_gsl_permutation_canonical_cycles},
16175 {"Math::GSL::Multifitc::gsl_permutation_get", _wrap_gsl_permutation_get},
16176 {"Math::GSL::Multifitc::gsl_multifit_linear_workspace_nmax_set", _wrap_gsl_multifit_linear_workspace_nmax_set},
16177 {"Math::GSL::Multifitc::gsl_multifit_linear_workspace_nmax_get", _wrap_gsl_multifit_linear_workspace_nmax_get},
16178 {"Math::GSL::Multifitc::gsl_multifit_linear_workspace_pmax_set", _wrap_gsl_multifit_linear_workspace_pmax_set},
16179 {"Math::GSL::Multifitc::gsl_multifit_linear_workspace_pmax_get", _wrap_gsl_multifit_linear_workspace_pmax_get},
16180 {"Math::GSL::Multifitc::gsl_multifit_linear_workspace_n_set", _wrap_gsl_multifit_linear_workspace_n_set},
16181 {"Math::GSL::Multifitc::gsl_multifit_linear_workspace_n_get", _wrap_gsl_multifit_linear_workspace_n_get},
16182 {"Math::GSL::Multifitc::gsl_multifit_linear_workspace_p_set", _wrap_gsl_multifit_linear_workspace_p_set},
16183 {"Math::GSL::Multifitc::gsl_multifit_linear_workspace_p_get", _wrap_gsl_multifit_linear_workspace_p_get},
16184 {"Math::GSL::Multifitc::gsl_multifit_linear_workspace_A_set", _wrap_gsl_multifit_linear_workspace_A_set},
16185 {"Math::GSL::Multifitc::gsl_multifit_linear_workspace_A_get", _wrap_gsl_multifit_linear_workspace_A_get},
16186 {"Math::GSL::Multifitc::gsl_multifit_linear_workspace_Q_set", _wrap_gsl_multifit_linear_workspace_Q_set},
16187 {"Math::GSL::Multifitc::gsl_multifit_linear_workspace_Q_get", _wrap_gsl_multifit_linear_workspace_Q_get},
16188 {"Math::GSL::Multifitc::gsl_multifit_linear_workspace_QSI_set", _wrap_gsl_multifit_linear_workspace_QSI_set},
16189 {"Math::GSL::Multifitc::gsl_multifit_linear_workspace_QSI_get", _wrap_gsl_multifit_linear_workspace_QSI_get},
16190 {"Math::GSL::Multifitc::gsl_multifit_linear_workspace_S_set", _wrap_gsl_multifit_linear_workspace_S_set},
16191 {"Math::GSL::Multifitc::gsl_multifit_linear_workspace_S_get", _wrap_gsl_multifit_linear_workspace_S_get},
16192 {"Math::GSL::Multifitc::gsl_multifit_linear_workspace_t_set", _wrap_gsl_multifit_linear_workspace_t_set},
16193 {"Math::GSL::Multifitc::gsl_multifit_linear_workspace_t_get", _wrap_gsl_multifit_linear_workspace_t_get},
16194 {"Math::GSL::Multifitc::gsl_multifit_linear_workspace_xt_set", _wrap_gsl_multifit_linear_workspace_xt_set},
16195 {"Math::GSL::Multifitc::gsl_multifit_linear_workspace_xt_get", _wrap_gsl_multifit_linear_workspace_xt_get},
16196 {"Math::GSL::Multifitc::gsl_multifit_linear_workspace_D_set", _wrap_gsl_multifit_linear_workspace_D_set},
16197 {"Math::GSL::Multifitc::gsl_multifit_linear_workspace_D_get", _wrap_gsl_multifit_linear_workspace_D_get},
16198 {"Math::GSL::Multifitc::gsl_multifit_linear_workspace_rcond_set", _wrap_gsl_multifit_linear_workspace_rcond_set},
16199 {"Math::GSL::Multifitc::gsl_multifit_linear_workspace_rcond_get", _wrap_gsl_multifit_linear_workspace_rcond_get},
16200 {"Math::GSL::Multifitc::new_gsl_multifit_linear_workspace", _wrap_new_gsl_multifit_linear_workspace},
16201 {"Math::GSL::Multifitc::delete_gsl_multifit_linear_workspace", _wrap_delete_gsl_multifit_linear_workspace},
16202 {"Math::GSL::Multifitc::gsl_multifit_linear_alloc", _wrap_gsl_multifit_linear_alloc},
16203 {"Math::GSL::Multifitc::gsl_multifit_linear_free", _wrap_gsl_multifit_linear_free},
16204 {"Math::GSL::Multifitc::gsl_multifit_linear", _wrap_gsl_multifit_linear},
16205 {"Math::GSL::Multifitc::gsl_multifit_linear_tsvd", _wrap_gsl_multifit_linear_tsvd},
16206 {"Math::GSL::Multifitc::gsl_multifit_linear_svd", _wrap_gsl_multifit_linear_svd},
16207 {"Math::GSL::Multifitc::gsl_multifit_linear_bsvd", _wrap_gsl_multifit_linear_bsvd},
16208 {"Math::GSL::Multifitc::gsl_multifit_linear_rank", _wrap_gsl_multifit_linear_rank},
16209 {"Math::GSL::Multifitc::gsl_multifit_linear_solve", _wrap_gsl_multifit_linear_solve},
16210 {"Math::GSL::Multifitc::gsl_multifit_linear_applyW", _wrap_gsl_multifit_linear_applyW},
16211 {"Math::GSL::Multifitc::gsl_multifit_linear_stdform1", _wrap_gsl_multifit_linear_stdform1},
16212 {"Math::GSL::Multifitc::gsl_multifit_linear_wstdform1", _wrap_gsl_multifit_linear_wstdform1},
16213 {"Math::GSL::Multifitc::gsl_multifit_linear_L_decomp", _wrap_gsl_multifit_linear_L_decomp},
16214 {"Math::GSL::Multifitc::gsl_multifit_linear_stdform2", _wrap_gsl_multifit_linear_stdform2},
16215 {"Math::GSL::Multifitc::gsl_multifit_linear_wstdform2", _wrap_gsl_multifit_linear_wstdform2},
16216 {"Math::GSL::Multifitc::gsl_multifit_linear_genform1", _wrap_gsl_multifit_linear_genform1},
16217 {"Math::GSL::Multifitc::gsl_multifit_linear_genform2", _wrap_gsl_multifit_linear_genform2},
16218 {"Math::GSL::Multifitc::gsl_multifit_linear_wgenform2", _wrap_gsl_multifit_linear_wgenform2},
16219 {"Math::GSL::Multifitc::gsl_multifit_linear_lreg", _wrap_gsl_multifit_linear_lreg},
16220 {"Math::GSL::Multifitc::gsl_multifit_linear_lcurve", _wrap_gsl_multifit_linear_lcurve},
16221 {"Math::GSL::Multifitc::gsl_multifit_linear_lcorner", _wrap_gsl_multifit_linear_lcorner},
16222 {"Math::GSL::Multifitc::gsl_multifit_linear_lcorner2", _wrap_gsl_multifit_linear_lcorner2},
16223 {"Math::GSL::Multifitc::gsl_multifit_linear_Lk", _wrap_gsl_multifit_linear_Lk},
16224 {"Math::GSL::Multifitc::gsl_multifit_linear_Lsobolev", _wrap_gsl_multifit_linear_Lsobolev},
16225 {"Math::GSL::Multifitc::gsl_multifit_wlinear", _wrap_gsl_multifit_wlinear},
16226 {"Math::GSL::Multifitc::gsl_multifit_wlinear_tsvd", _wrap_gsl_multifit_wlinear_tsvd},
16227 {"Math::GSL::Multifitc::gsl_multifit_wlinear_svd", _wrap_gsl_multifit_wlinear_svd},
16228 {"Math::GSL::Multifitc::gsl_multifit_wlinear_usvd", _wrap_gsl_multifit_wlinear_usvd},
16229 {"Math::GSL::Multifitc::gsl_multifit_linear_est", _wrap_gsl_multifit_linear_est},
16230 {"Math::GSL::Multifitc::gsl_multifit_linear_rcond", _wrap_gsl_multifit_linear_rcond},
16231 {"Math::GSL::Multifitc::gsl_multifit_linear_residuals", _wrap_gsl_multifit_linear_residuals},
16232 {"Math::GSL::Multifitc::gsl_multifit_linear_gcv_init", _wrap_gsl_multifit_linear_gcv_init},
16233 {"Math::GSL::Multifitc::gsl_multifit_linear_gcv_curve", _wrap_gsl_multifit_linear_gcv_curve},
16234 {"Math::GSL::Multifitc::gsl_multifit_linear_gcv_min", _wrap_gsl_multifit_linear_gcv_min},
16235 {"Math::GSL::Multifitc::gsl_multifit_linear_gcv_calc", _wrap_gsl_multifit_linear_gcv_calc},
16236 {"Math::GSL::Multifitc::gsl_multifit_linear_gcv", _wrap_gsl_multifit_linear_gcv},
16237 {"Math::GSL::Multifitc::gsl_multifit_robust_type_name_set", _wrap_gsl_multifit_robust_type_name_set},
16238 {"Math::GSL::Multifitc::gsl_multifit_robust_type_name_get", _wrap_gsl_multifit_robust_type_name_get},
16239 {"Math::GSL::Multifitc::gsl_multifit_robust_type_wfun_set", _wrap_gsl_multifit_robust_type_wfun_set},
16240 {"Math::GSL::Multifitc::gsl_multifit_robust_type_wfun_get", _wrap_gsl_multifit_robust_type_wfun_get},
16241 {"Math::GSL::Multifitc::gsl_multifit_robust_type_psi_deriv_set", _wrap_gsl_multifit_robust_type_psi_deriv_set},
16242 {"Math::GSL::Multifitc::gsl_multifit_robust_type_psi_deriv_get", _wrap_gsl_multifit_robust_type_psi_deriv_get},
16243 {"Math::GSL::Multifitc::gsl_multifit_robust_type_tuning_default_set", _wrap_gsl_multifit_robust_type_tuning_default_set},
16244 {"Math::GSL::Multifitc::gsl_multifit_robust_type_tuning_default_get", _wrap_gsl_multifit_robust_type_tuning_default_get},
16245 {"Math::GSL::Multifitc::new_gsl_multifit_robust_type", _wrap_new_gsl_multifit_robust_type},
16246 {"Math::GSL::Multifitc::delete_gsl_multifit_robust_type", _wrap_delete_gsl_multifit_robust_type},
16247 {"Math::GSL::Multifitc::gsl_multifit_robust_stats_sigma_ols_set", _wrap_gsl_multifit_robust_stats_sigma_ols_set},
16248 {"Math::GSL::Multifitc::gsl_multifit_robust_stats_sigma_ols_get", _wrap_gsl_multifit_robust_stats_sigma_ols_get},
16249 {"Math::GSL::Multifitc::gsl_multifit_robust_stats_sigma_mad_set", _wrap_gsl_multifit_robust_stats_sigma_mad_set},
16250 {"Math::GSL::Multifitc::gsl_multifit_robust_stats_sigma_mad_get", _wrap_gsl_multifit_robust_stats_sigma_mad_get},
16251 {"Math::GSL::Multifitc::gsl_multifit_robust_stats_sigma_rob_set", _wrap_gsl_multifit_robust_stats_sigma_rob_set},
16252 {"Math::GSL::Multifitc::gsl_multifit_robust_stats_sigma_rob_get", _wrap_gsl_multifit_robust_stats_sigma_rob_get},
16253 {"Math::GSL::Multifitc::gsl_multifit_robust_stats_sigma_set", _wrap_gsl_multifit_robust_stats_sigma_set},
16254 {"Math::GSL::Multifitc::gsl_multifit_robust_stats_sigma_get", _wrap_gsl_multifit_robust_stats_sigma_get},
16255 {"Math::GSL::Multifitc::gsl_multifit_robust_stats_Rsq_set", _wrap_gsl_multifit_robust_stats_Rsq_set},
16256 {"Math::GSL::Multifitc::gsl_multifit_robust_stats_Rsq_get", _wrap_gsl_multifit_robust_stats_Rsq_get},
16257 {"Math::GSL::Multifitc::gsl_multifit_robust_stats_adj_Rsq_set", _wrap_gsl_multifit_robust_stats_adj_Rsq_set},
16258 {"Math::GSL::Multifitc::gsl_multifit_robust_stats_adj_Rsq_get", _wrap_gsl_multifit_robust_stats_adj_Rsq_get},
16259 {"Math::GSL::Multifitc::gsl_multifit_robust_stats_rmse_set", _wrap_gsl_multifit_robust_stats_rmse_set},
16260 {"Math::GSL::Multifitc::gsl_multifit_robust_stats_rmse_get", _wrap_gsl_multifit_robust_stats_rmse_get},
16261 {"Math::GSL::Multifitc::gsl_multifit_robust_stats_sse_set", _wrap_gsl_multifit_robust_stats_sse_set},
16262 {"Math::GSL::Multifitc::gsl_multifit_robust_stats_sse_get", _wrap_gsl_multifit_robust_stats_sse_get},
16263 {"Math::GSL::Multifitc::gsl_multifit_robust_stats_dof_set", _wrap_gsl_multifit_robust_stats_dof_set},
16264 {"Math::GSL::Multifitc::gsl_multifit_robust_stats_dof_get", _wrap_gsl_multifit_robust_stats_dof_get},
16265 {"Math::GSL::Multifitc::gsl_multifit_robust_stats_numit_set", _wrap_gsl_multifit_robust_stats_numit_set},
16266 {"Math::GSL::Multifitc::gsl_multifit_robust_stats_numit_get", _wrap_gsl_multifit_robust_stats_numit_get},
16267 {"Math::GSL::Multifitc::gsl_multifit_robust_stats_weights_set", _wrap_gsl_multifit_robust_stats_weights_set},
16268 {"Math::GSL::Multifitc::gsl_multifit_robust_stats_weights_get", _wrap_gsl_multifit_robust_stats_weights_get},
16269 {"Math::GSL::Multifitc::gsl_multifit_robust_stats_r_set", _wrap_gsl_multifit_robust_stats_r_set},
16270 {"Math::GSL::Multifitc::gsl_multifit_robust_stats_r_get", _wrap_gsl_multifit_robust_stats_r_get},
16271 {"Math::GSL::Multifitc::new_gsl_multifit_robust_stats", _wrap_new_gsl_multifit_robust_stats},
16272 {"Math::GSL::Multifitc::delete_gsl_multifit_robust_stats", _wrap_delete_gsl_multifit_robust_stats},
16273 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_n_set", _wrap_gsl_multifit_robust_workspace_n_set},
16274 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_n_get", _wrap_gsl_multifit_robust_workspace_n_get},
16275 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_p_set", _wrap_gsl_multifit_robust_workspace_p_set},
16276 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_p_get", _wrap_gsl_multifit_robust_workspace_p_get},
16277 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_numit_set", _wrap_gsl_multifit_robust_workspace_numit_set},
16278 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_numit_get", _wrap_gsl_multifit_robust_workspace_numit_get},
16279 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_maxiter_set", _wrap_gsl_multifit_robust_workspace_maxiter_set},
16280 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_maxiter_get", _wrap_gsl_multifit_robust_workspace_maxiter_get},
16281 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_type_set", _wrap_gsl_multifit_robust_workspace_type_set},
16282 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_type_get", _wrap_gsl_multifit_robust_workspace_type_get},
16283 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_tune_set", _wrap_gsl_multifit_robust_workspace_tune_set},
16284 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_tune_get", _wrap_gsl_multifit_robust_workspace_tune_get},
16285 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_r_set", _wrap_gsl_multifit_robust_workspace_r_set},
16286 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_r_get", _wrap_gsl_multifit_robust_workspace_r_get},
16287 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_weights_set", _wrap_gsl_multifit_robust_workspace_weights_set},
16288 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_weights_get", _wrap_gsl_multifit_robust_workspace_weights_get},
16289 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_c_prev_set", _wrap_gsl_multifit_robust_workspace_c_prev_set},
16290 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_c_prev_get", _wrap_gsl_multifit_robust_workspace_c_prev_get},
16291 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_resfac_set", _wrap_gsl_multifit_robust_workspace_resfac_set},
16292 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_resfac_get", _wrap_gsl_multifit_robust_workspace_resfac_get},
16293 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_psi_set", _wrap_gsl_multifit_robust_workspace_psi_set},
16294 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_psi_get", _wrap_gsl_multifit_robust_workspace_psi_get},
16295 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_dpsi_set", _wrap_gsl_multifit_robust_workspace_dpsi_set},
16296 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_dpsi_get", _wrap_gsl_multifit_robust_workspace_dpsi_get},
16297 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_QSI_set", _wrap_gsl_multifit_robust_workspace_QSI_set},
16298 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_QSI_get", _wrap_gsl_multifit_robust_workspace_QSI_get},
16299 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_D_set", _wrap_gsl_multifit_robust_workspace_D_set},
16300 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_D_get", _wrap_gsl_multifit_robust_workspace_D_get},
16301 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_workn_set", _wrap_gsl_multifit_robust_workspace_workn_set},
16302 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_workn_get", _wrap_gsl_multifit_robust_workspace_workn_get},
16303 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_stats_set", _wrap_gsl_multifit_robust_workspace_stats_set},
16304 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_stats_get", _wrap_gsl_multifit_robust_workspace_stats_get},
16305 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_multifit_p_set", _wrap_gsl_multifit_robust_workspace_multifit_p_set},
16306 {"Math::GSL::Multifitc::gsl_multifit_robust_workspace_multifit_p_get", _wrap_gsl_multifit_robust_workspace_multifit_p_get},
16307 {"Math::GSL::Multifitc::new_gsl_multifit_robust_workspace", _wrap_new_gsl_multifit_robust_workspace},
16308 {"Math::GSL::Multifitc::delete_gsl_multifit_robust_workspace", _wrap_delete_gsl_multifit_robust_workspace},
16309 {"Math::GSL::Multifitc::gsl_multifit_robust_alloc", _wrap_gsl_multifit_robust_alloc},
16310 {"Math::GSL::Multifitc::gsl_multifit_robust_free", _wrap_gsl_multifit_robust_free},
16311 {"Math::GSL::Multifitc::gsl_multifit_robust_tune", _wrap_gsl_multifit_robust_tune},
16312 {"Math::GSL::Multifitc::gsl_multifit_robust_maxiter", _wrap_gsl_multifit_robust_maxiter},
16313 {"Math::GSL::Multifitc::gsl_multifit_robust_name", _wrap_gsl_multifit_robust_name},
16314 {"Math::GSL::Multifitc::gsl_multifit_robust_statistics", _wrap_gsl_multifit_robust_statistics},
16315 {"Math::GSL::Multifitc::gsl_multifit_robust_weights", _wrap_gsl_multifit_robust_weights},
16316 {"Math::GSL::Multifitc::gsl_multifit_robust", _wrap_gsl_multifit_robust},
16317 {"Math::GSL::Multifitc::gsl_multifit_robust_est", _wrap_gsl_multifit_robust_est},
16318 {"Math::GSL::Multifitc::gsl_multifit_robust_residuals", _wrap_gsl_multifit_robust_residuals},
16319 {"Math::GSL::Multifitc::gsl_multifit_gradient", _wrap_gsl_multifit_gradient},
16320 {"Math::GSL::Multifitc::gsl_multifit_covar", _wrap_gsl_multifit_covar},
16321 {"Math::GSL::Multifitc::gsl_multifit_covar_QRPT", _wrap_gsl_multifit_covar_QRPT},
16322 {"Math::GSL::Multifitc::gsl_multifit_function_struct_f_set", _wrap_gsl_multifit_function_struct_f_set},
16323 {"Math::GSL::Multifitc::gsl_multifit_function_struct_f_get", _wrap_gsl_multifit_function_struct_f_get},
16324 {"Math::GSL::Multifitc::gsl_multifit_function_struct_n_set", _wrap_gsl_multifit_function_struct_n_set},
16325 {"Math::GSL::Multifitc::gsl_multifit_function_struct_n_get", _wrap_gsl_multifit_function_struct_n_get},
16326 {"Math::GSL::Multifitc::gsl_multifit_function_struct_p_set", _wrap_gsl_multifit_function_struct_p_set},
16327 {"Math::GSL::Multifitc::gsl_multifit_function_struct_p_get", _wrap_gsl_multifit_function_struct_p_get},
16328 {"Math::GSL::Multifitc::gsl_multifit_function_struct_params_set", _wrap_gsl_multifit_function_struct_params_set},
16329 {"Math::GSL::Multifitc::gsl_multifit_function_struct_params_get", _wrap_gsl_multifit_function_struct_params_get},
16330 {"Math::GSL::Multifitc::new_gsl_multifit_function_struct", _wrap_new_gsl_multifit_function_struct},
16331 {"Math::GSL::Multifitc::delete_gsl_multifit_function_struct", _wrap_delete_gsl_multifit_function_struct},
16332 {"Math::GSL::Multifitc::gsl_multifit_fsolver_type_name_set", _wrap_gsl_multifit_fsolver_type_name_set},
16333 {"Math::GSL::Multifitc::gsl_multifit_fsolver_type_name_get", _wrap_gsl_multifit_fsolver_type_name_get},
16334 {"Math::GSL::Multifitc::gsl_multifit_fsolver_type_size_set", _wrap_gsl_multifit_fsolver_type_size_set},
16335 {"Math::GSL::Multifitc::gsl_multifit_fsolver_type_size_get", _wrap_gsl_multifit_fsolver_type_size_get},
16336 {"Math::GSL::Multifitc::gsl_multifit_fsolver_type_alloc_set", _wrap_gsl_multifit_fsolver_type_alloc_set},
16337 {"Math::GSL::Multifitc::gsl_multifit_fsolver_type_alloc_get", _wrap_gsl_multifit_fsolver_type_alloc_get},
16338 {"Math::GSL::Multifitc::gsl_multifit_fsolver_type_set_set", _wrap_gsl_multifit_fsolver_type_set_set},
16339 {"Math::GSL::Multifitc::gsl_multifit_fsolver_type_set_get", _wrap_gsl_multifit_fsolver_type_set_get},
16340 {"Math::GSL::Multifitc::gsl_multifit_fsolver_type_iterate_set", _wrap_gsl_multifit_fsolver_type_iterate_set},
16341 {"Math::GSL::Multifitc::gsl_multifit_fsolver_type_iterate_get", _wrap_gsl_multifit_fsolver_type_iterate_get},
16342 {"Math::GSL::Multifitc::gsl_multifit_fsolver_type_free_set", _wrap_gsl_multifit_fsolver_type_free_set},
16343 {"Math::GSL::Multifitc::gsl_multifit_fsolver_type_free_get", _wrap_gsl_multifit_fsolver_type_free_get},
16344 {"Math::GSL::Multifitc::new_gsl_multifit_fsolver_type", _wrap_new_gsl_multifit_fsolver_type},
16345 {"Math::GSL::Multifitc::delete_gsl_multifit_fsolver_type", _wrap_delete_gsl_multifit_fsolver_type},
16346 {"Math::GSL::Multifitc::gsl_multifit_fsolver_type_set", _wrap_gsl_multifit_fsolver_type_set},
16347 {"Math::GSL::Multifitc::gsl_multifit_fsolver_type_get", _wrap_gsl_multifit_fsolver_type_get},
16348 {"Math::GSL::Multifitc::gsl_multifit_fsolver_function_set", _wrap_gsl_multifit_fsolver_function_set},
16349 {"Math::GSL::Multifitc::gsl_multifit_fsolver_function_get", _wrap_gsl_multifit_fsolver_function_get},
16350 {"Math::GSL::Multifitc::gsl_multifit_fsolver_x_set", _wrap_gsl_multifit_fsolver_x_set},
16351 {"Math::GSL::Multifitc::gsl_multifit_fsolver_x_get", _wrap_gsl_multifit_fsolver_x_get},
16352 {"Math::GSL::Multifitc::gsl_multifit_fsolver_f_set", _wrap_gsl_multifit_fsolver_f_set},
16353 {"Math::GSL::Multifitc::gsl_multifit_fsolver_f_get", _wrap_gsl_multifit_fsolver_f_get},
16354 {"Math::GSL::Multifitc::gsl_multifit_fsolver_dx_set", _wrap_gsl_multifit_fsolver_dx_set},
16355 {"Math::GSL::Multifitc::gsl_multifit_fsolver_dx_get", _wrap_gsl_multifit_fsolver_dx_get},
16356 {"Math::GSL::Multifitc::gsl_multifit_fsolver_state_set", _wrap_gsl_multifit_fsolver_state_set},
16357 {"Math::GSL::Multifitc::gsl_multifit_fsolver_state_get", _wrap_gsl_multifit_fsolver_state_get},
16358 {"Math::GSL::Multifitc::new_gsl_multifit_fsolver", _wrap_new_gsl_multifit_fsolver},
16359 {"Math::GSL::Multifitc::delete_gsl_multifit_fsolver", _wrap_delete_gsl_multifit_fsolver},
16360 {"Math::GSL::Multifitc::gsl_multifit_fsolver_alloc", _wrap_gsl_multifit_fsolver_alloc},
16361 {"Math::GSL::Multifitc::gsl_multifit_fsolver_free", _wrap_gsl_multifit_fsolver_free},
16362 {"Math::GSL::Multifitc::gsl_multifit_fsolver_set", _wrap_gsl_multifit_fsolver_set},
16363 {"Math::GSL::Multifitc::gsl_multifit_fsolver_iterate", _wrap_gsl_multifit_fsolver_iterate},
16364 {"Math::GSL::Multifitc::gsl_multifit_fsolver_driver", _wrap_gsl_multifit_fsolver_driver},
16365 {"Math::GSL::Multifitc::gsl_multifit_fsolver_name", _wrap_gsl_multifit_fsolver_name},
16366 {"Math::GSL::Multifitc::gsl_multifit_fsolver_position", _wrap_gsl_multifit_fsolver_position},
16367 {"Math::GSL::Multifitc::gsl_multifit_function_fdf_struct_f_set", _wrap_gsl_multifit_function_fdf_struct_f_set},
16368 {"Math::GSL::Multifitc::gsl_multifit_function_fdf_struct_f_get", _wrap_gsl_multifit_function_fdf_struct_f_get},
16369 {"Math::GSL::Multifitc::gsl_multifit_function_fdf_struct_df_set", _wrap_gsl_multifit_function_fdf_struct_df_set},
16370 {"Math::GSL::Multifitc::gsl_multifit_function_fdf_struct_df_get", _wrap_gsl_multifit_function_fdf_struct_df_get},
16371 {"Math::GSL::Multifitc::gsl_multifit_function_fdf_struct_fdf_set", _wrap_gsl_multifit_function_fdf_struct_fdf_set},
16372 {"Math::GSL::Multifitc::gsl_multifit_function_fdf_struct_fdf_get", _wrap_gsl_multifit_function_fdf_struct_fdf_get},
16373 {"Math::GSL::Multifitc::gsl_multifit_function_fdf_struct_n_set", _wrap_gsl_multifit_function_fdf_struct_n_set},
16374 {"Math::GSL::Multifitc::gsl_multifit_function_fdf_struct_n_get", _wrap_gsl_multifit_function_fdf_struct_n_get},
16375 {"Math::GSL::Multifitc::gsl_multifit_function_fdf_struct_p_set", _wrap_gsl_multifit_function_fdf_struct_p_set},
16376 {"Math::GSL::Multifitc::gsl_multifit_function_fdf_struct_p_get", _wrap_gsl_multifit_function_fdf_struct_p_get},
16377 {"Math::GSL::Multifitc::gsl_multifit_function_fdf_struct_params_set", _wrap_gsl_multifit_function_fdf_struct_params_set},
16378 {"Math::GSL::Multifitc::gsl_multifit_function_fdf_struct_params_get", _wrap_gsl_multifit_function_fdf_struct_params_get},
16379 {"Math::GSL::Multifitc::gsl_multifit_function_fdf_struct_nevalf_set", _wrap_gsl_multifit_function_fdf_struct_nevalf_set},
16380 {"Math::GSL::Multifitc::gsl_multifit_function_fdf_struct_nevalf_get", _wrap_gsl_multifit_function_fdf_struct_nevalf_get},
16381 {"Math::GSL::Multifitc::gsl_multifit_function_fdf_struct_nevaldf_set", _wrap_gsl_multifit_function_fdf_struct_nevaldf_set},
16382 {"Math::GSL::Multifitc::gsl_multifit_function_fdf_struct_nevaldf_get", _wrap_gsl_multifit_function_fdf_struct_nevaldf_get},
16383 {"Math::GSL::Multifitc::new_gsl_multifit_function_fdf_struct", _wrap_new_gsl_multifit_function_fdf_struct},
16384 {"Math::GSL::Multifitc::delete_gsl_multifit_function_fdf_struct", _wrap_delete_gsl_multifit_function_fdf_struct},
16385 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_type_name_set", _wrap_gsl_multifit_fdfsolver_type_name_set},
16386 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_type_name_get", _wrap_gsl_multifit_fdfsolver_type_name_get},
16387 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_type_size_set", _wrap_gsl_multifit_fdfsolver_type_size_set},
16388 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_type_size_get", _wrap_gsl_multifit_fdfsolver_type_size_get},
16389 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_type_alloc_set", _wrap_gsl_multifit_fdfsolver_type_alloc_set},
16390 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_type_alloc_get", _wrap_gsl_multifit_fdfsolver_type_alloc_get},
16391 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_type_set_set", _wrap_gsl_multifit_fdfsolver_type_set_set},
16392 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_type_set_get", _wrap_gsl_multifit_fdfsolver_type_set_get},
16393 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_type_iterate_set", _wrap_gsl_multifit_fdfsolver_type_iterate_set},
16394 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_type_iterate_get", _wrap_gsl_multifit_fdfsolver_type_iterate_get},
16395 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_type_gradient_set", _wrap_gsl_multifit_fdfsolver_type_gradient_set},
16396 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_type_gradient_get", _wrap_gsl_multifit_fdfsolver_type_gradient_get},
16397 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_type_jac_set", _wrap_gsl_multifit_fdfsolver_type_jac_set},
16398 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_type_jac_get", _wrap_gsl_multifit_fdfsolver_type_jac_get},
16399 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_type_free_set", _wrap_gsl_multifit_fdfsolver_type_free_set},
16400 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_type_free_get", _wrap_gsl_multifit_fdfsolver_type_free_get},
16401 {"Math::GSL::Multifitc::new_gsl_multifit_fdfsolver_type", _wrap_new_gsl_multifit_fdfsolver_type},
16402 {"Math::GSL::Multifitc::delete_gsl_multifit_fdfsolver_type", _wrap_delete_gsl_multifit_fdfsolver_type},
16403 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_type_set", _wrap_gsl_multifit_fdfsolver_type_set},
16404 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_type_get", _wrap_gsl_multifit_fdfsolver_type_get},
16405 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_fdf_set", _wrap_gsl_multifit_fdfsolver_fdf_set},
16406 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_fdf_get", _wrap_gsl_multifit_fdfsolver_fdf_get},
16407 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_x_set", _wrap_gsl_multifit_fdfsolver_x_set},
16408 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_x_get", _wrap_gsl_multifit_fdfsolver_x_get},
16409 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_f_set", _wrap_gsl_multifit_fdfsolver_f_set},
16410 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_f_get", _wrap_gsl_multifit_fdfsolver_f_get},
16411 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_dx_set", _wrap_gsl_multifit_fdfsolver_dx_set},
16412 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_dx_get", _wrap_gsl_multifit_fdfsolver_dx_get},
16413 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_g_set", _wrap_gsl_multifit_fdfsolver_g_set},
16414 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_g_get", _wrap_gsl_multifit_fdfsolver_g_get},
16415 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_sqrt_wts_set", _wrap_gsl_multifit_fdfsolver_sqrt_wts_set},
16416 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_sqrt_wts_get", _wrap_gsl_multifit_fdfsolver_sqrt_wts_get},
16417 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_niter_set", _wrap_gsl_multifit_fdfsolver_niter_set},
16418 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_niter_get", _wrap_gsl_multifit_fdfsolver_niter_get},
16419 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_state_set", _wrap_gsl_multifit_fdfsolver_state_set},
16420 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_state_get", _wrap_gsl_multifit_fdfsolver_state_get},
16421 {"Math::GSL::Multifitc::new_gsl_multifit_fdfsolver", _wrap_new_gsl_multifit_fdfsolver},
16422 {"Math::GSL::Multifitc::delete_gsl_multifit_fdfsolver", _wrap_delete_gsl_multifit_fdfsolver},
16423 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_alloc", _wrap_gsl_multifit_fdfsolver_alloc},
16424 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_set", _wrap_gsl_multifit_fdfsolver_set},
16425 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_wset", _wrap_gsl_multifit_fdfsolver_wset},
16426 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_iterate", _wrap_gsl_multifit_fdfsolver_iterate},
16427 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_driver", _wrap_gsl_multifit_fdfsolver_driver},
16428 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_jac", _wrap_gsl_multifit_fdfsolver_jac},
16429 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_free", _wrap_gsl_multifit_fdfsolver_free},
16430 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_name", _wrap_gsl_multifit_fdfsolver_name},
16431 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_position", _wrap_gsl_multifit_fdfsolver_position},
16432 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_residual", _wrap_gsl_multifit_fdfsolver_residual},
16433 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_niter", _wrap_gsl_multifit_fdfsolver_niter},
16434 {"Math::GSL::Multifitc::gsl_multifit_eval_wf", _wrap_gsl_multifit_eval_wf},
16435 {"Math::GSL::Multifitc::gsl_multifit_eval_wdf", _wrap_gsl_multifit_eval_wdf},
16436 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_test", _wrap_gsl_multifit_fdfsolver_test},
16437 {"Math::GSL::Multifitc::gsl_multifit_test_delta", _wrap_gsl_multifit_test_delta},
16438 {"Math::GSL::Multifitc::gsl_multifit_test_gradient", _wrap_gsl_multifit_test_gradient},
16439 {"Math::GSL::Multifitc::gsl_multifit_fdfsolver_dif_df", _wrap_gsl_multifit_fdfsolver_dif_df},
16440 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_n_set", _wrap_gsl_multifit_fdfridge_n_set},
16441 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_n_get", _wrap_gsl_multifit_fdfridge_n_get},
16442 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_p_set", _wrap_gsl_multifit_fdfridge_p_set},
16443 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_p_get", _wrap_gsl_multifit_fdfridge_p_get},
16444 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_lambda_set", _wrap_gsl_multifit_fdfridge_lambda_set},
16445 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_lambda_get", _wrap_gsl_multifit_fdfridge_lambda_get},
16446 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_L_diag_set", _wrap_gsl_multifit_fdfridge_L_diag_set},
16447 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_L_diag_get", _wrap_gsl_multifit_fdfridge_L_diag_get},
16448 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_L_set", _wrap_gsl_multifit_fdfridge_L_set},
16449 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_L_get", _wrap_gsl_multifit_fdfridge_L_get},
16450 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_f_set", _wrap_gsl_multifit_fdfridge_f_set},
16451 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_f_get", _wrap_gsl_multifit_fdfridge_f_get},
16452 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_wts_set", _wrap_gsl_multifit_fdfridge_wts_set},
16453 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_wts_get", _wrap_gsl_multifit_fdfridge_wts_get},
16454 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_s_set", _wrap_gsl_multifit_fdfridge_s_set},
16455 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_s_get", _wrap_gsl_multifit_fdfridge_s_get},
16456 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_fdf_set", _wrap_gsl_multifit_fdfridge_fdf_set},
16457 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_fdf_get", _wrap_gsl_multifit_fdfridge_fdf_get},
16458 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_fdftik_set", _wrap_gsl_multifit_fdfridge_fdftik_set},
16459 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_fdftik_get", _wrap_gsl_multifit_fdfridge_fdftik_get},
16460 {"Math::GSL::Multifitc::new_gsl_multifit_fdfridge", _wrap_new_gsl_multifit_fdfridge},
16461 {"Math::GSL::Multifitc::delete_gsl_multifit_fdfridge", _wrap_delete_gsl_multifit_fdfridge},
16462 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_alloc", _wrap_gsl_multifit_fdfridge_alloc},
16463 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_free", _wrap_gsl_multifit_fdfridge_free},
16464 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_name", _wrap_gsl_multifit_fdfridge_name},
16465 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_position", _wrap_gsl_multifit_fdfridge_position},
16466 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_residual", _wrap_gsl_multifit_fdfridge_residual},
16467 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_niter", _wrap_gsl_multifit_fdfridge_niter},
16468 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_set", _wrap_gsl_multifit_fdfridge_set},
16469 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_wset", _wrap_gsl_multifit_fdfridge_wset},
16470 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_set2", _wrap_gsl_multifit_fdfridge_set2},
16471 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_wset2", _wrap_gsl_multifit_fdfridge_wset2},
16472 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_set3", _wrap_gsl_multifit_fdfridge_set3},
16473 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_wset3", _wrap_gsl_multifit_fdfridge_wset3},
16474 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_iterate", _wrap_gsl_multifit_fdfridge_iterate},
16475 {"Math::GSL::Multifitc::gsl_multifit_fdfridge_driver", _wrap_gsl_multifit_fdfridge_driver},
16476 {0,0}
16477 };
16478 /* -----------------------------------------------------------------------------
16479 * Type initialization:
16480 * This problem is tough by the requirement that no dynamic
16481 * memory is used. Also, since swig_type_info structures store pointers to
16482 * swig_cast_info structures and swig_cast_info structures store pointers back
16483 * to swig_type_info structures, we need some lookup code at initialization.
16484 * The idea is that swig generates all the structures that are needed.
16485 * The runtime then collects these partially filled structures.
16486 * The SWIG_InitializeModule function takes these initial arrays out of
16487 * swig_module, and does all the lookup, filling in the swig_module.types
16488 * array with the correct data and linking the correct swig_cast_info
16489 * structures together.
16490 *
16491 * The generated swig_type_info structures are assigned statically to an initial
16492 * array. We just loop through that array, and handle each type individually.
16493 * First we lookup if this type has been already loaded, and if so, use the
16494 * loaded structure instead of the generated one. Then we have to fill in the
16495 * cast linked list. The cast data is initially stored in something like a
16496 * two-dimensional array. Each row corresponds to a type (there are the same
16497 * number of rows as there are in the swig_type_initial array). Each entry in
16498 * a column is one of the swig_cast_info structures for that type.
16499 * The cast_initial array is actually an array of arrays, because each row has
16500 * a variable number of columns. So to actually build the cast linked list,
16501 * we find the array of casts associated with the type, and loop through it
16502 * adding the casts to the list. The one last trick we need to do is making
16503 * sure the type pointer in the swig_cast_info struct is correct.
16504 *
16505 * First off, we lookup the cast->type name to see if it is already loaded.
16506 * There are three cases to handle:
16507 * 1) If the cast->type has already been loaded AND the type we are adding
16508 * casting info to has not been loaded (it is in this module), THEN we
16509 * replace the cast->type pointer with the type pointer that has already
16510 * been loaded.
16511 * 2) If BOTH types (the one we are adding casting info to, and the
16512 * cast->type) are loaded, THEN the cast info has already been loaded by
16513 * the previous module so we just ignore it.
16514 * 3) Finally, if cast->type has not already been loaded, then we add that
16515 * swig_cast_info to the linked list (because the cast->type) pointer will
16516 * be correct.
16517 * ----------------------------------------------------------------------------- */
16518
16519 #ifdef __cplusplus
16520 extern "C" {
16521 #if 0
16522 } /* c-mode */
16523 #endif
16524 #endif
16525
16526 #if 0
16527 #define SWIGRUNTIME_DEBUG
16528 #endif
16529
16530
16531 SWIGRUNTIME void
SWIG_InitializeModule(void * clientdata)16532 SWIG_InitializeModule(void *clientdata) {
16533 size_t i;
16534 swig_module_info *module_head, *iter;
16535 int init;
16536
16537 /* check to see if the circular list has been setup, if not, set it up */
16538 if (swig_module.next==0) {
16539 /* Initialize the swig_module */
16540 swig_module.type_initial = swig_type_initial;
16541 swig_module.cast_initial = swig_cast_initial;
16542 swig_module.next = &swig_module;
16543 init = 1;
16544 } else {
16545 init = 0;
16546 }
16547
16548 /* Try and load any already created modules */
16549 module_head = SWIG_GetModule(clientdata);
16550 if (!module_head) {
16551 /* This is the first module loaded for this interpreter */
16552 /* so set the swig module into the interpreter */
16553 SWIG_SetModule(clientdata, &swig_module);
16554 } else {
16555 /* the interpreter has loaded a SWIG module, but has it loaded this one? */
16556 iter=module_head;
16557 do {
16558 if (iter==&swig_module) {
16559 /* Our module is already in the list, so there's nothing more to do. */
16560 return;
16561 }
16562 iter=iter->next;
16563 } while (iter!= module_head);
16564
16565 /* otherwise we must add our module into the list */
16566 swig_module.next = module_head->next;
16567 module_head->next = &swig_module;
16568 }
16569
16570 /* When multiple interpreters are used, a module could have already been initialized in
16571 a different interpreter, but not yet have a pointer in this interpreter.
16572 In this case, we do not want to continue adding types... everything should be
16573 set up already */
16574 if (init == 0) return;
16575
16576 /* Now work on filling in swig_module.types */
16577 #ifdef SWIGRUNTIME_DEBUG
16578 printf("SWIG_InitializeModule: size %lu\n", (unsigned long)swig_module.size);
16579 #endif
16580 for (i = 0; i < swig_module.size; ++i) {
16581 swig_type_info *type = 0;
16582 swig_type_info *ret;
16583 swig_cast_info *cast;
16584
16585 #ifdef SWIGRUNTIME_DEBUG
16586 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
16587 #endif
16588
16589 /* if there is another module already loaded */
16590 if (swig_module.next != &swig_module) {
16591 type = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, swig_module.type_initial[i]->name);
16592 }
16593 if (type) {
16594 /* Overwrite clientdata field */
16595 #ifdef SWIGRUNTIME_DEBUG
16596 printf("SWIG_InitializeModule: found type %s\n", type->name);
16597 #endif
16598 if (swig_module.type_initial[i]->clientdata) {
16599 type->clientdata = swig_module.type_initial[i]->clientdata;
16600 #ifdef SWIGRUNTIME_DEBUG
16601 printf("SWIG_InitializeModule: found and overwrite type %s \n", type->name);
16602 #endif
16603 }
16604 } else {
16605 type = swig_module.type_initial[i];
16606 }
16607
16608 /* Insert casting types */
16609 cast = swig_module.cast_initial[i];
16610 while (cast->type) {
16611 /* Don't need to add information already in the list */
16612 ret = 0;
16613 #ifdef SWIGRUNTIME_DEBUG
16614 printf("SWIG_InitializeModule: look cast %s\n", cast->type->name);
16615 #endif
16616 if (swig_module.next != &swig_module) {
16617 ret = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, cast->type->name);
16618 #ifdef SWIGRUNTIME_DEBUG
16619 if (ret) printf("SWIG_InitializeModule: found cast %s\n", ret->name);
16620 #endif
16621 }
16622 if (ret) {
16623 if (type == swig_module.type_initial[i]) {
16624 #ifdef SWIGRUNTIME_DEBUG
16625 printf("SWIG_InitializeModule: skip old type %s\n", ret->name);
16626 #endif
16627 cast->type = ret;
16628 ret = 0;
16629 } else {
16630 /* Check for casting already in the list */
16631 swig_cast_info *ocast = SWIG_TypeCheck(ret->name, type);
16632 #ifdef SWIGRUNTIME_DEBUG
16633 if (ocast) printf("SWIG_InitializeModule: skip old cast %s\n", ret->name);
16634 #endif
16635 if (!ocast) ret = 0;
16636 }
16637 }
16638
16639 if (!ret) {
16640 #ifdef SWIGRUNTIME_DEBUG
16641 printf("SWIG_InitializeModule: adding cast %s\n", cast->type->name);
16642 #endif
16643 if (type->cast) {
16644 type->cast->prev = cast;
16645 cast->next = type->cast;
16646 }
16647 type->cast = cast;
16648 }
16649 cast++;
16650 }
16651 /* Set entry in modules->types array equal to the type */
16652 swig_module.types[i] = type;
16653 }
16654 swig_module.types[i] = 0;
16655
16656 #ifdef SWIGRUNTIME_DEBUG
16657 printf("**** SWIG_InitializeModule: Cast List ******\n");
16658 for (i = 0; i < swig_module.size; ++i) {
16659 int j = 0;
16660 swig_cast_info *cast = swig_module.cast_initial[i];
16661 printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
16662 while (cast->type) {
16663 printf("SWIG_InitializeModule: cast type %s\n", cast->type->name);
16664 cast++;
16665 ++j;
16666 }
16667 printf("---- Total casts: %d\n",j);
16668 }
16669 printf("**** SWIG_InitializeModule: Cast List ******\n");
16670 #endif
16671 }
16672
16673 /* This function will propagate the clientdata field of type to
16674 * any new swig_type_info structures that have been added into the list
16675 * of equivalent types. It is like calling
16676 * SWIG_TypeClientData(type, clientdata) a second time.
16677 */
16678 SWIGRUNTIME void
SWIG_PropagateClientData(void)16679 SWIG_PropagateClientData(void) {
16680 size_t i;
16681 swig_cast_info *equiv;
16682 static int init_run = 0;
16683
16684 if (init_run) return;
16685 init_run = 1;
16686
16687 for (i = 0; i < swig_module.size; i++) {
16688 if (swig_module.types[i]->clientdata) {
16689 equiv = swig_module.types[i]->cast;
16690 while (equiv) {
16691 if (!equiv->converter) {
16692 if (equiv->type && !equiv->type->clientdata)
16693 SWIG_TypeClientData(equiv->type, swig_module.types[i]->clientdata);
16694 }
16695 equiv = equiv->next;
16696 }
16697 }
16698 }
16699 }
16700
16701 #ifdef __cplusplus
16702 #if 0
16703 {
16704 /* c-mode */
16705 #endif
16706 }
16707 #endif
16708
16709
16710
16711 #if defined(__cplusplus) && ! defined(XSPROTO)
16712 extern "C"
16713 #endif
16714
XS(SWIG_init)16715 XS(SWIG_init) {
16716 dXSARGS;
16717 int i;
16718 (void)items;
16719
16720 SWIG_InitializeModule(0);
16721
16722 /* Install commands */
16723 for (i = 0; swig_commands[i].name; i++) {
16724 /* Casts only needed for Perl < 5.10. */
16725 #ifdef __cplusplus
16726 newXS(const_cast<char*>(swig_commands[i].name), swig_commands[i].wrapper, const_cast<char*>(__FILE__));
16727 #else
16728 newXS((char*)swig_commands[i].name, swig_commands[i].wrapper, (char*)__FILE__);
16729 #endif
16730 }
16731
16732 /* Install variables */
16733 for (i = 0; swig_variables[i].name; i++) {
16734 SV *sv;
16735 sv = get_sv(swig_variables[i].name, TRUE | 0x2 | GV_ADDMULTI);
16736 if (swig_variables[i].type) {
16737 SWIG_MakePtr(sv,(void *)1, *swig_variables[i].type,0);
16738 } else {
16739 sv_setiv(sv,(IV) 0);
16740 }
16741 swig_create_magic(sv, swig_variables[i].name, swig_variables[i].set, swig_variables[i].get);
16742 }
16743
16744 /* Install constant */
16745 for (i = 0; swig_constants[i].type; i++) {
16746 SV *sv;
16747 sv = get_sv(swig_constants[i].name, TRUE | 0x2 | GV_ADDMULTI);
16748 switch(swig_constants[i].type) {
16749 case SWIG_INT:
16750 sv_setiv(sv, (IV) swig_constants[i].lvalue);
16751 break;
16752 case SWIG_FLOAT:
16753 sv_setnv(sv, (double) swig_constants[i].dvalue);
16754 break;
16755 case SWIG_STRING:
16756 sv_setpv(sv, (const char *) swig_constants[i].pvalue);
16757 break;
16758 case SWIG_POINTER:
16759 SWIG_MakePtr(sv, swig_constants[i].pvalue, *(swig_constants[i].ptype),0);
16760 break;
16761 case SWIG_BINARY:
16762 SWIG_MakePackedObj(sv, swig_constants[i].pvalue, swig_constants[i].lvalue, *(swig_constants[i].ptype));
16763 break;
16764 default:
16765 break;
16766 }
16767 SvREADONLY_on(sv);
16768 }
16769
16770 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16771 SV *sv = get_sv((char*) SWIG_prefix "GSL_VERSION", TRUE | 0x2 | GV_ADDMULTI);
16772 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(2.7)));
16773 SvREADONLY_on(sv);
16774 } while(0) /*@SWIG@*/;
16775 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16776 SV *sv = get_sv((char*) SWIG_prefix "GSL_MAJOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
16777 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(2)));
16778 SvREADONLY_on(sv);
16779 } while(0) /*@SWIG@*/;
16780 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16781 SV *sv = get_sv((char*) SWIG_prefix "GSL_MINOR_VERSION", TRUE | 0x2 | GV_ADDMULTI);
16782 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(7)));
16783 SvREADONLY_on(sv);
16784 } while(0) /*@SWIG@*/;
16785 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16786 SV *sv = get_sv((char*) SWIG_prefix "GSL_POSZERO", TRUE | 0x2 | GV_ADDMULTI);
16787 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((+0.0))));
16788 SvREADONLY_on(sv);
16789 } while(0) /*@SWIG@*/;
16790 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16791 SV *sv = get_sv((char*) SWIG_prefix "GSL_NEGZERO", TRUE | 0x2 | GV_ADDMULTI);
16792 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)((-0.0))));
16793 SvREADONLY_on(sv);
16794 } while(0) /*@SWIG@*/;
16795 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16796 SV *sv = get_sv((char*) SWIG_prefix "GSL_SUCCESS", TRUE | 0x2 | GV_ADDMULTI);
16797 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_SUCCESS)));
16798 SvREADONLY_on(sv);
16799 } while(0) /*@SWIG@*/;
16800 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16801 SV *sv = get_sv((char*) SWIG_prefix "GSL_FAILURE", TRUE | 0x2 | GV_ADDMULTI);
16802 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_FAILURE)));
16803 SvREADONLY_on(sv);
16804 } while(0) /*@SWIG@*/;
16805 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16806 SV *sv = get_sv((char*) SWIG_prefix "GSL_CONTINUE", TRUE | 0x2 | GV_ADDMULTI);
16807 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_CONTINUE)));
16808 SvREADONLY_on(sv);
16809 } while(0) /*@SWIG@*/;
16810 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16811 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDOM", TRUE | 0x2 | GV_ADDMULTI);
16812 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDOM)));
16813 SvREADONLY_on(sv);
16814 } while(0) /*@SWIG@*/;
16815 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16816 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERANGE", TRUE | 0x2 | GV_ADDMULTI);
16817 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERANGE)));
16818 SvREADONLY_on(sv);
16819 } while(0) /*@SWIG@*/;
16820 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16821 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAULT", TRUE | 0x2 | GV_ADDMULTI);
16822 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAULT)));
16823 SvREADONLY_on(sv);
16824 } while(0) /*@SWIG@*/;
16825 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16826 SV *sv = get_sv((char*) SWIG_prefix "GSL_EINVAL", TRUE | 0x2 | GV_ADDMULTI);
16827 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EINVAL)));
16828 SvREADONLY_on(sv);
16829 } while(0) /*@SWIG@*/;
16830 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16831 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFAILED", TRUE | 0x2 | GV_ADDMULTI);
16832 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFAILED)));
16833 SvREADONLY_on(sv);
16834 } while(0) /*@SWIG@*/;
16835 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16836 SV *sv = get_sv((char*) SWIG_prefix "GSL_EFACTOR", TRUE | 0x2 | GV_ADDMULTI);
16837 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EFACTOR)));
16838 SvREADONLY_on(sv);
16839 } while(0) /*@SWIG@*/;
16840 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16841 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESANITY", TRUE | 0x2 | GV_ADDMULTI);
16842 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESANITY)));
16843 SvREADONLY_on(sv);
16844 } while(0) /*@SWIG@*/;
16845 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16846 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOMEM", TRUE | 0x2 | GV_ADDMULTI);
16847 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOMEM)));
16848 SvREADONLY_on(sv);
16849 } while(0) /*@SWIG@*/;
16850 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16851 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADFUNC", TRUE | 0x2 | GV_ADDMULTI);
16852 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADFUNC)));
16853 SvREADONLY_on(sv);
16854 } while(0) /*@SWIG@*/;
16855 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16856 SV *sv = get_sv((char*) SWIG_prefix "GSL_ERUNAWAY", TRUE | 0x2 | GV_ADDMULTI);
16857 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ERUNAWAY)));
16858 SvREADONLY_on(sv);
16859 } while(0) /*@SWIG@*/;
16860 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16861 SV *sv = get_sv((char*) SWIG_prefix "GSL_EMAXITER", TRUE | 0x2 | GV_ADDMULTI);
16862 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EMAXITER)));
16863 SvREADONLY_on(sv);
16864 } while(0) /*@SWIG@*/;
16865 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16866 SV *sv = get_sv((char*) SWIG_prefix "GSL_EZERODIV", TRUE | 0x2 | GV_ADDMULTI);
16867 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EZERODIV)));
16868 SvREADONLY_on(sv);
16869 } while(0) /*@SWIG@*/;
16870 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16871 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADTOL", TRUE | 0x2 | GV_ADDMULTI);
16872 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADTOL)));
16873 SvREADONLY_on(sv);
16874 } while(0) /*@SWIG@*/;
16875 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16876 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOL", TRUE | 0x2 | GV_ADDMULTI);
16877 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOL)));
16878 SvREADONLY_on(sv);
16879 } while(0) /*@SWIG@*/;
16880 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16881 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNDRFLW", TRUE | 0x2 | GV_ADDMULTI);
16882 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNDRFLW)));
16883 SvREADONLY_on(sv);
16884 } while(0) /*@SWIG@*/;
16885 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16886 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOVRFLW", TRUE | 0x2 | GV_ADDMULTI);
16887 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOVRFLW)));
16888 SvREADONLY_on(sv);
16889 } while(0) /*@SWIG@*/;
16890 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16891 SV *sv = get_sv((char*) SWIG_prefix "GSL_ELOSS", TRUE | 0x2 | GV_ADDMULTI);
16892 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ELOSS)));
16893 SvREADONLY_on(sv);
16894 } while(0) /*@SWIG@*/;
16895 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16896 SV *sv = get_sv((char*) SWIG_prefix "GSL_EROUND", TRUE | 0x2 | GV_ADDMULTI);
16897 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EROUND)));
16898 SvREADONLY_on(sv);
16899 } while(0) /*@SWIG@*/;
16900 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16901 SV *sv = get_sv((char*) SWIG_prefix "GSL_EBADLEN", TRUE | 0x2 | GV_ADDMULTI);
16902 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EBADLEN)));
16903 SvREADONLY_on(sv);
16904 } while(0) /*@SWIG@*/;
16905 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16906 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOTSQR", TRUE | 0x2 | GV_ADDMULTI);
16907 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOTSQR)));
16908 SvREADONLY_on(sv);
16909 } while(0) /*@SWIG@*/;
16910 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16911 SV *sv = get_sv((char*) SWIG_prefix "GSL_ESING", TRUE | 0x2 | GV_ADDMULTI);
16912 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ESING)));
16913 SvREADONLY_on(sv);
16914 } while(0) /*@SWIG@*/;
16915 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16916 SV *sv = get_sv((char*) SWIG_prefix "GSL_EDIVERGE", TRUE | 0x2 | GV_ADDMULTI);
16917 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EDIVERGE)));
16918 SvREADONLY_on(sv);
16919 } while(0) /*@SWIG@*/;
16920 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16921 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNSUP", TRUE | 0x2 | GV_ADDMULTI);
16922 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNSUP)));
16923 SvREADONLY_on(sv);
16924 } while(0) /*@SWIG@*/;
16925 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16926 SV *sv = get_sv((char*) SWIG_prefix "GSL_EUNIMPL", TRUE | 0x2 | GV_ADDMULTI);
16927 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EUNIMPL)));
16928 SvREADONLY_on(sv);
16929 } while(0) /*@SWIG@*/;
16930 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16931 SV *sv = get_sv((char*) SWIG_prefix "GSL_ECACHE", TRUE | 0x2 | GV_ADDMULTI);
16932 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ECACHE)));
16933 SvREADONLY_on(sv);
16934 } while(0) /*@SWIG@*/;
16935 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16936 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETABLE", TRUE | 0x2 | GV_ADDMULTI);
16937 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETABLE)));
16938 SvREADONLY_on(sv);
16939 } while(0) /*@SWIG@*/;
16940 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16941 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROG", TRUE | 0x2 | GV_ADDMULTI);
16942 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROG)));
16943 SvREADONLY_on(sv);
16944 } while(0) /*@SWIG@*/;
16945 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16946 SV *sv = get_sv((char*) SWIG_prefix "GSL_ENOPROGJ", TRUE | 0x2 | GV_ADDMULTI);
16947 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ENOPROGJ)));
16948 SvREADONLY_on(sv);
16949 } while(0) /*@SWIG@*/;
16950 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16951 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLF", TRUE | 0x2 | GV_ADDMULTI);
16952 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLF)));
16953 SvREADONLY_on(sv);
16954 } while(0) /*@SWIG@*/;
16955 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16956 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLX", TRUE | 0x2 | GV_ADDMULTI);
16957 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLX)));
16958 SvREADONLY_on(sv);
16959 } while(0) /*@SWIG@*/;
16960 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16961 SV *sv = get_sv((char*) SWIG_prefix "GSL_ETOLG", TRUE | 0x2 | GV_ADDMULTI);
16962 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_ETOLG)));
16963 SvREADONLY_on(sv);
16964 } while(0) /*@SWIG@*/;
16965 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16966 SV *sv = get_sv((char*) SWIG_prefix "GSL_EOF", TRUE | 0x2 | GV_ADDMULTI);
16967 sv_setsv(sv, SWIG_From_int SWIG_PERL_CALL_ARGS_1((int)(GSL_EOF)));
16968 SvREADONLY_on(sv);
16969 } while(0) /*@SWIG@*/;
16970 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16971 SV *sv = get_sv((char*) SWIG_prefix "M_E", TRUE | 0x2 | GV_ADDMULTI);
16972 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(2.71828182845904523536028747135)));
16973 SvREADONLY_on(sv);
16974 } while(0) /*@SWIG@*/;
16975 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16976 SV *sv = get_sv((char*) SWIG_prefix "M_LOG2E", TRUE | 0x2 | GV_ADDMULTI);
16977 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(1.44269504088896340735992468100)));
16978 SvREADONLY_on(sv);
16979 } while(0) /*@SWIG@*/;
16980 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16981 SV *sv = get_sv((char*) SWIG_prefix "M_LOG10E", TRUE | 0x2 | GV_ADDMULTI);
16982 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(0.43429448190325182765112891892)));
16983 SvREADONLY_on(sv);
16984 } while(0) /*@SWIG@*/;
16985 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16986 SV *sv = get_sv((char*) SWIG_prefix "M_SQRT2", TRUE | 0x2 | GV_ADDMULTI);
16987 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(1.41421356237309504880168872421)));
16988 SvREADONLY_on(sv);
16989 } while(0) /*@SWIG@*/;
16990 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16991 SV *sv = get_sv((char*) SWIG_prefix "M_SQRT1_2", TRUE | 0x2 | GV_ADDMULTI);
16992 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(0.70710678118654752440084436210)));
16993 SvREADONLY_on(sv);
16994 } while(0) /*@SWIG@*/;
16995 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
16996 SV *sv = get_sv((char*) SWIG_prefix "M_SQRT3", TRUE | 0x2 | GV_ADDMULTI);
16997 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(1.73205080756887729352744634151)));
16998 SvREADONLY_on(sv);
16999 } while(0) /*@SWIG@*/;
17000 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
17001 SV *sv = get_sv((char*) SWIG_prefix "M_PI", TRUE | 0x2 | GV_ADDMULTI);
17002 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(3.14159265358979323846264338328)));
17003 SvREADONLY_on(sv);
17004 } while(0) /*@SWIG@*/;
17005 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
17006 SV *sv = get_sv((char*) SWIG_prefix "M_PI_2", TRUE | 0x2 | GV_ADDMULTI);
17007 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(1.57079632679489661923132169164)));
17008 SvREADONLY_on(sv);
17009 } while(0) /*@SWIG@*/;
17010 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
17011 SV *sv = get_sv((char*) SWIG_prefix "M_PI_4", TRUE | 0x2 | GV_ADDMULTI);
17012 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(0.78539816339744830961566084582)));
17013 SvREADONLY_on(sv);
17014 } while(0) /*@SWIG@*/;
17015 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
17016 SV *sv = get_sv((char*) SWIG_prefix "M_SQRTPI", TRUE | 0x2 | GV_ADDMULTI);
17017 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(1.77245385090551602729816748334)));
17018 SvREADONLY_on(sv);
17019 } while(0) /*@SWIG@*/;
17020 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
17021 SV *sv = get_sv((char*) SWIG_prefix "M_2_SQRTPI", TRUE | 0x2 | GV_ADDMULTI);
17022 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(1.12837916709551257389615890312)));
17023 SvREADONLY_on(sv);
17024 } while(0) /*@SWIG@*/;
17025 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
17026 SV *sv = get_sv((char*) SWIG_prefix "M_1_PI", TRUE | 0x2 | GV_ADDMULTI);
17027 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(0.31830988618379067153776752675)));
17028 SvREADONLY_on(sv);
17029 } while(0) /*@SWIG@*/;
17030 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
17031 SV *sv = get_sv((char*) SWIG_prefix "M_2_PI", TRUE | 0x2 | GV_ADDMULTI);
17032 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(0.63661977236758134307553505349)));
17033 SvREADONLY_on(sv);
17034 } while(0) /*@SWIG@*/;
17035 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
17036 SV *sv = get_sv((char*) SWIG_prefix "M_LN10", TRUE | 0x2 | GV_ADDMULTI);
17037 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(2.30258509299404568401799145468)));
17038 SvREADONLY_on(sv);
17039 } while(0) /*@SWIG@*/;
17040 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
17041 SV *sv = get_sv((char*) SWIG_prefix "M_LN2", TRUE | 0x2 | GV_ADDMULTI);
17042 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(0.69314718055994530941723212146)));
17043 SvREADONLY_on(sv);
17044 } while(0) /*@SWIG@*/;
17045 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
17046 SV *sv = get_sv((char*) SWIG_prefix "M_LNPI", TRUE | 0x2 | GV_ADDMULTI);
17047 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(1.14472988584940017414342735135)));
17048 SvREADONLY_on(sv);
17049 } while(0) /*@SWIG@*/;
17050 /*@SWIG:/usr/share/swig4.0/perl5/perltypemaps.swg,65,%set_constant@*/ do {
17051 SV *sv = get_sv((char*) SWIG_prefix "M_EULER", TRUE | 0x2 | GV_ADDMULTI);
17052 sv_setsv(sv, SWIG_From_double SWIG_PERL_CALL_ARGS_1((double)(0.57721566490153286060651209008)));
17053 SvREADONLY_on(sv);
17054 } while(0) /*@SWIG@*/;
17055 SWIG_TypeClientData(SWIGTYPE_p_gsl_function_struct, (void*) "Math::GSL::Multifit::gsl_function_struct");
17056 SWIG_TypeClientData(SWIGTYPE_p_gsl_function_fdf_struct, (void*) "Math::GSL::Multifit::gsl_function_fdf_struct");
17057 SWIG_TypeClientData(SWIGTYPE_p_gsl_function_vec_struct, (void*) "Math::GSL::Multifit::gsl_function_vec_struct");
17058 SWIG_TypeClientData(SWIGTYPE_p_gsl_permutation_struct, (void*) "Math::GSL::Multifit::gsl_permutation_struct");
17059 SWIG_TypeClientData(SWIGTYPE_p_gsl_multifit_linear_workspace, (void*) "Math::GSL::Multifit::gsl_multifit_linear_workspace");
17060 SWIG_TypeClientData(SWIGTYPE_p_gsl_multifit_robust_type, (void*) "Math::GSL::Multifit::gsl_multifit_robust_type");
17061 SWIG_TypeClientData(SWIGTYPE_p_gsl_multifit_robust_stats, (void*) "Math::GSL::Multifit::gsl_multifit_robust_stats");
17062 SWIG_TypeClientData(SWIGTYPE_p_gsl_multifit_robust_workspace, (void*) "Math::GSL::Multifit::gsl_multifit_robust_workspace");
17063 SWIG_TypeClientData(SWIGTYPE_p_gsl_multifit_function_struct, (void*) "Math::GSL::Multifit::gsl_multifit_function_struct");
17064 SWIG_TypeClientData(SWIGTYPE_p_gsl_multifit_fsolver_type, (void*) "Math::GSL::Multifit::gsl_multifit_fsolver_type");
17065 SWIG_TypeClientData(SWIGTYPE_p_gsl_multifit_fsolver, (void*) "Math::GSL::Multifit::gsl_multifit_fsolver");
17066 SWIG_TypeClientData(SWIGTYPE_p_gsl_multifit_function_fdf_struct, (void*) "Math::GSL::Multifit::gsl_multifit_function_fdf_struct");
17067 SWIG_TypeClientData(SWIGTYPE_p_gsl_multifit_fdfsolver_type, (void*) "Math::GSL::Multifit::gsl_multifit_fdfsolver_type");
17068 SWIG_TypeClientData(SWIGTYPE_p_gsl_multifit_fdfsolver, (void*) "Math::GSL::Multifit::gsl_multifit_fdfsolver");
17069 SWIG_TypeClientData(SWIGTYPE_p_gsl_multifit_fdfridge, (void*) "Math::GSL::Multifit::gsl_multifit_fdfridge");
17070 ST(0) = &PL_sv_yes;
17071 XSRETURN(1);
17072 }
17073
17074