1 /* ----------------------------------------------------------------------------
2 * This file was automatically generated by SWIG (http://www.swig.org).
3 * Version 1.3.19
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 * common.swg
13 *
14 * This file contains generic SWIG runtime support for pointer
15 * type checking as well as a few commonly used macros to control
16 * external linkage.
17 *
18 * Author : David Beazley (beazley@cs.uchicago.edu)
19 *
20 * Copyright (c) 1999-2000, The University of Chicago
21 *
22 * This file may be freely redistributed without license or fee provided
23 * this copyright message remains intact.
24 ************************************************************************/
25
26 #include <string.h>
27
28 #if defined(_WIN32) || defined(__WIN32__)
29 # if defined(_MSC_VER)
30 # if defined(STATIC_LINKED)
31 # define SWIGEXPORT(a) a
32 # define SWIGIMPORT(a) extern a
33 # else
34 # define SWIGEXPORT(a) __declspec(dllexport) a
35 # define SWIGIMPORT(a) extern a
36 # endif
37 # else
38 # if defined(__BORLANDC__)
39 # define SWIGEXPORT(a) a _export
40 # define SWIGIMPORT(a) a _export
41 # else
42 # define SWIGEXPORT(a) a
43 # define SWIGIMPORT(a) a
44 # endif
45 # endif
46 #else
47 # define SWIGEXPORT(a) a
48 # define SWIGIMPORT(a) a
49 #endif
50
51 #ifdef SWIG_GLOBAL
52 #define SWIGRUNTIME(a) SWIGEXPORT(a)
53 #else
54 #define SWIGRUNTIME(a) static a
55 #endif
56
57 #ifdef __cplusplus
58 extern "C" {
59 #endif
60
61 typedef void *(*swig_converter_func)(void *);
62 typedef struct swig_type_info *(*swig_dycast_func)(void **);
63
64 typedef struct swig_type_info {
65 const char *name;
66 swig_converter_func converter;
67 const char *str;
68 void *clientdata;
69 swig_dycast_func dcast;
70 struct swig_type_info *next;
71 struct swig_type_info *prev;
72 } swig_type_info;
73
74 #ifdef SWIG_NOINCLUDE
75
76 SWIGIMPORT(swig_type_info *) SWIG_TypeRegister(swig_type_info *);
77 SWIGIMPORT(swig_type_info *) SWIG_TypeCheck(char *c, swig_type_info *);
78 SWIGIMPORT(void *) SWIG_TypeCast(swig_type_info *, void *);
79 SWIGIMPORT(swig_type_info *) SWIG_TypeDynamicCast(swig_type_info *, void **);
80 SWIGIMPORT(const char *) SWIG_TypeName(const swig_type_info *);
81 SWIGIMPORT(swig_type_info *) SWIG_TypeQuery(const char *);
82 SWIGIMPORT(void) SWIG_TypeClientData(swig_type_info *, void *);
83
84 #else
85
86 static swig_type_info *swig_type_list = 0;
87
88 /* Register a type mapping with the type-checking */
89 SWIGRUNTIME(swig_type_info *)
90 SWIG_TypeRegister(swig_type_info *ti)
91 {
92 swig_type_info *tc, *head, *ret, *next;
93 /* Check to see if this type has already been registered */
94 tc = swig_type_list;
95 while (tc) {
96 if (strcmp(tc->name, ti->name) == 0) {
97 /* Already exists in the table. Just add additional types to the list */
98 if (tc->clientdata) ti->clientdata = tc->clientdata;
99 head = tc;
100 next = tc->next;
101 goto l1;
102 }
103 tc = tc->prev;
104 }
105 head = ti;
106 next = 0;
107
108 /* Place in list */
109 ti->prev = swig_type_list;
110 swig_type_list = ti;
111
112 /* Build linked lists */
113 l1:
114 ret = head;
115 tc = ti + 1;
116 /* Patch up the rest of the links */
117 while (tc->name) {
118 head->next = tc;
119 tc->prev = head;
120 head = tc;
121 tc++;
122 }
123 if (next) next->prev = head; /**/
124 head->next = next;
125 return ret;
126 }
127
128 /* Check the typename */
129 SWIGRUNTIME(swig_type_info *)
130 SWIG_TypeCheck(char *c, swig_type_info *ty)
131 {
132 swig_type_info *s;
133 if (!ty) return 0; /* Void pointer */
134 s = ty->next; /* First element always just a name */
135 do {
136 if (strcmp(s->name,c) == 0) {
137 if (s == ty->next) return s;
138 /* Move s to the top of the linked list */
139 s->prev->next = s->next;
140 if (s->next) {
141 s->next->prev = s->prev;
142 }
143 /* Insert s as second element in the list */
144 s->next = ty->next;
145 if (ty->next) ty->next->prev = s;
146 ty->next = s;
147 s->prev = ty; /**/
148 return s;
149 }
150 s = s->next;
151 } while (s && (s != ty->next));
152 return 0;
153 }
154
155 /* Cast a pointer up an inheritance hierarchy */
156 SWIGRUNTIME(void *)
157 SWIG_TypeCast(swig_type_info *ty, void *ptr)
158 {
159 if ((!ty) || (!ty->converter)) return ptr;
160 return (*ty->converter)(ptr);
161 }
162
163 /* Dynamic pointer casting. Down an inheritance hierarchy */
164 SWIGRUNTIME(swig_type_info *)
165 SWIG_TypeDynamicCast(swig_type_info *ty, void **ptr)
166 {
167 swig_type_info *lastty = ty;
168 if (!ty || !ty->dcast) return ty;
169 while (ty && (ty->dcast)) {
170 ty = (*ty->dcast)(ptr);
171 if (ty) lastty = ty;
172 }
173 return lastty;
174 }
175
176 /* Return the name associated with this type */
177 SWIGRUNTIME(const char *)
178 SWIG_TypeName(const swig_type_info *ty) {
179 return ty->name;
180 }
181
182 /* Search for a swig_type_info structure */
183 SWIGRUNTIME(swig_type_info *)
184 SWIG_TypeQuery(const char *name) {
185 swig_type_info *ty = swig_type_list;
186 while (ty) {
187 if (ty->str && (strcmp(name,ty->str) == 0)) return ty;
188 if (ty->name && (strcmp(name,ty->name) == 0)) return ty;
189 ty = ty->prev;
190 }
191 return 0;
192 }
193
194 /* Set the clientdata field for a type */
195 SWIGRUNTIME(void)
196 SWIG_TypeClientData(swig_type_info *ti, void *clientdata) {
197 swig_type_info *tc, *equiv;
198 if (ti->clientdata == clientdata) return;
199 ti->clientdata = clientdata;
200 equiv = ti->next;
201 while (equiv) {
202 if (!equiv->converter) {
203 tc = swig_type_list;
204 while (tc) {
205 if ((strcmp(tc->name, equiv->name) == 0))
206 SWIG_TypeClientData(tc,clientdata);
207 tc = tc->prev;
208 }
209 }
210 equiv = equiv->next;
211 }
212 }
213 #endif
214
215 #ifdef __cplusplus
216 }
217
218 #endif
219
220 /*
221 * $Header: /home/tina/cvs/tina-libs/swig/tcl/tinaTcl.c,v 1.2 2003/09/12 10:29:36 tony Exp $
222 *
223 * swigtcl8.swg
224 */
225
226 #include <tcl.h>
227 #include <stdlib.h>
228 #include <stdarg.h>
229 #include <ctype.h>
230
231 #ifdef __cplusplus
232 extern "C" {
233 #endif
234
235 /* Constant table */
236
237 #define SWIG_TCL_INT 1
238 #define SWIG_TCL_FLOAT 2
239 #define SWIG_TCL_STRING 3
240 #define SWIG_TCL_POINTER 4
241 #define SWIG_TCL_BINARY 5
242
243 /* Flags for pointer conversion */
244 #define SWIG_POINTER_EXCEPTION 0x1
245 #define SWIG_POINTER_DISOWN 0x2
246
247 /* Swig fail macro */
248
249 #define SWIG_fail goto fail
250
251 /* Constant information structure */
252 typedef struct swig_const_info {
253 int type;
254 char *name;
255 long lvalue;
256 double dvalue;
257 void *pvalue;
258 swig_type_info **ptype;
259 } swig_const_info;
260
261 typedef int (*swig_wrapper)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST []);
262 typedef int (*swig_wrapper_func)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST []);
263 typedef char *(*swig_variable_func)(ClientData, Tcl_Interp *, char *, char *, int);
264 typedef void (*swig_delete_func)(ClientData);
265
266 typedef struct swig_method {
267 const char *name;
268 swig_wrapper method;
269 } swig_method;
270
271 typedef struct swig_attribute {
272 const char *name;
273 swig_wrapper getmethod;
274 swig_wrapper setmethod;
275 } swig_attribute;
276
277 typedef struct swig_class {
278 const char *name;
279 swig_type_info **type;
280 swig_wrapper constructor;
281 void (*destructor)(void *);
282 swig_method *methods;
283 swig_attribute *attributes;
284 struct swig_class **bases;
285 } swig_class;
286
287 typedef struct swig_instance {
288 Tcl_Obj *thisptr;
289 void *thisvalue;
290 swig_class *classptr;
291 int destroy;
292 Tcl_Command cmdtok;
293 } swig_instance;
294
295 #ifdef SWIG_NOINCLUDE
296 SWIGEXPORT(char *) SWIG_PackData(char *c, void *ptr, int sz);
297 SWIGEXPORT(char *) SWIG_UnpackData(char *c, void *ptr, int sz);
298 SWIGEXPORT(int) SWIG_ConvertPtrFromString(Tcl_Interp *, char *, void **, swig_type_info *,int flags);
299 SWIGEXPORT(int) SWIG_ConvertPtr(Tcl_Interp *, Tcl_Obj *, void **, swig_type_info *, int flags);
300 SWIGEXPORT(int) SWIG_ConvertPacked(Tcl_Interp *, Tcl_Obj *, void *, int sz, swig_type_info *, int flags);
301 SWIGEXPORT(void) SWIG_MakePtr(char *, void *, swig_type_info *, int flags);
302 SWIGEXPORT(Tcl_Obj *) SWIG_NewPointerObj(void *, swig_type_info *, int flags);
303 SWIGEXPORT(Tcl_Obj *) SWIG_NewPackedObj(void *, int sz, swig_type_info *, int flags);
304 SWIGEXPORT(int) SWIG_GetArgs(Tcl_Interp *, int, Tcl_Obj *CONST [], const char *, ...);
305 SWIGEXPORT(char *) SWIG_PointerTypeFromString(char *c);
306 SWIGEXPORT(void) SWIG_Acquire(void *ptr);
307 SWIGEXPORT(int) SWIG_Disown(void *ptr);
308 SWIGEXPORT(int) SWIG_Thisown(void *ptr);
309 SWIGEXPORT(void) SWIG_InstallConstants(Tcl_Interp *interp, struct swig_const_info constants[]);
310 SWIGEXPORT(Tcl_Obj *) SWIG_GetConstant(const char *key);
311 SWIGEXPORT(Tcl_Obj *) SWIG_NewInstanceObj(Tcl_Interp *interp, void *, swig_type_info *, int flags);
312 SWIGEXPORT(int) SWIG_ObjectConstructor(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]);
313 SWIGEXPORT(int) SWIG_MethodCommand(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]);
314 SWIGEXPORT(void) SWIG_ObjectDelete(ClientData);
315 #else
316
317 /* Object support */
318 static Tcl_HashTable swigobjectTable;
319 static int swigobjectTableinit = 0;
320
321 /* Acquire ownership of a pointer */
322 SWIGRUNTIME(void)
323 SWIG_Acquire(void *ptr)
324 {
325 Tcl_HashEntry *entryPtr;
326 int newobj;
327 if (!swigobjectTableinit) {
328 Tcl_InitHashTable(&swigobjectTable, TCL_ONE_WORD_KEYS);
329 swigobjectTableinit = 1;
330 }
331 entryPtr = Tcl_CreateHashEntry(&swigobjectTable, (char *) ptr, &newobj);
332 }
333
334 /* Disown a pointer. Returns 1 if we owned it to begin with */
335 SWIGRUNTIME(int)
336 SWIG_Disown(void *ptr)
337 {
338 Tcl_HashEntry *entryPtr;
339 if (!swigobjectTableinit) return 0;
340 entryPtr = Tcl_FindHashEntry(&swigobjectTable, (char *) ptr);
341 if (entryPtr) {
342 Tcl_DeleteHashEntry(entryPtr);
343 return 1;
344 }
345 return 0;
346 }
347
348 SWIGRUNTIME(int)
349 SWIG_Thisown(void *ptr) {
350 if (!swigobjectTableinit) return 0;
351 if (Tcl_FindHashEntry(&swigobjectTable, (char *) ptr)) {
352 return 1;
353 }
354 return 0;
355 }
356
357 /* Pack binary data into a string */
358 SWIGRUNTIME(char *)
359 SWIG_PackData(char *c, void *ptr, int sz) {
360 static char hex[17] = "0123456789abcdef";
361 int i;
362 unsigned char *u = (unsigned char *) ptr;
363 register unsigned char uu;
364 for (i = 0; i < sz; i++,u++) {
365 uu = *u;
366 *(c++) = hex[(uu & 0xf0) >> 4];
367 *(c++) = hex[uu & 0xf];
368 }
369 return c;
370 }
371
372 /* Unpack binary data from a string */
373 SWIGRUNTIME(char *)
374 SWIG_UnpackData(char *c, void *ptr, int sz) {
375 register unsigned char uu = 0;
376 register int d;
377 unsigned char *u = (unsigned char *) ptr;
378 int i;
379 if ((int)strlen(c) < (2*sz)) return c;
380 for (i = 0; i < sz; i++, u++) {
381 d = *(c++);
382 if ((d >= '') && (d <= '9'))
383 uu = ((d - '') << 4);
384 else if ((d >= 'a') && (d <= 'f'))
385 uu = ((d - ('a'-10)) << 4);
386 d = *(c++);
387 if ((d >= '') && (d <= '9'))
388 uu |= (d - '');
389 else if ((d >= 'a') && (d <= 'f'))
390 uu |= (d - ('a'-10));
391 *u = uu;
392 }
393 return c;
394 }
395
396 /* Convert a pointer value */
397 SWIGRUNTIME(int)
398 SWIG_ConvertPtrFromString(Tcl_Interp *interp, char *c, void **ptr, swig_type_info *ty, int flags)
399 {
400 swig_type_info *tc;
401 /* Pointer values must start with leading underscore */
402 while (*c != '_') {
403 *ptr = (void *) 0;
404 if (strcmp(c,"NULL") == 0) return TCL_OK;
405 /* Hmmm. It could be an object name. */
406 if (Tcl_VarEval(interp,c," cget -this", (char *) NULL) == TCL_OK) {
407 Tcl_Obj *result = Tcl_GetObjResult(interp);
408 c = Tcl_GetStringFromObj(result, NULL);
409 continue;
410 }
411 if (flags & SWIG_POINTER_EXCEPTION)
412 Tcl_SetResult(interp, (char *) "Type error. Expected a pointer", TCL_STATIC);
413 return TCL_ERROR;
414 }
415 c++;
416 c = SWIG_UnpackData(c,ptr,sizeof(void *));
417 if (ty) {
418 tc = SWIG_TypeCheck(c,ty);
419 if ((!tc) && (flags & SWIG_POINTER_EXCEPTION)) {
420 Tcl_SetResult(interp, (char *) "Type error. Expected ", TCL_STATIC);
421 Tcl_AppendElement(interp, (char *) ty->name);
422 return TCL_ERROR;
423 } else if (!tc) {
424 return TCL_ERROR;
425 }
426 if (flags & SWIG_POINTER_DISOWN) {
427 SWIG_Disown((void *) *ptr);
428 }
429 *ptr = SWIG_TypeCast(tc,(void *) *ptr);
430 }
431 return TCL_OK;
432 }
433
434 /* Convert a pointer value */
435 SWIGRUNTIME(int)
436 SWIG_ConvertPtr(Tcl_Interp *interp, Tcl_Obj *oc, void **ptr, swig_type_info *ty, int flags)
437 {
438 return SWIG_ConvertPtrFromString(interp, Tcl_GetStringFromObj(oc,NULL), ptr, ty, flags);
439 }
440
441 /* Convert a pointer value */
442 SWIGRUNTIME(char *)
443 SWIG_PointerTypeFromString(char *c) {
444 char d;
445 /* Pointer values must start with leading underscore. NULL has no type */
446 if (*c != '_') {
447 return 0;
448 }
449 c++;
450 /* Extract hex value from pointer */
451 while ((d = *c)) {
452 if (!(((d >= '') && (d <= '9')) || ((d >= 'a') && (d <= 'f')))) break;
453 c++;
454 }
455 return c;
456 }
457
458 /* Convert a packed value value */
459 SWIGRUNTIME(int)
460 SWIG_ConvertPacked(Tcl_Interp *interp, Tcl_Obj *obj, void *ptr, int sz, swig_type_info *ty, int flags) {
461 swig_type_info *tc;
462 char *c;
463
464 if (!obj) goto type_error;
465 c = Tcl_GetStringFromObj(obj,NULL);
466 /* Pointer values must start with leading underscore */
467 if (*c != '_') goto type_error;
468 c++;
469 c = SWIG_UnpackData(c,ptr,sz);
470 if (ty) {
471 tc = SWIG_TypeCheck(c,ty);
472 if (!tc) goto type_error;
473 }
474 return TCL_OK;
475
476 type_error:
477
478 if (flags) {
479 if (ty) {
480 Tcl_SetResult(interp, (char *) "Type error. Expected ", TCL_STATIC);
481 Tcl_AppendElement(interp, (char *) ty->name);
482 return TCL_ERROR;
483 } else {
484 Tcl_SetResult(interp, (char *) "Expected packed data.", TCL_STATIC);
485 return TCL_ERROR;
486 }
487 }
488 return TCL_ERROR;
489 }
490
491
492 /* Take a pointer and convert it to a string */
493 SWIGRUNTIME(void)
494 SWIG_MakePtr(char *c, void *ptr, swig_type_info *ty, int flags) {
495 if (ptr) {
496 *(c++) = '_';
497 c = SWIG_PackData(c,&ptr,sizeof(void *));
498 strcpy(c,ty->name);
499 } else {
500 strcpy(c,(char *)"NULL");
501 }
502 flags = 0;
503 }
504
505 /* Create a new pointer object */
506 SWIGRUNTIME(Tcl_Obj *)
507 SWIG_NewPointerObj(void *ptr, swig_type_info *type, int flags) {
508 Tcl_Obj *robj;
509 char result[512];
510 SWIG_MakePtr(result,ptr,type,flags);
511 robj = Tcl_NewStringObj(result,-1);
512 return robj;
513 }
514
515 SWIGRUNTIME(Tcl_Obj *)
516 SWIG_NewPackedObj(void *ptr, int sz, swig_type_info *type, int flags) {
517 char result[1024];
518 char *r = result;
519 if ((2*sz + 1 + strlen(type->name)) > 1000) return 0;
520 *(r++) = '_';
521 r = SWIG_PackData(r,ptr,sz);
522 strcpy(r,type->name);
523 flags = 0;
524 return Tcl_NewStringObj(result,-1);
525 }
526
527 static Tcl_HashTable swigconstTable;
528 static int swigconstTableinit = 0;
529
530 /* Install Constants */
531 SWIGRUNTIME(void)
532 SWIG_InstallConstants(Tcl_Interp *interp, swig_const_info constants[]) {
533 int i;
534 Tcl_Obj *obj;
535 Tcl_HashEntry *entryPtr;
536 int newobj;
537
538 if (!swigconstTableinit) {
539 Tcl_InitHashTable(&swigconstTable, TCL_STRING_KEYS);
540 swigconstTableinit = 1;
541 }
542 for (i = 0; constants[i].type; i++) {
543 switch(constants[i].type) {
544 case SWIG_TCL_INT:
545 obj = Tcl_NewIntObj(constants[i].lvalue);
546 break;
547 case SWIG_TCL_FLOAT:
548 obj = Tcl_NewDoubleObj(constants[i].dvalue);
549 break;
550 case SWIG_TCL_STRING:
551 obj = Tcl_NewStringObj((char *) constants[i].pvalue,-1);
552 break;
553 case SWIG_TCL_POINTER:
554 obj = SWIG_NewPointerObj(constants[i].pvalue, *(constants[i]).ptype,0);
555 break;
556 case SWIG_TCL_BINARY:
557 obj = SWIG_NewPackedObj(constants[i].pvalue, constants[i].lvalue, *(constants[i].ptype),0);
558 break;
559 default:
560 obj = 0;
561 break;
562 }
563 if (obj) {
564 Tcl_ObjSetVar2(interp,Tcl_NewStringObj(constants[i].name,-1), NULL, obj, TCL_GLOBAL_ONLY);
565 entryPtr = Tcl_CreateHashEntry(&swigconstTable, constants[i].name, &newobj);
566 Tcl_SetHashValue(entryPtr, (ClientData) obj);
567 }
568 }
569 }
570
571 SWIGRUNTIME(Tcl_Obj *)
572 SWIG_GetConstant(const char *key) {
573 Tcl_HashEntry *entryPtr;
574 if (!swigconstTableinit) return 0;
575 entryPtr = Tcl_FindHashEntry(&swigconstTable, key);
576 if (entryPtr) {
577 return (Tcl_Obj *) Tcl_GetHashValue(entryPtr);
578 }
579 printf("Searching %s\n", key);
580 return 0;
581 }
582
583 /* Get arguments */
584 SWIGRUNTIME(int)
585 SWIG_GetArgs(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], const char *fmt, ...)
586 {
587 int argno = 0, opt = 0, tempi;
588 double tempd;
589 const char *c;
590 va_list ap;
591 void *vptr;
592 Tcl_Obj *obj = 0;
593 swig_type_info *ty;
594
595 va_start(ap,fmt);
596 for (c = fmt; (*c && (*c != ':') && (*c != ';')); c++,argno++) {
597 if (*c == '|') {
598 opt = 1;
599 c++;
600 }
601 if (argno >= (objc-1)) {
602 if (!opt) {
603 Tcl_SetResult(interp, (char *) "Wrong # args. ", TCL_STATIC);
604 goto argerror;
605 } else {
606 va_end(ap);
607 return TCL_OK;
608 }
609 }
610
611 vptr = va_arg(ap,void *);
612 if (vptr) {
613 if (isupper(*c)) {
614 obj = SWIG_GetConstant(Tcl_GetStringFromObj(objv[argno+1],0));
615 if (!obj) obj = objv[argno+1];
616 } else {
617 obj = objv[argno+1];
618 }
619 switch(*c) {
620 case 'i': case 'I':
621 case 'l': case 'L':
622 case 'h': case 'H':
623 case 'b': case 'B':
624 if (Tcl_GetIntFromObj(interp,obj,&tempi) != TCL_OK) goto argerror;
625 if ((*c == 'i') || (*c == 'I')) *((int *)vptr) = tempi;
626 else if ((*c == 'l') || (*c == 'L')) *((long *)vptr) = tempi;
627 else if ((*c == 'h') || (*c == 'H')) *((short*)vptr) = tempi;
628 else if ((*c == 'b') || (*c == 'B')) *((unsigned char *)vptr) = tempi;
629 break;
630 case 'f': case 'F':
631 case 'd': case 'D':
632 if (Tcl_GetDoubleFromObj(interp,obj,&tempd) != TCL_OK) goto argerror;
633 if ((*c == 'f') || (*c == 'F')) *((float *) vptr) = (float)tempd;
634 else if ((*c == 'd') || (*c == 'D')) *((double*) vptr) = tempd;
635 break;
636 case 's': case 'S':
637 if (*(c+1) == '#') {
638 int *vlptr = (int *) va_arg(ap, void *);
639 *((char **) vptr) = Tcl_GetStringFromObj(obj, vlptr);
640 c++;
641 } else {
642 *((char **)vptr) = Tcl_GetStringFromObj(obj,NULL);
643 }
644 break;
645 case 'c': case 'C':
646 *((char *)vptr) = *(Tcl_GetStringFromObj(obj,NULL));
647 break;
648 case 'p': case 'P':
649 ty = (swig_type_info *) va_arg(ap, void *);
650 if (SWIG_ConvertPtr(interp, obj, (void **) vptr, ty, SWIG_POINTER_EXCEPTION) == TCL_ERROR) goto argerror;
651 break;
652 case 'o': case 'O':
653 *((Tcl_Obj **)vptr) = objv[argno+1];
654 break;
655 default:
656 break;
657 }
658 }
659 }
660
661 if ((*c != ';') && ((objc-1) > argno)) {
662 Tcl_SetResult(interp, (char *) "Wrong # args.", TCL_STATIC);
663 goto argerror;
664 }
665 va_end(ap);
666 return TCL_OK;
667
668 argerror:
669 {
670 char temp[32];
671 sprintf(temp,"%d", argno+1);
672 c = strchr(fmt,':');
673 if (!c) c = strchr(fmt,';');
674 if (!c) c = (char *)"";
675 Tcl_AppendResult(interp,c," argument ", temp, NULL);
676 va_end(ap);
677 return TCL_ERROR;
678 }
679 }
680
681 SWIGRUNTIME(void)
682 SWIG_ObjectDelete(ClientData clientData) {
683 swig_instance *si = (swig_instance *) clientData;
684 if ((si) && (si->destroy) && (SWIG_Disown(si->thisvalue))) {
685 if (si->classptr->destructor) {
686 (si->classptr->destructor)(si->thisvalue);
687 }
688 }
689 Tcl_DecrRefCount(si->thisptr);
690 free(si);
691 }
692
693 /* Function to invoke object methods given an instance */
694 SWIGRUNTIME(int)
695 SWIG_MethodCommand(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[])
696 {
697 char *method, *attrname;
698 swig_instance *inst = (swig_instance *) clientData;
699 swig_method *meth;
700 swig_attribute *attr;
701 Tcl_Obj *oldarg;
702 Tcl_Obj **objv;
703 int rcode;
704 swig_class *cls;
705 swig_class *cls_stack[64];
706 int cls_stack_bi[64];
707 int cls_stack_top = 0;
708 int numconf = 2;
709 int bi;
710
711 objv = (Tcl_Obj **) _objv;
712 if (objc < 2) {
713 Tcl_SetResult(interp, (char *) "wrong # args.", TCL_STATIC);
714 return TCL_ERROR;
715 }
716 method = Tcl_GetStringFromObj(objv[1],NULL);
717 if (strcmp(method,"-acquire") == 0) {
718 inst->destroy = 1;
719 SWIG_Acquire(inst->thisvalue);
720 return TCL_OK;
721 }
722 if (strcmp(method,"-disown") == 0) {
723 if (inst->destroy) {
724 SWIG_Disown(inst->thisvalue);
725 }
726 inst->destroy = 0;
727 return TCL_OK;
728 }
729 if (strcmp(method,"-delete") == 0) {
730 Tcl_DeleteCommandFromToken(interp,inst->cmdtok);
731 return TCL_OK;
732 }
733 cls_stack[cls_stack_top] = inst->classptr;
734 cls_stack_bi[cls_stack_top] = -1;
735 cls = inst->classptr;
736 while (1) {
737 bi = cls_stack_bi[cls_stack_top];
738 cls = cls_stack[cls_stack_top];
739 if (bi != -1) {
740 cls = cls->bases[bi];
741 if (cls) {
742 cls_stack_bi[cls_stack_top]++;
743 cls_stack_top++;
744 cls_stack[cls_stack_top] = cls;
745 cls_stack_bi[cls_stack_top] = -1;
746 continue;
747 }
748 }
749 if (!cls) {
750 cls_stack_top--;
751 if (cls_stack_top < 0) break;
752 else continue;
753 }
754 cls_stack_bi[cls_stack_top]++;
755
756 meth = cls->methods;
757 /* Check for methods */
758 while (meth && meth->name) {
759 if (strcmp(meth->name,method) == 0) {
760 oldarg = objv[1];
761 objv[1] = inst->thisptr;
762 Tcl_IncrRefCount(inst->thisptr);
763 rcode = (*meth->method)(clientData,interp,objc,objv);
764 objv[1] = oldarg;
765 Tcl_DecrRefCount(inst->thisptr);
766 return rcode;
767 }
768 meth++;
769 }
770 /* Check class methods for a match */
771 if (strcmp(method,"cget") == 0) {
772 if (objc < 3) {
773 Tcl_SetResult(interp, (char *) "wrong # args.", TCL_STATIC);
774 return TCL_ERROR;
775 }
776 attrname = Tcl_GetStringFromObj(objv[2],NULL);
777 attr = cls->attributes;
778 while (attr && attr->name) {
779 if ((strcmp(attr->name, attrname) == 0) && (attr->getmethod)) {
780 oldarg = objv[1];
781 objv[1] = inst->thisptr;
782 Tcl_IncrRefCount(inst->thisptr);
783 rcode = (*attr->getmethod)(clientData,interp,2, objv);
784 objv[1] = oldarg;
785 Tcl_DecrRefCount(inst->thisptr);
786 return rcode;
787 }
788 attr++;
789 }
790 if (strcmp(attrname, "-this") == 0) {
791 Tcl_SetObjResult(interp, Tcl_DuplicateObj(inst->thisptr));
792 return TCL_OK;
793 }
794 if (strcmp(attrname, "-thisown") == 0) {
795 if (SWIG_Thisown(inst->thisvalue)) {
796 Tcl_SetResult(interp,(char*)"1",TCL_STATIC);
797 } else {
798 Tcl_SetResult(interp,(char*)"",TCL_STATIC);
799 }
800 return TCL_OK;
801 }
802 } else if (strcmp(method, "configure") == 0) {
803 int i;
804 if (objc < 4) {
805 Tcl_SetResult(interp, (char *) "wrong # args.", TCL_STATIC);
806 return TCL_ERROR;
807 }
808 i = 2;
809 while (i < objc) {
810 attrname = Tcl_GetStringFromObj(objv[i],NULL);
811 attr = cls->attributes;
812 while (attr && attr->name) {
813 if ((strcmp(attr->name, attrname) == 0) && (attr->setmethod)) {
814 oldarg = objv[i];
815 objv[i] = inst->thisptr;
816 Tcl_IncrRefCount(inst->thisptr);
817 rcode = (*attr->setmethod)(clientData,interp,3, &objv[i-1]);
818 objv[i] = oldarg;
819 Tcl_DecrRefCount(inst->thisptr);
820 if (rcode != TCL_OK) return rcode;
821 numconf += 2;
822 }
823 attr++;
824 }
825 i+=2;
826 }
827 }
828 }
829 if (strcmp(method,"configure") == 0) {
830 if (numconf >= objc) {
831 return TCL_OK;
832 } else {
833 Tcl_SetResult(interp,(char *) "Invalid attribute name.", TCL_STATIC);
834 return TCL_ERROR;
835 }
836 }
837 if (strcmp(method,"cget") == 0) {
838 Tcl_SetResult(interp,(char *) "Invalid attribute name.", TCL_STATIC);
839 return TCL_ERROR;
840 }
841
842 Tcl_SetResult(interp, (char *) "Invalid method. Must be one of: configure cget -acquire -disown -delete", TCL_STATIC);
843 cls = inst->classptr;
844 bi = 0;
845 while (cls) {
846 meth = cls->methods;
847 while (meth && meth->name) {
848 char *cr = (char *) Tcl_GetStringResult(interp);
849 if (!strstr(strchr(cr,':'), meth->name))
850 Tcl_AppendElement(interp, (char *) meth->name);
851 meth++;
852 }
853 cls = inst->classptr->bases[bi++];
854 }
855 return TCL_ERROR;
856 }
857
858 /* Function to create objects */
859 SWIGRUNTIME(int)
860 SWIG_ObjectConstructor(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
861 {
862 Tcl_Obj *newObj = 0;
863 void *thisvalue = 0;
864 swig_instance *newinst = 0;
865 swig_class *classptr = (swig_class *) clientData;
866 swig_wrapper cons = 0;
867 char *name = 0;
868 int firstarg = 0;
869 int thisarg = 0;
870 int destroy = 1;
871
872 if (!classptr) {
873 Tcl_SetResult(interp, (char *) "swig: internal runtime error. No class object defined.", TCL_STATIC);
874 return TCL_ERROR;
875 }
876 cons = classptr->constructor;
877 if (objc > 1) {
878 char *s = Tcl_GetStringFromObj(objv[1],NULL);
879 if (strcmp(s,"-this") == 0) {
880 thisarg = 2;
881 cons = 0;
882 } else if (strcmp(s,"-args") == 0) {
883 firstarg = 1;
884 } else if (objc == 2) {
885 firstarg = 1;
886 name = s;
887 } else if (objc >= 3) {
888 char *s1;
889 name = s;
890 s1 = Tcl_GetStringFromObj(objv[2],NULL);
891 if (strcmp(s1,"-this") == 0) {
892 thisarg = 3;
893 cons = 0;
894 } else {
895 firstarg = 1;
896 }
897 }
898 }
899 if (cons) {
900 int result;
901 result = (*cons)(0, interp, objc-firstarg, &objv[firstarg]);
902 if (result != TCL_OK) {
903 return result;
904 }
905 newObj = Tcl_DuplicateObj(Tcl_GetObjResult(interp));
906 if (!name) name = Tcl_GetStringFromObj(newObj,NULL);
907 } else if (thisarg > 0) {
908 if (thisarg < objc) {
909 destroy = 0;
910 newObj = Tcl_DuplicateObj(objv[thisarg]);
911 if (!name) name = Tcl_GetStringFromObj(newObj,NULL);
912 } else {
913 Tcl_SetResult(interp, (char *) "wrong # args.", TCL_STATIC);
914 return TCL_ERROR;
915 }
916 } else {
917 Tcl_SetResult(interp, (char *) "No constructor available.", TCL_STATIC);
918 return TCL_ERROR;
919 }
920 if (SWIG_ConvertPtr(interp,newObj, (void **) &thisvalue, *(classptr->type), SWIG_POINTER_EXCEPTION) == TCL_ERROR) {
921 Tcl_DecrRefCount(newObj);
922 return TCL_ERROR;
923 }
924 newinst = (swig_instance *) malloc(sizeof(swig_instance));
925 newinst->thisptr = newObj;
926 Tcl_IncrRefCount(newObj);
927 newinst->thisvalue = thisvalue;
928 newinst->classptr = classptr;
929 newinst->destroy = destroy;
930 if (destroy) {
931 SWIG_Acquire(thisvalue);
932 }
933 newinst->cmdtok = Tcl_CreateObjCommand(interp,name, (swig_wrapper) SWIG_MethodCommand, (ClientData) newinst, (swig_delete_func) SWIG_ObjectDelete);
934 return TCL_OK;
935 }
936
937
938 /* This function takes the current result and turns it into an object command */
939 SWIGRUNTIME(Tcl_Obj *)
940 SWIG_NewInstanceObj(Tcl_Interp *interp, void *thisvalue, swig_type_info *type, int flags) {
941 Tcl_Obj *robj = SWIG_NewPointerObj(thisvalue, type,0);
942 /* Check to see if this pointer belongs to a class or not */
943 if ((type->clientdata) && (interp)) {
944 Tcl_CmdInfo ci;
945 char *name;
946 name = Tcl_GetStringFromObj(robj,NULL);
947 if (!Tcl_GetCommandInfo(interp,name, &ci) || (flags)) {
948 swig_instance *newinst = (swig_instance *) malloc(sizeof(swig_instance));
949 newinst->thisptr = Tcl_DuplicateObj(robj);
950 Tcl_IncrRefCount(newinst->thisptr);
951 newinst->thisvalue = thisvalue;
952 newinst->classptr = (swig_class *) type->clientdata;
953 newinst->destroy = flags;
954 newinst->cmdtok = Tcl_CreateObjCommand(interp, Tcl_GetStringFromObj(robj,NULL), (swig_wrapper_func) SWIG_MethodCommand, (ClientData) newinst, (swig_delete_func) SWIG_ObjectDelete);
955 if (flags) {
956 SWIG_Acquire(thisvalue);
957 }
958 }
959 }
960 return robj;
961 }
962
963 #endif
964
965 /* Structure for command table */
966 typedef struct {
967 const char *name;
968 int (*wrapper)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST []);
969 ClientData clientdata;
970 } swig_command_info;
971
972 /* Structure for variable linking table */
973 typedef struct {
974 const char *name;
975 void *addr;
976 char * (*get)(ClientData, Tcl_Interp *, char *, char *, int);
977 char * (*set)(ClientData, Tcl_Interp *, char *, char *, int);
978 } swig_var_info;
979
980 #ifdef __cplusplus
981 }
982 #endif
983
984
985
986
987
988
989 /* -------- TYPES TABLE (BEGIN) -------- */
990
991 #define SWIGTYPE_p_f___p_void swig_types[0]
992 #define SWIGTYPE_p_void swig_types[1]
993 #define SWIGTYPE_p_p_p_void swig_types[2]
994 #define SWIGTYPE_p_p_void swig_types[3]
995 #define SWIGTYPE_p_pwrte_gen swig_types[4]
996 #define SWIGTYPE_p_Pwrte_gen swig_types[5]
997 #define SWIGTYPE_p_f___void swig_types[6]
998 #define SWIGTYPE_p_p_unsigned_char swig_types[7]
999 #define SWIGTYPE_p_unsigned_char swig_types[8]
1000 #define SWIGTYPE_p_Sequence swig_types[9]
1001 #define SWIGTYPE_p_Point2 swig_types[10]
1002 #define SWIGTYPE_p_Hough1_peak swig_types[11]
1003 #define SWIGTYPE_p_Point3 swig_types[12]
1004 #define SWIGTYPE_p_list swig_types[13]
1005 #define SWIGTYPE_p_p_Spline swig_types[14]
1006 #define SWIGTYPE_p_Spline swig_types[15]
1007 #define SWIGTYPE_p_p_List swig_types[16]
1008 #define SWIGTYPE_p_List swig_types[17]
1009 #define SWIGTYPE_p_Mat swig_types[18]
1010 #define SWIGTYPE_p_Perfusion swig_types[19]
1011 #define SWIGTYPE_p_Parcam swig_types[20]
1012 #define SWIGTYPE_p_Edgel swig_types[21]
1013 #define SWIGTYPE_p_Conic3 swig_types[22]
1014 #define SWIGTYPE_p_a_2__float swig_types[23]
1015 #define SWIGTYPE_p_a_3__float swig_types[24]
1016 #define SWIGTYPE_p_a_4__float swig_types[25]
1017 #define SWIGTYPE_p_Match swig_types[26]
1018 #define SWIGTYPE_p_Viols_node swig_types[27]
1019 #define SWIGTYPE_p_Varptrptr swig_types[28]
1020 #define SWIGTYPE_p_varptrptr swig_types[29]
1021 #define SWIGTYPE_p_Ipos swig_types[30]
1022 #define SWIGTYPE_p_Plane swig_types[31]
1023 #define SWIGTYPE_p_Conic swig_types[32]
1024 #define SWIGTYPE_p_Tstring swig_types[33]
1025 #define SWIGTYPE_p_p_unsigned_int swig_types[34]
1026 #define SWIGTYPE_p_unsigned_int swig_types[35]
1027 #define SWIGTYPE_p_shistogram swig_types[36]
1028 #define SWIGTYPE_p_p_shistogram swig_types[37]
1029 #define SWIGTYPE_p_p_unsigned_short swig_types[38]
1030 #define SWIGTYPE_p_p_short swig_types[39]
1031 #define SWIGTYPE_p_short swig_types[40]
1032 #define SWIGTYPE_p_unsigned_short swig_types[41]
1033 #define SWIGTYPE_p_Br_imstack swig_types[42]
1034 #define SWIGTYPE_p_tree_node swig_types[43]
1035 #define SWIGTYPE_p_Tree_node swig_types[44]
1036 #define SWIGTYPE_p_p_float swig_types[45]
1037 #define SWIGTYPE_p_float swig_types[46]
1038 #define SWIGTYPE_p_camera swig_types[47]
1039 #define SWIGTYPE_p_p_Vec swig_types[48]
1040 #define SWIGTYPE_p_Vec swig_types[49]
1041 #define SWIGTYPE_p_p_Seqvoi swig_types[50]
1042 #define SWIGTYPE_p_Seqvoi swig_types[51]
1043 #define SWIGTYPE_p_Ucbs swig_types[52]
1044 #define SWIGTYPE_p_p_vram swig_types[53]
1045 #define SWIGTYPE_p_Scalar swig_types[54]
1046 #define SWIGTYPE_p_Vram swig_types[55]
1047 #define SWIGTYPE_p_Permiability swig_types[56]
1048 #define SWIGTYPE_p_String_match swig_types[57]
1049 #define SWIGTYPE_p_Transform2 swig_types[58]
1050 #define SWIGTYPE_p_Transform3 swig_types[59]
1051 #define SWIGTYPE_p_Prof1 swig_types[60]
1052 #define SWIGTYPE_p_Camera swig_types[61]
1053 #define SWIGTYPE_p_Support swig_types[62]
1054 #define SWIGTYPE_p_Cone swig_types[63]
1055 #define SWIGTYPE_p_Hough2_peak swig_types[64]
1056 #define SWIGTYPE_p_Match_cliche swig_types[65]
1057 #define SWIGTYPE_p_vector swig_types[66]
1058 #define SWIGTYPE_p_Pl_flow swig_types[67]
1059 #define SWIGTYPE_p_Pwrte swig_types[68]
1060 #define SWIGTYPE_p_Pos2 swig_types[69]
1061 #define SWIGTYPE_p_Pos3 swig_types[70]
1062 #define SWIGTYPE_p_Conic_stat swig_types[71]
1063 #define SWIGTYPE_p_edgel swig_types[72]
1064 #define SWIGTYPE_p_match swig_types[73]
1065 #define SWIGTYPE_p_Generic swig_types[74]
1066 #define SWIGTYPE_p_p_int swig_types[75]
1067 #define SWIGTYPE_p_int swig_types[76]
1068 #define SWIGTYPE_p_conic swig_types[77]
1069 #define SWIGTYPE_p_Vector swig_types[78]
1070 #define SWIGTYPE_p_mat2 swig_types[79]
1071 #define SWIGTYPE_p_mat3 swig_types[80]
1072 #define SWIGTYPE_p_p_tcomplex swig_types[81]
1073 #define SWIGTYPE_p_Complex swig_types[82]
1074 #define SWIGTYPE_p_tcomplex swig_types[83]
1075 #define SWIGTYPE_p_matrix swig_types[84]
1076 #define SWIGTYPE_p_Graph_node swig_types[85]
1077 #define SWIGTYPE_p_Mat2 swig_types[86]
1078 #define SWIGTYPE_p_Circ2 swig_types[87]
1079 #define SWIGTYPE_p_f___Bool swig_types[88]
1080 #define SWIGTYPE_p_Mat3 swig_types[89]
1081 #define SWIGTYPE_p_Mat4 swig_types[90]
1082 #define SWIGTYPE_p_f_void__double swig_types[91]
1083 #define SWIGTYPE_p_f_p_double_float_int__double swig_types[92]
1084 #define SWIGTYPE_p_f_p_shistogram_float__double swig_types[93]
1085 #define SWIGTYPE_p_f___double swig_types[94]
1086 #define SWIGTYPE_p_a_5__double swig_types[95]
1087 #define SWIGTYPE_p_p_p_double swig_types[96]
1088 #define SWIGTYPE_p_p_double swig_types[97]
1089 #define SWIGTYPE_p_double swig_types[98]
1090 #define SWIGTYPE_p_f_int_p_double_float__double swig_types[99]
1091 #define SWIGTYPE_p_p_Dpnode swig_types[100]
1092 #define SWIGTYPE_p_Dpnode swig_types[101]
1093 #define SWIGTYPE_p_vec2 swig_types[102]
1094 #define SWIGTYPE_p_vec3 swig_types[103]
1095 #define SWIGTYPE_p_f___p_Vec2 swig_types[104]
1096 #define SWIGTYPE_p_Vec2 swig_types[105]
1097 #define SWIGTYPE_p_Kwsnake swig_types[106]
1098 #define SWIGTYPE_p_f___p_Vec3 swig_types[107]
1099 #define SWIGTYPE_p_p_Vec3 swig_types[108]
1100 #define SWIGTYPE_p_Vec3 swig_types[109]
1101 #define SWIGTYPE_p_f___Vec2 swig_types[110]
1102 #define SWIGTYPE_p_Vec4 swig_types[111]
1103 #define SWIGTYPE_p_f___Vec3 swig_types[112]
1104 #define SWIGTYPE_p_p_Line2 swig_types[113]
1105 #define SWIGTYPE_p_Line2 swig_types[114]
1106 #define SWIGTYPE_p_Line3 swig_types[115]
1107 #define SWIGTYPE_p_Ucbs2 swig_types[116]
1108 #define SWIGTYPE_p_Ucbs3 swig_types[117]
1109 #define SWIGTYPE_p_unsigned_long swig_types[118]
1110 #define SWIGTYPE_p_Rindex swig_types[119]
1111 #define SWIGTYPE_p_p_Matrix swig_types[120]
1112 #define SWIGTYPE_p_Matrix swig_types[121]
1113 #define SWIGTYPE_p_f___Imregion swig_types[122]
1114 #define SWIGTYPE_p_Hough2_region swig_types[123]
1115 #define SWIGTYPE_p_Hough_region swig_types[124]
1116 #define SWIGTYPE_p_imregion swig_types[125]
1117 #define SWIGTYPE_p_Imregion swig_types[126]
1118 #define SWIGTYPE_p_Ivec swig_types[127]
1119 #define SWIGTYPE_p_Terrain_data swig_types[128]
1120 #define SWIGTYPE_p_pwrte_vec_to_vec swig_types[129]
1121 #define SWIGTYPE_p_pwrte_point_to_vec swig_types[130]
1122 #define SWIGTYPE_p_Pwrte_vec_to_vec swig_types[131]
1123 #define SWIGTYPE_p_Pwrte_point_to_vec swig_types[132]
1124 #define SWIGTYPE_p_Windex swig_types[133]
1125 #define SWIGTYPE_p_Prop_def swig_types[134]
1126 #define SWIGTYPE_p_f___int swig_types[135]
1127 #define SWIGTYPE_p_pwrte_point_to_point swig_types[136]
1128 #define SWIGTYPE_p_Pwrte_point_to_point swig_types[137]
1129 #define SWIGTYPE_p_p_Seqslice swig_types[138]
1130 #define SWIGTYPE_p_Seqslice swig_types[139]
1131 #define SWIGTYPE_p_Ics2 swig_types[140]
1132 #define SWIGTYPE_p_Iso_error swig_types[141]
1133 #define SWIGTYPE_p_FILE swig_types[142]
1134 #define SWIGTYPE_p_Prop swig_types[143]
1135 #define SWIGTYPE_p_Transf3 swig_types[144]
1136 #define SWIGTYPE_p_Edge_conn swig_types[145]
1137 #define SWIGTYPE_p_conic3 swig_types[146]
1138 #define SWIGTYPE_p_Match_clique swig_types[147]
1139 #define SWIGTYPE_p_bin_node swig_types[148]
1140 #define SWIGTYPE_p_Bin_node swig_types[149]
1141 #define SWIGTYPE_p_p_char swig_types[150]
1142 #define SWIGTYPE_p_Covar swig_types[151]
1143 #define SWIGTYPE_p_Pair swig_types[152]
1144 #define SWIGTYPE_p_Mixmodel swig_types[153]
1145 #define SWIGTYPE_p_Varptr swig_types[154]
1146 #define SWIGTYPE_p_p_Spline2 swig_types[155]
1147 #define SWIGTYPE_p_Spline2 swig_types[156]
1148 #define SWIGTYPE_p_p_Imrect swig_types[157]
1149 #define SWIGTYPE_p_Imrect swig_types[158]
1150 static swig_type_info *swig_types[160];
1151
1152 /* -------- TYPES TABLE (END) -------- */
1153
1154 #define SWIG_init Tina_Init
1155 #define SWIG_name "tina"
1156 #define SWIG_prefix ""
1157 #define SWIG_version "0.0"
1158
1159
1160 #ifdef __cplusplus
1161 extern "C" {
1162 #endif
1163 #ifdef MAC_TCL
1164 #pragma export on
1165 #endif
1166 SWIGEXPORT(int) SWIG_init(Tcl_Interp *);
1167 #ifdef MAC_TCL
1168 #pragma export off
1169 #endif
1170 #ifdef __cplusplus
1171 }
1172 #endif
1173
1174
1175
1176 #include <tina/image/imgDef.h>
1177 #include <tina/image/imgPro.h>
1178
1179
1180 #include <tina/math/mathDef.h>
1181 #include <tina/math/mathPro.h>
1182
1183
1184 #include <tina/geometry/geomDef.h>
1185 #include <tina/geometry/geomPro.h>
1186
1187
1188 #include <tina/file/fileDef.h>
1189 #include <tina/file/filePro.h>
1190
1191
1192 #include <tina/vision/visDef.h>
1193 #include <tina/vision/visPro.h>
1194
1195
1196 #include <tina/medical/medDef.h>
1197 #include <tina/medical/medPro.h>
1198
1199
1200
1201 /* A TCL_AppInit() function that lets you build a new copy
1202 * of tclsh.
1203 *
1204 * The macro SWIG_init contains the name of the initialization
1205 * function in the wrapper file.
1206 */
1207
1208 #ifndef SWIG_RcFileName
1209 char *SWIG_RcFileName = "~/.myapprc";
1210 #endif
1211
1212
1213 #ifdef MAC_TCL
1214 extern int MacintoshInit _ANSI_ARGS_((void));
1215 #endif
1216
1217 int Tcl_AppInit(Tcl_Interp *interp){
1218
1219 if (Tcl_Init(interp) == TCL_ERROR)
1220 return TCL_ERROR;
1221
1222 /* Now initialize our functions */
1223
1224 if (SWIG_init(interp) == TCL_ERROR)
1225 return TCL_ERROR;
1226 #if TCL_MAJOR_VERSION > 7 || TCL_MAJOR_VERSION == 7 && TCL_MINOR_VERSION >= 5
1227 Tcl_SetVar(interp, (char *) "tcl_rcFileName",SWIG_RcFileName,TCL_GLOBAL_ONLY);
1228 #else
1229 tcl_RcFileName = SWIG_RcFileName;
1230 #endif
1231 #ifdef SWIG_RcRsrcName
1232 Tcl_SetVar(interp, (char *) "tcl_rcRsrcName",SWIG_RcRsrcName,TCL_GLOBAL);
1233 #endif
1234
1235 return TCL_OK;
1236 }
1237
1238 #if TCL_MAJOR_VERSION > 7 || TCL_MAJOR_VERSION == 7 && TCL_MINOR_VERSION >= 4
1239 int main(int argc, char **argv) {
1240 #ifdef MAC_TCL
1241 char *newArgv[2];
1242
1243 if (MacintoshInit() != TCL_OK) {
1244 Tcl_Exit(1);
1245 }
1246
1247 argc = 1;
1248 newArgv[0] = "tclsh";
1249 newArgv[1] = NULL;
1250 argv = newArgv;
1251 #endif
1252
1253 Tcl_Main(argc, argv, Tcl_AppInit);
1254 return(0);
1255
1256 }
1257 #else
1258 extern int main();
1259 #endif
1260
1261
1262 #ifdef __cplusplus
1263 extern "C" {
1264 #endif
1265 static int
1266 _wrap_tinaComplex_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1267 Complex *arg1 = (Complex *) 0 ;
1268 int arg2 ;
1269
1270 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaComplex_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
1271 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Complex,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1272 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
1273
1274
1275 return TCL_OK;
1276 fail:
1277 return TCL_ERROR;
1278 }
1279
1280
1281 static int
1282 _wrap_tinaComplex_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1283 Complex *arg1 = (Complex *) 0 ;
1284 int result;
1285
1286 if (SWIG_GetArgs(interp, objc, objv,"o:tinaComplex_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
1287 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Complex,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1288 result = (int) ((arg1)->ts_id);
1289
1290 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
1291 return TCL_OK;
1292 fail:
1293 return TCL_ERROR;
1294 }
1295
1296
1297 static int
1298 _wrap_tinaComplex_x_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1299 Complex *arg1 = (Complex *) 0 ;
1300 double arg2 ;
1301
1302 if (SWIG_GetArgs(interp, objc, objv,"od:tinaComplex_x_set self x ",0,&arg2) == TCL_ERROR) SWIG_fail;
1303 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Complex,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1304 if (arg1) (arg1)->x = arg2;
1305
1306
1307 return TCL_OK;
1308 fail:
1309 return TCL_ERROR;
1310 }
1311
1312
1313 static int
1314 _wrap_tinaComplex_x_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1315 Complex *arg1 = (Complex *) 0 ;
1316 double result;
1317
1318 if (SWIG_GetArgs(interp, objc, objv,"o:tinaComplex_x_get self ",0) == TCL_ERROR) SWIG_fail;
1319 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Complex,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1320 result = (double) ((arg1)->x);
1321
1322 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
1323 return TCL_OK;
1324 fail:
1325 return TCL_ERROR;
1326 }
1327
1328
1329 static int
1330 _wrap_tinaComplex_y_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1331 Complex *arg1 = (Complex *) 0 ;
1332 double arg2 ;
1333
1334 if (SWIG_GetArgs(interp, objc, objv,"od:tinaComplex_y_set self y ",0,&arg2) == TCL_ERROR) SWIG_fail;
1335 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Complex,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1336 if (arg1) (arg1)->y = arg2;
1337
1338
1339 return TCL_OK;
1340 fail:
1341 return TCL_ERROR;
1342 }
1343
1344
1345 static int
1346 _wrap_tinaComplex_y_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1347 Complex *arg1 = (Complex *) 0 ;
1348 double result;
1349
1350 if (SWIG_GetArgs(interp, objc, objv,"o:tinaComplex_y_get self ",0) == TCL_ERROR) SWIG_fail;
1351 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Complex,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1352 result = (double) ((arg1)->y);
1353
1354 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
1355 return TCL_OK;
1356 fail:
1357 return TCL_ERROR;
1358 }
1359
1360
1361 static int
1362 _wrap_new_tinaComplex(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1363 Complex *result;
1364
1365 if (SWIG_GetArgs(interp, objc, objv,":new_tinaComplex ") == TCL_ERROR) SWIG_fail;
1366 result = (Complex *)(Complex *) calloc(1, sizeof(Complex));
1367
1368 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Complex,0));
1369 return TCL_OK;
1370 fail:
1371 return TCL_ERROR;
1372 }
1373
1374
1375 static int
1376 _wrap_delete_tinaComplex(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1377 Complex *arg1 = (Complex *) 0 ;
1378
1379 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaComplex self ",0) == TCL_ERROR) SWIG_fail;
1380 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Complex,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1381 free((char *) arg1);
1382
1383
1384 return TCL_OK;
1385 fail:
1386 return TCL_ERROR;
1387 }
1388
1389
1390 static void swig_delete_tinaComplex(void *obj) {
1391 Complex *arg1 = (Complex *) obj;
1392 free((char *) arg1);
1393 }
1394 static swig_method swig_Complex_methods[] = {
1395 {0,0}
1396 };
1397 static swig_attribute swig_Complex_attributes[] = {
1398 { "-tinaTsId",_wrap_tinaComplex_tinaTsId_get, _wrap_tinaComplex_tinaTsId_set},
1399 { "-x",_wrap_tinaComplex_x_get, _wrap_tinaComplex_x_set},
1400 { "-y",_wrap_tinaComplex_y_get, _wrap_tinaComplex_y_set},
1401 {0,0,0}
1402 };
1403 static swig_class *swig_Complex_bases[] = {0};
1404 swig_class _wrap_class_Complex = { "tinaComplex", &SWIGTYPE_p_Complex,_wrap_new_tinaComplex, swig_delete_tinaComplex, swig_Complex_methods, swig_Complex_attributes, swig_Complex_bases };
1405 static int
1406 _wrap_tinaVram_vram0_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1407 Vram *arg1 = (Vram *) 0 ;
1408 unsigned char arg2 ;
1409
1410 if (SWIG_GetArgs(interp, objc, objv,"ob:tinaVram_vram0_set self vram0 ",0,&arg2) == TCL_ERROR) SWIG_fail;
1411 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1412 if (arg1) (arg1)->vram0 = arg2;
1413
1414
1415 return TCL_OK;
1416 fail:
1417 return TCL_ERROR;
1418 }
1419
1420
1421 static int
1422 _wrap_tinaVram_vram0_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1423 Vram *arg1 = (Vram *) 0 ;
1424 unsigned char result;
1425
1426 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVram_vram0_get self ",0) == TCL_ERROR) SWIG_fail;
1427 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1428 result = (unsigned char) ((arg1)->vram0);
1429
1430 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
1431 return TCL_OK;
1432 fail:
1433 return TCL_ERROR;
1434 }
1435
1436
1437 static int
1438 _wrap_tinaVram_vram1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1439 Vram *arg1 = (Vram *) 0 ;
1440 unsigned char arg2 ;
1441
1442 if (SWIG_GetArgs(interp, objc, objv,"ob:tinaVram_vram1_set self vram1 ",0,&arg2) == TCL_ERROR) SWIG_fail;
1443 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1444 if (arg1) (arg1)->vram1 = arg2;
1445
1446
1447 return TCL_OK;
1448 fail:
1449 return TCL_ERROR;
1450 }
1451
1452
1453 static int
1454 _wrap_tinaVram_vram1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1455 Vram *arg1 = (Vram *) 0 ;
1456 unsigned char result;
1457
1458 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVram_vram1_get self ",0) == TCL_ERROR) SWIG_fail;
1459 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1460 result = (unsigned char) ((arg1)->vram1);
1461
1462 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
1463 return TCL_OK;
1464 fail:
1465 return TCL_ERROR;
1466 }
1467
1468
1469 static int
1470 _wrap_tinaVram_vram2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1471 Vram *arg1 = (Vram *) 0 ;
1472 unsigned char arg2 ;
1473
1474 if (SWIG_GetArgs(interp, objc, objv,"ob:tinaVram_vram2_set self vram2 ",0,&arg2) == TCL_ERROR) SWIG_fail;
1475 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1476 if (arg1) (arg1)->vram2 = arg2;
1477
1478
1479 return TCL_OK;
1480 fail:
1481 return TCL_ERROR;
1482 }
1483
1484
1485 static int
1486 _wrap_tinaVram_vram2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1487 Vram *arg1 = (Vram *) 0 ;
1488 unsigned char result;
1489
1490 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVram_vram2_get self ",0) == TCL_ERROR) SWIG_fail;
1491 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1492 result = (unsigned char) ((arg1)->vram2);
1493
1494 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
1495 return TCL_OK;
1496 fail:
1497 return TCL_ERROR;
1498 }
1499
1500
1501 static int
1502 _wrap_tinaVram_vram3_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1503 Vram *arg1 = (Vram *) 0 ;
1504 unsigned char arg2 ;
1505
1506 if (SWIG_GetArgs(interp, objc, objv,"ob:tinaVram_vram3_set self vram3 ",0,&arg2) == TCL_ERROR) SWIG_fail;
1507 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1508 if (arg1) (arg1)->vram3 = arg2;
1509
1510
1511 return TCL_OK;
1512 fail:
1513 return TCL_ERROR;
1514 }
1515
1516
1517 static int
1518 _wrap_tinaVram_vram3_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1519 Vram *arg1 = (Vram *) 0 ;
1520 unsigned char result;
1521
1522 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVram_vram3_get self ",0) == TCL_ERROR) SWIG_fail;
1523 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1524 result = (unsigned char) ((arg1)->vram3);
1525
1526 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
1527 return TCL_OK;
1528 fail:
1529 return TCL_ERROR;
1530 }
1531
1532
1533 static int
1534 _wrap_new_tinaVram(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1535 Vram *result;
1536
1537 if (SWIG_GetArgs(interp, objc, objv,":new_tinaVram ") == TCL_ERROR) SWIG_fail;
1538 result = (Vram *)(Vram *) calloc(1, sizeof(Vram));
1539
1540 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Vram,0));
1541 return TCL_OK;
1542 fail:
1543 return TCL_ERROR;
1544 }
1545
1546
1547 static int
1548 _wrap_delete_tinaVram(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1549 Vram *arg1 = (Vram *) 0 ;
1550
1551 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaVram self ",0) == TCL_ERROR) SWIG_fail;
1552 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1553 free((char *) arg1);
1554
1555
1556 return TCL_OK;
1557 fail:
1558 return TCL_ERROR;
1559 }
1560
1561
1562 static void swig_delete_tinaVram(void *obj) {
1563 Vram *arg1 = (Vram *) obj;
1564 free((char *) arg1);
1565 }
1566 static swig_method swig_Vram_methods[] = {
1567 {0,0}
1568 };
1569 static swig_attribute swig_Vram_attributes[] = {
1570 { "-vram0",_wrap_tinaVram_vram0_get, _wrap_tinaVram_vram0_set},
1571 { "-vram1",_wrap_tinaVram_vram1_get, _wrap_tinaVram_vram1_set},
1572 { "-vram2",_wrap_tinaVram_vram2_get, _wrap_tinaVram_vram2_set},
1573 { "-vram3",_wrap_tinaVram_vram3_get, _wrap_tinaVram_vram3_set},
1574 {0,0,0}
1575 };
1576 static swig_class *swig_Vram_bases[] = {0};
1577 swig_class _wrap_class_Vram = { "tinaVram", &SWIGTYPE_p_Vram,_wrap_new_tinaVram, swig_delete_tinaVram, swig_Vram_methods, swig_Vram_attributes, swig_Vram_bases };
1578 static int
1579 _wrap_tinaVarptr_char_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1580 Varptr *arg1 = (Varptr *) 0 ;
1581 char *arg2 ;
1582
1583 if (SWIG_GetArgs(interp, objc, objv,"os:tinaVarptr_char_v_set self char_v ",0,&arg2) == TCL_ERROR) SWIG_fail;
1584 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1585 {
1586 if (arg1->char_v) free((char*)arg1->char_v);
1587 if (arg2) {
1588 arg1->char_v = (char *) malloc(strlen(arg2)+1);
1589 strcpy((char*)arg1->char_v,arg2);
1590 }else {
1591 arg1->char_v = 0;
1592 }
1593 }
1594
1595 return TCL_OK;
1596 fail:
1597 return TCL_ERROR;
1598 }
1599
1600
1601 static int
1602 _wrap_tinaVarptr_char_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1603 Varptr *arg1 = (Varptr *) 0 ;
1604 char *result;
1605
1606 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptr_char_v_get self ",0) == TCL_ERROR) SWIG_fail;
1607 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1608 result = (char *) ((arg1)->char_v);
1609
1610 Tcl_SetObjResult(interp,Tcl_NewStringObj(result,-1));
1611 return TCL_OK;
1612 fail:
1613 return TCL_ERROR;
1614 }
1615
1616
1617 static int
1618 _wrap_tinaVarptr_uchar_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1619 Varptr *arg1 = (Varptr *) 0 ;
1620 unsigned char *arg2 = (unsigned char *) 0 ;
1621
1622 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptr_uchar_v_set self uchar_v ",0,0) == TCL_ERROR) SWIG_fail;
1623 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1624 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_unsigned_char,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
1625 if (arg1) (arg1)->uchar_v = arg2;
1626
1627
1628 return TCL_OK;
1629 fail:
1630 return TCL_ERROR;
1631 }
1632
1633
1634 static int
1635 _wrap_tinaVarptr_uchar_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1636 Varptr *arg1 = (Varptr *) 0 ;
1637 unsigned char *result;
1638
1639 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptr_uchar_v_get self ",0) == TCL_ERROR) SWIG_fail;
1640 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1641 result = (unsigned char *) ((arg1)->uchar_v);
1642
1643 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_unsigned_char,0));
1644 return TCL_OK;
1645 fail:
1646 return TCL_ERROR;
1647 }
1648
1649
1650 static int
1651 _wrap_tinaVarptr_short_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1652 Varptr *arg1 = (Varptr *) 0 ;
1653 short *arg2 = (short *) 0 ;
1654
1655 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptr_short_v_set self short_v ",0,0) == TCL_ERROR) SWIG_fail;
1656 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1657 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_short,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
1658 if (arg1) (arg1)->short_v = arg2;
1659
1660
1661 return TCL_OK;
1662 fail:
1663 return TCL_ERROR;
1664 }
1665
1666
1667 static int
1668 _wrap_tinaVarptr_short_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1669 Varptr *arg1 = (Varptr *) 0 ;
1670 short *result;
1671
1672 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptr_short_v_get self ",0) == TCL_ERROR) SWIG_fail;
1673 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1674 result = (short *) ((arg1)->short_v);
1675
1676 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_short,0));
1677 return TCL_OK;
1678 fail:
1679 return TCL_ERROR;
1680 }
1681
1682
1683 static int
1684 _wrap_tinaVarptr_ushort_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1685 Varptr *arg1 = (Varptr *) 0 ;
1686 unsigned short *arg2 = (unsigned short *) 0 ;
1687
1688 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptr_ushort_v_set self ushort_v ",0,0) == TCL_ERROR) SWIG_fail;
1689 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1690 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_unsigned_short,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
1691 if (arg1) (arg1)->ushort_v = arg2;
1692
1693
1694 return TCL_OK;
1695 fail:
1696 return TCL_ERROR;
1697 }
1698
1699
1700 static int
1701 _wrap_tinaVarptr_ushort_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1702 Varptr *arg1 = (Varptr *) 0 ;
1703 unsigned short *result;
1704
1705 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptr_ushort_v_get self ",0) == TCL_ERROR) SWIG_fail;
1706 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1707 result = (unsigned short *) ((arg1)->ushort_v);
1708
1709 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_unsigned_short,0));
1710 return TCL_OK;
1711 fail:
1712 return TCL_ERROR;
1713 }
1714
1715
1716 static int
1717 _wrap_tinaVarptr_int_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1718 Varptr *arg1 = (Varptr *) 0 ;
1719 int *arg2 = (int *) 0 ;
1720
1721 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptr_int_v_set self int_v ",0,0) == TCL_ERROR) SWIG_fail;
1722 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1723 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_int,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
1724 if (arg1) (arg1)->int_v = arg2;
1725
1726
1727 return TCL_OK;
1728 fail:
1729 return TCL_ERROR;
1730 }
1731
1732
1733 static int
1734 _wrap_tinaVarptr_int_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1735 Varptr *arg1 = (Varptr *) 0 ;
1736 int *result;
1737
1738 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptr_int_v_get self ",0) == TCL_ERROR) SWIG_fail;
1739 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1740 result = (int *) ((arg1)->int_v);
1741
1742 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_int,0));
1743 return TCL_OK;
1744 fail:
1745 return TCL_ERROR;
1746 }
1747
1748
1749 static int
1750 _wrap_tinaVarptr_uint_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1751 Varptr *arg1 = (Varptr *) 0 ;
1752 unsigned int *arg2 = (unsigned int *) 0 ;
1753
1754 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptr_uint_v_set self uint_v ",0,0) == TCL_ERROR) SWIG_fail;
1755 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1756 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_unsigned_int,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
1757 if (arg1) (arg1)->uint_v = arg2;
1758
1759
1760 return TCL_OK;
1761 fail:
1762 return TCL_ERROR;
1763 }
1764
1765
1766 static int
1767 _wrap_tinaVarptr_uint_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1768 Varptr *arg1 = (Varptr *) 0 ;
1769 unsigned int *result;
1770
1771 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptr_uint_v_get self ",0) == TCL_ERROR) SWIG_fail;
1772 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1773 result = (unsigned int *) ((arg1)->uint_v);
1774
1775 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_unsigned_int,0));
1776 return TCL_OK;
1777 fail:
1778 return TCL_ERROR;
1779 }
1780
1781
1782 static int
1783 _wrap_tinaVarptr_float_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1784 Varptr *arg1 = (Varptr *) 0 ;
1785 float *arg2 = (float *) 0 ;
1786
1787 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptr_float_v_set self float_v ",0,0) == TCL_ERROR) SWIG_fail;
1788 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1789 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_float,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
1790 if (arg1) (arg1)->float_v = arg2;
1791
1792
1793 return TCL_OK;
1794 fail:
1795 return TCL_ERROR;
1796 }
1797
1798
1799 static int
1800 _wrap_tinaVarptr_float_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1801 Varptr *arg1 = (Varptr *) 0 ;
1802 float *result;
1803
1804 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptr_float_v_get self ",0) == TCL_ERROR) SWIG_fail;
1805 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1806 result = (float *) ((arg1)->float_v);
1807
1808 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_float,0));
1809 return TCL_OK;
1810 fail:
1811 return TCL_ERROR;
1812 }
1813
1814
1815 static int
1816 _wrap_tinaVarptr_double_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1817 Varptr *arg1 = (Varptr *) 0 ;
1818 double *arg2 = (double *) 0 ;
1819
1820 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptr_double_v_set self double_v ",0,0) == TCL_ERROR) SWIG_fail;
1821 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1822 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_double,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
1823 if (arg1) (arg1)->double_v = arg2;
1824
1825
1826 return TCL_OK;
1827 fail:
1828 return TCL_ERROR;
1829 }
1830
1831
1832 static int
1833 _wrap_tinaVarptr_double_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1834 Varptr *arg1 = (Varptr *) 0 ;
1835 double *result;
1836
1837 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptr_double_v_get self ",0) == TCL_ERROR) SWIG_fail;
1838 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1839 result = (double *) ((arg1)->double_v);
1840
1841 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_double,0));
1842 return TCL_OK;
1843 fail:
1844 return TCL_ERROR;
1845 }
1846
1847
1848 static int
1849 _wrap_tinaVarptr_complex_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1850 Varptr *arg1 = (Varptr *) 0 ;
1851 struct tcomplex *arg2 = (struct tcomplex *) 0 ;
1852
1853 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptr_complex_v_set self complex_v ",0,0) == TCL_ERROR) SWIG_fail;
1854 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1855 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_tcomplex,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
1856 if (arg1) (arg1)->complex_v = arg2;
1857
1858
1859 return TCL_OK;
1860 fail:
1861 return TCL_ERROR;
1862 }
1863
1864
1865 static int
1866 _wrap_tinaVarptr_complex_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1867 Varptr *arg1 = (Varptr *) 0 ;
1868 struct tcomplex *result;
1869
1870 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptr_complex_v_get self ",0) == TCL_ERROR) SWIG_fail;
1871 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1872 result = (struct tcomplex *) ((arg1)->complex_v);
1873
1874 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_tcomplex,0));
1875 return TCL_OK;
1876 fail:
1877 return TCL_ERROR;
1878 }
1879
1880
1881 static int
1882 _wrap_tinaVarptr_ptr_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1883 Varptr *arg1 = (Varptr *) 0 ;
1884 void **arg2 = (void **) 0 ;
1885
1886 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptr_ptr_v_set self ptr_v ",0,0) == TCL_ERROR) SWIG_fail;
1887 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1888 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_void,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1889 if (arg1) (arg1)->ptr_v = arg2;
1890
1891
1892 return TCL_OK;
1893 fail:
1894 return TCL_ERROR;
1895 }
1896
1897
1898 static int
1899 _wrap_tinaVarptr_ptr_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1900 Varptr *arg1 = (Varptr *) 0 ;
1901 void **result;
1902
1903 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptr_ptr_v_get self ",0) == TCL_ERROR) SWIG_fail;
1904 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1905 result = (void **) ((arg1)->ptr_v);
1906
1907 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_void,0));
1908 return TCL_OK;
1909 fail:
1910 return TCL_ERROR;
1911 }
1912
1913
1914 static int
1915 _wrap_new_tinaVarptr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1916 Varptr *result;
1917
1918 if (SWIG_GetArgs(interp, objc, objv,":new_tinaVarptr ") == TCL_ERROR) SWIG_fail;
1919 result = (Varptr *)(Varptr *) calloc(1, sizeof(Varptr));
1920
1921 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Varptr,0));
1922 return TCL_OK;
1923 fail:
1924 return TCL_ERROR;
1925 }
1926
1927
1928 static int
1929 _wrap_delete_tinaVarptr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1930 Varptr *arg1 = (Varptr *) 0 ;
1931
1932 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaVarptr self ",0) == TCL_ERROR) SWIG_fail;
1933 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1934 free((char *) arg1);
1935
1936
1937 return TCL_OK;
1938 fail:
1939 return TCL_ERROR;
1940 }
1941
1942
1943 static void swig_delete_tinaVarptr(void *obj) {
1944 Varptr *arg1 = (Varptr *) obj;
1945 free((char *) arg1);
1946 }
1947 static swig_method swig_Varptr_methods[] = {
1948 {0,0}
1949 };
1950 static swig_attribute swig_Varptr_attributes[] = {
1951 { "-char_v",_wrap_tinaVarptr_char_v_get, _wrap_tinaVarptr_char_v_set},
1952 { "-uchar_v",_wrap_tinaVarptr_uchar_v_get, _wrap_tinaVarptr_uchar_v_set},
1953 { "-short_v",_wrap_tinaVarptr_short_v_get, _wrap_tinaVarptr_short_v_set},
1954 { "-ushort_v",_wrap_tinaVarptr_ushort_v_get, _wrap_tinaVarptr_ushort_v_set},
1955 { "-int_v",_wrap_tinaVarptr_int_v_get, _wrap_tinaVarptr_int_v_set},
1956 { "-uint_v",_wrap_tinaVarptr_uint_v_get, _wrap_tinaVarptr_uint_v_set},
1957 { "-float_v",_wrap_tinaVarptr_float_v_get, _wrap_tinaVarptr_float_v_set},
1958 { "-double_v",_wrap_tinaVarptr_double_v_get, _wrap_tinaVarptr_double_v_set},
1959 { "-complex_v",_wrap_tinaVarptr_complex_v_get, _wrap_tinaVarptr_complex_v_set},
1960 { "-ptr_v",_wrap_tinaVarptr_ptr_v_get, _wrap_tinaVarptr_ptr_v_set},
1961 {0,0,0}
1962 };
1963 static swig_class *swig_Varptr_bases[] = {0};
1964 swig_class _wrap_class_Varptr = { "tinaVarptr", &SWIGTYPE_p_Varptr,_wrap_new_tinaVarptr, swig_delete_tinaVarptr, swig_Varptr_methods, swig_Varptr_attributes, swig_Varptr_bases };
1965 static int
1966 _wrap_tinaVarptrptr_char_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1967 Varptrptr *arg1 = (Varptrptr *) 0 ;
1968 char **arg2 = (char **) 0 ;
1969
1970 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_char_v_set self char_v ",0,0) == TCL_ERROR) SWIG_fail;
1971 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1972 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_char,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1973 if (arg1) (arg1)->char_v = arg2;
1974
1975
1976 return TCL_OK;
1977 fail:
1978 return TCL_ERROR;
1979 }
1980
1981
1982 static int
1983 _wrap_tinaVarptrptr_char_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1984 Varptrptr *arg1 = (Varptrptr *) 0 ;
1985 char **result;
1986
1987 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_char_v_get self ",0) == TCL_ERROR) SWIG_fail;
1988 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1989 result = (char **) ((arg1)->char_v);
1990
1991 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_char,0));
1992 return TCL_OK;
1993 fail:
1994 return TCL_ERROR;
1995 }
1996
1997
1998 static int
1999 _wrap_tinaVarptrptr_uchar_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2000 Varptrptr *arg1 = (Varptrptr *) 0 ;
2001 unsigned char **arg2 = (unsigned char **) 0 ;
2002
2003 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_uchar_v_set self uchar_v ",0,0) == TCL_ERROR) SWIG_fail;
2004 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2005 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_unsigned_char,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2006 if (arg1) (arg1)->uchar_v = arg2;
2007
2008
2009 return TCL_OK;
2010 fail:
2011 return TCL_ERROR;
2012 }
2013
2014
2015 static int
2016 _wrap_tinaVarptrptr_uchar_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2017 Varptrptr *arg1 = (Varptrptr *) 0 ;
2018 unsigned char **result;
2019
2020 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_uchar_v_get self ",0) == TCL_ERROR) SWIG_fail;
2021 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2022 result = (unsigned char **) ((arg1)->uchar_v);
2023
2024 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_unsigned_char,0));
2025 return TCL_OK;
2026 fail:
2027 return TCL_ERROR;
2028 }
2029
2030
2031 static int
2032 _wrap_tinaVarptrptr_short_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2033 Varptrptr *arg1 = (Varptrptr *) 0 ;
2034 short **arg2 = (short **) 0 ;
2035
2036 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_short_v_set self short_v ",0,0) == TCL_ERROR) SWIG_fail;
2037 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2038 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_short,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2039 if (arg1) (arg1)->short_v = arg2;
2040
2041
2042 return TCL_OK;
2043 fail:
2044 return TCL_ERROR;
2045 }
2046
2047
2048 static int
2049 _wrap_tinaVarptrptr_short_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2050 Varptrptr *arg1 = (Varptrptr *) 0 ;
2051 short **result;
2052
2053 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_short_v_get self ",0) == TCL_ERROR) SWIG_fail;
2054 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2055 result = (short **) ((arg1)->short_v);
2056
2057 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_short,0));
2058 return TCL_OK;
2059 fail:
2060 return TCL_ERROR;
2061 }
2062
2063
2064 static int
2065 _wrap_tinaVarptrptr_ushort_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2066 Varptrptr *arg1 = (Varptrptr *) 0 ;
2067 unsigned short **arg2 = (unsigned short **) 0 ;
2068
2069 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_ushort_v_set self ushort_v ",0,0) == TCL_ERROR) SWIG_fail;
2070 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2071 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_unsigned_short,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2072 if (arg1) (arg1)->ushort_v = arg2;
2073
2074
2075 return TCL_OK;
2076 fail:
2077 return TCL_ERROR;
2078 }
2079
2080
2081 static int
2082 _wrap_tinaVarptrptr_ushort_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2083 Varptrptr *arg1 = (Varptrptr *) 0 ;
2084 unsigned short **result;
2085
2086 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_ushort_v_get self ",0) == TCL_ERROR) SWIG_fail;
2087 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2088 result = (unsigned short **) ((arg1)->ushort_v);
2089
2090 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_unsigned_short,0));
2091 return TCL_OK;
2092 fail:
2093 return TCL_ERROR;
2094 }
2095
2096
2097 static int
2098 _wrap_tinaVarptrptr_int_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2099 Varptrptr *arg1 = (Varptrptr *) 0 ;
2100 int **arg2 = (int **) 0 ;
2101
2102 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_int_v_set self int_v ",0,0) == TCL_ERROR) SWIG_fail;
2103 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2104 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_int,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2105 if (arg1) (arg1)->int_v = arg2;
2106
2107
2108 return TCL_OK;
2109 fail:
2110 return TCL_ERROR;
2111 }
2112
2113
2114 static int
2115 _wrap_tinaVarptrptr_int_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2116 Varptrptr *arg1 = (Varptrptr *) 0 ;
2117 int **result;
2118
2119 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_int_v_get self ",0) == TCL_ERROR) SWIG_fail;
2120 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2121 result = (int **) ((arg1)->int_v);
2122
2123 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_int,0));
2124 return TCL_OK;
2125 fail:
2126 return TCL_ERROR;
2127 }
2128
2129
2130 static int
2131 _wrap_tinaVarptrptr_uint_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2132 Varptrptr *arg1 = (Varptrptr *) 0 ;
2133 unsigned int **arg2 = (unsigned int **) 0 ;
2134
2135 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_uint_v_set self uint_v ",0,0) == TCL_ERROR) SWIG_fail;
2136 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2137 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_unsigned_int,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2138 if (arg1) (arg1)->uint_v = arg2;
2139
2140
2141 return TCL_OK;
2142 fail:
2143 return TCL_ERROR;
2144 }
2145
2146
2147 static int
2148 _wrap_tinaVarptrptr_uint_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2149 Varptrptr *arg1 = (Varptrptr *) 0 ;
2150 unsigned int **result;
2151
2152 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_uint_v_get self ",0) == TCL_ERROR) SWIG_fail;
2153 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2154 result = (unsigned int **) ((arg1)->uint_v);
2155
2156 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_unsigned_int,0));
2157 return TCL_OK;
2158 fail:
2159 return TCL_ERROR;
2160 }
2161
2162
2163 static int
2164 _wrap_tinaVarptrptr_float_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2165 Varptrptr *arg1 = (Varptrptr *) 0 ;
2166 float **arg2 = (float **) 0 ;
2167
2168 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_float_v_set self float_v ",0,0) == TCL_ERROR) SWIG_fail;
2169 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2170 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_float,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2171 if (arg1) (arg1)->float_v = arg2;
2172
2173
2174 return TCL_OK;
2175 fail:
2176 return TCL_ERROR;
2177 }
2178
2179
2180 static int
2181 _wrap_tinaVarptrptr_float_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2182 Varptrptr *arg1 = (Varptrptr *) 0 ;
2183 float **result;
2184
2185 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_float_v_get self ",0) == TCL_ERROR) SWIG_fail;
2186 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2187 result = (float **) ((arg1)->float_v);
2188
2189 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_float,0));
2190 return TCL_OK;
2191 fail:
2192 return TCL_ERROR;
2193 }
2194
2195
2196 static int
2197 _wrap_tinaVarptrptr_double_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2198 Varptrptr *arg1 = (Varptrptr *) 0 ;
2199 double **arg2 = (double **) 0 ;
2200
2201 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_double_v_set self double_v ",0,0) == TCL_ERROR) SWIG_fail;
2202 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2203 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_double,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2204 if (arg1) (arg1)->double_v = arg2;
2205
2206
2207 return TCL_OK;
2208 fail:
2209 return TCL_ERROR;
2210 }
2211
2212
2213 static int
2214 _wrap_tinaVarptrptr_double_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2215 Varptrptr *arg1 = (Varptrptr *) 0 ;
2216 double **result;
2217
2218 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_double_v_get self ",0) == TCL_ERROR) SWIG_fail;
2219 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2220 result = (double **) ((arg1)->double_v);
2221
2222 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_double,0));
2223 return TCL_OK;
2224 fail:
2225 return TCL_ERROR;
2226 }
2227
2228
2229 static int
2230 _wrap_tinaVarptrptr_complex_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2231 Varptrptr *arg1 = (Varptrptr *) 0 ;
2232 struct tcomplex **arg2 = (struct tcomplex **) 0 ;
2233
2234 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_complex_v_set self complex_v ",0,0) == TCL_ERROR) SWIG_fail;
2235 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2236 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_tcomplex,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2237 if (arg1) (arg1)->complex_v = arg2;
2238
2239
2240 return TCL_OK;
2241 fail:
2242 return TCL_ERROR;
2243 }
2244
2245
2246 static int
2247 _wrap_tinaVarptrptr_complex_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2248 Varptrptr *arg1 = (Varptrptr *) 0 ;
2249 struct tcomplex **result;
2250
2251 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_complex_v_get self ",0) == TCL_ERROR) SWIG_fail;
2252 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2253 result = (struct tcomplex **) ((arg1)->complex_v);
2254
2255 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_tcomplex,0));
2256 return TCL_OK;
2257 fail:
2258 return TCL_ERROR;
2259 }
2260
2261
2262 static int
2263 _wrap_tinaVarptrptr_ptr_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2264 Varptrptr *arg1 = (Varptrptr *) 0 ;
2265 void ***arg2 = (void ***) 0 ;
2266
2267 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_ptr_v_set self ptr_v ",0,0) == TCL_ERROR) SWIG_fail;
2268 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2269 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_p_void,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2270 if (arg1) (arg1)->ptr_v = arg2;
2271
2272
2273 return TCL_OK;
2274 fail:
2275 return TCL_ERROR;
2276 }
2277
2278
2279 static int
2280 _wrap_tinaVarptrptr_ptr_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2281 Varptrptr *arg1 = (Varptrptr *) 0 ;
2282 void ***result;
2283
2284 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_ptr_v_get self ",0) == TCL_ERROR) SWIG_fail;
2285 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2286 result = (void ***) ((arg1)->ptr_v);
2287
2288 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_p_void,0));
2289 return TCL_OK;
2290 fail:
2291 return TCL_ERROR;
2292 }
2293
2294
2295 static int
2296 _wrap_tinaVarptrptr_vram_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2297 Varptrptr *arg1 = (Varptrptr *) 0 ;
2298 struct vram **arg2 = (struct vram **) 0 ;
2299
2300 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_vram_v_set self vram_v ",0,0) == TCL_ERROR) SWIG_fail;
2301 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2302 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_vram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2303 if (arg1) (arg1)->vram_v = arg2;
2304
2305
2306 return TCL_OK;
2307 fail:
2308 return TCL_ERROR;
2309 }
2310
2311
2312 static int
2313 _wrap_tinaVarptrptr_vram_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2314 Varptrptr *arg1 = (Varptrptr *) 0 ;
2315 struct vram **result;
2316
2317 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_vram_v_get self ",0) == TCL_ERROR) SWIG_fail;
2318 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2319 result = (struct vram **) ((arg1)->vram_v);
2320
2321 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_vram,0));
2322 return TCL_OK;
2323 fail:
2324 return TCL_ERROR;
2325 }
2326
2327
2328 static int
2329 _wrap_new_tinaVarptrptr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2330 Varptrptr *result;
2331
2332 if (SWIG_GetArgs(interp, objc, objv,":new_tinaVarptrptr ") == TCL_ERROR) SWIG_fail;
2333 result = (Varptrptr *)(Varptrptr *) calloc(1, sizeof(Varptrptr));
2334
2335 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Varptrptr,0));
2336 return TCL_OK;
2337 fail:
2338 return TCL_ERROR;
2339 }
2340
2341
2342 static int
2343 _wrap_delete_tinaVarptrptr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2344 Varptrptr *arg1 = (Varptrptr *) 0 ;
2345
2346 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaVarptrptr self ",0) == TCL_ERROR) SWIG_fail;
2347 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2348 free((char *) arg1);
2349
2350
2351 return TCL_OK;
2352 fail:
2353 return TCL_ERROR;
2354 }
2355
2356
2357 static void swig_delete_tinaVarptrptr(void *obj) {
2358 Varptrptr *arg1 = (Varptrptr *) obj;
2359 free((char *) arg1);
2360 }
2361 static swig_method swig_Varptrptr_methods[] = {
2362 {0,0}
2363 };
2364 static swig_attribute swig_Varptrptr_attributes[] = {
2365 { "-char_v",_wrap_tinaVarptrptr_char_v_get, _wrap_tinaVarptrptr_char_v_set},
2366 { "-uchar_v",_wrap_tinaVarptrptr_uchar_v_get, _wrap_tinaVarptrptr_uchar_v_set},
2367 { "-short_v",_wrap_tinaVarptrptr_short_v_get, _wrap_tinaVarptrptr_short_v_set},
2368 { "-ushort_v",_wrap_tinaVarptrptr_ushort_v_get, _wrap_tinaVarptrptr_ushort_v_set},
2369 { "-int_v",_wrap_tinaVarptrptr_int_v_get, _wrap_tinaVarptrptr_int_v_set},
2370 { "-uint_v",_wrap_tinaVarptrptr_uint_v_get, _wrap_tinaVarptrptr_uint_v_set},
2371 { "-float_v",_wrap_tinaVarptrptr_float_v_get, _wrap_tinaVarptrptr_float_v_set},
2372 { "-double_v",_wrap_tinaVarptrptr_double_v_get, _wrap_tinaVarptrptr_double_v_set},
2373 { "-complex_v",_wrap_tinaVarptrptr_complex_v_get, _wrap_tinaVarptrptr_complex_v_set},
2374 { "-ptr_v",_wrap_tinaVarptrptr_ptr_v_get, _wrap_tinaVarptrptr_ptr_v_set},
2375 { "-vram_v",_wrap_tinaVarptrptr_vram_v_get, _wrap_tinaVarptrptr_vram_v_set},
2376 {0,0,0}
2377 };
2378 static swig_class *swig_Varptrptr_bases[] = {0};
2379 swig_class _wrap_class_Varptrptr = { "tinaVarptrptr", &SWIGTYPE_p_Varptrptr,_wrap_new_tinaVarptrptr, swig_delete_tinaVarptrptr, swig_Varptrptr_methods, swig_Varptrptr_attributes, swig_Varptrptr_bases };
2380 static int
2381 _wrap_tinaGraphNode_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2382 Graph_node *arg1 = (Graph_node *) 0 ;
2383 int arg2 ;
2384
2385 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaGraphNode_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
2386 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2387 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
2388
2389
2390 return TCL_OK;
2391 fail:
2392 return TCL_ERROR;
2393 }
2394
2395
2396 static int
2397 _wrap_tinaGraphNode_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2398 Graph_node *arg1 = (Graph_node *) 0 ;
2399 int result;
2400
2401 if (SWIG_GetArgs(interp, objc, objv,"o:tinaGraphNode_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
2402 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2403 result = (int) ((arg1)->ts_id);
2404
2405 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
2406 return TCL_OK;
2407 fail:
2408 return TCL_ERROR;
2409 }
2410
2411
2412 static int
2413 _wrap_tinaGraphNode_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2414 Graph_node *arg1 = (Graph_node *) 0 ;
2415 int arg2 ;
2416
2417 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaGraphNode_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
2418 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2419 if (arg1) (arg1)->type = arg2;
2420
2421
2422 return TCL_OK;
2423 fail:
2424 return TCL_ERROR;
2425 }
2426
2427
2428 static int
2429 _wrap_tinaGraphNode_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2430 Graph_node *arg1 = (Graph_node *) 0 ;
2431 int result;
2432
2433 if (SWIG_GetArgs(interp, objc, objv,"o:tinaGraphNode_type_get self ",0) == TCL_ERROR) SWIG_fail;
2434 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2435 result = (int) ((arg1)->type);
2436
2437 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
2438 return TCL_OK;
2439 fail:
2440 return TCL_ERROR;
2441 }
2442
2443
2444 static int
2445 _wrap_tinaGraphNode_status_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2446 Graph_node *arg1 = (Graph_node *) 0 ;
2447 int arg2 ;
2448
2449 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaGraphNode_status_set self status ",0,&arg2) == TCL_ERROR) SWIG_fail;
2450 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2451 if (arg1) (arg1)->status = arg2;
2452
2453
2454 return TCL_OK;
2455 fail:
2456 return TCL_ERROR;
2457 }
2458
2459
2460 static int
2461 _wrap_tinaGraphNode_status_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2462 Graph_node *arg1 = (Graph_node *) 0 ;
2463 int result;
2464
2465 if (SWIG_GetArgs(interp, objc, objv,"o:tinaGraphNode_status_get self ",0) == TCL_ERROR) SWIG_fail;
2466 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2467 result = (int) ((arg1)->status);
2468
2469 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
2470 return TCL_OK;
2471 fail:
2472 return TCL_ERROR;
2473 }
2474
2475
2476 static int
2477 _wrap_tinaGraphNode_bounded_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2478 Graph_node *arg1 = (Graph_node *) 0 ;
2479 Bool arg2 ;
2480
2481 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaGraphNode_bounded_set self bounded ",0,&arg2) == TCL_ERROR) SWIG_fail;
2482 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2483 if (arg1) (arg1)->bounded = arg2;
2484
2485
2486 return TCL_OK;
2487 fail:
2488 return TCL_ERROR;
2489 }
2490
2491
2492 static int
2493 _wrap_tinaGraphNode_bounded_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2494 Graph_node *arg1 = (Graph_node *) 0 ;
2495 Bool result;
2496
2497 if (SWIG_GetArgs(interp, objc, objv,"o:tinaGraphNode_bounded_get self ",0) == TCL_ERROR) SWIG_fail;
2498 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2499 result = (Bool) ((arg1)->bounded);
2500
2501 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
2502 return TCL_OK;
2503 fail:
2504 return TCL_ERROR;
2505 }
2506
2507
2508 static int
2509 _wrap_tinaGraphNode_bound_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2510 Graph_node *arg1 = (Graph_node *) 0 ;
2511 float arg2 ;
2512
2513 if (SWIG_GetArgs(interp, objc, objv,"of:tinaGraphNode_bound_set self bound ",0,&arg2) == TCL_ERROR) SWIG_fail;
2514 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2515 if (arg1) (arg1)->bound = arg2;
2516
2517
2518 return TCL_OK;
2519 fail:
2520 return TCL_ERROR;
2521 }
2522
2523
2524 static int
2525 _wrap_tinaGraphNode_bound_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2526 Graph_node *arg1 = (Graph_node *) 0 ;
2527 float result;
2528
2529 if (SWIG_GetArgs(interp, objc, objv,"o:tinaGraphNode_bound_get self ",0) == TCL_ERROR) SWIG_fail;
2530 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2531 result = (float) ((arg1)->bound);
2532
2533 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
2534 return TCL_OK;
2535 fail:
2536 return TCL_ERROR;
2537 }
2538
2539
2540 static int
2541 _wrap_tinaGraphNode_value_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2542 Graph_node *arg1 = (Graph_node *) 0 ;
2543 float arg2 ;
2544
2545 if (SWIG_GetArgs(interp, objc, objv,"of:tinaGraphNode_value_set self value ",0,&arg2) == TCL_ERROR) SWIG_fail;
2546 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2547 if (arg1) (arg1)->value = arg2;
2548
2549
2550 return TCL_OK;
2551 fail:
2552 return TCL_ERROR;
2553 }
2554
2555
2556 static int
2557 _wrap_tinaGraphNode_value_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2558 Graph_node *arg1 = (Graph_node *) 0 ;
2559 float result;
2560
2561 if (SWIG_GetArgs(interp, objc, objv,"o:tinaGraphNode_value_get self ",0) == TCL_ERROR) SWIG_fail;
2562 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2563 result = (float) ((arg1)->value);
2564
2565 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
2566 return TCL_OK;
2567 fail:
2568 return TCL_ERROR;
2569 }
2570
2571
2572 static int
2573 _wrap_tinaGraphNode_to_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2574 Graph_node *arg1 = (Graph_node *) 0 ;
2575 void *arg2 = (void *) 0 ;
2576
2577 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaGraphNode_to_set self to ",0,0) == TCL_ERROR) SWIG_fail;
2578 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2579 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, 0,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
2580 if (arg1) (arg1)->to = arg2;
2581
2582
2583 return TCL_OK;
2584 fail:
2585 return TCL_ERROR;
2586 }
2587
2588
2589 static int
2590 _wrap_tinaGraphNode_to_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2591 Graph_node *arg1 = (Graph_node *) 0 ;
2592 void *result;
2593
2594 if (SWIG_GetArgs(interp, objc, objv,"o:tinaGraphNode_to_get self ",0) == TCL_ERROR) SWIG_fail;
2595 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2596 result = (void *) ((arg1)->to);
2597
2598 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_void,0));
2599 return TCL_OK;
2600 fail:
2601 return TCL_ERROR;
2602 }
2603
2604
2605 static int
2606 _wrap_tinaGraphNode_cons_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2607 Graph_node *arg1 = (Graph_node *) 0 ;
2608 List *arg2 = (List *) 0 ;
2609
2610 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaGraphNode_cons_set self cons ",0,0) == TCL_ERROR) SWIG_fail;
2611 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2612 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
2613 if (arg1) (arg1)->cons = arg2;
2614
2615
2616 return TCL_OK;
2617 fail:
2618 return TCL_ERROR;
2619 }
2620
2621
2622 static int
2623 _wrap_tinaGraphNode_cons_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2624 Graph_node *arg1 = (Graph_node *) 0 ;
2625 List *result;
2626
2627 if (SWIG_GetArgs(interp, objc, objv,"o:tinaGraphNode_cons_get self ",0) == TCL_ERROR) SWIG_fail;
2628 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2629 result = (List *) ((arg1)->cons);
2630
2631 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_List,0));
2632 return TCL_OK;
2633 fail:
2634 return TCL_ERROR;
2635 }
2636
2637
2638 static int
2639 _wrap_new_tinaGraphNode(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2640 Graph_node *result;
2641
2642 if (SWIG_GetArgs(interp, objc, objv,":new_tinaGraphNode ") == TCL_ERROR) SWIG_fail;
2643 result = (Graph_node *)(Graph_node *) calloc(1, sizeof(Graph_node));
2644
2645 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Graph_node,0));
2646 return TCL_OK;
2647 fail:
2648 return TCL_ERROR;
2649 }
2650
2651
2652 static int
2653 _wrap_delete_tinaGraphNode(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2654 Graph_node *arg1 = (Graph_node *) 0 ;
2655
2656 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaGraphNode self ",0) == TCL_ERROR) SWIG_fail;
2657 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2658 free((char *) arg1);
2659
2660
2661 return TCL_OK;
2662 fail:
2663 return TCL_ERROR;
2664 }
2665
2666
2667 static void swig_delete_tinaGraphNode(void *obj) {
2668 Graph_node *arg1 = (Graph_node *) obj;
2669 free((char *) arg1);
2670 }
2671 static swig_method swig_Graph_node_methods[] = {
2672 {0,0}
2673 };
2674 static swig_attribute swig_Graph_node_attributes[] = {
2675 { "-tinaTsId",_wrap_tinaGraphNode_tinaTsId_get, _wrap_tinaGraphNode_tinaTsId_set},
2676 { "-type",_wrap_tinaGraphNode_type_get, _wrap_tinaGraphNode_type_set},
2677 { "-status",_wrap_tinaGraphNode_status_get, _wrap_tinaGraphNode_status_set},
2678 { "-bounded",_wrap_tinaGraphNode_bounded_get, _wrap_tinaGraphNode_bounded_set},
2679 { "-bound",_wrap_tinaGraphNode_bound_get, _wrap_tinaGraphNode_bound_set},
2680 { "-value",_wrap_tinaGraphNode_value_get, _wrap_tinaGraphNode_value_set},
2681 { "-to",_wrap_tinaGraphNode_to_get, _wrap_tinaGraphNode_to_set},
2682 { "-cons",_wrap_tinaGraphNode_cons_get, _wrap_tinaGraphNode_cons_set},
2683 {0,0,0}
2684 };
2685 static swig_class *swig_Graph_node_bases[] = {0};
2686 swig_class _wrap_class_Graph_node = { "tinaGraphNode", &SWIGTYPE_p_Graph_node,_wrap_new_tinaGraphNode, swig_delete_tinaGraphNode, swig_Graph_node_methods, swig_Graph_node_attributes, swig_Graph_node_bases };
2687 static int
2688 _wrap_tinaTreeNode_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2689 Tree_node *arg1 = (Tree_node *) 0 ;
2690 int arg2 ;
2691
2692 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaTreeNode_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
2693 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2694 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
2695
2696
2697 return TCL_OK;
2698 fail:
2699 return TCL_ERROR;
2700 }
2701
2702
2703 static int
2704 _wrap_tinaTreeNode_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2705 Tree_node *arg1 = (Tree_node *) 0 ;
2706 int result;
2707
2708 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTreeNode_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
2709 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2710 result = (int) ((arg1)->ts_id);
2711
2712 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
2713 return TCL_OK;
2714 fail:
2715 return TCL_ERROR;
2716 }
2717
2718
2719 static int
2720 _wrap_tinaTreeNode_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2721 Tree_node *arg1 = (Tree_node *) 0 ;
2722 int arg2 ;
2723
2724 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaTreeNode_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
2725 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2726 if (arg1) (arg1)->type = arg2;
2727
2728
2729 return TCL_OK;
2730 fail:
2731 return TCL_ERROR;
2732 }
2733
2734
2735 static int
2736 _wrap_tinaTreeNode_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2737 Tree_node *arg1 = (Tree_node *) 0 ;
2738 int result;
2739
2740 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTreeNode_type_get self ",0) == TCL_ERROR) SWIG_fail;
2741 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2742 result = (int) ((arg1)->type);
2743
2744 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
2745 return TCL_OK;
2746 fail:
2747 return TCL_ERROR;
2748 }
2749
2750
2751 static int
2752 _wrap_tinaTreeNode_status_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2753 Tree_node *arg1 = (Tree_node *) 0 ;
2754 int arg2 ;
2755
2756 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaTreeNode_status_set self status ",0,&arg2) == TCL_ERROR) SWIG_fail;
2757 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2758 if (arg1) (arg1)->status = arg2;
2759
2760
2761 return TCL_OK;
2762 fail:
2763 return TCL_ERROR;
2764 }
2765
2766
2767 static int
2768 _wrap_tinaTreeNode_status_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2769 Tree_node *arg1 = (Tree_node *) 0 ;
2770 int result;
2771
2772 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTreeNode_status_get self ",0) == TCL_ERROR) SWIG_fail;
2773 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2774 result = (int) ((arg1)->status);
2775
2776 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
2777 return TCL_OK;
2778 fail:
2779 return TCL_ERROR;
2780 }
2781
2782
2783 static int
2784 _wrap_tinaTreeNode_bounded_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2785 Tree_node *arg1 = (Tree_node *) 0 ;
2786 Bool arg2 ;
2787
2788 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaTreeNode_bounded_set self bounded ",0,&arg2) == TCL_ERROR) SWIG_fail;
2789 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2790 if (arg1) (arg1)->bounded = arg2;
2791
2792
2793 return TCL_OK;
2794 fail:
2795 return TCL_ERROR;
2796 }
2797
2798
2799 static int
2800 _wrap_tinaTreeNode_bounded_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2801 Tree_node *arg1 = (Tree_node *) 0 ;
2802 Bool result;
2803
2804 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTreeNode_bounded_get self ",0) == TCL_ERROR) SWIG_fail;
2805 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2806 result = (Bool) ((arg1)->bounded);
2807
2808 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
2809 return TCL_OK;
2810 fail:
2811 return TCL_ERROR;
2812 }
2813
2814
2815 static int
2816 _wrap_tinaTreeNode_bound_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2817 Tree_node *arg1 = (Tree_node *) 0 ;
2818 float arg2 ;
2819
2820 if (SWIG_GetArgs(interp, objc, objv,"of:tinaTreeNode_bound_set self bound ",0,&arg2) == TCL_ERROR) SWIG_fail;
2821 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2822 if (arg1) (arg1)->bound = arg2;
2823
2824
2825 return TCL_OK;
2826 fail:
2827 return TCL_ERROR;
2828 }
2829
2830
2831 static int
2832 _wrap_tinaTreeNode_bound_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2833 Tree_node *arg1 = (Tree_node *) 0 ;
2834 float result;
2835
2836 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTreeNode_bound_get self ",0) == TCL_ERROR) SWIG_fail;
2837 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2838 result = (float) ((arg1)->bound);
2839
2840 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
2841 return TCL_OK;
2842 fail:
2843 return TCL_ERROR;
2844 }
2845
2846
2847 static int
2848 _wrap_tinaTreeNode_value_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2849 Tree_node *arg1 = (Tree_node *) 0 ;
2850 float arg2 ;
2851
2852 if (SWIG_GetArgs(interp, objc, objv,"of:tinaTreeNode_value_set self value ",0,&arg2) == TCL_ERROR) SWIG_fail;
2853 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2854 if (arg1) (arg1)->value = arg2;
2855
2856
2857 return TCL_OK;
2858 fail:
2859 return TCL_ERROR;
2860 }
2861
2862
2863 static int
2864 _wrap_tinaTreeNode_value_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2865 Tree_node *arg1 = (Tree_node *) 0 ;
2866 float result;
2867
2868 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTreeNode_value_get self ",0) == TCL_ERROR) SWIG_fail;
2869 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2870 result = (float) ((arg1)->value);
2871
2872 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
2873 return TCL_OK;
2874 fail:
2875 return TCL_ERROR;
2876 }
2877
2878
2879 static int
2880 _wrap_tinaTreeNode_to_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2881 Tree_node *arg1 = (Tree_node *) 0 ;
2882 void *arg2 = (void *) 0 ;
2883
2884 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaTreeNode_to_set self to ",0,0) == TCL_ERROR) SWIG_fail;
2885 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2886 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, 0,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
2887 if (arg1) (arg1)->to = arg2;
2888
2889
2890 return TCL_OK;
2891 fail:
2892 return TCL_ERROR;
2893 }
2894
2895
2896 static int
2897 _wrap_tinaTreeNode_to_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2898 Tree_node *arg1 = (Tree_node *) 0 ;
2899 void *result;
2900
2901 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTreeNode_to_get self ",0) == TCL_ERROR) SWIG_fail;
2902 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2903 result = (void *) ((arg1)->to);
2904
2905 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_void,0));
2906 return TCL_OK;
2907 fail:
2908 return TCL_ERROR;
2909 }
2910
2911
2912 static int
2913 _wrap_tinaTreeNode_children_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2914 Tree_node *arg1 = (Tree_node *) 0 ;
2915 List *arg2 = (List *) 0 ;
2916
2917 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaTreeNode_children_set self children ",0,0) == TCL_ERROR) SWIG_fail;
2918 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2919 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
2920 if (arg1) (arg1)->children = arg2;
2921
2922
2923 return TCL_OK;
2924 fail:
2925 return TCL_ERROR;
2926 }
2927
2928
2929 static int
2930 _wrap_tinaTreeNode_children_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2931 Tree_node *arg1 = (Tree_node *) 0 ;
2932 List *result;
2933
2934 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTreeNode_children_get self ",0) == TCL_ERROR) SWIG_fail;
2935 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2936 result = (List *) ((arg1)->children);
2937
2938 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_List,0));
2939 return TCL_OK;
2940 fail:
2941 return TCL_ERROR;
2942 }
2943
2944
2945 static int
2946 _wrap_tinaTreeNode_parent_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2947 Tree_node *arg1 = (Tree_node *) 0 ;
2948 struct tree_node *arg2 = (struct tree_node *) 0 ;
2949
2950 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaTreeNode_parent_set self parent ",0,0) == TCL_ERROR) SWIG_fail;
2951 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2952 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_tree_node,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
2953 if (arg1) (arg1)->parent = arg2;
2954
2955
2956 return TCL_OK;
2957 fail:
2958 return TCL_ERROR;
2959 }
2960
2961
2962 static int
2963 _wrap_tinaTreeNode_parent_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2964 Tree_node *arg1 = (Tree_node *) 0 ;
2965 struct tree_node *result;
2966
2967 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTreeNode_parent_get self ",0) == TCL_ERROR) SWIG_fail;
2968 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2969 result = (struct tree_node *) ((arg1)->parent);
2970
2971 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_tree_node,0));
2972 return TCL_OK;
2973 fail:
2974 return TCL_ERROR;
2975 }
2976
2977
2978 static int
2979 _wrap_new_tinaTreeNode(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2980 Tree_node *result;
2981
2982 if (SWIG_GetArgs(interp, objc, objv,":new_tinaTreeNode ") == TCL_ERROR) SWIG_fail;
2983 result = (Tree_node *)(Tree_node *) calloc(1, sizeof(Tree_node));
2984
2985 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Tree_node,0));
2986 return TCL_OK;
2987 fail:
2988 return TCL_ERROR;
2989 }
2990
2991
2992 static int
2993 _wrap_delete_tinaTreeNode(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2994 Tree_node *arg1 = (Tree_node *) 0 ;
2995
2996 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaTreeNode self ",0) == TCL_ERROR) SWIG_fail;
2997 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2998 free((char *) arg1);
2999
3000
3001 return TCL_OK;
3002 fail:
3003 return TCL_ERROR;
3004 }
3005
3006
3007 static void swig_delete_tinaTreeNode(void *obj) {
3008 Tree_node *arg1 = (Tree_node *) obj;
3009 free((char *) arg1);
3010 }
3011 static swig_method swig_Tree_node_methods[] = {
3012 {0,0}
3013 };
3014 static swig_attribute swig_Tree_node_attributes[] = {
3015 { "-tinaTsId",_wrap_tinaTreeNode_tinaTsId_get, _wrap_tinaTreeNode_tinaTsId_set},
3016 { "-type",_wrap_tinaTreeNode_type_get, _wrap_tinaTreeNode_type_set},
3017 { "-status",_wrap_tinaTreeNode_status_get, _wrap_tinaTreeNode_status_set},
3018 { "-bounded",_wrap_tinaTreeNode_bounded_get, _wrap_tinaTreeNode_bounded_set},
3019 { "-bound",_wrap_tinaTreeNode_bound_get, _wrap_tinaTreeNode_bound_set},
3020 { "-value",_wrap_tinaTreeNode_value_get, _wrap_tinaTreeNode_value_set},
3021 { "-to",_wrap_tinaTreeNode_to_get, _wrap_tinaTreeNode_to_set},
3022 { "-children",_wrap_tinaTreeNode_children_get, _wrap_tinaTreeNode_children_set},
3023 { "-parent",_wrap_tinaTreeNode_parent_get, _wrap_tinaTreeNode_parent_set},
3024 {0,0,0}
3025 };
3026 static swig_class *swig_Tree_node_bases[] = {0};
3027 swig_class _wrap_class_Tree_node = { "tinaTreeNode", &SWIGTYPE_p_Tree_node,_wrap_new_tinaTreeNode, swig_delete_tinaTreeNode, swig_Tree_node_methods, swig_Tree_node_attributes, swig_Tree_node_bases };
3028 static int
3029 _wrap_tinaViolsNode_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3030 Viols_node *arg1 = (Viols_node *) 0 ;
3031 int arg2 ;
3032
3033 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaViolsNode_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
3034 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3035 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
3036
3037
3038 return TCL_OK;
3039 fail:
3040 return TCL_ERROR;
3041 }
3042
3043
3044 static int
3045 _wrap_tinaViolsNode_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3046 Viols_node *arg1 = (Viols_node *) 0 ;
3047 int result;
3048
3049 if (SWIG_GetArgs(interp, objc, objv,"o:tinaViolsNode_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
3050 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3051 result = (int) ((arg1)->ts_id);
3052
3053 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
3054 return TCL_OK;
3055 fail:
3056 return TCL_ERROR;
3057 }
3058
3059
3060 static int
3061 _wrap_tinaViolsNode_status_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3062 Viols_node *arg1 = (Viols_node *) 0 ;
3063 int arg2 ;
3064
3065 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaViolsNode_status_set self status ",0,&arg2) == TCL_ERROR) SWIG_fail;
3066 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3067 if (arg1) (arg1)->status = arg2;
3068
3069
3070 return TCL_OK;
3071 fail:
3072 return TCL_ERROR;
3073 }
3074
3075
3076 static int
3077 _wrap_tinaViolsNode_status_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3078 Viols_node *arg1 = (Viols_node *) 0 ;
3079 int result;
3080
3081 if (SWIG_GetArgs(interp, objc, objv,"o:tinaViolsNode_status_get self ",0) == TCL_ERROR) SWIG_fail;
3082 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3083 result = (int) ((arg1)->status);
3084
3085 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
3086 return TCL_OK;
3087 fail:
3088 return TCL_ERROR;
3089 }
3090
3091
3092 static int
3093 _wrap_tinaViolsNode_label_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3094 Viols_node *arg1 = (Viols_node *) 0 ;
3095 int arg2 ;
3096
3097 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaViolsNode_label_set self label ",0,&arg2) == TCL_ERROR) SWIG_fail;
3098 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3099 if (arg1) (arg1)->label = arg2;
3100
3101
3102 return TCL_OK;
3103 fail:
3104 return TCL_ERROR;
3105 }
3106
3107
3108 static int
3109 _wrap_tinaViolsNode_label_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3110 Viols_node *arg1 = (Viols_node *) 0 ;
3111 int result;
3112
3113 if (SWIG_GetArgs(interp, objc, objv,"o:tinaViolsNode_label_get self ",0) == TCL_ERROR) SWIG_fail;
3114 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3115 result = (int) ((arg1)->label);
3116
3117 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
3118 return TCL_OK;
3119 fail:
3120 return TCL_ERROR;
3121 }
3122
3123
3124 static int
3125 _wrap_tinaViolsNode_gn_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3126 Viols_node *arg1 = (Viols_node *) 0 ;
3127 Graph_node *arg2 = (Graph_node *) 0 ;
3128
3129 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaViolsNode_gn_set self gn ",0,0) == TCL_ERROR) SWIG_fail;
3130 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3131 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
3132 if (arg1) (arg1)->gn = arg2;
3133
3134
3135 return TCL_OK;
3136 fail:
3137 return TCL_ERROR;
3138 }
3139
3140
3141 static int
3142 _wrap_tinaViolsNode_gn_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3143 Viols_node *arg1 = (Viols_node *) 0 ;
3144 Graph_node *result;
3145
3146 if (SWIG_GetArgs(interp, objc, objv,"o:tinaViolsNode_gn_get self ",0) == TCL_ERROR) SWIG_fail;
3147 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3148 result = (Graph_node *) ((arg1)->gn);
3149
3150 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Graph_node,0));
3151 return TCL_OK;
3152 fail:
3153 return TCL_ERROR;
3154 }
3155
3156
3157 static int
3158 _wrap_tinaViolsNode_viols_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3159 Viols_node *arg1 = (Viols_node *) 0 ;
3160 List *arg2 = (List *) 0 ;
3161
3162 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaViolsNode_viols_set self viols ",0,0) == TCL_ERROR) SWIG_fail;
3163 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3164 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
3165 if (arg1) (arg1)->viols = arg2;
3166
3167
3168 return TCL_OK;
3169 fail:
3170 return TCL_ERROR;
3171 }
3172
3173
3174 static int
3175 _wrap_tinaViolsNode_viols_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3176 Viols_node *arg1 = (Viols_node *) 0 ;
3177 List *result;
3178
3179 if (SWIG_GetArgs(interp, objc, objv,"o:tinaViolsNode_viols_get self ",0) == TCL_ERROR) SWIG_fail;
3180 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3181 result = (List *) ((arg1)->viols);
3182
3183 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_List,0));
3184 return TCL_OK;
3185 fail:
3186 return TCL_ERROR;
3187 }
3188
3189
3190 static int
3191 _wrap_new_tinaViolsNode(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3192 Viols_node *result;
3193
3194 if (SWIG_GetArgs(interp, objc, objv,":new_tinaViolsNode ") == TCL_ERROR) SWIG_fail;
3195 result = (Viols_node *)(Viols_node *) calloc(1, sizeof(Viols_node));
3196
3197 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Viols_node,0));
3198 return TCL_OK;
3199 fail:
3200 return TCL_ERROR;
3201 }
3202
3203
3204 static int
3205 _wrap_delete_tinaViolsNode(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3206 Viols_node *arg1 = (Viols_node *) 0 ;
3207
3208 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaViolsNode self ",0) == TCL_ERROR) SWIG_fail;
3209 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3210 free((char *) arg1);
3211
3212
3213 return TCL_OK;
3214 fail:
3215 return TCL_ERROR;
3216 }
3217
3218
3219 static void swig_delete_tinaViolsNode(void *obj) {
3220 Viols_node *arg1 = (Viols_node *) obj;
3221 free((char *) arg1);
3222 }
3223 static swig_method swig_Viols_node_methods[] = {
3224 {0,0}
3225 };
3226 static swig_attribute swig_Viols_node_attributes[] = {
3227 { "-tinaTsId",_wrap_tinaViolsNode_tinaTsId_get, _wrap_tinaViolsNode_tinaTsId_set},
3228 { "-status",_wrap_tinaViolsNode_status_get, _wrap_tinaViolsNode_status_set},
3229 { "-label",_wrap_tinaViolsNode_label_get, _wrap_tinaViolsNode_label_set},
3230 { "-gn",_wrap_tinaViolsNode_gn_get, _wrap_tinaViolsNode_gn_set},
3231 { "-viols",_wrap_tinaViolsNode_viols_get, _wrap_tinaViolsNode_viols_set},
3232 {0,0,0}
3233 };
3234 static swig_class *swig_Viols_node_bases[] = {0};
3235 swig_class _wrap_class_Viols_node = { "tinaViolsNode", &SWIGTYPE_p_Viols_node,_wrap_new_tinaViolsNode, swig_delete_tinaViolsNode, swig_Viols_node_methods, swig_Viols_node_attributes, swig_Viols_node_bases };
3236 static int
3237 _wrap_tinaBinNode_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3238 Bin_node *arg1 = (Bin_node *) 0 ;
3239 int arg2 ;
3240
3241 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaBinNode_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
3242 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3243 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
3244
3245
3246 return TCL_OK;
3247 fail:
3248 return TCL_ERROR;
3249 }
3250
3251
3252 static int
3253 _wrap_tinaBinNode_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3254 Bin_node *arg1 = (Bin_node *) 0 ;
3255 int result;
3256
3257 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBinNode_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
3258 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3259 result = (int) ((arg1)->ts_id);
3260
3261 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
3262 return TCL_OK;
3263 fail:
3264 return TCL_ERROR;
3265 }
3266
3267
3268 static int
3269 _wrap_tinaBinNode_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3270 Bin_node *arg1 = (Bin_node *) 0 ;
3271 int arg2 ;
3272
3273 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaBinNode_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
3274 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3275 if (arg1) (arg1)->type = arg2;
3276
3277
3278 return TCL_OK;
3279 fail:
3280 return TCL_ERROR;
3281 }
3282
3283
3284 static int
3285 _wrap_tinaBinNode_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3286 Bin_node *arg1 = (Bin_node *) 0 ;
3287 int result;
3288
3289 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBinNode_type_get self ",0) == TCL_ERROR) SWIG_fail;
3290 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3291 result = (int) ((arg1)->type);
3292
3293 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
3294 return TCL_OK;
3295 fail:
3296 return TCL_ERROR;
3297 }
3298
3299
3300 static int
3301 _wrap_tinaBinNode_status_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3302 Bin_node *arg1 = (Bin_node *) 0 ;
3303 int arg2 ;
3304
3305 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaBinNode_status_set self status ",0,&arg2) == TCL_ERROR) SWIG_fail;
3306 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3307 if (arg1) (arg1)->status = arg2;
3308
3309
3310 return TCL_OK;
3311 fail:
3312 return TCL_ERROR;
3313 }
3314
3315
3316 static int
3317 _wrap_tinaBinNode_status_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3318 Bin_node *arg1 = (Bin_node *) 0 ;
3319 int result;
3320
3321 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBinNode_status_get self ",0) == TCL_ERROR) SWIG_fail;
3322 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3323 result = (int) ((arg1)->status);
3324
3325 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
3326 return TCL_OK;
3327 fail:
3328 return TCL_ERROR;
3329 }
3330
3331
3332 static int
3333 _wrap_tinaBinNode_bounded_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3334 Bin_node *arg1 = (Bin_node *) 0 ;
3335 Bool arg2 ;
3336
3337 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaBinNode_bounded_set self bounded ",0,&arg2) == TCL_ERROR) SWIG_fail;
3338 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3339 if (arg1) (arg1)->bounded = arg2;
3340
3341
3342 return TCL_OK;
3343 fail:
3344 return TCL_ERROR;
3345 }
3346
3347
3348 static int
3349 _wrap_tinaBinNode_bounded_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3350 Bin_node *arg1 = (Bin_node *) 0 ;
3351 Bool result;
3352
3353 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBinNode_bounded_get self ",0) == TCL_ERROR) SWIG_fail;
3354 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3355 result = (Bool) ((arg1)->bounded);
3356
3357 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
3358 return TCL_OK;
3359 fail:
3360 return TCL_ERROR;
3361 }
3362
3363
3364 static int
3365 _wrap_tinaBinNode_bound_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3366 Bin_node *arg1 = (Bin_node *) 0 ;
3367 float arg2 ;
3368
3369 if (SWIG_GetArgs(interp, objc, objv,"of:tinaBinNode_bound_set self bound ",0,&arg2) == TCL_ERROR) SWIG_fail;
3370 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3371 if (arg1) (arg1)->bound = arg2;
3372
3373
3374 return TCL_OK;
3375 fail:
3376 return TCL_ERROR;
3377 }
3378
3379
3380 static int
3381 _wrap_tinaBinNode_bound_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3382 Bin_node *arg1 = (Bin_node *) 0 ;
3383 float result;
3384
3385 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBinNode_bound_get self ",0) == TCL_ERROR) SWIG_fail;
3386 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3387 result = (float) ((arg1)->bound);
3388
3389 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
3390 return TCL_OK;
3391 fail:
3392 return TCL_ERROR;
3393 }
3394
3395
3396 static int
3397 _wrap_tinaBinNode_value_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3398 Bin_node *arg1 = (Bin_node *) 0 ;
3399 float arg2 ;
3400
3401 if (SWIG_GetArgs(interp, objc, objv,"of:tinaBinNode_value_set self value ",0,&arg2) == TCL_ERROR) SWIG_fail;
3402 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3403 if (arg1) (arg1)->value = arg2;
3404
3405
3406 return TCL_OK;
3407 fail:
3408 return TCL_ERROR;
3409 }
3410
3411
3412 static int
3413 _wrap_tinaBinNode_value_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3414 Bin_node *arg1 = (Bin_node *) 0 ;
3415 float result;
3416
3417 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBinNode_value_get self ",0) == TCL_ERROR) SWIG_fail;
3418 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3419 result = (float) ((arg1)->value);
3420
3421 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
3422 return TCL_OK;
3423 fail:
3424 return TCL_ERROR;
3425 }
3426
3427
3428 static int
3429 _wrap_tinaBinNode_to_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3430 Bin_node *arg1 = (Bin_node *) 0 ;
3431 void *arg2 = (void *) 0 ;
3432
3433 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaBinNode_to_set self to ",0,0) == TCL_ERROR) SWIG_fail;
3434 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3435 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, 0,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
3436 if (arg1) (arg1)->to = arg2;
3437
3438
3439 return TCL_OK;
3440 fail:
3441 return TCL_ERROR;
3442 }
3443
3444
3445 static int
3446 _wrap_tinaBinNode_to_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3447 Bin_node *arg1 = (Bin_node *) 0 ;
3448 void *result;
3449
3450 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBinNode_to_get self ",0) == TCL_ERROR) SWIG_fail;
3451 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3452 result = (void *) ((arg1)->to);
3453
3454 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_void,0));
3455 return TCL_OK;
3456 fail:
3457 return TCL_ERROR;
3458 }
3459
3460
3461 static int
3462 _wrap_tinaBinNode_child1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3463 Bin_node *arg1 = (Bin_node *) 0 ;
3464 struct bin_node *arg2 = (struct bin_node *) 0 ;
3465
3466 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaBinNode_child1_set self child1 ",0,0) == TCL_ERROR) SWIG_fail;
3467 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3468 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_bin_node,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
3469 if (arg1) (arg1)->child1 = arg2;
3470
3471
3472 return TCL_OK;
3473 fail:
3474 return TCL_ERROR;
3475 }
3476
3477
3478 static int
3479 _wrap_tinaBinNode_child1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3480 Bin_node *arg1 = (Bin_node *) 0 ;
3481 struct bin_node *result;
3482
3483 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBinNode_child1_get self ",0) == TCL_ERROR) SWIG_fail;
3484 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3485 result = (struct bin_node *) ((arg1)->child1);
3486
3487 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_bin_node,0));
3488 return TCL_OK;
3489 fail:
3490 return TCL_ERROR;
3491 }
3492
3493
3494 static int
3495 _wrap_tinaBinNode_child2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3496 Bin_node *arg1 = (Bin_node *) 0 ;
3497 struct bin_node *arg2 = (struct bin_node *) 0 ;
3498
3499 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaBinNode_child2_set self child2 ",0,0) == TCL_ERROR) SWIG_fail;
3500 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3501 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_bin_node,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
3502 if (arg1) (arg1)->child2 = arg2;
3503
3504
3505 return TCL_OK;
3506 fail:
3507 return TCL_ERROR;
3508 }
3509
3510
3511 static int
3512 _wrap_tinaBinNode_child2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3513 Bin_node *arg1 = (Bin_node *) 0 ;
3514 struct bin_node *result;
3515
3516 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBinNode_child2_get self ",0) == TCL_ERROR) SWIG_fail;
3517 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3518 result = (struct bin_node *) ((arg1)->child2);
3519
3520 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_bin_node,0));
3521 return TCL_OK;
3522 fail:
3523 return TCL_ERROR;
3524 }
3525
3526
3527 static int
3528 _wrap_tinaBinNode_parent_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3529 Bin_node *arg1 = (Bin_node *) 0 ;
3530 struct bin_node *arg2 = (struct bin_node *) 0 ;
3531
3532 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaBinNode_parent_set self parent ",0,0) == TCL_ERROR) SWIG_fail;
3533 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3534 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_bin_node,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
3535 if (arg1) (arg1)->parent = arg2;
3536
3537
3538 return TCL_OK;
3539 fail:
3540 return TCL_ERROR;
3541 }
3542
3543
3544 static int
3545 _wrap_tinaBinNode_parent_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3546 Bin_node *arg1 = (Bin_node *) 0 ;
3547 struct bin_node *result;
3548
3549 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBinNode_parent_get self ",0) == TCL_ERROR) SWIG_fail;
3550 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3551 result = (struct bin_node *) ((arg1)->parent);
3552
3553 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_bin_node,0));
3554 return TCL_OK;
3555 fail:
3556 return TCL_ERROR;
3557 }
3558
3559
3560 static int
3561 _wrap_new_tinaBinNode(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3562 Bin_node *result;
3563
3564 if (SWIG_GetArgs(interp, objc, objv,":new_tinaBinNode ") == TCL_ERROR) SWIG_fail;
3565 result = (Bin_node *)(Bin_node *) calloc(1, sizeof(Bin_node));
3566
3567 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Bin_node,0));
3568 return TCL_OK;
3569 fail:
3570 return TCL_ERROR;
3571 }
3572
3573
3574 static int
3575 _wrap_delete_tinaBinNode(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3576 Bin_node *arg1 = (Bin_node *) 0 ;
3577
3578 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaBinNode self ",0) == TCL_ERROR) SWIG_fail;
3579 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3580 free((char *) arg1);
3581
3582
3583 return TCL_OK;
3584 fail:
3585 return TCL_ERROR;
3586 }
3587
3588
3589 static void swig_delete_tinaBinNode(void *obj) {
3590 Bin_node *arg1 = (Bin_node *) obj;
3591 free((char *) arg1);
3592 }
3593 static swig_method swig_Bin_node_methods[] = {
3594 {0,0}
3595 };
3596 static swig_attribute swig_Bin_node_attributes[] = {
3597 { "-tinaTsId",_wrap_tinaBinNode_tinaTsId_get, _wrap_tinaBinNode_tinaTsId_set},
3598 { "-type",_wrap_tinaBinNode_type_get, _wrap_tinaBinNode_type_set},
3599 { "-status",_wrap_tinaBinNode_status_get, _wrap_tinaBinNode_status_set},
3600 { "-bounded",_wrap_tinaBinNode_bounded_get, _wrap_tinaBinNode_bounded_set},
3601 { "-bound",_wrap_tinaBinNode_bound_get, _wrap_tinaBinNode_bound_set},
3602 { "-value",_wrap_tinaBinNode_value_get, _wrap_tinaBinNode_value_set},
3603 { "-to",_wrap_tinaBinNode_to_get, _wrap_tinaBinNode_to_set},
3604 { "-child1",_wrap_tinaBinNode_child1_get, _wrap_tinaBinNode_child1_set},
3605 { "-child2",_wrap_tinaBinNode_child2_get, _wrap_tinaBinNode_child2_set},
3606 { "-parent",_wrap_tinaBinNode_parent_get, _wrap_tinaBinNode_parent_set},
3607 {0,0,0}
3608 };
3609 static swig_class *swig_Bin_node_bases[] = {0};
3610 swig_class _wrap_class_Bin_node = { "tinaBinNode", &SWIGTYPE_p_Bin_node,_wrap_new_tinaBinNode, swig_delete_tinaBinNode, swig_Bin_node_methods, swig_Bin_node_attributes, swig_Bin_node_bases };
3611 static int
3612 _wrap_tinaList_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3613 List *arg1 = (List *) 0 ;
3614 int arg2 ;
3615
3616 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaList_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
3617 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3618 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
3619
3620
3621 return TCL_OK;
3622 fail:
3623 return TCL_ERROR;
3624 }
3625
3626
3627 static int
3628 _wrap_tinaList_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3629 List *arg1 = (List *) 0 ;
3630 int result;
3631
3632 if (SWIG_GetArgs(interp, objc, objv,"o:tinaList_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
3633 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3634 result = (int) ((arg1)->ts_id);
3635
3636 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
3637 return TCL_OK;
3638 fail:
3639 return TCL_ERROR;
3640 }
3641
3642
3643 static int
3644 _wrap_tinaList_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3645 List *arg1 = (List *) 0 ;
3646 int arg2 ;
3647
3648 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaList_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
3649 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3650 if (arg1) (arg1)->type = arg2;
3651
3652
3653 return TCL_OK;
3654 fail:
3655 return TCL_ERROR;
3656 }
3657
3658
3659 static int
3660 _wrap_tinaList_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3661 List *arg1 = (List *) 0 ;
3662 int result;
3663
3664 if (SWIG_GetArgs(interp, objc, objv,"o:tinaList_type_get self ",0) == TCL_ERROR) SWIG_fail;
3665 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3666 result = (int) ((arg1)->type);
3667
3668 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
3669 return TCL_OK;
3670 fail:
3671 return TCL_ERROR;
3672 }
3673
3674
3675 static int
3676 _wrap_tinaList_next_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3677 List *arg1 = (List *) 0 ;
3678 struct list *arg2 = (struct list *) 0 ;
3679
3680 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaList_next_set self next ",0,0) == TCL_ERROR) SWIG_fail;
3681 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3682 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_list,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
3683 if (arg1) (arg1)->next = arg2;
3684
3685
3686 return TCL_OK;
3687 fail:
3688 return TCL_ERROR;
3689 }
3690
3691
3692 static int
3693 _wrap_tinaList_next_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3694 List *arg1 = (List *) 0 ;
3695 struct list *result;
3696
3697 if (SWIG_GetArgs(interp, objc, objv,"o:tinaList_next_get self ",0) == TCL_ERROR) SWIG_fail;
3698 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3699 result = (struct list *) ((arg1)->next);
3700
3701 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_list,0));
3702 return TCL_OK;
3703 fail:
3704 return TCL_ERROR;
3705 }
3706
3707
3708 static int
3709 _wrap_tinaList_last_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3710 List *arg1 = (List *) 0 ;
3711 struct list *arg2 = (struct list *) 0 ;
3712
3713 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaList_last_set self last ",0,0) == TCL_ERROR) SWIG_fail;
3714 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3715 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_list,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
3716 if (arg1) (arg1)->last = arg2;
3717
3718
3719 return TCL_OK;
3720 fail:
3721 return TCL_ERROR;
3722 }
3723
3724
3725 static int
3726 _wrap_tinaList_last_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3727 List *arg1 = (List *) 0 ;
3728 struct list *result;
3729
3730 if (SWIG_GetArgs(interp, objc, objv,"o:tinaList_last_get self ",0) == TCL_ERROR) SWIG_fail;
3731 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3732 result = (struct list *) ((arg1)->last);
3733
3734 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_list,0));
3735 return TCL_OK;
3736 fail:
3737 return TCL_ERROR;
3738 }
3739
3740
3741 static int
3742 _wrap_tinaList_to_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3743 List *arg1 = (List *) 0 ;
3744 void *arg2 = (void *) 0 ;
3745
3746 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaList_to_set self to ",0,0) == TCL_ERROR) SWIG_fail;
3747 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3748 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, 0,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
3749 if (arg1) (arg1)->to = arg2;
3750
3751
3752 return TCL_OK;
3753 fail:
3754 return TCL_ERROR;
3755 }
3756
3757
3758 static int
3759 _wrap_tinaList_to_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3760 List *arg1 = (List *) 0 ;
3761 void *result;
3762
3763 if (SWIG_GetArgs(interp, objc, objv,"o:tinaList_to_get self ",0) == TCL_ERROR) SWIG_fail;
3764 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3765 result = (void *) ((arg1)->to);
3766
3767 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_void,0));
3768 return TCL_OK;
3769 fail:
3770 return TCL_ERROR;
3771 }
3772
3773
3774 static int
3775 _wrap_new_tinaList(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3776 List *result;
3777
3778 if (SWIG_GetArgs(interp, objc, objv,":new_tinaList ") == TCL_ERROR) SWIG_fail;
3779 result = (List *)(List *) calloc(1, sizeof(List));
3780
3781 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_List,0));
3782 return TCL_OK;
3783 fail:
3784 return TCL_ERROR;
3785 }
3786
3787
3788 static int
3789 _wrap_delete_tinaList(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3790 List *arg1 = (List *) 0 ;
3791
3792 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaList self ",0) == TCL_ERROR) SWIG_fail;
3793 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3794 free((char *) arg1);
3795
3796
3797 return TCL_OK;
3798 fail:
3799 return TCL_ERROR;
3800 }
3801
3802
3803 static void swig_delete_tinaList(void *obj) {
3804 List *arg1 = (List *) obj;
3805 free((char *) arg1);
3806 }
3807 static swig_method swig_List_methods[] = {
3808 {0,0}
3809 };
3810 static swig_attribute swig_List_attributes[] = {
3811 { "-tinaTsId",_wrap_tinaList_tinaTsId_get, _wrap_tinaList_tinaTsId_set},
3812 { "-type",_wrap_tinaList_type_get, _wrap_tinaList_type_set},
3813 { "-next",_wrap_tinaList_next_get, _wrap_tinaList_next_set},
3814 { "-last",_wrap_tinaList_last_get, _wrap_tinaList_last_set},
3815 { "-to",_wrap_tinaList_to_get, _wrap_tinaList_to_set},
3816 {0,0,0}
3817 };
3818 static swig_class *swig_List_bases[] = {0};
3819 swig_class _wrap_class_List = { "tinaList", &SWIGTYPE_p_List,_wrap_new_tinaList, swig_delete_tinaList, swig_List_methods, swig_List_attributes, swig_List_bases };
3820 static int
3821 _wrap_tinaTString_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3822 Tstring *arg1 = (Tstring *) 0 ;
3823 int arg2 ;
3824
3825 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaTString_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
3826 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3827 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
3828
3829
3830 return TCL_OK;
3831 fail:
3832 return TCL_ERROR;
3833 }
3834
3835
3836 static int
3837 _wrap_tinaTString_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3838 Tstring *arg1 = (Tstring *) 0 ;
3839 int result;
3840
3841 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTString_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
3842 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3843 result = (int) ((arg1)->ts_id);
3844
3845 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
3846 return TCL_OK;
3847 fail:
3848 return TCL_ERROR;
3849 }
3850
3851
3852 static int
3853 _wrap_tinaTString_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3854 Tstring *arg1 = (Tstring *) 0 ;
3855 int arg2 ;
3856
3857 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaTString_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
3858 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3859 if (arg1) (arg1)->type = arg2;
3860
3861
3862 return TCL_OK;
3863 fail:
3864 return TCL_ERROR;
3865 }
3866
3867
3868 static int
3869 _wrap_tinaTString_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3870 Tstring *arg1 = (Tstring *) 0 ;
3871 int result;
3872
3873 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTString_type_get self ",0) == TCL_ERROR) SWIG_fail;
3874 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3875 result = (int) ((arg1)->type);
3876
3877 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
3878 return TCL_OK;
3879 fail:
3880 return TCL_ERROR;
3881 }
3882
3883
3884 static int
3885 _wrap_tinaTString_start_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3886 Tstring *arg1 = (Tstring *) 0 ;
3887 struct list *arg2 = (struct list *) 0 ;
3888
3889 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaTString_start_set self start ",0,0) == TCL_ERROR) SWIG_fail;
3890 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3891 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_list,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
3892 if (arg1) (arg1)->start = arg2;
3893
3894
3895 return TCL_OK;
3896 fail:
3897 return TCL_ERROR;
3898 }
3899
3900
3901 static int
3902 _wrap_tinaTString_start_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3903 Tstring *arg1 = (Tstring *) 0 ;
3904 struct list *result;
3905
3906 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTString_start_get self ",0) == TCL_ERROR) SWIG_fail;
3907 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3908 result = (struct list *) ((arg1)->start);
3909
3910 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_list,0));
3911 return TCL_OK;
3912 fail:
3913 return TCL_ERROR;
3914 }
3915
3916
3917 static int
3918 _wrap_tinaTString_end_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3919 Tstring *arg1 = (Tstring *) 0 ;
3920 struct list *arg2 = (struct list *) 0 ;
3921
3922 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaTString_end_set self end ",0,0) == TCL_ERROR) SWIG_fail;
3923 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3924 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_list,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
3925 if (arg1) (arg1)->end = arg2;
3926
3927
3928 return TCL_OK;
3929 fail:
3930 return TCL_ERROR;
3931 }
3932
3933
3934 static int
3935 _wrap_tinaTString_end_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3936 Tstring *arg1 = (Tstring *) 0 ;
3937 struct list *result;
3938
3939 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTString_end_get self ",0) == TCL_ERROR) SWIG_fail;
3940 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3941 result = (struct list *) ((arg1)->end);
3942
3943 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_list,0));
3944 return TCL_OK;
3945 fail:
3946 return TCL_ERROR;
3947 }
3948
3949
3950 static int
3951 _wrap_tinaTString_count_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3952 Tstring *arg1 = (Tstring *) 0 ;
3953 int arg2 ;
3954
3955 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaTString_count_set self count ",0,&arg2) == TCL_ERROR) SWIG_fail;
3956 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3957 if (arg1) (arg1)->count = arg2;
3958
3959
3960 return TCL_OK;
3961 fail:
3962 return TCL_ERROR;
3963 }
3964
3965
3966 static int
3967 _wrap_tinaTString_count_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3968 Tstring *arg1 = (Tstring *) 0 ;
3969 int result;
3970
3971 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTString_count_get self ",0) == TCL_ERROR) SWIG_fail;
3972 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3973 result = (int) ((arg1)->count);
3974
3975 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
3976 return TCL_OK;
3977 fail:
3978 return TCL_ERROR;
3979 }
3980
3981
3982 static int
3983 _wrap_tinaTString_props_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3984 Tstring *arg1 = (Tstring *) 0 ;
3985 struct list *arg2 = (struct list *) 0 ;
3986
3987 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaTString_props_set self props ",0,0) == TCL_ERROR) SWIG_fail;
3988 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3989 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_list,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
3990 if (arg1) (arg1)->props = arg2;
3991
3992
3993 return TCL_OK;
3994 fail:
3995 return TCL_ERROR;
3996 }
3997
3998
3999 static int
4000 _wrap_tinaTString_props_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4001 Tstring *arg1 = (Tstring *) 0 ;
4002 struct list *result;
4003
4004 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTString_props_get self ",0) == TCL_ERROR) SWIG_fail;
4005 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4006 result = (struct list *) ((arg1)->props);
4007
4008 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_list,0));
4009 return TCL_OK;
4010 fail:
4011 return TCL_ERROR;
4012 }
4013
4014
4015 static int
4016 _wrap_new_tinaTString(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4017 Tstring *result;
4018
4019 if (SWIG_GetArgs(interp, objc, objv,":new_tinaTString ") == TCL_ERROR) SWIG_fail;
4020 result = (Tstring *)(Tstring *) calloc(1, sizeof(Tstring));
4021
4022 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Tstring,0));
4023 return TCL_OK;
4024 fail:
4025 return TCL_ERROR;
4026 }
4027
4028
4029 static int
4030 _wrap_delete_tinaTString(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4031 Tstring *arg1 = (Tstring *) 0 ;
4032
4033 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaTString self ",0) == TCL_ERROR) SWIG_fail;
4034 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4035 free((char *) arg1);
4036
4037
4038 return TCL_OK;
4039 fail:
4040 return TCL_ERROR;
4041 }
4042
4043
4044 static void swig_delete_tinaTString(void *obj) {
4045 Tstring *arg1 = (Tstring *) obj;
4046 free((char *) arg1);
4047 }
4048 static swig_method swig_Tstring_methods[] = {
4049 {0,0}
4050 };
4051 static swig_attribute swig_Tstring_attributes[] = {
4052 { "-tinaTsId",_wrap_tinaTString_tinaTsId_get, _wrap_tinaTString_tinaTsId_set},
4053 { "-type",_wrap_tinaTString_type_get, _wrap_tinaTString_type_set},
4054 { "-start",_wrap_tinaTString_start_get, _wrap_tinaTString_start_set},
4055 { "-end",_wrap_tinaTString_end_get, _wrap_tinaTString_end_set},
4056 { "-count",_wrap_tinaTString_count_get, _wrap_tinaTString_count_set},
4057 { "-props",_wrap_tinaTString_props_get, _wrap_tinaTString_props_set},
4058 {0,0,0}
4059 };
4060 static swig_class *swig_Tstring_bases[] = {0};
4061 swig_class _wrap_class_Tstring = { "tinaTString", &SWIGTYPE_p_Tstring,_wrap_new_tinaTString, swig_delete_tinaTString, swig_Tstring_methods, swig_Tstring_attributes, swig_Tstring_bases };
4062 static int
4063 _wrap_tinaProp_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4064 Prop *arg1 = (Prop *) 0 ;
4065 int arg2 ;
4066
4067 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaProp_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
4068 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4069 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
4070
4071
4072 return TCL_OK;
4073 fail:
4074 return TCL_ERROR;
4075 }
4076
4077
4078 static int
4079 _wrap_tinaProp_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4080 Prop *arg1 = (Prop *) 0 ;
4081 int result;
4082
4083 if (SWIG_GetArgs(interp, objc, objv,"o:tinaProp_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
4084 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4085 result = (int) ((arg1)->ts_id);
4086
4087 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
4088 return TCL_OK;
4089 fail:
4090 return TCL_ERROR;
4091 }
4092
4093
4094 static int
4095 _wrap_tinaProp_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4096 Prop *arg1 = (Prop *) 0 ;
4097 int arg2 ;
4098
4099 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaProp_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
4100 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4101 if (arg1) (arg1)->type = arg2;
4102
4103
4104 return TCL_OK;
4105 fail:
4106 return TCL_ERROR;
4107 }
4108
4109
4110 static int
4111 _wrap_tinaProp_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4112 Prop *arg1 = (Prop *) 0 ;
4113 int result;
4114
4115 if (SWIG_GetArgs(interp, objc, objv,"o:tinaProp_type_get self ",0) == TCL_ERROR) SWIG_fail;
4116 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4117 result = (int) ((arg1)->type);
4118
4119 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
4120 return TCL_OK;
4121 fail:
4122 return TCL_ERROR;
4123 }
4124
4125
4126 static int
4127 _wrap_tinaProp_count_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4128 Prop *arg1 = (Prop *) 0 ;
4129 int arg2 ;
4130
4131 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaProp_count_set self count ",0,&arg2) == TCL_ERROR) SWIG_fail;
4132 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4133 if (arg1) (arg1)->count = arg2;
4134
4135
4136 return TCL_OK;
4137 fail:
4138 return TCL_ERROR;
4139 }
4140
4141
4142 static int
4143 _wrap_tinaProp_count_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4144 Prop *arg1 = (Prop *) 0 ;
4145 int result;
4146
4147 if (SWIG_GetArgs(interp, objc, objv,"o:tinaProp_count_get self ",0) == TCL_ERROR) SWIG_fail;
4148 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4149 result = (int) ((arg1)->count);
4150
4151 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
4152 return TCL_OK;
4153 fail:
4154 return TCL_ERROR;
4155 }
4156
4157
4158 static int
4159 _wrap_tinaProp_freefunc_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4160 Prop *arg1 = (Prop *) 0 ;
4161 void (*arg2)() = (void (*)()) 0 ;
4162
4163 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaProp_freefunc_set self freefunc ",0,0) == TCL_ERROR) SWIG_fail;
4164 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4165 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_f___void,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4166 if (arg1) (arg1)->freefunc = arg2;
4167
4168
4169 return TCL_OK;
4170 fail:
4171 return TCL_ERROR;
4172 }
4173
4174
4175 static int
4176 _wrap_tinaProp_freefunc_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4177 Prop *arg1 = (Prop *) 0 ;
4178 void (*result)();
4179
4180 if (SWIG_GetArgs(interp, objc, objv,"o:tinaProp_freefunc_get self ",0) == TCL_ERROR) SWIG_fail;
4181 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4182 result = (void (*)()) ((arg1)->freefunc);
4183
4184 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_f___void,0));
4185 return TCL_OK;
4186 fail:
4187 return TCL_ERROR;
4188 }
4189
4190
4191 static int
4192 _wrap_tinaProp_to_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4193 Prop *arg1 = (Prop *) 0 ;
4194 void *arg2 = (void *) 0 ;
4195
4196 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaProp_to_set self to ",0,0) == TCL_ERROR) SWIG_fail;
4197 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4198 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, 0,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
4199 if (arg1) (arg1)->to = arg2;
4200
4201
4202 return TCL_OK;
4203 fail:
4204 return TCL_ERROR;
4205 }
4206
4207
4208 static int
4209 _wrap_tinaProp_to_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4210 Prop *arg1 = (Prop *) 0 ;
4211 void *result;
4212
4213 if (SWIG_GetArgs(interp, objc, objv,"o:tinaProp_to_get self ",0) == TCL_ERROR) SWIG_fail;
4214 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4215 result = (void *) ((arg1)->to);
4216
4217 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_void,0));
4218 return TCL_OK;
4219 fail:
4220 return TCL_ERROR;
4221 }
4222
4223
4224 static int
4225 _wrap_new_tinaProp(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4226 Prop *result;
4227
4228 if (SWIG_GetArgs(interp, objc, objv,":new_tinaProp ") == TCL_ERROR) SWIG_fail;
4229 result = (Prop *)(Prop *) calloc(1, sizeof(Prop));
4230
4231 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Prop,0));
4232 return TCL_OK;
4233 fail:
4234 return TCL_ERROR;
4235 }
4236
4237
4238 static int
4239 _wrap_delete_tinaProp(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4240 Prop *arg1 = (Prop *) 0 ;
4241
4242 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaProp self ",0) == TCL_ERROR) SWIG_fail;
4243 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4244 free((char *) arg1);
4245
4246
4247 return TCL_OK;
4248 fail:
4249 return TCL_ERROR;
4250 }
4251
4252
4253 static void swig_delete_tinaProp(void *obj) {
4254 Prop *arg1 = (Prop *) obj;
4255 free((char *) arg1);
4256 }
4257 static swig_method swig_Prop_methods[] = {
4258 {0,0}
4259 };
4260 static swig_attribute swig_Prop_attributes[] = {
4261 { "-tinaTsId",_wrap_tinaProp_tinaTsId_get, _wrap_tinaProp_tinaTsId_set},
4262 { "-type",_wrap_tinaProp_type_get, _wrap_tinaProp_type_set},
4263 { "-count",_wrap_tinaProp_count_get, _wrap_tinaProp_count_set},
4264 { "-freefunc",_wrap_tinaProp_freefunc_get, _wrap_tinaProp_freefunc_set},
4265 { "-to",_wrap_tinaProp_to_get, _wrap_tinaProp_to_set},
4266 {0,0,0}
4267 };
4268 static swig_class *swig_Prop_bases[] = {0};
4269 swig_class _wrap_class_Prop = { "tinaProp", &SWIGTYPE_p_Prop,_wrap_new_tinaProp, swig_delete_tinaProp, swig_Prop_methods, swig_Prop_attributes, swig_Prop_bases };
4270 static int
4271 _wrap_tinaMatch_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4272 Match *arg1 = (Match *) 0 ;
4273 int arg2 ;
4274
4275 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaMatch_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
4276 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Match,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4277 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
4278
4279
4280 return TCL_OK;
4281 fail:
4282 return TCL_ERROR;
4283 }
4284
4285
4286 static int
4287 _wrap_tinaMatch_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4288 Match *arg1 = (Match *) 0 ;
4289 int result;
4290
4291 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMatch_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
4292 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Match,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4293 result = (int) ((arg1)->ts_id);
4294
4295 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
4296 return TCL_OK;
4297 fail:
4298 return TCL_ERROR;
4299 }
4300
4301
4302 static int
4303 _wrap_tinaMatch_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4304 Match *arg1 = (Match *) 0 ;
4305 int arg2 ;
4306
4307 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaMatch_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
4308 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Match,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4309 if (arg1) (arg1)->type = arg2;
4310
4311
4312 return TCL_OK;
4313 fail:
4314 return TCL_ERROR;
4315 }
4316
4317
4318 static int
4319 _wrap_tinaMatch_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4320 Match *arg1 = (Match *) 0 ;
4321 int result;
4322
4323 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMatch_type_get self ",0) == TCL_ERROR) SWIG_fail;
4324 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Match,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4325 result = (int) ((arg1)->type);
4326
4327 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
4328 return TCL_OK;
4329 fail:
4330 return TCL_ERROR;
4331 }
4332
4333
4334 static int
4335 _wrap_tinaMatch_label_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4336 Match *arg1 = (Match *) 0 ;
4337 int arg2 ;
4338
4339 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaMatch_label_set self label ",0,&arg2) == TCL_ERROR) SWIG_fail;
4340 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Match,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4341 if (arg1) (arg1)->label = arg2;
4342
4343
4344 return TCL_OK;
4345 fail:
4346 return TCL_ERROR;
4347 }
4348
4349
4350 static int
4351 _wrap_tinaMatch_label_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4352 Match *arg1 = (Match *) 0 ;
4353 int result;
4354
4355 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMatch_label_get self ",0) == TCL_ERROR) SWIG_fail;
4356 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Match,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4357 result = (int) ((arg1)->label);
4358
4359 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
4360 return TCL_OK;
4361 fail:
4362 return TCL_ERROR;
4363 }
4364
4365
4366 static int
4367 _wrap_tinaMatch_weight_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4368 Match *arg1 = (Match *) 0 ;
4369 float arg2 ;
4370
4371 if (SWIG_GetArgs(interp, objc, objv,"of:tinaMatch_weight_set self weight ",0,&arg2) == TCL_ERROR) SWIG_fail;
4372 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Match,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4373 if (arg1) (arg1)->weight = arg2;
4374
4375
4376 return TCL_OK;
4377 fail:
4378 return TCL_ERROR;
4379 }
4380
4381
4382 static int
4383 _wrap_tinaMatch_weight_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4384 Match *arg1 = (Match *) 0 ;
4385 float result;
4386
4387 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMatch_weight_get self ",0) == TCL_ERROR) SWIG_fail;
4388 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Match,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4389 result = (float) ((arg1)->weight);
4390
4391 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
4392 return TCL_OK;
4393 fail:
4394 return TCL_ERROR;
4395 }
4396
4397
4398 static int
4399 _wrap_tinaMatch_to1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4400 Match *arg1 = (Match *) 0 ;
4401 void *arg2 = (void *) 0 ;
4402
4403 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaMatch_to1_set self to1 ",0,0) == TCL_ERROR) SWIG_fail;
4404 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Match,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4405 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, 0,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
4406 if (arg1) (arg1)->to1 = arg2;
4407
4408
4409 return TCL_OK;
4410 fail:
4411 return TCL_ERROR;
4412 }
4413
4414
4415 static int
4416 _wrap_tinaMatch_to1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4417 Match *arg1 = (Match *) 0 ;
4418 void *result;
4419
4420 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMatch_to1_get self ",0) == TCL_ERROR) SWIG_fail;
4421 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Match,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4422 result = (void *) ((arg1)->to1);
4423
4424 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_void,0));
4425 return TCL_OK;
4426 fail:
4427 return TCL_ERROR;
4428 }
4429
4430
4431 static int
4432 _wrap_tinaMatch_to2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4433 Match *arg1 = (Match *) 0 ;
4434 void *arg2 = (void *) 0 ;
4435
4436 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaMatch_to2_set self to2 ",0,0) == TCL_ERROR) SWIG_fail;
4437 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Match,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4438 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, 0,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
4439 if (arg1) (arg1)->to2 = arg2;
4440
4441
4442 return TCL_OK;
4443 fail:
4444 return TCL_ERROR;
4445 }
4446
4447
4448 static int
4449 _wrap_tinaMatch_to2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4450 Match *arg1 = (Match *) 0 ;
4451 void *result;
4452
4453 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMatch_to2_get self ",0) == TCL_ERROR) SWIG_fail;
4454 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Match,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4455 result = (void *) ((arg1)->to2);
4456
4457 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_void,0));
4458 return TCL_OK;
4459 fail:
4460 return TCL_ERROR;
4461 }
4462
4463
4464 static int
4465 _wrap_tinaMatch_props_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4466 Match *arg1 = (Match *) 0 ;
4467 struct list *arg2 = (struct list *) 0 ;
4468
4469 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaMatch_props_set self props ",0,0) == TCL_ERROR) SWIG_fail;
4470 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Match,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4471 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_list,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
4472 if (arg1) (arg1)->props = arg2;
4473
4474
4475 return TCL_OK;
4476 fail:
4477 return TCL_ERROR;
4478 }
4479
4480
4481 static int
4482 _wrap_tinaMatch_props_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4483 Match *arg1 = (Match *) 0 ;
4484 struct list *result;
4485
4486 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMatch_props_get self ",0) == TCL_ERROR) SWIG_fail;
4487 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Match,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4488 result = (struct list *) ((arg1)->props);
4489
4490 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_list,0));
4491 return TCL_OK;
4492 fail:
4493 return TCL_ERROR;
4494 }
4495
4496
4497 static int
4498 _wrap_new_tinaMatch(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4499 Match *result;
4500
4501 if (SWIG_GetArgs(interp, objc, objv,":new_tinaMatch ") == TCL_ERROR) SWIG_fail;
4502 result = (Match *)(Match *) calloc(1, sizeof(Match));
4503
4504 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Match,0));
4505 return TCL_OK;
4506 fail:
4507 return TCL_ERROR;
4508 }
4509
4510
4511 static int
4512 _wrap_delete_tinaMatch(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4513 Match *arg1 = (Match *) 0 ;
4514
4515 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaMatch self ",0) == TCL_ERROR) SWIG_fail;
4516 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Match,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4517 free((char *) arg1);
4518
4519
4520 return TCL_OK;
4521 fail:
4522 return TCL_ERROR;
4523 }
4524
4525
4526 static void swig_delete_tinaMatch(void *obj) {
4527 Match *arg1 = (Match *) obj;
4528 free((char *) arg1);
4529 }
4530 static swig_method swig_Match_methods[] = {
4531 {0,0}
4532 };
4533 static swig_attribute swig_Match_attributes[] = {
4534 { "-tinaTsId",_wrap_tinaMatch_tinaTsId_get, _wrap_tinaMatch_tinaTsId_set},
4535 { "-type",_wrap_tinaMatch_type_get, _wrap_tinaMatch_type_set},
4536 { "-label",_wrap_tinaMatch_label_get, _wrap_tinaMatch_label_set},
4537 { "-weight",_wrap_tinaMatch_weight_get, _wrap_tinaMatch_weight_set},
4538 { "-to1",_wrap_tinaMatch_to1_get, _wrap_tinaMatch_to1_set},
4539 { "-to2",_wrap_tinaMatch_to2_get, _wrap_tinaMatch_to2_set},
4540 { "-props",_wrap_tinaMatch_props_get, _wrap_tinaMatch_props_set},
4541 {0,0,0}
4542 };
4543 static swig_class *swig_Match_bases[] = {0};
4544 swig_class _wrap_class_Match = { "tinaMatch", &SWIGTYPE_p_Match,_wrap_new_tinaMatch, swig_delete_tinaMatch, swig_Match_methods, swig_Match_attributes, swig_Match_bases };
4545 static int
4546 _wrap_tinaPair_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4547 Pair *arg1 = (Pair *) 0 ;
4548 int arg2 ;
4549
4550 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaPair_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
4551 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pair,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4552 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
4553
4554
4555 return TCL_OK;
4556 fail:
4557 return TCL_ERROR;
4558 }
4559
4560
4561 static int
4562 _wrap_tinaPair_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4563 Pair *arg1 = (Pair *) 0 ;
4564 int result;
4565
4566 if (SWIG_GetArgs(interp, objc, objv,"o:tinaPair_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
4567 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pair,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4568 result = (int) ((arg1)->ts_id);
4569
4570 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
4571 return TCL_OK;
4572 fail:
4573 return TCL_ERROR;
4574 }
4575
4576
4577 static int
4578 _wrap_tinaPair_type1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4579 Pair *arg1 = (Pair *) 0 ;
4580 int arg2 ;
4581
4582 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaPair_type1_set self type1 ",0,&arg2) == TCL_ERROR) SWIG_fail;
4583 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pair,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4584 if (arg1) (arg1)->type1 = arg2;
4585
4586
4587 return TCL_OK;
4588 fail:
4589 return TCL_ERROR;
4590 }
4591
4592
4593 static int
4594 _wrap_tinaPair_type1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4595 Pair *arg1 = (Pair *) 0 ;
4596 int result;
4597
4598 if (SWIG_GetArgs(interp, objc, objv,"o:tinaPair_type1_get self ",0) == TCL_ERROR) SWIG_fail;
4599 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pair,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4600 result = (int) ((arg1)->type1);
4601
4602 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
4603 return TCL_OK;
4604 fail:
4605 return TCL_ERROR;
4606 }
4607
4608
4609 static int
4610 _wrap_tinaPair_type2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4611 Pair *arg1 = (Pair *) 0 ;
4612 int arg2 ;
4613
4614 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaPair_type2_set self type2 ",0,&arg2) == TCL_ERROR) SWIG_fail;
4615 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pair,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4616 if (arg1) (arg1)->type2 = arg2;
4617
4618
4619 return TCL_OK;
4620 fail:
4621 return TCL_ERROR;
4622 }
4623
4624
4625 static int
4626 _wrap_tinaPair_type2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4627 Pair *arg1 = (Pair *) 0 ;
4628 int result;
4629
4630 if (SWIG_GetArgs(interp, objc, objv,"o:tinaPair_type2_get self ",0) == TCL_ERROR) SWIG_fail;
4631 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pair,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4632 result = (int) ((arg1)->type2);
4633
4634 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
4635 return TCL_OK;
4636 fail:
4637 return TCL_ERROR;
4638 }
4639
4640
4641 static int
4642 _wrap_tinaPair_to1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4643 Pair *arg1 = (Pair *) 0 ;
4644 void *arg2 = (void *) 0 ;
4645
4646 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaPair_to1_set self to1 ",0,0) == TCL_ERROR) SWIG_fail;
4647 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pair,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4648 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, 0,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
4649 if (arg1) (arg1)->to1 = arg2;
4650
4651
4652 return TCL_OK;
4653 fail:
4654 return TCL_ERROR;
4655 }
4656
4657
4658 static int
4659 _wrap_tinaPair_to1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4660 Pair *arg1 = (Pair *) 0 ;
4661 void *result;
4662
4663 if (SWIG_GetArgs(interp, objc, objv,"o:tinaPair_to1_get self ",0) == TCL_ERROR) SWIG_fail;
4664 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pair,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4665 result = (void *) ((arg1)->to1);
4666
4667 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_void,0));
4668 return TCL_OK;
4669 fail:
4670 return TCL_ERROR;
4671 }
4672
4673
4674 static int
4675 _wrap_tinaPair_to2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4676 Pair *arg1 = (Pair *) 0 ;
4677 void *arg2 = (void *) 0 ;
4678
4679 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaPair_to2_set self to2 ",0,0) == TCL_ERROR) SWIG_fail;
4680 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pair,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4681 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, 0,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
4682 if (arg1) (arg1)->to2 = arg2;
4683
4684
4685 return TCL_OK;
4686 fail:
4687 return TCL_ERROR;
4688 }
4689
4690
4691 static int
4692 _wrap_tinaPair_to2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4693 Pair *arg1 = (Pair *) 0 ;
4694 void *result;
4695
4696 if (SWIG_GetArgs(interp, objc, objv,"o:tinaPair_to2_get self ",0) == TCL_ERROR) SWIG_fail;
4697 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pair,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4698 result = (void *) ((arg1)->to2);
4699
4700 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_void,0));
4701 return TCL_OK;
4702 fail:
4703 return TCL_ERROR;
4704 }
4705
4706
4707 static int
4708 _wrap_new_tinaPair(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4709 Pair *result;
4710
4711 if (SWIG_GetArgs(interp, objc, objv,":new_tinaPair ") == TCL_ERROR) SWIG_fail;
4712 result = (Pair *)(Pair *) calloc(1, sizeof(Pair));
4713
4714 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Pair,0));
4715 return TCL_OK;
4716 fail:
4717 return TCL_ERROR;
4718 }
4719
4720
4721 static int
4722 _wrap_delete_tinaPair(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4723 Pair *arg1 = (Pair *) 0 ;
4724
4725 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaPair self ",0) == TCL_ERROR) SWIG_fail;
4726 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pair,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4727 free((char *) arg1);
4728
4729
4730 return TCL_OK;
4731 fail:
4732 return TCL_ERROR;
4733 }
4734
4735
4736 static void swig_delete_tinaPair(void *obj) {
4737 Pair *arg1 = (Pair *) obj;
4738 free((char *) arg1);
4739 }
4740 static swig_method swig_Pair_methods[] = {
4741 {0,0}
4742 };
4743 static swig_attribute swig_Pair_attributes[] = {
4744 { "-tinaTsId",_wrap_tinaPair_tinaTsId_get, _wrap_tinaPair_tinaTsId_set},
4745 { "-type1",_wrap_tinaPair_type1_get, _wrap_tinaPair_type1_set},
4746 { "-type2",_wrap_tinaPair_type2_get, _wrap_tinaPair_type2_set},
4747 { "-to1",_wrap_tinaPair_to1_get, _wrap_tinaPair_to1_set},
4748 { "-to2",_wrap_tinaPair_to2_get, _wrap_tinaPair_to2_set},
4749 {0,0,0}
4750 };
4751 static swig_class *swig_Pair_bases[] = {0};
4752 swig_class _wrap_class_Pair = { "tinaPair", &SWIGTYPE_p_Pair,_wrap_new_tinaPair, swig_delete_tinaPair, swig_Pair_methods, swig_Pair_attributes, swig_Pair_bases };
4753 static int
4754 _wrap_tinaGeneric_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4755 Generic *arg1 = (Generic *) 0 ;
4756 int arg2 ;
4757
4758 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaGeneric_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
4759 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Generic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4760 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
4761
4762
4763 return TCL_OK;
4764 fail:
4765 return TCL_ERROR;
4766 }
4767
4768
4769 static int
4770 _wrap_tinaGeneric_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4771 Generic *arg1 = (Generic *) 0 ;
4772 int result;
4773
4774 if (SWIG_GetArgs(interp, objc, objv,"o:tinaGeneric_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
4775 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Generic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4776 result = (int) ((arg1)->ts_id);
4777
4778 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
4779 return TCL_OK;
4780 fail:
4781 return TCL_ERROR;
4782 }
4783
4784
4785 static int
4786 _wrap_tinaGeneric_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4787 Generic *arg1 = (Generic *) 0 ;
4788 unsigned int arg2 ;
4789
4790 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaGeneric_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
4791 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Generic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4792 if (arg1) (arg1)->type = arg2;
4793
4794
4795 return TCL_OK;
4796 fail:
4797 return TCL_ERROR;
4798 }
4799
4800
4801 static int
4802 _wrap_tinaGeneric_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4803 Generic *arg1 = (Generic *) 0 ;
4804 unsigned int result;
4805
4806 if (SWIG_GetArgs(interp, objc, objv,"o:tinaGeneric_type_get self ",0) == TCL_ERROR) SWIG_fail;
4807 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Generic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4808 result = (unsigned int) ((arg1)->type);
4809
4810 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
4811 return TCL_OK;
4812 fail:
4813 return TCL_ERROR;
4814 }
4815
4816
4817 static int
4818 _wrap_tinaGeneric_label_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4819 Generic *arg1 = (Generic *) 0 ;
4820 unsigned int arg2 ;
4821
4822 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaGeneric_label_set self label ",0,&arg2) == TCL_ERROR) SWIG_fail;
4823 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Generic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4824 if (arg1) (arg1)->label = arg2;
4825
4826
4827 return TCL_OK;
4828 fail:
4829 return TCL_ERROR;
4830 }
4831
4832
4833 static int
4834 _wrap_tinaGeneric_label_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4835 Generic *arg1 = (Generic *) 0 ;
4836 unsigned int result;
4837
4838 if (SWIG_GetArgs(interp, objc, objv,"o:tinaGeneric_label_get self ",0) == TCL_ERROR) SWIG_fail;
4839 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Generic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4840 result = (unsigned int) ((arg1)->label);
4841
4842 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
4843 return TCL_OK;
4844 fail:
4845 return TCL_ERROR;
4846 }
4847
4848
4849 static int
4850 _wrap_tinaGeneric_to_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4851 Generic *arg1 = (Generic *) 0 ;
4852 void *arg2 = (void *) 0 ;
4853
4854 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaGeneric_to_set self to ",0,0) == TCL_ERROR) SWIG_fail;
4855 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Generic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4856 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, 0,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
4857 if (arg1) (arg1)->to = arg2;
4858
4859
4860 return TCL_OK;
4861 fail:
4862 return TCL_ERROR;
4863 }
4864
4865
4866 static int
4867 _wrap_tinaGeneric_to_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4868 Generic *arg1 = (Generic *) 0 ;
4869 void *result;
4870
4871 if (SWIG_GetArgs(interp, objc, objv,"o:tinaGeneric_to_get self ",0) == TCL_ERROR) SWIG_fail;
4872 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Generic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4873 result = (void *) ((arg1)->to);
4874
4875 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_void,0));
4876 return TCL_OK;
4877 fail:
4878 return TCL_ERROR;
4879 }
4880
4881
4882 static int
4883 _wrap_tinaGeneric_props_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4884 Generic *arg1 = (Generic *) 0 ;
4885 struct list *arg2 = (struct list *) 0 ;
4886
4887 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaGeneric_props_set self props ",0,0) == TCL_ERROR) SWIG_fail;
4888 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Generic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4889 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_list,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
4890 if (arg1) (arg1)->props = arg2;
4891
4892
4893 return TCL_OK;
4894 fail:
4895 return TCL_ERROR;
4896 }
4897
4898
4899 static int
4900 _wrap_tinaGeneric_props_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4901 Generic *arg1 = (Generic *) 0 ;
4902 struct list *result;
4903
4904 if (SWIG_GetArgs(interp, objc, objv,"o:tinaGeneric_props_get self ",0) == TCL_ERROR) SWIG_fail;
4905 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Generic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4906 result = (struct list *) ((arg1)->props);
4907
4908 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_list,0));
4909 return TCL_OK;
4910 fail:
4911 return TCL_ERROR;
4912 }
4913
4914
4915 static int
4916 _wrap_new_tinaGeneric(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4917 Generic *result;
4918
4919 if (SWIG_GetArgs(interp, objc, objv,":new_tinaGeneric ") == TCL_ERROR) SWIG_fail;
4920 result = (Generic *)(Generic *) calloc(1, sizeof(Generic));
4921
4922 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Generic,0));
4923 return TCL_OK;
4924 fail:
4925 return TCL_ERROR;
4926 }
4927
4928
4929 static int
4930 _wrap_delete_tinaGeneric(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4931 Generic *arg1 = (Generic *) 0 ;
4932
4933 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaGeneric self ",0) == TCL_ERROR) SWIG_fail;
4934 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Generic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4935 free((char *) arg1);
4936
4937
4938 return TCL_OK;
4939 fail:
4940 return TCL_ERROR;
4941 }
4942
4943
4944 static void swig_delete_tinaGeneric(void *obj) {
4945 Generic *arg1 = (Generic *) obj;
4946 free((char *) arg1);
4947 }
4948 static swig_method swig_Generic_methods[] = {
4949 {0,0}
4950 };
4951 static swig_attribute swig_Generic_attributes[] = {
4952 { "-tinaTsId",_wrap_tinaGeneric_tinaTsId_get, _wrap_tinaGeneric_tinaTsId_set},
4953 { "-type",_wrap_tinaGeneric_type_get, _wrap_tinaGeneric_type_set},
4954 { "-label",_wrap_tinaGeneric_label_get, _wrap_tinaGeneric_label_set},
4955 { "-to",_wrap_tinaGeneric_to_get, _wrap_tinaGeneric_to_set},
4956 { "-props",_wrap_tinaGeneric_props_get, _wrap_tinaGeneric_props_set},
4957 {0,0,0}
4958 };
4959 static swig_class *swig_Generic_bases[] = {0};
4960 swig_class _wrap_class_Generic = { "tinaGeneric", &SWIGTYPE_p_Generic,_wrap_new_tinaGeneric, swig_delete_tinaGeneric, swig_Generic_methods, swig_Generic_attributes, swig_Generic_bases };
4961 static int
4962 _wrap_tinaCovar_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4963 Covar *arg1 = (Covar *) 0 ;
4964 int arg2 ;
4965
4966 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaCovar_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
4967 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Covar,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4968 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
4969
4970
4971 return TCL_OK;
4972 fail:
4973 return TCL_ERROR;
4974 }
4975
4976
4977 static int
4978 _wrap_tinaCovar_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4979 Covar *arg1 = (Covar *) 0 ;
4980 int result;
4981
4982 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCovar_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
4983 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Covar,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4984 result = (int) ((arg1)->ts_id);
4985
4986 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
4987 return TCL_OK;
4988 fail:
4989 return TCL_ERROR;
4990 }
4991
4992
4993 static int
4994 _wrap_tinaCovar_n_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4995 Covar *arg1 = (Covar *) 0 ;
4996 int arg2 ;
4997
4998 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaCovar_n_set self n ",0,&arg2) == TCL_ERROR) SWIG_fail;
4999 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Covar,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5000 if (arg1) (arg1)->n = arg2;
5001
5002
5003 return TCL_OK;
5004 fail:
5005 return TCL_ERROR;
5006 }
5007
5008
5009 static int
5010 _wrap_tinaCovar_n_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5011 Covar *arg1 = (Covar *) 0 ;
5012 int result;
5013
5014 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCovar_n_get self ",0) == TCL_ERROR) SWIG_fail;
5015 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Covar,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5016 result = (int) ((arg1)->n);
5017
5018 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
5019 return TCL_OK;
5020 fail:
5021 return TCL_ERROR;
5022 }
5023
5024
5025 static int
5026 _wrap_tinaCovar_label_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5027 Covar *arg1 = (Covar *) 0 ;
5028 int arg2 ;
5029
5030 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaCovar_label_set self label ",0,&arg2) == TCL_ERROR) SWIG_fail;
5031 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Covar,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5032 if (arg1) (arg1)->label = arg2;
5033
5034
5035 return TCL_OK;
5036 fail:
5037 return TCL_ERROR;
5038 }
5039
5040
5041 static int
5042 _wrap_tinaCovar_label_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5043 Covar *arg1 = (Covar *) 0 ;
5044 int result;
5045
5046 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCovar_label_get self ",0) == TCL_ERROR) SWIG_fail;
5047 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Covar,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5048 result = (int) ((arg1)->label);
5049
5050 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
5051 return TCL_OK;
5052 fail:
5053 return TCL_ERROR;
5054 }
5055
5056
5057 static int
5058 _wrap_tinaCovar_tinaMat_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5059 Covar *arg1 = (Covar *) 0 ;
5060 struct matrix *arg2 = (struct matrix *) 0 ;
5061
5062 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaCovar_tinaMat_set self mat ",0,0) == TCL_ERROR) SWIG_fail;
5063 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Covar,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5064 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_matrix,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
5065 if (arg1) (arg1)->mat = arg2;
5066
5067
5068 return TCL_OK;
5069 fail:
5070 return TCL_ERROR;
5071 }
5072
5073
5074 static int
5075 _wrap_tinaCovar_tinaMat_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5076 Covar *arg1 = (Covar *) 0 ;
5077 struct matrix *result;
5078
5079 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCovar_tinaMat_get self ",0) == TCL_ERROR) SWIG_fail;
5080 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Covar,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5081 result = (struct matrix *) ((arg1)->mat);
5082
5083 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_matrix,0));
5084 return TCL_OK;
5085 fail:
5086 return TCL_ERROR;
5087 }
5088
5089
5090 static int
5091 _wrap_tinaCovar_tinaVec_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5092 Covar *arg1 = (Covar *) 0 ;
5093 struct vector *arg2 = (struct vector *) 0 ;
5094
5095 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaCovar_tinaVec_set self vec ",0,0) == TCL_ERROR) SWIG_fail;
5096 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Covar,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5097 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_vector,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
5098 if (arg1) (arg1)->vec = arg2;
5099
5100
5101 return TCL_OK;
5102 fail:
5103 return TCL_ERROR;
5104 }
5105
5106
5107 static int
5108 _wrap_tinaCovar_tinaVec_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5109 Covar *arg1 = (Covar *) 0 ;
5110 struct vector *result;
5111
5112 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCovar_tinaVec_get self ",0) == TCL_ERROR) SWIG_fail;
5113 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Covar,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5114 result = (struct vector *) ((arg1)->vec);
5115
5116 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_vector,0));
5117 return TCL_OK;
5118 fail:
5119 return TCL_ERROR;
5120 }
5121
5122
5123 static int
5124 _wrap_new_tinaCovar(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5125 Covar *result;
5126
5127 if (SWIG_GetArgs(interp, objc, objv,":new_tinaCovar ") == TCL_ERROR) SWIG_fail;
5128 result = (Covar *)(Covar *) calloc(1, sizeof(Covar));
5129
5130 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Covar,0));
5131 return TCL_OK;
5132 fail:
5133 return TCL_ERROR;
5134 }
5135
5136
5137 static int
5138 _wrap_delete_tinaCovar(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5139 Covar *arg1 = (Covar *) 0 ;
5140
5141 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaCovar self ",0) == TCL_ERROR) SWIG_fail;
5142 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Covar,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5143 free((char *) arg1);
5144
5145
5146 return TCL_OK;
5147 fail:
5148 return TCL_ERROR;
5149 }
5150
5151
5152 static void swig_delete_tinaCovar(void *obj) {
5153 Covar *arg1 = (Covar *) obj;
5154 free((char *) arg1);
5155 }
5156 static swig_method swig_Covar_methods[] = {
5157 {0,0}
5158 };
5159 static swig_attribute swig_Covar_attributes[] = {
5160 { "-tinaTsId",_wrap_tinaCovar_tinaTsId_get, _wrap_tinaCovar_tinaTsId_set},
5161 { "-n",_wrap_tinaCovar_n_get, _wrap_tinaCovar_n_set},
5162 { "-label",_wrap_tinaCovar_label_get, _wrap_tinaCovar_label_set},
5163 { "-tinaMat",_wrap_tinaCovar_tinaMat_get, _wrap_tinaCovar_tinaMat_set},
5164 { "-tinaVec",_wrap_tinaCovar_tinaVec_get, _wrap_tinaCovar_tinaVec_set},
5165 {0,0,0}
5166 };
5167 static swig_class *swig_Covar_bases[] = {0};
5168 swig_class _wrap_class_Covar = { "tinaCovar", &SWIGTYPE_p_Covar,_wrap_new_tinaCovar, swig_delete_tinaCovar, swig_Covar_methods, swig_Covar_attributes, swig_Covar_bases };
5169 static int
5170 _wrap_tinaPos2_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5171 Pos2 *arg1 = (Pos2 *) 0 ;
5172 int arg2 ;
5173
5174 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaPos2_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
5175 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5176 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
5177
5178
5179 return TCL_OK;
5180 fail:
5181 return TCL_ERROR;
5182 }
5183
5184
5185 static int
5186 _wrap_tinaPos2_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5187 Pos2 *arg1 = (Pos2 *) 0 ;
5188 int result;
5189
5190 if (SWIG_GetArgs(interp, objc, objv,"o:tinaPos2_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
5191 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5192 result = (int) ((arg1)->ts_id);
5193
5194 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
5195 return TCL_OK;
5196 fail:
5197 return TCL_ERROR;
5198 }
5199
5200
5201 static int
5202 _wrap_tinaPos2_x_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5203 Pos2 *arg1 = (Pos2 *) 0 ;
5204 float arg2 ;
5205
5206 if (SWIG_GetArgs(interp, objc, objv,"of:tinaPos2_x_set self x ",0,&arg2) == TCL_ERROR) SWIG_fail;
5207 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5208 if (arg1) (arg1)->x = arg2;
5209
5210
5211 return TCL_OK;
5212 fail:
5213 return TCL_ERROR;
5214 }
5215
5216
5217 static int
5218 _wrap_tinaPos2_x_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5219 Pos2 *arg1 = (Pos2 *) 0 ;
5220 float result;
5221
5222 if (SWIG_GetArgs(interp, objc, objv,"o:tinaPos2_x_get self ",0) == TCL_ERROR) SWIG_fail;
5223 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5224 result = (float) ((arg1)->x);
5225
5226 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
5227 return TCL_OK;
5228 fail:
5229 return TCL_ERROR;
5230 }
5231
5232
5233 static int
5234 _wrap_tinaPos2_y_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5235 Pos2 *arg1 = (Pos2 *) 0 ;
5236 float arg2 ;
5237
5238 if (SWIG_GetArgs(interp, objc, objv,"of:tinaPos2_y_set self y ",0,&arg2) == TCL_ERROR) SWIG_fail;
5239 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5240 if (arg1) (arg1)->y = arg2;
5241
5242
5243 return TCL_OK;
5244 fail:
5245 return TCL_ERROR;
5246 }
5247
5248
5249 static int
5250 _wrap_tinaPos2_y_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5251 Pos2 *arg1 = (Pos2 *) 0 ;
5252 float result;
5253
5254 if (SWIG_GetArgs(interp, objc, objv,"o:tinaPos2_y_get self ",0) == TCL_ERROR) SWIG_fail;
5255 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5256 result = (float) ((arg1)->y);
5257
5258 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
5259 return TCL_OK;
5260 fail:
5261 return TCL_ERROR;
5262 }
5263
5264
5265 static int
5266 _wrap_new_tinaPos2(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5267 Pos2 *result;
5268
5269 if (SWIG_GetArgs(interp, objc, objv,":new_tinaPos2 ") == TCL_ERROR) SWIG_fail;
5270 result = (Pos2 *)(Pos2 *) calloc(1, sizeof(Pos2));
5271
5272 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Pos2,0));
5273 return TCL_OK;
5274 fail:
5275 return TCL_ERROR;
5276 }
5277
5278
5279 static int
5280 _wrap_delete_tinaPos2(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5281 Pos2 *arg1 = (Pos2 *) 0 ;
5282
5283 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaPos2 self ",0) == TCL_ERROR) SWIG_fail;
5284 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5285 free((char *) arg1);
5286
5287
5288 return TCL_OK;
5289 fail:
5290 return TCL_ERROR;
5291 }
5292
5293
5294 static void swig_delete_tinaPos2(void *obj) {
5295 Pos2 *arg1 = (Pos2 *) obj;
5296 free((char *) arg1);
5297 }
5298 static swig_method swig_Pos2_methods[] = {
5299 {0,0}
5300 };
5301 static swig_attribute swig_Pos2_attributes[] = {
5302 { "-tinaTsId",_wrap_tinaPos2_tinaTsId_get, _wrap_tinaPos2_tinaTsId_set},
5303 { "-x",_wrap_tinaPos2_x_get, _wrap_tinaPos2_x_set},
5304 { "-y",_wrap_tinaPos2_y_get, _wrap_tinaPos2_y_set},
5305 {0,0,0}
5306 };
5307 static swig_class *swig_Pos2_bases[] = {0};
5308 swig_class _wrap_class_Pos2 = { "tinaPos2", &SWIGTYPE_p_Pos2,_wrap_new_tinaPos2, swig_delete_tinaPos2, swig_Pos2_methods, swig_Pos2_attributes, swig_Pos2_bases };
5309 static int
5310 _wrap_tinaIpos_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5311 Ipos *arg1 = (Ipos *) 0 ;
5312 int arg2 ;
5313
5314 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaIpos_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
5315 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Ipos,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5316 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
5317
5318
5319 return TCL_OK;
5320 fail:
5321 return TCL_ERROR;
5322 }
5323
5324
5325 static int
5326 _wrap_tinaIpos_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5327 Ipos *arg1 = (Ipos *) 0 ;
5328 int result;
5329
5330 if (SWIG_GetArgs(interp, objc, objv,"o:tinaIpos_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
5331 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Ipos,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5332 result = (int) ((arg1)->ts_id);
5333
5334 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
5335 return TCL_OK;
5336 fail:
5337 return TCL_ERROR;
5338 }
5339
5340
5341 static int
5342 _wrap_tinaIpos_x_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5343 Ipos *arg1 = (Ipos *) 0 ;
5344 int arg2 ;
5345
5346 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaIpos_x_set self x ",0,&arg2) == TCL_ERROR) SWIG_fail;
5347 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Ipos,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5348 if (arg1) (arg1)->x = arg2;
5349
5350
5351 return TCL_OK;
5352 fail:
5353 return TCL_ERROR;
5354 }
5355
5356
5357 static int
5358 _wrap_tinaIpos_x_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5359 Ipos *arg1 = (Ipos *) 0 ;
5360 int result;
5361
5362 if (SWIG_GetArgs(interp, objc, objv,"o:tinaIpos_x_get self ",0) == TCL_ERROR) SWIG_fail;
5363 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Ipos,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5364 result = (int) ((arg1)->x);
5365
5366 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
5367 return TCL_OK;
5368 fail:
5369 return TCL_ERROR;
5370 }
5371
5372
5373 static int
5374 _wrap_tinaIpos_y_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5375 Ipos *arg1 = (Ipos *) 0 ;
5376 int arg2 ;
5377
5378 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaIpos_y_set self y ",0,&arg2) == TCL_ERROR) SWIG_fail;
5379 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Ipos,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5380 if (arg1) (arg1)->y = arg2;
5381
5382
5383 return TCL_OK;
5384 fail:
5385 return TCL_ERROR;
5386 }
5387
5388
5389 static int
5390 _wrap_tinaIpos_y_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5391 Ipos *arg1 = (Ipos *) 0 ;
5392 int result;
5393
5394 if (SWIG_GetArgs(interp, objc, objv,"o:tinaIpos_y_get self ",0) == TCL_ERROR) SWIG_fail;
5395 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Ipos,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5396 result = (int) ((arg1)->y);
5397
5398 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
5399 return TCL_OK;
5400 fail:
5401 return TCL_ERROR;
5402 }
5403
5404
5405 static int
5406 _wrap_new_tinaIpos(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5407 Ipos *result;
5408
5409 if (SWIG_GetArgs(interp, objc, objv,":new_tinaIpos ") == TCL_ERROR) SWIG_fail;
5410 result = (Ipos *)(Ipos *) calloc(1, sizeof(Ipos));
5411
5412 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Ipos,0));
5413 return TCL_OK;
5414 fail:
5415 return TCL_ERROR;
5416 }
5417
5418
5419 static int
5420 _wrap_delete_tinaIpos(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5421 Ipos *arg1 = (Ipos *) 0 ;
5422
5423 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaIpos self ",0) == TCL_ERROR) SWIG_fail;
5424 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Ipos,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5425 free((char *) arg1);
5426
5427
5428 return TCL_OK;
5429 fail:
5430 return TCL_ERROR;
5431 }
5432
5433
5434 static void swig_delete_tinaIpos(void *obj) {
5435 Ipos *arg1 = (Ipos *) obj;
5436 free((char *) arg1);
5437 }
5438 static swig_method swig_Ipos_methods[] = {
5439 {0,0}
5440 };
5441 static swig_attribute swig_Ipos_attributes[] = {
5442 { "-tinaTsId",_wrap_tinaIpos_tinaTsId_get, _wrap_tinaIpos_tinaTsId_set},
5443 { "-x",_wrap_tinaIpos_x_get, _wrap_tinaIpos_x_set},
5444 { "-y",_wrap_tinaIpos_y_get, _wrap_tinaIpos_y_set},
5445 {0,0,0}
5446 };
5447 static swig_class *swig_Ipos_bases[] = {0};
5448 swig_class _wrap_class_Ipos = { "tinaIpos", &SWIGTYPE_p_Ipos,_wrap_new_tinaIpos, swig_delete_tinaIpos, swig_Ipos_methods, swig_Ipos_attributes, swig_Ipos_bases };
5449 static int
5450 _wrap_tinaPos3_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5451 Pos3 *arg1 = (Pos3 *) 0 ;
5452 int arg2 ;
5453
5454 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaPos3_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
5455 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5456 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
5457
5458
5459 return TCL_OK;
5460 fail:
5461 return TCL_ERROR;
5462 }
5463
5464
5465 static int
5466 _wrap_tinaPos3_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5467 Pos3 *arg1 = (Pos3 *) 0 ;
5468 int result;
5469
5470 if (SWIG_GetArgs(interp, objc, objv,"o:tinaPos3_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
5471 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5472 result = (int) ((arg1)->ts_id);
5473
5474 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
5475 return TCL_OK;
5476 fail:
5477 return TCL_ERROR;
5478 }
5479
5480
5481 static int
5482 _wrap_tinaPos3_x_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5483 Pos3 *arg1 = (Pos3 *) 0 ;
5484 float arg2 ;
5485
5486 if (SWIG_GetArgs(interp, objc, objv,"of:tinaPos3_x_set self x ",0,&arg2) == TCL_ERROR) SWIG_fail;
5487 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5488 if (arg1) (arg1)->x = arg2;
5489
5490
5491 return TCL_OK;
5492 fail:
5493 return TCL_ERROR;
5494 }
5495
5496
5497 static int
5498 _wrap_tinaPos3_x_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5499 Pos3 *arg1 = (Pos3 *) 0 ;
5500 float result;
5501
5502 if (SWIG_GetArgs(interp, objc, objv,"o:tinaPos3_x_get self ",0) == TCL_ERROR) SWIG_fail;
5503 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5504 result = (float) ((arg1)->x);
5505
5506 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
5507 return TCL_OK;
5508 fail:
5509 return TCL_ERROR;
5510 }
5511
5512
5513 static int
5514 _wrap_tinaPos3_y_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5515 Pos3 *arg1 = (Pos3 *) 0 ;
5516 float arg2 ;
5517
5518 if (SWIG_GetArgs(interp, objc, objv,"of:tinaPos3_y_set self y ",0,&arg2) == TCL_ERROR) SWIG_fail;
5519 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5520 if (arg1) (arg1)->y = arg2;
5521
5522
5523 return TCL_OK;
5524 fail:
5525 return TCL_ERROR;
5526 }
5527
5528
5529 static int
5530 _wrap_tinaPos3_y_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5531 Pos3 *arg1 = (Pos3 *) 0 ;
5532 float result;
5533
5534 if (SWIG_GetArgs(interp, objc, objv,"o:tinaPos3_y_get self ",0) == TCL_ERROR) SWIG_fail;
5535 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5536 result = (float) ((arg1)->y);
5537
5538 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
5539 return TCL_OK;
5540 fail:
5541 return TCL_ERROR;
5542 }
5543
5544
5545 static int
5546 _wrap_tinaPos3_z_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5547 Pos3 *arg1 = (Pos3 *) 0 ;
5548 float arg2 ;
5549
5550 if (SWIG_GetArgs(interp, objc, objv,"of:tinaPos3_z_set self z ",0,&arg2) == TCL_ERROR) SWIG_fail;
5551 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5552 if (arg1) (arg1)->z = arg2;
5553
5554
5555 return TCL_OK;
5556 fail:
5557 return TCL_ERROR;
5558 }
5559
5560
5561 static int
5562 _wrap_tinaPos3_z_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5563 Pos3 *arg1 = (Pos3 *) 0 ;
5564 float result;
5565
5566 if (SWIG_GetArgs(interp, objc, objv,"o:tinaPos3_z_get self ",0) == TCL_ERROR) SWIG_fail;
5567 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5568 result = (float) ((arg1)->z);
5569
5570 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
5571 return TCL_OK;
5572 fail:
5573 return TCL_ERROR;
5574 }
5575
5576
5577 static int
5578 _wrap_new_tinaPos3(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5579 Pos3 *result;
5580
5581 if (SWIG_GetArgs(interp, objc, objv,":new_tinaPos3 ") == TCL_ERROR) SWIG_fail;
5582 result = (Pos3 *)(Pos3 *) calloc(1, sizeof(Pos3));
5583
5584 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Pos3,0));
5585 return TCL_OK;
5586 fail:
5587 return TCL_ERROR;
5588 }
5589
5590
5591 static int
5592 _wrap_delete_tinaPos3(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5593 Pos3 *arg1 = (Pos3 *) 0 ;
5594
5595 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaPos3 self ",0) == TCL_ERROR) SWIG_fail;
5596 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5597 free((char *) arg1);
5598
5599
5600 return TCL_OK;
5601 fail:
5602 return TCL_ERROR;
5603 }
5604
5605
5606 static void swig_delete_tinaPos3(void *obj) {
5607 Pos3 *arg1 = (Pos3 *) obj;
5608 free((char *) arg1);
5609 }
5610 static swig_method swig_Pos3_methods[] = {
5611 {0,0}
5612 };
5613 static swig_attribute swig_Pos3_attributes[] = {
5614 { "-tinaTsId",_wrap_tinaPos3_tinaTsId_get, _wrap_tinaPos3_tinaTsId_set},
5615 { "-x",_wrap_tinaPos3_x_get, _wrap_tinaPos3_x_set},
5616 { "-y",_wrap_tinaPos3_y_get, _wrap_tinaPos3_y_set},
5617 { "-z",_wrap_tinaPos3_z_get, _wrap_tinaPos3_z_set},
5618 {0,0,0}
5619 };
5620 static swig_class *swig_Pos3_bases[] = {0};
5621 swig_class _wrap_class_Pos3 = { "tinaPos3", &SWIGTYPE_p_Pos3,_wrap_new_tinaPos3, swig_delete_tinaPos3, swig_Pos3_methods, swig_Pos3_attributes, swig_Pos3_bases };
5622 static int
5623 _wrap_tinaVec2_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5624 Vec2 *arg1 = (Vec2 *) 0 ;
5625 int arg2 ;
5626
5627 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaVec2_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
5628 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5629 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
5630
5631
5632 return TCL_OK;
5633 fail:
5634 return TCL_ERROR;
5635 }
5636
5637
5638 static int
5639 _wrap_tinaVec2_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5640 Vec2 *arg1 = (Vec2 *) 0 ;
5641 int result;
5642
5643 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVec2_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
5644 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5645 result = (int) ((arg1)->ts_id);
5646
5647 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
5648 return TCL_OK;
5649 fail:
5650 return TCL_ERROR;
5651 }
5652
5653
5654 static int
5655 _wrap_tinaVec2_el_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5656 Vec2 *arg1 = (Vec2 *) 0 ;
5657 float *arg2 ;
5658
5659 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVec2_el_set self el ",0,0) == TCL_ERROR) SWIG_fail;
5660 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5661 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_float,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5662 {
5663 int ii;
5664 float *b = (float *) arg1->el;
5665 for (ii = 0; ii < 2; ii++) b[ii] = *((float *) arg2 + ii);
5666 }
5667
5668 return TCL_OK;
5669 fail:
5670 return TCL_ERROR;
5671 }
5672
5673
5674 static int
5675 _wrap_tinaVec2_el_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5676 Vec2 *arg1 = (Vec2 *) 0 ;
5677 float *result;
5678
5679 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVec2_el_get self ",0) == TCL_ERROR) SWIG_fail;
5680 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5681 result = (float *)(float *) ((arg1)->el);
5682
5683 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_float,0));
5684 return TCL_OK;
5685 fail:
5686 return TCL_ERROR;
5687 }
5688
5689
5690 static int
5691 _wrap_new_tinaVec2(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5692 Vec2 *result;
5693
5694 if (SWIG_GetArgs(interp, objc, objv,":new_tinaVec2 ") == TCL_ERROR) SWIG_fail;
5695 result = (Vec2 *)(Vec2 *) calloc(1, sizeof(Vec2));
5696
5697 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Vec2,0));
5698 return TCL_OK;
5699 fail:
5700 return TCL_ERROR;
5701 }
5702
5703
5704 static int
5705 _wrap_delete_tinaVec2(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5706 Vec2 *arg1 = (Vec2 *) 0 ;
5707
5708 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaVec2 self ",0) == TCL_ERROR) SWIG_fail;
5709 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5710 free((char *) arg1);
5711
5712
5713 return TCL_OK;
5714 fail:
5715 return TCL_ERROR;
5716 }
5717
5718
5719 static void swig_delete_tinaVec2(void *obj) {
5720 Vec2 *arg1 = (Vec2 *) obj;
5721 free((char *) arg1);
5722 }
5723 static swig_method swig_Vec2_methods[] = {
5724 {0,0}
5725 };
5726 static swig_attribute swig_Vec2_attributes[] = {
5727 { "-tinaTsId",_wrap_tinaVec2_tinaTsId_get, _wrap_tinaVec2_tinaTsId_set},
5728 { "-el",_wrap_tinaVec2_el_get, _wrap_tinaVec2_el_set},
5729 {0,0,0}
5730 };
5731 static swig_class *swig_Vec2_bases[] = {0};
5732 swig_class _wrap_class_Vec2 = { "tinaVec2", &SWIGTYPE_p_Vec2,_wrap_new_tinaVec2, swig_delete_tinaVec2, swig_Vec2_methods, swig_Vec2_attributes, swig_Vec2_bases };
5733 static int
5734 _wrap_tinaVec3_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5735 Vec3 *arg1 = (Vec3 *) 0 ;
5736 int arg2 ;
5737
5738 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaVec3_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
5739 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5740 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
5741
5742
5743 return TCL_OK;
5744 fail:
5745 return TCL_ERROR;
5746 }
5747
5748
5749 static int
5750 _wrap_tinaVec3_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5751 Vec3 *arg1 = (Vec3 *) 0 ;
5752 int result;
5753
5754 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVec3_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
5755 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5756 result = (int) ((arg1)->ts_id);
5757
5758 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
5759 return TCL_OK;
5760 fail:
5761 return TCL_ERROR;
5762 }
5763
5764
5765 static int
5766 _wrap_tinaVec3_el_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5767 Vec3 *arg1 = (Vec3 *) 0 ;
5768 float *arg2 ;
5769
5770 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVec3_el_set self el ",0,0) == TCL_ERROR) SWIG_fail;
5771 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5772 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_float,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5773 {
5774 int ii;
5775 float *b = (float *) arg1->el;
5776 for (ii = 0; ii < 3; ii++) b[ii] = *((float *) arg2 + ii);
5777 }
5778
5779 return TCL_OK;
5780 fail:
5781 return TCL_ERROR;
5782 }
5783
5784
5785 static int
5786 _wrap_tinaVec3_el_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5787 Vec3 *arg1 = (Vec3 *) 0 ;
5788 float *result;
5789
5790 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVec3_el_get self ",0) == TCL_ERROR) SWIG_fail;
5791 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5792 result = (float *)(float *) ((arg1)->el);
5793
5794 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_float,0));
5795 return TCL_OK;
5796 fail:
5797 return TCL_ERROR;
5798 }
5799
5800
5801 static int
5802 _wrap_new_tinaVec3(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5803 Vec3 *result;
5804
5805 if (SWIG_GetArgs(interp, objc, objv,":new_tinaVec3 ") == TCL_ERROR) SWIG_fail;
5806 result = (Vec3 *)(Vec3 *) calloc(1, sizeof(Vec3));
5807
5808 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Vec3,0));
5809 return TCL_OK;
5810 fail:
5811 return TCL_ERROR;
5812 }
5813
5814
5815 static int
5816 _wrap_delete_tinaVec3(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5817 Vec3 *arg1 = (Vec3 *) 0 ;
5818
5819 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaVec3 self ",0) == TCL_ERROR) SWIG_fail;
5820 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5821 free((char *) arg1);
5822
5823
5824 return TCL_OK;
5825 fail:
5826 return TCL_ERROR;
5827 }
5828
5829
5830 static void swig_delete_tinaVec3(void *obj) {
5831 Vec3 *arg1 = (Vec3 *) obj;
5832 free((char *) arg1);
5833 }
5834 static swig_method swig_Vec3_methods[] = {
5835 {0,0}
5836 };
5837 static swig_attribute swig_Vec3_attributes[] = {
5838 { "-tinaTsId",_wrap_tinaVec3_tinaTsId_get, _wrap_tinaVec3_tinaTsId_set},
5839 { "-el",_wrap_tinaVec3_el_get, _wrap_tinaVec3_el_set},
5840 {0,0,0}
5841 };
5842 static swig_class *swig_Vec3_bases[] = {0};
5843 swig_class _wrap_class_Vec3 = { "tinaVec3", &SWIGTYPE_p_Vec3,_wrap_new_tinaVec3, swig_delete_tinaVec3, swig_Vec3_methods, swig_Vec3_attributes, swig_Vec3_bases };
5844 static int
5845 _wrap_tinaVec4_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5846 Vec4 *arg1 = (Vec4 *) 0 ;
5847 int arg2 ;
5848
5849 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaVec4_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
5850 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec4,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5851 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
5852
5853
5854 return TCL_OK;
5855 fail:
5856 return TCL_ERROR;
5857 }
5858
5859
5860 static int
5861 _wrap_tinaVec4_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5862 Vec4 *arg1 = (Vec4 *) 0 ;
5863 int result;
5864
5865 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVec4_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
5866 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec4,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5867 result = (int) ((arg1)->ts_id);
5868
5869 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
5870 return TCL_OK;
5871 fail:
5872 return TCL_ERROR;
5873 }
5874
5875
5876 static int
5877 _wrap_tinaVec4_el_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5878 Vec4 *arg1 = (Vec4 *) 0 ;
5879 float *arg2 ;
5880
5881 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVec4_el_set self el ",0,0) == TCL_ERROR) SWIG_fail;
5882 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec4,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5883 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_float,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5884 {
5885 int ii;
5886 float *b = (float *) arg1->el;
5887 for (ii = 0; ii < 4; ii++) b[ii] = *((float *) arg2 + ii);
5888 }
5889
5890 return TCL_OK;
5891 fail:
5892 return TCL_ERROR;
5893 }
5894
5895
5896 static int
5897 _wrap_tinaVec4_el_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5898 Vec4 *arg1 = (Vec4 *) 0 ;
5899 float *result;
5900
5901 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVec4_el_get self ",0) == TCL_ERROR) SWIG_fail;
5902 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec4,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5903 result = (float *)(float *) ((arg1)->el);
5904
5905 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_float,0));
5906 return TCL_OK;
5907 fail:
5908 return TCL_ERROR;
5909 }
5910
5911
5912 static int
5913 _wrap_new_tinaVec4(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5914 Vec4 *result;
5915
5916 if (SWIG_GetArgs(interp, objc, objv,":new_tinaVec4 ") == TCL_ERROR) SWIG_fail;
5917 result = (Vec4 *)(Vec4 *) calloc(1, sizeof(Vec4));
5918
5919 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Vec4,0));
5920 return TCL_OK;
5921 fail:
5922 return TCL_ERROR;
5923 }
5924
5925
5926 static int
5927 _wrap_delete_tinaVec4(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5928 Vec4 *arg1 = (Vec4 *) 0 ;
5929
5930 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaVec4 self ",0) == TCL_ERROR) SWIG_fail;
5931 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec4,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5932 free((char *) arg1);
5933
5934
5935 return TCL_OK;
5936 fail:
5937 return TCL_ERROR;
5938 }
5939
5940
5941 static void swig_delete_tinaVec4(void *obj) {
5942 Vec4 *arg1 = (Vec4 *) obj;
5943 free((char *) arg1);
5944 }
5945 static swig_method swig_Vec4_methods[] = {
5946 {0,0}
5947 };
5948 static swig_attribute swig_Vec4_attributes[] = {
5949 { "-tinaTsId",_wrap_tinaVec4_tinaTsId_get, _wrap_tinaVec4_tinaTsId_set},
5950 { "-el",_wrap_tinaVec4_el_get, _wrap_tinaVec4_el_set},
5951 {0,0,0}
5952 };
5953 static swig_class *swig_Vec4_bases[] = {0};
5954 swig_class _wrap_class_Vec4 = { "tinaVec4", &SWIGTYPE_p_Vec4,_wrap_new_tinaVec4, swig_delete_tinaVec4, swig_Vec4_methods, swig_Vec4_attributes, swig_Vec4_bases };
5955 static int
5956 _wrap_tinaMat2_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5957 Mat2 *arg1 = (Mat2 *) 0 ;
5958 int arg2 ;
5959
5960 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaMat2_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
5961 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5962 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
5963
5964
5965 return TCL_OK;
5966 fail:
5967 return TCL_ERROR;
5968 }
5969
5970
5971 static int
5972 _wrap_tinaMat2_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5973 Mat2 *arg1 = (Mat2 *) 0 ;
5974 int result;
5975
5976 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMat2_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
5977 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5978 result = (int) ((arg1)->ts_id);
5979
5980 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
5981 return TCL_OK;
5982 fail:
5983 return TCL_ERROR;
5984 }
5985
5986
5987 static int
5988 _wrap_tinaMat2_el_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
5989 Mat2 *arg1 = (Mat2 *) 0 ;
5990 float (*arg2)[2] ;
5991
5992 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaMat2_el_set self el ",0,0) == TCL_ERROR) SWIG_fail;
5993 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5994 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_a_2__float,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
5995 {
5996 int ii;
5997 float *b = (float *) arg1->el;
5998 for (ii = 0; ii < 2*2; ii++) b[ii] = *((float *) arg2 + ii);
5999 }
6000
6001 return TCL_OK;
6002 fail:
6003 return TCL_ERROR;
6004 }
6005
6006
6007 static int
6008 _wrap_tinaMat2_el_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6009 Mat2 *arg1 = (Mat2 *) 0 ;
6010 float (*result)[2];
6011
6012 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMat2_el_get self ",0) == TCL_ERROR) SWIG_fail;
6013 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6014 result = (float (*)[2])(float (*)[2]) ((arg1)->el);
6015
6016 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_a_2__float,0));
6017 return TCL_OK;
6018 fail:
6019 return TCL_ERROR;
6020 }
6021
6022
6023 static int
6024 _wrap_new_tinaMat2(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6025 Mat2 *result;
6026
6027 if (SWIG_GetArgs(interp, objc, objv,":new_tinaMat2 ") == TCL_ERROR) SWIG_fail;
6028 result = (Mat2 *)(Mat2 *) calloc(1, sizeof(Mat2));
6029
6030 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Mat2,0));
6031 return TCL_OK;
6032 fail:
6033 return TCL_ERROR;
6034 }
6035
6036
6037 static int
6038 _wrap_delete_tinaMat2(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6039 Mat2 *arg1 = (Mat2 *) 0 ;
6040
6041 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaMat2 self ",0) == TCL_ERROR) SWIG_fail;
6042 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6043 free((char *) arg1);
6044
6045
6046 return TCL_OK;
6047 fail:
6048 return TCL_ERROR;
6049 }
6050
6051
6052 static void swig_delete_tinaMat2(void *obj) {
6053 Mat2 *arg1 = (Mat2 *) obj;
6054 free((char *) arg1);
6055 }
6056 static swig_method swig_Mat2_methods[] = {
6057 {0,0}
6058 };
6059 static swig_attribute swig_Mat2_attributes[] = {
6060 { "-tinaTsId",_wrap_tinaMat2_tinaTsId_get, _wrap_tinaMat2_tinaTsId_set},
6061 { "-el",_wrap_tinaMat2_el_get, _wrap_tinaMat2_el_set},
6062 {0,0,0}
6063 };
6064 static swig_class *swig_Mat2_bases[] = {0};
6065 swig_class _wrap_class_Mat2 = { "tinaMat2", &SWIGTYPE_p_Mat2,_wrap_new_tinaMat2, swig_delete_tinaMat2, swig_Mat2_methods, swig_Mat2_attributes, swig_Mat2_bases };
6066 static int
6067 _wrap_tinaMat3_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6068 Mat3 *arg1 = (Mat3 *) 0 ;
6069 int arg2 ;
6070
6071 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaMat3_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
6072 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6073 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
6074
6075
6076 return TCL_OK;
6077 fail:
6078 return TCL_ERROR;
6079 }
6080
6081
6082 static int
6083 _wrap_tinaMat3_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6084 Mat3 *arg1 = (Mat3 *) 0 ;
6085 int result;
6086
6087 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMat3_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
6088 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6089 result = (int) ((arg1)->ts_id);
6090
6091 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
6092 return TCL_OK;
6093 fail:
6094 return TCL_ERROR;
6095 }
6096
6097
6098 static int
6099 _wrap_tinaMat3_el_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6100 Mat3 *arg1 = (Mat3 *) 0 ;
6101 float (*arg2)[3] ;
6102
6103 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaMat3_el_set self el ",0,0) == TCL_ERROR) SWIG_fail;
6104 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6105 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_a_3__float,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6106 {
6107 int ii;
6108 float *b = (float *) arg1->el;
6109 for (ii = 0; ii < 3*3; ii++) b[ii] = *((float *) arg2 + ii);
6110 }
6111
6112 return TCL_OK;
6113 fail:
6114 return TCL_ERROR;
6115 }
6116
6117
6118 static int
6119 _wrap_tinaMat3_el_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6120 Mat3 *arg1 = (Mat3 *) 0 ;
6121 float (*result)[3];
6122
6123 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMat3_el_get self ",0) == TCL_ERROR) SWIG_fail;
6124 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6125 result = (float (*)[3])(float (*)[3]) ((arg1)->el);
6126
6127 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_a_3__float,0));
6128 return TCL_OK;
6129 fail:
6130 return TCL_ERROR;
6131 }
6132
6133
6134 static int
6135 _wrap_new_tinaMat3(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6136 Mat3 *result;
6137
6138 if (SWIG_GetArgs(interp, objc, objv,":new_tinaMat3 ") == TCL_ERROR) SWIG_fail;
6139 result = (Mat3 *)(Mat3 *) calloc(1, sizeof(Mat3));
6140
6141 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Mat3,0));
6142 return TCL_OK;
6143 fail:
6144 return TCL_ERROR;
6145 }
6146
6147
6148 static int
6149 _wrap_delete_tinaMat3(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6150 Mat3 *arg1 = (Mat3 *) 0 ;
6151
6152 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaMat3 self ",0) == TCL_ERROR) SWIG_fail;
6153 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6154 free((char *) arg1);
6155
6156
6157 return TCL_OK;
6158 fail:
6159 return TCL_ERROR;
6160 }
6161
6162
6163 static void swig_delete_tinaMat3(void *obj) {
6164 Mat3 *arg1 = (Mat3 *) obj;
6165 free((char *) arg1);
6166 }
6167 static swig_method swig_Mat3_methods[] = {
6168 {0,0}
6169 };
6170 static swig_attribute swig_Mat3_attributes[] = {
6171 { "-tinaTsId",_wrap_tinaMat3_tinaTsId_get, _wrap_tinaMat3_tinaTsId_set},
6172 { "-el",_wrap_tinaMat3_el_get, _wrap_tinaMat3_el_set},
6173 {0,0,0}
6174 };
6175 static swig_class *swig_Mat3_bases[] = {0};
6176 swig_class _wrap_class_Mat3 = { "tinaMat3", &SWIGTYPE_p_Mat3,_wrap_new_tinaMat3, swig_delete_tinaMat3, swig_Mat3_methods, swig_Mat3_attributes, swig_Mat3_bases };
6177 static int
6178 _wrap_tinaMat4_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6179 Mat4 *arg1 = (Mat4 *) 0 ;
6180 int arg2 ;
6181
6182 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaMat4_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
6183 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat4,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6184 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
6185
6186
6187 return TCL_OK;
6188 fail:
6189 return TCL_ERROR;
6190 }
6191
6192
6193 static int
6194 _wrap_tinaMat4_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6195 Mat4 *arg1 = (Mat4 *) 0 ;
6196 int result;
6197
6198 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMat4_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
6199 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat4,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6200 result = (int) ((arg1)->ts_id);
6201
6202 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
6203 return TCL_OK;
6204 fail:
6205 return TCL_ERROR;
6206 }
6207
6208
6209 static int
6210 _wrap_tinaMat4_el_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6211 Mat4 *arg1 = (Mat4 *) 0 ;
6212 float (*arg2)[4] ;
6213
6214 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaMat4_el_set self el ",0,0) == TCL_ERROR) SWIG_fail;
6215 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat4,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6216 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_a_4__float,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6217 {
6218 int ii;
6219 float *b = (float *) arg1->el;
6220 for (ii = 0; ii < 4*4; ii++) b[ii] = *((float *) arg2 + ii);
6221 }
6222
6223 return TCL_OK;
6224 fail:
6225 return TCL_ERROR;
6226 }
6227
6228
6229 static int
6230 _wrap_tinaMat4_el_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6231 Mat4 *arg1 = (Mat4 *) 0 ;
6232 float (*result)[4];
6233
6234 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMat4_el_get self ",0) == TCL_ERROR) SWIG_fail;
6235 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat4,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6236 result = (float (*)[4])(float (*)[4]) ((arg1)->el);
6237
6238 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_a_4__float,0));
6239 return TCL_OK;
6240 fail:
6241 return TCL_ERROR;
6242 }
6243
6244
6245 static int
6246 _wrap_new_tinaMat4(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6247 Mat4 *result;
6248
6249 if (SWIG_GetArgs(interp, objc, objv,":new_tinaMat4 ") == TCL_ERROR) SWIG_fail;
6250 result = (Mat4 *)(Mat4 *) calloc(1, sizeof(Mat4));
6251
6252 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Mat4,0));
6253 return TCL_OK;
6254 fail:
6255 return TCL_ERROR;
6256 }
6257
6258
6259 static int
6260 _wrap_delete_tinaMat4(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6261 Mat4 *arg1 = (Mat4 *) 0 ;
6262
6263 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaMat4 self ",0) == TCL_ERROR) SWIG_fail;
6264 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat4,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6265 free((char *) arg1);
6266
6267
6268 return TCL_OK;
6269 fail:
6270 return TCL_ERROR;
6271 }
6272
6273
6274 static void swig_delete_tinaMat4(void *obj) {
6275 Mat4 *arg1 = (Mat4 *) obj;
6276 free((char *) arg1);
6277 }
6278 static swig_method swig_Mat4_methods[] = {
6279 {0,0}
6280 };
6281 static swig_attribute swig_Mat4_attributes[] = {
6282 { "-tinaTsId",_wrap_tinaMat4_tinaTsId_get, _wrap_tinaMat4_tinaTsId_set},
6283 { "-el",_wrap_tinaMat4_el_get, _wrap_tinaMat4_el_set},
6284 {0,0,0}
6285 };
6286 static swig_class *swig_Mat4_bases[] = {0};
6287 swig_class _wrap_class_Mat4 = { "tinaMat4", &SWIGTYPE_p_Mat4,_wrap_new_tinaMat4, swig_delete_tinaMat4, swig_Mat4_methods, swig_Mat4_attributes, swig_Mat4_bases };
6288 static int
6289 _wrap_tinaMatrix_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6290 Matrix *arg1 = (Matrix *) 0 ;
6291 int arg2 ;
6292
6293 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaMatrix_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
6294 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Matrix,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6295 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
6296
6297
6298 return TCL_OK;
6299 fail:
6300 return TCL_ERROR;
6301 }
6302
6303
6304 static int
6305 _wrap_tinaMatrix_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6306 Matrix *arg1 = (Matrix *) 0 ;
6307 int result;
6308
6309 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMatrix_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
6310 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Matrix,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6311 result = (int) ((arg1)->ts_id);
6312
6313 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
6314 return TCL_OK;
6315 fail:
6316 return TCL_ERROR;
6317 }
6318
6319
6320 static int
6321 _wrap_tinaMatrix_vtype_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6322 Matrix *arg1 = (Matrix *) 0 ;
6323 int arg2 ;
6324
6325 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaMatrix_vtype_set self vtype ",0,&arg2) == TCL_ERROR) SWIG_fail;
6326 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Matrix,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6327 if (arg1) (arg1)->vtype = (Vartype )arg2;
6328
6329
6330 return TCL_OK;
6331 fail:
6332 return TCL_ERROR;
6333 }
6334
6335
6336 static int
6337 _wrap_tinaMatrix_vtype_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6338 Matrix *arg1 = (Matrix *) 0 ;
6339 int result;
6340
6341 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMatrix_vtype_get self ",0) == TCL_ERROR) SWIG_fail;
6342 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Matrix,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6343 result = (int) ((arg1)->vtype);
6344
6345 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
6346 return TCL_OK;
6347 fail:
6348 return TCL_ERROR;
6349 }
6350
6351
6352 static int
6353 _wrap_tinaMatrix_shape_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6354 Matrix *arg1 = (Matrix *) 0 ;
6355 int arg2 ;
6356
6357 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaMatrix_shape_set self shape ",0,&arg2) == TCL_ERROR) SWIG_fail;
6358 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Matrix,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6359 if (arg1) (arg1)->shape = (Matrix_shape )arg2;
6360
6361
6362 return TCL_OK;
6363 fail:
6364 return TCL_ERROR;
6365 }
6366
6367
6368 static int
6369 _wrap_tinaMatrix_shape_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6370 Matrix *arg1 = (Matrix *) 0 ;
6371 int result;
6372
6373 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMatrix_shape_get self ",0) == TCL_ERROR) SWIG_fail;
6374 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Matrix,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6375 result = (int) ((arg1)->shape);
6376
6377 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
6378 return TCL_OK;
6379 fail:
6380 return TCL_ERROR;
6381 }
6382
6383
6384 static int
6385 _wrap_tinaMatrix_m_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6386 Matrix *arg1 = (Matrix *) 0 ;
6387 int arg2 ;
6388
6389 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaMatrix_m_set self m ",0,&arg2) == TCL_ERROR) SWIG_fail;
6390 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Matrix,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6391 if (arg1) (arg1)->m = arg2;
6392
6393
6394 return TCL_OK;
6395 fail:
6396 return TCL_ERROR;
6397 }
6398
6399
6400 static int
6401 _wrap_tinaMatrix_m_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6402 Matrix *arg1 = (Matrix *) 0 ;
6403 int result;
6404
6405 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMatrix_m_get self ",0) == TCL_ERROR) SWIG_fail;
6406 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Matrix,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6407 result = (int) ((arg1)->m);
6408
6409 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
6410 return TCL_OK;
6411 fail:
6412 return TCL_ERROR;
6413 }
6414
6415
6416 static int
6417 _wrap_tinaMatrix_n_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6418 Matrix *arg1 = (Matrix *) 0 ;
6419 int arg2 ;
6420
6421 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaMatrix_n_set self n ",0,&arg2) == TCL_ERROR) SWIG_fail;
6422 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Matrix,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6423 if (arg1) (arg1)->n = arg2;
6424
6425
6426 return TCL_OK;
6427 fail:
6428 return TCL_ERROR;
6429 }
6430
6431
6432 static int
6433 _wrap_tinaMatrix_n_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6434 Matrix *arg1 = (Matrix *) 0 ;
6435 int result;
6436
6437 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMatrix_n_get self ",0) == TCL_ERROR) SWIG_fail;
6438 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Matrix,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6439 result = (int) ((arg1)->n);
6440
6441 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
6442 return TCL_OK;
6443 fail:
6444 return TCL_ERROR;
6445 }
6446
6447
6448 static int
6449 _wrap_tinaMatrix_el_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6450 Matrix *arg1 = (Matrix *) 0 ;
6451 union varptrptr *arg2 = (union varptrptr *) 0 ;
6452
6453 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaMatrix_el_set self el ",0,0) == TCL_ERROR) SWIG_fail;
6454 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Matrix,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6455 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6456 if (arg1) (arg1)->el = *arg2;
6457
6458
6459 return TCL_OK;
6460 fail:
6461 return TCL_ERROR;
6462 }
6463
6464
6465 static int
6466 _wrap_tinaMatrix_el_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6467 Matrix *arg1 = (Matrix *) 0 ;
6468 union varptrptr *result;
6469
6470 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMatrix_el_get self ",0) == TCL_ERROR) SWIG_fail;
6471 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Matrix,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6472 result = (union varptrptr *)& ((arg1)->el);
6473
6474 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_varptrptr,0));
6475 return TCL_OK;
6476 fail:
6477 return TCL_ERROR;
6478 }
6479
6480
6481 static int
6482 _wrap_new_tinaMatrix(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6483 Matrix *result;
6484
6485 if (SWIG_GetArgs(interp, objc, objv,":new_tinaMatrix ") == TCL_ERROR) SWIG_fail;
6486 result = (Matrix *)(Matrix *) calloc(1, sizeof(Matrix));
6487
6488 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Matrix,0));
6489 return TCL_OK;
6490 fail:
6491 return TCL_ERROR;
6492 }
6493
6494
6495 static int
6496 _wrap_delete_tinaMatrix(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6497 Matrix *arg1 = (Matrix *) 0 ;
6498
6499 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaMatrix self ",0) == TCL_ERROR) SWIG_fail;
6500 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Matrix,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6501 free((char *) arg1);
6502
6503
6504 return TCL_OK;
6505 fail:
6506 return TCL_ERROR;
6507 }
6508
6509
6510 static void swig_delete_tinaMatrix(void *obj) {
6511 Matrix *arg1 = (Matrix *) obj;
6512 free((char *) arg1);
6513 }
6514 static swig_method swig_Matrix_methods[] = {
6515 {0,0}
6516 };
6517 static swig_attribute swig_Matrix_attributes[] = {
6518 { "-tinaTsId",_wrap_tinaMatrix_tinaTsId_get, _wrap_tinaMatrix_tinaTsId_set},
6519 { "-vtype",_wrap_tinaMatrix_vtype_get, _wrap_tinaMatrix_vtype_set},
6520 { "-shape",_wrap_tinaMatrix_shape_get, _wrap_tinaMatrix_shape_set},
6521 { "-m",_wrap_tinaMatrix_m_get, _wrap_tinaMatrix_m_set},
6522 { "-n",_wrap_tinaMatrix_n_get, _wrap_tinaMatrix_n_set},
6523 { "-el",_wrap_tinaMatrix_el_get, _wrap_tinaMatrix_el_set},
6524 {0,0,0}
6525 };
6526 static swig_class *swig_Matrix_bases[] = {0};
6527 swig_class _wrap_class_Matrix = { "tinaMatrix", &SWIGTYPE_p_Matrix,_wrap_new_tinaMatrix, swig_delete_tinaMatrix, swig_Matrix_methods, swig_Matrix_attributes, swig_Matrix_bases };
6528 static int
6529 _wrap_tinaIvec_n_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6530 Ivec *arg1 = (Ivec *) 0 ;
6531 int arg2 ;
6532
6533 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaIvec_n_set self n ",0,&arg2) == TCL_ERROR) SWIG_fail;
6534 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Ivec,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6535 if (arg1) (arg1)->n = arg2;
6536
6537
6538 return TCL_OK;
6539 fail:
6540 return TCL_ERROR;
6541 }
6542
6543
6544 static int
6545 _wrap_tinaIvec_n_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6546 Ivec *arg1 = (Ivec *) 0 ;
6547 int result;
6548
6549 if (SWIG_GetArgs(interp, objc, objv,"o:tinaIvec_n_get self ",0) == TCL_ERROR) SWIG_fail;
6550 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Ivec,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6551 result = (int) ((arg1)->n);
6552
6553 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
6554 return TCL_OK;
6555 fail:
6556 return TCL_ERROR;
6557 }
6558
6559
6560 static int
6561 _wrap_tinaIvec_el_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6562 Ivec *arg1 = (Ivec *) 0 ;
6563 int *arg2 = (int *) 0 ;
6564
6565 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaIvec_el_set self el ",0,0) == TCL_ERROR) SWIG_fail;
6566 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Ivec,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6567 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_int,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
6568 if (arg1) (arg1)->el = arg2;
6569
6570
6571 return TCL_OK;
6572 fail:
6573 return TCL_ERROR;
6574 }
6575
6576
6577 static int
6578 _wrap_tinaIvec_el_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6579 Ivec *arg1 = (Ivec *) 0 ;
6580 int *result;
6581
6582 if (SWIG_GetArgs(interp, objc, objv,"o:tinaIvec_el_get self ",0) == TCL_ERROR) SWIG_fail;
6583 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Ivec,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6584 result = (int *) ((arg1)->el);
6585
6586 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_int,0));
6587 return TCL_OK;
6588 fail:
6589 return TCL_ERROR;
6590 }
6591
6592
6593 static int
6594 _wrap_new_tinaIvec(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6595 Ivec *result;
6596
6597 if (SWIG_GetArgs(interp, objc, objv,":new_tinaIvec ") == TCL_ERROR) SWIG_fail;
6598 result = (Ivec *)(Ivec *) calloc(1, sizeof(Ivec));
6599
6600 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Ivec,0));
6601 return TCL_OK;
6602 fail:
6603 return TCL_ERROR;
6604 }
6605
6606
6607 static int
6608 _wrap_delete_tinaIvec(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6609 Ivec *arg1 = (Ivec *) 0 ;
6610
6611 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaIvec self ",0) == TCL_ERROR) SWIG_fail;
6612 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Ivec,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6613 free((char *) arg1);
6614
6615
6616 return TCL_OK;
6617 fail:
6618 return TCL_ERROR;
6619 }
6620
6621
6622 static void swig_delete_tinaIvec(void *obj) {
6623 Ivec *arg1 = (Ivec *) obj;
6624 free((char *) arg1);
6625 }
6626 static swig_method swig_Ivec_methods[] = {
6627 {0,0}
6628 };
6629 static swig_attribute swig_Ivec_attributes[] = {
6630 { "-n",_wrap_tinaIvec_n_get, _wrap_tinaIvec_n_set},
6631 { "-el",_wrap_tinaIvec_el_get, _wrap_tinaIvec_el_set},
6632 {0,0,0}
6633 };
6634 static swig_class *swig_Ivec_bases[] = {0};
6635 swig_class _wrap_class_Ivec = { "tinaIvec", &SWIGTYPE_p_Ivec,_wrap_new_tinaIvec, swig_delete_tinaIvec, swig_Ivec_methods, swig_Ivec_attributes, swig_Ivec_bases };
6636 static int
6637 _wrap_tinaVec_n_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6638 Vec *arg1 = (Vec *) 0 ;
6639 int arg2 ;
6640
6641 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaVec_n_set self n ",0,&arg2) == TCL_ERROR) SWIG_fail;
6642 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6643 if (arg1) (arg1)->n = arg2;
6644
6645
6646 return TCL_OK;
6647 fail:
6648 return TCL_ERROR;
6649 }
6650
6651
6652 static int
6653 _wrap_tinaVec_n_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6654 Vec *arg1 = (Vec *) 0 ;
6655 int result;
6656
6657 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVec_n_get self ",0) == TCL_ERROR) SWIG_fail;
6658 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6659 result = (int) ((arg1)->n);
6660
6661 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
6662 return TCL_OK;
6663 fail:
6664 return TCL_ERROR;
6665 }
6666
6667
6668 static int
6669 _wrap_tinaVec_el_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6670 Vec *arg1 = (Vec *) 0 ;
6671 double *arg2 = (double *) 0 ;
6672
6673 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVec_el_set self el ",0,0) == TCL_ERROR) SWIG_fail;
6674 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6675 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_double,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
6676 if (arg1) (arg1)->el = arg2;
6677
6678
6679 return TCL_OK;
6680 fail:
6681 return TCL_ERROR;
6682 }
6683
6684
6685 static int
6686 _wrap_tinaVec_el_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6687 Vec *arg1 = (Vec *) 0 ;
6688 double *result;
6689
6690 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVec_el_get self ",0) == TCL_ERROR) SWIG_fail;
6691 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6692 result = (double *) ((arg1)->el);
6693
6694 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_double,0));
6695 return TCL_OK;
6696 fail:
6697 return TCL_ERROR;
6698 }
6699
6700
6701 static int
6702 _wrap_new_tinaVec(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6703 Vec *result;
6704
6705 if (SWIG_GetArgs(interp, objc, objv,":new_tinaVec ") == TCL_ERROR) SWIG_fail;
6706 result = (Vec *)(Vec *) calloc(1, sizeof(Vec));
6707
6708 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Vec,0));
6709 return TCL_OK;
6710 fail:
6711 return TCL_ERROR;
6712 }
6713
6714
6715 static int
6716 _wrap_delete_tinaVec(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6717 Vec *arg1 = (Vec *) 0 ;
6718
6719 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaVec self ",0) == TCL_ERROR) SWIG_fail;
6720 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6721 free((char *) arg1);
6722
6723
6724 return TCL_OK;
6725 fail:
6726 return TCL_ERROR;
6727 }
6728
6729
6730 static void swig_delete_tinaVec(void *obj) {
6731 Vec *arg1 = (Vec *) obj;
6732 free((char *) arg1);
6733 }
6734 static swig_method swig_Vec_methods[] = {
6735 {0,0}
6736 };
6737 static swig_attribute swig_Vec_attributes[] = {
6738 { "-n",_wrap_tinaVec_n_get, _wrap_tinaVec_n_set},
6739 { "-el",_wrap_tinaVec_el_get, _wrap_tinaVec_el_set},
6740 {0,0,0}
6741 };
6742 static swig_class *swig_Vec_bases[] = {0};
6743 swig_class _wrap_class_Vec = { "tinaVec", &SWIGTYPE_p_Vec,_wrap_new_tinaVec, swig_delete_tinaVec, swig_Vec_methods, swig_Vec_attributes, swig_Vec_bases };
6744 static int
6745 _wrap_tinaMat_m_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6746 Mat *arg1 = (Mat *) 0 ;
6747 int arg2 ;
6748
6749 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaMat_m_set self m ",0,&arg2) == TCL_ERROR) SWIG_fail;
6750 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6751 if (arg1) (arg1)->m = arg2;
6752
6753
6754 return TCL_OK;
6755 fail:
6756 return TCL_ERROR;
6757 }
6758
6759
6760 static int
6761 _wrap_tinaMat_m_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6762 Mat *arg1 = (Mat *) 0 ;
6763 int result;
6764
6765 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMat_m_get self ",0) == TCL_ERROR) SWIG_fail;
6766 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6767 result = (int) ((arg1)->m);
6768
6769 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
6770 return TCL_OK;
6771 fail:
6772 return TCL_ERROR;
6773 }
6774
6775
6776 static int
6777 _wrap_tinaMat_n_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6778 Mat *arg1 = (Mat *) 0 ;
6779 int arg2 ;
6780
6781 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaMat_n_set self n ",0,&arg2) == TCL_ERROR) SWIG_fail;
6782 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6783 if (arg1) (arg1)->n = arg2;
6784
6785
6786 return TCL_OK;
6787 fail:
6788 return TCL_ERROR;
6789 }
6790
6791
6792 static int
6793 _wrap_tinaMat_n_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6794 Mat *arg1 = (Mat *) 0 ;
6795 int result;
6796
6797 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMat_n_get self ",0) == TCL_ERROR) SWIG_fail;
6798 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6799 result = (int) ((arg1)->n);
6800
6801 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
6802 return TCL_OK;
6803 fail:
6804 return TCL_ERROR;
6805 }
6806
6807
6808 static int
6809 _wrap_tinaMat_el_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6810 Mat *arg1 = (Mat *) 0 ;
6811 double **arg2 = (double **) 0 ;
6812
6813 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaMat_el_set self el ",0,0) == TCL_ERROR) SWIG_fail;
6814 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6815 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_double,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6816 if (arg1) (arg1)->el = arg2;
6817
6818
6819 return TCL_OK;
6820 fail:
6821 return TCL_ERROR;
6822 }
6823
6824
6825 static int
6826 _wrap_tinaMat_el_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6827 Mat *arg1 = (Mat *) 0 ;
6828 double **result;
6829
6830 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMat_el_get self ",0) == TCL_ERROR) SWIG_fail;
6831 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6832 result = (double **) ((arg1)->el);
6833
6834 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_double,0));
6835 return TCL_OK;
6836 fail:
6837 return TCL_ERROR;
6838 }
6839
6840
6841 static int
6842 _wrap_new_tinaMat(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6843 Mat *result;
6844
6845 if (SWIG_GetArgs(interp, objc, objv,":new_tinaMat ") == TCL_ERROR) SWIG_fail;
6846 result = (Mat *)(Mat *) calloc(1, sizeof(Mat));
6847
6848 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Mat,0));
6849 return TCL_OK;
6850 fail:
6851 return TCL_ERROR;
6852 }
6853
6854
6855 static int
6856 _wrap_delete_tinaMat(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6857 Mat *arg1 = (Mat *) 0 ;
6858
6859 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaMat self ",0) == TCL_ERROR) SWIG_fail;
6860 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6861 free((char *) arg1);
6862
6863
6864 return TCL_OK;
6865 fail:
6866 return TCL_ERROR;
6867 }
6868
6869
6870 static void swig_delete_tinaMat(void *obj) {
6871 Mat *arg1 = (Mat *) obj;
6872 free((char *) arg1);
6873 }
6874 static swig_method swig_Mat_methods[] = {
6875 {0,0}
6876 };
6877 static swig_attribute swig_Mat_attributes[] = {
6878 { "-m",_wrap_tinaMat_m_get, _wrap_tinaMat_m_set},
6879 { "-n",_wrap_tinaMat_n_get, _wrap_tinaMat_n_set},
6880 { "-el",_wrap_tinaMat_el_get, _wrap_tinaMat_el_set},
6881 {0,0,0}
6882 };
6883 static swig_class *swig_Mat_bases[] = {0};
6884 swig_class _wrap_class_Mat = { "tinaMat", &SWIGTYPE_p_Mat,_wrap_new_tinaMat, swig_delete_tinaMat, swig_Mat_methods, swig_Mat_attributes, swig_Mat_bases };
6885 static int
6886 _wrap_tinaSpline_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6887 Spline *arg1 = (Spline *) 0 ;
6888 int arg2 ;
6889
6890 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaSpline_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
6891 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Spline,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6892 if (arg1) (arg1)->type = arg2;
6893
6894
6895 return TCL_OK;
6896 fail:
6897 return TCL_ERROR;
6898 }
6899
6900
6901 static int
6902 _wrap_tinaSpline_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6903 Spline *arg1 = (Spline *) 0 ;
6904 int result;
6905
6906 if (SWIG_GetArgs(interp, objc, objv,"o:tinaSpline_type_get self ",0) == TCL_ERROR) SWIG_fail;
6907 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Spline,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6908 result = (int) ((arg1)->type);
6909
6910 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
6911 return TCL_OK;
6912 fail:
6913 return TCL_ERROR;
6914 }
6915
6916
6917 static int
6918 _wrap_tinaSpline_n_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6919 Spline *arg1 = (Spline *) 0 ;
6920 int arg2 ;
6921
6922 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaSpline_n_set self n ",0,&arg2) == TCL_ERROR) SWIG_fail;
6923 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Spline,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6924 if (arg1) (arg1)->n = arg2;
6925
6926
6927 return TCL_OK;
6928 fail:
6929 return TCL_ERROR;
6930 }
6931
6932
6933 static int
6934 _wrap_tinaSpline_n_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6935 Spline *arg1 = (Spline *) 0 ;
6936 int result;
6937
6938 if (SWIG_GetArgs(interp, objc, objv,"o:tinaSpline_n_get self ",0) == TCL_ERROR) SWIG_fail;
6939 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Spline,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6940 result = (int) ((arg1)->n);
6941
6942 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
6943 return TCL_OK;
6944 fail:
6945 return TCL_ERROR;
6946 }
6947
6948
6949 static int
6950 _wrap_tinaSpline_p_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6951 Spline *arg1 = (Spline *) 0 ;
6952 double *arg2 = (double *) 0 ;
6953
6954 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaSpline_p_set self p ",0,0) == TCL_ERROR) SWIG_fail;
6955 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Spline,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6956 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_double,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
6957 if (arg1) (arg1)->p = arg2;
6958
6959
6960 return TCL_OK;
6961 fail:
6962 return TCL_ERROR;
6963 }
6964
6965
6966 static int
6967 _wrap_tinaSpline_p_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6968 Spline *arg1 = (Spline *) 0 ;
6969 double *result;
6970
6971 if (SWIG_GetArgs(interp, objc, objv,"o:tinaSpline_p_get self ",0) == TCL_ERROR) SWIG_fail;
6972 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Spline,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
6973 result = (double *) ((arg1)->p);
6974
6975 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_double,0));
6976 return TCL_OK;
6977 fail:
6978 return TCL_ERROR;
6979 }
6980
6981
6982 static int
6983 _wrap_new_tinaSpline(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6984 Spline *result;
6985
6986 if (SWIG_GetArgs(interp, objc, objv,":new_tinaSpline ") == TCL_ERROR) SWIG_fail;
6987 result = (Spline *)(Spline *) calloc(1, sizeof(Spline));
6988
6989 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Spline,0));
6990 return TCL_OK;
6991 fail:
6992 return TCL_ERROR;
6993 }
6994
6995
6996 static int
6997 _wrap_delete_tinaSpline(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
6998 Spline *arg1 = (Spline *) 0 ;
6999
7000 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaSpline self ",0) == TCL_ERROR) SWIG_fail;
7001 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Spline,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7002 free((char *) arg1);
7003
7004
7005 return TCL_OK;
7006 fail:
7007 return TCL_ERROR;
7008 }
7009
7010
7011 static void swig_delete_tinaSpline(void *obj) {
7012 Spline *arg1 = (Spline *) obj;
7013 free((char *) arg1);
7014 }
7015 static swig_method swig_Spline_methods[] = {
7016 {0,0}
7017 };
7018 static swig_attribute swig_Spline_attributes[] = {
7019 { "-type",_wrap_tinaSpline_type_get, _wrap_tinaSpline_type_set},
7020 { "-n",_wrap_tinaSpline_n_get, _wrap_tinaSpline_n_set},
7021 { "-p",_wrap_tinaSpline_p_get, _wrap_tinaSpline_p_set},
7022 {0,0,0}
7023 };
7024 static swig_class *swig_Spline_bases[] = {0};
7025 swig_class _wrap_class_Spline = { "tinaSpline", &SWIGTYPE_p_Spline,_wrap_new_tinaSpline, swig_delete_tinaSpline, swig_Spline_methods, swig_Spline_attributes, swig_Spline_bases };
7026 static int
7027 _wrap_tinaSpline2_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7028 Spline2 *arg1 = (Spline2 *) 0 ;
7029 int arg2 ;
7030
7031 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaSpline2_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
7032 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Spline2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7033 if (arg1) (arg1)->type = arg2;
7034
7035
7036 return TCL_OK;
7037 fail:
7038 return TCL_ERROR;
7039 }
7040
7041
7042 static int
7043 _wrap_tinaSpline2_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7044 Spline2 *arg1 = (Spline2 *) 0 ;
7045 int result;
7046
7047 if (SWIG_GetArgs(interp, objc, objv,"o:tinaSpline2_type_get self ",0) == TCL_ERROR) SWIG_fail;
7048 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Spline2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7049 result = (int) ((arg1)->type);
7050
7051 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
7052 return TCL_OK;
7053 fail:
7054 return TCL_ERROR;
7055 }
7056
7057
7058 static int
7059 _wrap_tinaSpline2_n_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7060 Spline2 *arg1 = (Spline2 *) 0 ;
7061 int arg2 ;
7062
7063 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaSpline2_n_set self n ",0,&arg2) == TCL_ERROR) SWIG_fail;
7064 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Spline2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7065 if (arg1) (arg1)->n = arg2;
7066
7067
7068 return TCL_OK;
7069 fail:
7070 return TCL_ERROR;
7071 }
7072
7073
7074 static int
7075 _wrap_tinaSpline2_n_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7076 Spline2 *arg1 = (Spline2 *) 0 ;
7077 int result;
7078
7079 if (SWIG_GetArgs(interp, objc, objv,"o:tinaSpline2_n_get self ",0) == TCL_ERROR) SWIG_fail;
7080 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Spline2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7081 result = (int) ((arg1)->n);
7082
7083 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
7084 return TCL_OK;
7085 fail:
7086 return TCL_ERROR;
7087 }
7088
7089
7090 static int
7091 _wrap_tinaSpline2_x_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7092 Spline2 *arg1 = (Spline2 *) 0 ;
7093 Spline *arg2 = (Spline *) 0 ;
7094
7095 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaSpline2_x_set self x ",0,0) == TCL_ERROR) SWIG_fail;
7096 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Spline2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7097 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_Spline,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
7098 if (arg1) (arg1)->x = arg2;
7099
7100
7101 return TCL_OK;
7102 fail:
7103 return TCL_ERROR;
7104 }
7105
7106
7107 static int
7108 _wrap_tinaSpline2_x_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7109 Spline2 *arg1 = (Spline2 *) 0 ;
7110 Spline *result;
7111
7112 if (SWIG_GetArgs(interp, objc, objv,"o:tinaSpline2_x_get self ",0) == TCL_ERROR) SWIG_fail;
7113 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Spline2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7114 result = (Spline *) ((arg1)->x);
7115
7116 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Spline,0));
7117 return TCL_OK;
7118 fail:
7119 return TCL_ERROR;
7120 }
7121
7122
7123 static int
7124 _wrap_tinaSpline2_y_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7125 Spline2 *arg1 = (Spline2 *) 0 ;
7126 Spline *arg2 = (Spline *) 0 ;
7127
7128 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaSpline2_y_set self y ",0,0) == TCL_ERROR) SWIG_fail;
7129 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Spline2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7130 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_Spline,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
7131 if (arg1) (arg1)->y = arg2;
7132
7133
7134 return TCL_OK;
7135 fail:
7136 return TCL_ERROR;
7137 }
7138
7139
7140 static int
7141 _wrap_tinaSpline2_y_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7142 Spline2 *arg1 = (Spline2 *) 0 ;
7143 Spline *result;
7144
7145 if (SWIG_GetArgs(interp, objc, objv,"o:tinaSpline2_y_get self ",0) == TCL_ERROR) SWIG_fail;
7146 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Spline2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7147 result = (Spline *) ((arg1)->y);
7148
7149 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Spline,0));
7150 return TCL_OK;
7151 fail:
7152 return TCL_ERROR;
7153 }
7154
7155
7156 static int
7157 _wrap_new_tinaSpline2(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7158 Spline2 *result;
7159
7160 if (SWIG_GetArgs(interp, objc, objv,":new_tinaSpline2 ") == TCL_ERROR) SWIG_fail;
7161 result = (Spline2 *)(Spline2 *) calloc(1, sizeof(Spline2));
7162
7163 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Spline2,0));
7164 return TCL_OK;
7165 fail:
7166 return TCL_ERROR;
7167 }
7168
7169
7170 static int
7171 _wrap_delete_tinaSpline2(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7172 Spline2 *arg1 = (Spline2 *) 0 ;
7173
7174 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaSpline2 self ",0) == TCL_ERROR) SWIG_fail;
7175 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Spline2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7176 free((char *) arg1);
7177
7178
7179 return TCL_OK;
7180 fail:
7181 return TCL_ERROR;
7182 }
7183
7184
7185 static void swig_delete_tinaSpline2(void *obj) {
7186 Spline2 *arg1 = (Spline2 *) obj;
7187 free((char *) arg1);
7188 }
7189 static swig_method swig_Spline2_methods[] = {
7190 {0,0}
7191 };
7192 static swig_attribute swig_Spline2_attributes[] = {
7193 { "-type",_wrap_tinaSpline2_type_get, _wrap_tinaSpline2_type_set},
7194 { "-n",_wrap_tinaSpline2_n_get, _wrap_tinaSpline2_n_set},
7195 { "-x",_wrap_tinaSpline2_x_get, _wrap_tinaSpline2_x_set},
7196 { "-y",_wrap_tinaSpline2_y_get, _wrap_tinaSpline2_y_set},
7197 {0,0,0}
7198 };
7199 static swig_class *swig_Spline2_bases[] = {0};
7200 swig_class _wrap_class_Spline2 = { "tinaSpline2", &SWIGTYPE_p_Spline2,_wrap_new_tinaSpline2, swig_delete_tinaSpline2, swig_Spline2_methods, swig_Spline2_attributes, swig_Spline2_bases };
7201 static int
7202 _wrap_tinaTransform2_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7203 Transform2 *arg1 = (Transform2 *) 0 ;
7204 int arg2 ;
7205
7206 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaTransform2_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
7207 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Transform2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7208 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
7209
7210
7211 return TCL_OK;
7212 fail:
7213 return TCL_ERROR;
7214 }
7215
7216
7217 static int
7218 _wrap_tinaTransform2_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7219 Transform2 *arg1 = (Transform2 *) 0 ;
7220 int result;
7221
7222 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTransform2_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
7223 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Transform2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7224 result = (int) ((arg1)->ts_id);
7225
7226 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
7227 return TCL_OK;
7228 fail:
7229 return TCL_ERROR;
7230 }
7231
7232
7233 static int
7234 _wrap_tinaTransform2_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7235 Transform2 *arg1 = (Transform2 *) 0 ;
7236 int arg2 ;
7237
7238 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaTransform2_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
7239 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Transform2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7240 if (arg1) (arg1)->type = arg2;
7241
7242
7243 return TCL_OK;
7244 fail:
7245 return TCL_ERROR;
7246 }
7247
7248
7249 static int
7250 _wrap_tinaTransform2_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7251 Transform2 *arg1 = (Transform2 *) 0 ;
7252 int result;
7253
7254 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTransform2_type_get self ",0) == TCL_ERROR) SWIG_fail;
7255 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Transform2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7256 result = (int) ((arg1)->type);
7257
7258 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
7259 return TCL_OK;
7260 fail:
7261 return TCL_ERROR;
7262 }
7263
7264
7265 static int
7266 _wrap_tinaTransform2_R_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7267 Transform2 *arg1 = (Transform2 *) 0 ;
7268 struct mat2 *arg2 = (struct mat2 *) 0 ;
7269
7270 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaTransform2_R_set self R ",0,0) == TCL_ERROR) SWIG_fail;
7271 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Transform2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7272 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_mat2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7273 if (arg1) (arg1)->R = *arg2;
7274
7275
7276 return TCL_OK;
7277 fail:
7278 return TCL_ERROR;
7279 }
7280
7281
7282 static int
7283 _wrap_tinaTransform2_R_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7284 Transform2 *arg1 = (Transform2 *) 0 ;
7285 struct mat2 *result;
7286
7287 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTransform2_R_get self ",0) == TCL_ERROR) SWIG_fail;
7288 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Transform2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7289 result = (struct mat2 *)& ((arg1)->R);
7290
7291 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_mat2,0));
7292 return TCL_OK;
7293 fail:
7294 return TCL_ERROR;
7295 }
7296
7297
7298 static int
7299 _wrap_tinaTransform2_t_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7300 Transform2 *arg1 = (Transform2 *) 0 ;
7301 struct vec2 *arg2 = (struct vec2 *) 0 ;
7302
7303 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaTransform2_t_set self t ",0,0) == TCL_ERROR) SWIG_fail;
7304 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Transform2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7305 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_vec2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7306 if (arg1) (arg1)->t = *arg2;
7307
7308
7309 return TCL_OK;
7310 fail:
7311 return TCL_ERROR;
7312 }
7313
7314
7315 static int
7316 _wrap_tinaTransform2_t_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7317 Transform2 *arg1 = (Transform2 *) 0 ;
7318 struct vec2 *result;
7319
7320 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTransform2_t_get self ",0) == TCL_ERROR) SWIG_fail;
7321 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Transform2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7322 result = (struct vec2 *)& ((arg1)->t);
7323
7324 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_vec2,0));
7325 return TCL_OK;
7326 fail:
7327 return TCL_ERROR;
7328 }
7329
7330
7331 static int
7332 _wrap_new_tinaTransform2(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7333 Transform2 *result;
7334
7335 if (SWIG_GetArgs(interp, objc, objv,":new_tinaTransform2 ") == TCL_ERROR) SWIG_fail;
7336 result = (Transform2 *)(Transform2 *) calloc(1, sizeof(Transform2));
7337
7338 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Transform2,0));
7339 return TCL_OK;
7340 fail:
7341 return TCL_ERROR;
7342 }
7343
7344
7345 static int
7346 _wrap_delete_tinaTransform2(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7347 Transform2 *arg1 = (Transform2 *) 0 ;
7348
7349 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaTransform2 self ",0) == TCL_ERROR) SWIG_fail;
7350 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Transform2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7351 free((char *) arg1);
7352
7353
7354 return TCL_OK;
7355 fail:
7356 return TCL_ERROR;
7357 }
7358
7359
7360 static void swig_delete_tinaTransform2(void *obj) {
7361 Transform2 *arg1 = (Transform2 *) obj;
7362 free((char *) arg1);
7363 }
7364 static swig_method swig_Transform2_methods[] = {
7365 {0,0}
7366 };
7367 static swig_attribute swig_Transform2_attributes[] = {
7368 { "-tinaTsId",_wrap_tinaTransform2_tinaTsId_get, _wrap_tinaTransform2_tinaTsId_set},
7369 { "-type",_wrap_tinaTransform2_type_get, _wrap_tinaTransform2_type_set},
7370 { "-R",_wrap_tinaTransform2_R_get, _wrap_tinaTransform2_R_set},
7371 { "-t",_wrap_tinaTransform2_t_get, _wrap_tinaTransform2_t_set},
7372 {0,0,0}
7373 };
7374 static swig_class *swig_Transform2_bases[] = {0};
7375 swig_class _wrap_class_Transform2 = { "tinaTransform2", &SWIGTYPE_p_Transform2,_wrap_new_tinaTransform2, swig_delete_tinaTransform2, swig_Transform2_methods, swig_Transform2_attributes, swig_Transform2_bases };
7376 static int
7377 _wrap_tinaTransform3_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7378 Transform3 *arg1 = (Transform3 *) 0 ;
7379 int arg2 ;
7380
7381 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaTransform3_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
7382 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Transform3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7383 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
7384
7385
7386 return TCL_OK;
7387 fail:
7388 return TCL_ERROR;
7389 }
7390
7391
7392 static int
7393 _wrap_tinaTransform3_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7394 Transform3 *arg1 = (Transform3 *) 0 ;
7395 int result;
7396
7397 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTransform3_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
7398 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Transform3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7399 result = (int) ((arg1)->ts_id);
7400
7401 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
7402 return TCL_OK;
7403 fail:
7404 return TCL_ERROR;
7405 }
7406
7407
7408 static int
7409 _wrap_tinaTransform3_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7410 Transform3 *arg1 = (Transform3 *) 0 ;
7411 int arg2 ;
7412
7413 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaTransform3_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
7414 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Transform3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7415 if (arg1) (arg1)->type = arg2;
7416
7417
7418 return TCL_OK;
7419 fail:
7420 return TCL_ERROR;
7421 }
7422
7423
7424 static int
7425 _wrap_tinaTransform3_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7426 Transform3 *arg1 = (Transform3 *) 0 ;
7427 int result;
7428
7429 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTransform3_type_get self ",0) == TCL_ERROR) SWIG_fail;
7430 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Transform3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7431 result = (int) ((arg1)->type);
7432
7433 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
7434 return TCL_OK;
7435 fail:
7436 return TCL_ERROR;
7437 }
7438
7439
7440 static int
7441 _wrap_tinaTransform3_R_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7442 Transform3 *arg1 = (Transform3 *) 0 ;
7443 struct mat3 *arg2 = (struct mat3 *) 0 ;
7444
7445 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaTransform3_R_set self R ",0,0) == TCL_ERROR) SWIG_fail;
7446 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Transform3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7447 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_mat3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7448 if (arg1) (arg1)->R = *arg2;
7449
7450
7451 return TCL_OK;
7452 fail:
7453 return TCL_ERROR;
7454 }
7455
7456
7457 static int
7458 _wrap_tinaTransform3_R_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7459 Transform3 *arg1 = (Transform3 *) 0 ;
7460 struct mat3 *result;
7461
7462 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTransform3_R_get self ",0) == TCL_ERROR) SWIG_fail;
7463 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Transform3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7464 result = (struct mat3 *)& ((arg1)->R);
7465
7466 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_mat3,0));
7467 return TCL_OK;
7468 fail:
7469 return TCL_ERROR;
7470 }
7471
7472
7473 static int
7474 _wrap_tinaTransform3_t_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7475 Transform3 *arg1 = (Transform3 *) 0 ;
7476 struct vec3 *arg2 = (struct vec3 *) 0 ;
7477
7478 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaTransform3_t_set self t ",0,0) == TCL_ERROR) SWIG_fail;
7479 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Transform3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7480 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_vec3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7481 if (arg1) (arg1)->t = *arg2;
7482
7483
7484 return TCL_OK;
7485 fail:
7486 return TCL_ERROR;
7487 }
7488
7489
7490 static int
7491 _wrap_tinaTransform3_t_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7492 Transform3 *arg1 = (Transform3 *) 0 ;
7493 struct vec3 *result;
7494
7495 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTransform3_t_get self ",0) == TCL_ERROR) SWIG_fail;
7496 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Transform3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7497 result = (struct vec3 *)& ((arg1)->t);
7498
7499 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_vec3,0));
7500 return TCL_OK;
7501 fail:
7502 return TCL_ERROR;
7503 }
7504
7505
7506 static int
7507 _wrap_new_tinaTransform3(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7508 Transform3 *result;
7509
7510 if (SWIG_GetArgs(interp, objc, objv,":new_tinaTransform3 ") == TCL_ERROR) SWIG_fail;
7511 result = (Transform3 *)(Transform3 *) calloc(1, sizeof(Transform3));
7512
7513 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Transform3,0));
7514 return TCL_OK;
7515 fail:
7516 return TCL_ERROR;
7517 }
7518
7519
7520 static int
7521 _wrap_delete_tinaTransform3(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7522 Transform3 *arg1 = (Transform3 *) 0 ;
7523
7524 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaTransform3 self ",0) == TCL_ERROR) SWIG_fail;
7525 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Transform3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7526 free((char *) arg1);
7527
7528
7529 return TCL_OK;
7530 fail:
7531 return TCL_ERROR;
7532 }
7533
7534
7535 static void swig_delete_tinaTransform3(void *obj) {
7536 Transform3 *arg1 = (Transform3 *) obj;
7537 free((char *) arg1);
7538 }
7539 static swig_method swig_Transform3_methods[] = {
7540 {0,0}
7541 };
7542 static swig_attribute swig_Transform3_attributes[] = {
7543 { "-tinaTsId",_wrap_tinaTransform3_tinaTsId_get, _wrap_tinaTransform3_tinaTsId_set},
7544 { "-type",_wrap_tinaTransform3_type_get, _wrap_tinaTransform3_type_set},
7545 { "-R",_wrap_tinaTransform3_R_get, _wrap_tinaTransform3_R_set},
7546 { "-t",_wrap_tinaTransform3_t_get, _wrap_tinaTransform3_t_set},
7547 {0,0,0}
7548 };
7549 static swig_class *swig_Transform3_bases[] = {0};
7550 swig_class _wrap_class_Transform3 = { "tinaTransform3", &SWIGTYPE_p_Transform3,_wrap_new_tinaTransform3, swig_delete_tinaTransform3, swig_Transform3_methods, swig_Transform3_attributes, swig_Transform3_bases };
7551 static int
7552 _wrap_tinaShistogram_id_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7553 shistogram *arg1 = (shistogram *) 0 ;
7554 int arg2 ;
7555
7556 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaShistogram_id_set self id ",0,&arg2) == TCL_ERROR) SWIG_fail;
7557 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7558 if (arg1) (arg1)->id = arg2;
7559
7560
7561 return TCL_OK;
7562 fail:
7563 return TCL_ERROR;
7564 }
7565
7566
7567 static int
7568 _wrap_tinaShistogram_id_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7569 shistogram *arg1 = (shistogram *) 0 ;
7570 int result;
7571
7572 if (SWIG_GetArgs(interp, objc, objv,"o:tinaShistogram_id_get self ",0) == TCL_ERROR) SWIG_fail;
7573 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7574 result = (int) ((arg1)->id);
7575
7576 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
7577 return TCL_OK;
7578 fail:
7579 return TCL_ERROR;
7580 }
7581
7582
7583 static int
7584 _wrap_tinaShistogram_title_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7585 shistogram *arg1 = (shistogram *) 0 ;
7586 char *arg2 ;
7587
7588 if (SWIG_GetArgs(interp, objc, objv,"os:tinaShistogram_title_set self title ",0,&arg2) == TCL_ERROR) SWIG_fail;
7589 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7590 {
7591 if (arg1->title) free((char*)arg1->title);
7592 if (arg2) {
7593 arg1->title = (char *) malloc(strlen(arg2)+1);
7594 strcpy((char*)arg1->title,arg2);
7595 }else {
7596 arg1->title = 0;
7597 }
7598 }
7599
7600 return TCL_OK;
7601 fail:
7602 return TCL_ERROR;
7603 }
7604
7605
7606 static int
7607 _wrap_tinaShistogram_title_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7608 shistogram *arg1 = (shistogram *) 0 ;
7609 char *result;
7610
7611 if (SWIG_GetArgs(interp, objc, objv,"o:tinaShistogram_title_get self ",0) == TCL_ERROR) SWIG_fail;
7612 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7613 result = (char *) ((arg1)->title);
7614
7615 Tcl_SetObjResult(interp,Tcl_NewStringObj(result,-1));
7616 return TCL_OK;
7617 fail:
7618 return TCL_ERROR;
7619 }
7620
7621
7622 static int
7623 _wrap_tinaShistogram_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7624 shistogram *arg1 = (shistogram *) 0 ;
7625 int arg2 ;
7626
7627 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaShistogram_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
7628 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7629 if (arg1) (arg1)->type = arg2;
7630
7631
7632 return TCL_OK;
7633 fail:
7634 return TCL_ERROR;
7635 }
7636
7637
7638 static int
7639 _wrap_tinaShistogram_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7640 shistogram *arg1 = (shistogram *) 0 ;
7641 int result;
7642
7643 if (SWIG_GetArgs(interp, objc, objv,"o:tinaShistogram_type_get self ",0) == TCL_ERROR) SWIG_fail;
7644 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7645 result = (int) ((arg1)->type);
7646
7647 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
7648 return TCL_OK;
7649 fail:
7650 return TCL_ERROR;
7651 }
7652
7653
7654 static int
7655 _wrap_tinaShistogram_shFuncSuper_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7656 shistogram *arg1 = (shistogram *) 0 ;
7657 double (*arg2)(int,double *,float) = (double (*)(int,double *,float)) 0 ;
7658
7659 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaShistogram_shFuncSuper_set self shFuncSuper ",0,0) == TCL_ERROR) SWIG_fail;
7660 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7661 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_f_int_p_double_float__double,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7662 if (arg1) (arg1)->shFuncSuper = arg2;
7663
7664
7665 return TCL_OK;
7666 fail:
7667 return TCL_ERROR;
7668 }
7669
7670
7671 static int
7672 _wrap_tinaShistogram_shFuncSuper_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7673 shistogram *arg1 = (shistogram *) 0 ;
7674 double (*result)(int,double *,float);
7675
7676 if (SWIG_GetArgs(interp, objc, objv,"o:tinaShistogram_shFuncSuper_get self ",0) == TCL_ERROR) SWIG_fail;
7677 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7678 result = (double (*)(int,double *,float)) ((arg1)->shFuncSuper);
7679
7680 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_f_int_p_double_float__double,0));
7681 return TCL_OK;
7682 fail:
7683 return TCL_ERROR;
7684 }
7685
7686
7687 static int
7688 _wrap_tinaShistogram_par_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7689 shistogram *arg1 = (shistogram *) 0 ;
7690 double *arg2 = (double *) 0 ;
7691
7692 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaShistogram_par_set self par ",0,0) == TCL_ERROR) SWIG_fail;
7693 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7694 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_double,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
7695 if (arg1) (arg1)->par = arg2;
7696
7697
7698 return TCL_OK;
7699 fail:
7700 return TCL_ERROR;
7701 }
7702
7703
7704 static int
7705 _wrap_tinaShistogram_par_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7706 shistogram *arg1 = (shistogram *) 0 ;
7707 double *result;
7708
7709 if (SWIG_GetArgs(interp, objc, objv,"o:tinaShistogram_par_get self ",0) == TCL_ERROR) SWIG_fail;
7710 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7711 result = (double *) ((arg1)->par);
7712
7713 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_double,0));
7714 return TCL_OK;
7715 fail:
7716 return TCL_ERROR;
7717 }
7718
7719
7720 static int
7721 _wrap_tinaShistogram_npar_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7722 shistogram *arg1 = (shistogram *) 0 ;
7723 int arg2 ;
7724
7725 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaShistogram_npar_set self npar ",0,&arg2) == TCL_ERROR) SWIG_fail;
7726 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7727 if (arg1) (arg1)->npar = arg2;
7728
7729
7730 return TCL_OK;
7731 fail:
7732 return TCL_ERROR;
7733 }
7734
7735
7736 static int
7737 _wrap_tinaShistogram_npar_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7738 shistogram *arg1 = (shistogram *) 0 ;
7739 int result;
7740
7741 if (SWIG_GetArgs(interp, objc, objv,"o:tinaShistogram_npar_get self ",0) == TCL_ERROR) SWIG_fail;
7742 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7743 result = (int) ((arg1)->npar);
7744
7745 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
7746 return TCL_OK;
7747 fail:
7748 return TCL_ERROR;
7749 }
7750
7751
7752 static int
7753 _wrap_tinaShistogram_xmin_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7754 shistogram *arg1 = (shistogram *) 0 ;
7755 float arg2 ;
7756
7757 if (SWIG_GetArgs(interp, objc, objv,"of:tinaShistogram_xmin_set self xmin ",0,&arg2) == TCL_ERROR) SWIG_fail;
7758 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7759 if (arg1) (arg1)->xmin = arg2;
7760
7761
7762 return TCL_OK;
7763 fail:
7764 return TCL_ERROR;
7765 }
7766
7767
7768 static int
7769 _wrap_tinaShistogram_xmin_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7770 shistogram *arg1 = (shistogram *) 0 ;
7771 float result;
7772
7773 if (SWIG_GetArgs(interp, objc, objv,"o:tinaShistogram_xmin_get self ",0) == TCL_ERROR) SWIG_fail;
7774 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7775 result = (float) ((arg1)->xmin);
7776
7777 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
7778 return TCL_OK;
7779 fail:
7780 return TCL_ERROR;
7781 }
7782
7783
7784 static int
7785 _wrap_tinaShistogram_xmax_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7786 shistogram *arg1 = (shistogram *) 0 ;
7787 float arg2 ;
7788
7789 if (SWIG_GetArgs(interp, objc, objv,"of:tinaShistogram_xmax_set self xmax ",0,&arg2) == TCL_ERROR) SWIG_fail;
7790 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7791 if (arg1) (arg1)->xmax = arg2;
7792
7793
7794 return TCL_OK;
7795 fail:
7796 return TCL_ERROR;
7797 }
7798
7799
7800 static int
7801 _wrap_tinaShistogram_xmax_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7802 shistogram *arg1 = (shistogram *) 0 ;
7803 float result;
7804
7805 if (SWIG_GetArgs(interp, objc, objv,"o:tinaShistogram_xmax_get self ",0) == TCL_ERROR) SWIG_fail;
7806 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7807 result = (float) ((arg1)->xmax);
7808
7809 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
7810 return TCL_OK;
7811 fail:
7812 return TCL_ERROR;
7813 }
7814
7815
7816 static int
7817 _wrap_tinaShistogram_ymin_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7818 shistogram *arg1 = (shistogram *) 0 ;
7819 float arg2 ;
7820
7821 if (SWIG_GetArgs(interp, objc, objv,"of:tinaShistogram_ymin_set self ymin ",0,&arg2) == TCL_ERROR) SWIG_fail;
7822 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7823 if (arg1) (arg1)->ymin = arg2;
7824
7825
7826 return TCL_OK;
7827 fail:
7828 return TCL_ERROR;
7829 }
7830
7831
7832 static int
7833 _wrap_tinaShistogram_ymin_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7834 shistogram *arg1 = (shistogram *) 0 ;
7835 float result;
7836
7837 if (SWIG_GetArgs(interp, objc, objv,"o:tinaShistogram_ymin_get self ",0) == TCL_ERROR) SWIG_fail;
7838 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7839 result = (float) ((arg1)->ymin);
7840
7841 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
7842 return TCL_OK;
7843 fail:
7844 return TCL_ERROR;
7845 }
7846
7847
7848 static int
7849 _wrap_tinaShistogram_ymax_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7850 shistogram *arg1 = (shistogram *) 0 ;
7851 float arg2 ;
7852
7853 if (SWIG_GetArgs(interp, objc, objv,"of:tinaShistogram_ymax_set self ymax ",0,&arg2) == TCL_ERROR) SWIG_fail;
7854 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7855 if (arg1) (arg1)->ymax = arg2;
7856
7857
7858 return TCL_OK;
7859 fail:
7860 return TCL_ERROR;
7861 }
7862
7863
7864 static int
7865 _wrap_tinaShistogram_ymax_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7866 shistogram *arg1 = (shistogram *) 0 ;
7867 float result;
7868
7869 if (SWIG_GetArgs(interp, objc, objv,"o:tinaShistogram_ymax_get self ",0) == TCL_ERROR) SWIG_fail;
7870 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7871 result = (float) ((arg1)->ymax);
7872
7873 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
7874 return TCL_OK;
7875 fail:
7876 return TCL_ERROR;
7877 }
7878
7879
7880 static int
7881 _wrap_tinaShistogram_mean_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7882 shistogram *arg1 = (shistogram *) 0 ;
7883 double arg2 ;
7884
7885 if (SWIG_GetArgs(interp, objc, objv,"od:tinaShistogram_mean_set self mean ",0,&arg2) == TCL_ERROR) SWIG_fail;
7886 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7887 if (arg1) (arg1)->mean = arg2;
7888
7889
7890 return TCL_OK;
7891 fail:
7892 return TCL_ERROR;
7893 }
7894
7895
7896 static int
7897 _wrap_tinaShistogram_mean_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7898 shistogram *arg1 = (shistogram *) 0 ;
7899 double result;
7900
7901 if (SWIG_GetArgs(interp, objc, objv,"o:tinaShistogram_mean_get self ",0) == TCL_ERROR) SWIG_fail;
7902 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7903 result = (double) ((arg1)->mean);
7904
7905 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
7906 return TCL_OK;
7907 fail:
7908 return TCL_ERROR;
7909 }
7910
7911
7912 static int
7913 _wrap_tinaShistogram_mean2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7914 shistogram *arg1 = (shistogram *) 0 ;
7915 double arg2 ;
7916
7917 if (SWIG_GetArgs(interp, objc, objv,"od:tinaShistogram_mean2_set self mean2 ",0,&arg2) == TCL_ERROR) SWIG_fail;
7918 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7919 if (arg1) (arg1)->mean2 = arg2;
7920
7921
7922 return TCL_OK;
7923 fail:
7924 return TCL_ERROR;
7925 }
7926
7927
7928 static int
7929 _wrap_tinaShistogram_mean2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7930 shistogram *arg1 = (shistogram *) 0 ;
7931 double result;
7932
7933 if (SWIG_GetArgs(interp, objc, objv,"o:tinaShistogram_mean2_get self ",0) == TCL_ERROR) SWIG_fail;
7934 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7935 result = (double) ((arg1)->mean2);
7936
7937 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
7938 return TCL_OK;
7939 fail:
7940 return TCL_ERROR;
7941 }
7942
7943
7944 static int
7945 _wrap_tinaShistogram_xbins_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7946 shistogram *arg1 = (shistogram *) 0 ;
7947 int arg2 ;
7948
7949 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaShistogram_xbins_set self xbins ",0,&arg2) == TCL_ERROR) SWIG_fail;
7950 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7951 if (arg1) (arg1)->xbins = arg2;
7952
7953
7954 return TCL_OK;
7955 fail:
7956 return TCL_ERROR;
7957 }
7958
7959
7960 static int
7961 _wrap_tinaShistogram_xbins_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7962 shistogram *arg1 = (shistogram *) 0 ;
7963 int result;
7964
7965 if (SWIG_GetArgs(interp, objc, objv,"o:tinaShistogram_xbins_get self ",0) == TCL_ERROR) SWIG_fail;
7966 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7967 result = (int) ((arg1)->xbins);
7968
7969 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
7970 return TCL_OK;
7971 fail:
7972 return TCL_ERROR;
7973 }
7974
7975
7976 static int
7977 _wrap_tinaShistogram_ybins_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7978 shistogram *arg1 = (shistogram *) 0 ;
7979 int arg2 ;
7980
7981 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaShistogram_ybins_set self ybins ",0,&arg2) == TCL_ERROR) SWIG_fail;
7982 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7983 if (arg1) (arg1)->ybins = arg2;
7984
7985
7986 return TCL_OK;
7987 fail:
7988 return TCL_ERROR;
7989 }
7990
7991
7992 static int
7993 _wrap_tinaShistogram_ybins_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
7994 shistogram *arg1 = (shistogram *) 0 ;
7995 int result;
7996
7997 if (SWIG_GetArgs(interp, objc, objv,"o:tinaShistogram_ybins_get self ",0) == TCL_ERROR) SWIG_fail;
7998 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
7999 result = (int) ((arg1)->ybins);
8000
8001 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
8002 return TCL_OK;
8003 fail:
8004 return TCL_ERROR;
8005 }
8006
8007
8008 static int
8009 _wrap_tinaShistogram_xincr_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8010 shistogram *arg1 = (shistogram *) 0 ;
8011 float arg2 ;
8012
8013 if (SWIG_GetArgs(interp, objc, objv,"of:tinaShistogram_xincr_set self xincr ",0,&arg2) == TCL_ERROR) SWIG_fail;
8014 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8015 if (arg1) (arg1)->xincr = arg2;
8016
8017
8018 return TCL_OK;
8019 fail:
8020 return TCL_ERROR;
8021 }
8022
8023
8024 static int
8025 _wrap_tinaShistogram_xincr_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8026 shistogram *arg1 = (shistogram *) 0 ;
8027 float result;
8028
8029 if (SWIG_GetArgs(interp, objc, objv,"o:tinaShistogram_xincr_get self ",0) == TCL_ERROR) SWIG_fail;
8030 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8031 result = (float) ((arg1)->xincr);
8032
8033 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
8034 return TCL_OK;
8035 fail:
8036 return TCL_ERROR;
8037 }
8038
8039
8040 static int
8041 _wrap_tinaShistogram_yincr_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8042 shistogram *arg1 = (shistogram *) 0 ;
8043 float arg2 ;
8044
8045 if (SWIG_GetArgs(interp, objc, objv,"of:tinaShistogram_yincr_set self yincr ",0,&arg2) == TCL_ERROR) SWIG_fail;
8046 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8047 if (arg1) (arg1)->yincr = arg2;
8048
8049
8050 return TCL_OK;
8051 fail:
8052 return TCL_ERROR;
8053 }
8054
8055
8056 static int
8057 _wrap_tinaShistogram_yincr_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8058 shistogram *arg1 = (shistogram *) 0 ;
8059 float result;
8060
8061 if (SWIG_GetArgs(interp, objc, objv,"o:tinaShistogram_yincr_get self ",0) == TCL_ERROR) SWIG_fail;
8062 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8063 result = (float) ((arg1)->yincr);
8064
8065 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
8066 return TCL_OK;
8067 fail:
8068 return TCL_ERROR;
8069 }
8070
8071
8072 static int
8073 _wrap_tinaShistogram_entries_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8074 shistogram *arg1 = (shistogram *) 0 ;
8075 int arg2 ;
8076
8077 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaShistogram_entries_set self entries ",0,&arg2) == TCL_ERROR) SWIG_fail;
8078 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8079 if (arg1) (arg1)->entries = arg2;
8080
8081
8082 return TCL_OK;
8083 fail:
8084 return TCL_ERROR;
8085 }
8086
8087
8088 static int
8089 _wrap_tinaShistogram_entries_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8090 shistogram *arg1 = (shistogram *) 0 ;
8091 int result;
8092
8093 if (SWIG_GetArgs(interp, objc, objv,"o:tinaShistogram_entries_get self ",0) == TCL_ERROR) SWIG_fail;
8094 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8095 result = (int) ((arg1)->entries);
8096
8097 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
8098 return TCL_OK;
8099 fail:
8100 return TCL_ERROR;
8101 }
8102
8103
8104 static int
8105 _wrap_tinaShistogram_contents_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8106 shistogram *arg1 = (shistogram *) 0 ;
8107 float arg2 ;
8108
8109 if (SWIG_GetArgs(interp, objc, objv,"of:tinaShistogram_contents_set self contents ",0,&arg2) == TCL_ERROR) SWIG_fail;
8110 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8111 if (arg1) (arg1)->contents = arg2;
8112
8113
8114 return TCL_OK;
8115 fail:
8116 return TCL_ERROR;
8117 }
8118
8119
8120 static int
8121 _wrap_tinaShistogram_contents_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8122 shistogram *arg1 = (shistogram *) 0 ;
8123 float result;
8124
8125 if (SWIG_GetArgs(interp, objc, objv,"o:tinaShistogram_contents_get self ",0) == TCL_ERROR) SWIG_fail;
8126 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8127 result = (float) ((arg1)->contents);
8128
8129 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
8130 return TCL_OK;
8131 fail:
8132 return TCL_ERROR;
8133 }
8134
8135
8136 static int
8137 _wrap_tinaShistogram_under_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8138 shistogram *arg1 = (shistogram *) 0 ;
8139 float arg2 ;
8140
8141 if (SWIG_GetArgs(interp, objc, objv,"of:tinaShistogram_under_set self under ",0,&arg2) == TCL_ERROR) SWIG_fail;
8142 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8143 if (arg1) (arg1)->under = arg2;
8144
8145
8146 return TCL_OK;
8147 fail:
8148 return TCL_ERROR;
8149 }
8150
8151
8152 static int
8153 _wrap_tinaShistogram_under_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8154 shistogram *arg1 = (shistogram *) 0 ;
8155 float result;
8156
8157 if (SWIG_GetArgs(interp, objc, objv,"o:tinaShistogram_under_get self ",0) == TCL_ERROR) SWIG_fail;
8158 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8159 result = (float) ((arg1)->under);
8160
8161 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
8162 return TCL_OK;
8163 fail:
8164 return TCL_ERROR;
8165 }
8166
8167
8168 static int
8169 _wrap_tinaShistogram_over_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8170 shistogram *arg1 = (shistogram *) 0 ;
8171 float arg2 ;
8172
8173 if (SWIG_GetArgs(interp, objc, objv,"of:tinaShistogram_over_set self over ",0,&arg2) == TCL_ERROR) SWIG_fail;
8174 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8175 if (arg1) (arg1)->over = arg2;
8176
8177
8178 return TCL_OK;
8179 fail:
8180 return TCL_ERROR;
8181 }
8182
8183
8184 static int
8185 _wrap_tinaShistogram_over_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8186 shistogram *arg1 = (shistogram *) 0 ;
8187 float result;
8188
8189 if (SWIG_GetArgs(interp, objc, objv,"o:tinaShistogram_over_get self ",0) == TCL_ERROR) SWIG_fail;
8190 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8191 result = (float) ((arg1)->over);
8192
8193 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
8194 return TCL_OK;
8195 fail:
8196 return TCL_ERROR;
8197 }
8198
8199
8200 static int
8201 _wrap_tinaShistogram_above_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8202 shistogram *arg1 = (shistogram *) 0 ;
8203 float arg2 ;
8204
8205 if (SWIG_GetArgs(interp, objc, objv,"of:tinaShistogram_above_set self above ",0,&arg2) == TCL_ERROR) SWIG_fail;
8206 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8207 if (arg1) (arg1)->above = arg2;
8208
8209
8210 return TCL_OK;
8211 fail:
8212 return TCL_ERROR;
8213 }
8214
8215
8216 static int
8217 _wrap_tinaShistogram_above_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8218 shistogram *arg1 = (shistogram *) 0 ;
8219 float result;
8220
8221 if (SWIG_GetArgs(interp, objc, objv,"o:tinaShistogram_above_get self ",0) == TCL_ERROR) SWIG_fail;
8222 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8223 result = (float) ((arg1)->above);
8224
8225 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
8226 return TCL_OK;
8227 fail:
8228 return TCL_ERROR;
8229 }
8230
8231
8232 static int
8233 _wrap_tinaShistogram_below_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8234 shistogram *arg1 = (shistogram *) 0 ;
8235 float arg2 ;
8236
8237 if (SWIG_GetArgs(interp, objc, objv,"of:tinaShistogram_below_set self below ",0,&arg2) == TCL_ERROR) SWIG_fail;
8238 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8239 if (arg1) (arg1)->below = arg2;
8240
8241
8242 return TCL_OK;
8243 fail:
8244 return TCL_ERROR;
8245 }
8246
8247
8248 static int
8249 _wrap_tinaShistogram_below_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8250 shistogram *arg1 = (shistogram *) 0 ;
8251 float result;
8252
8253 if (SWIG_GetArgs(interp, objc, objv,"o:tinaShistogram_below_get self ",0) == TCL_ERROR) SWIG_fail;
8254 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8255 result = (float) ((arg1)->below);
8256
8257 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
8258 return TCL_OK;
8259 fail:
8260 return TCL_ERROR;
8261 }
8262
8263
8264 static int
8265 _wrap_tinaShistogram_array_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8266 shistogram *arg1 = (shistogram *) 0 ;
8267 float **arg2 = (float **) 0 ;
8268
8269 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaShistogram_array_set self array ",0,0) == TCL_ERROR) SWIG_fail;
8270 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8271 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_float,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8272 if (arg1) (arg1)->array = arg2;
8273
8274
8275 return TCL_OK;
8276 fail:
8277 return TCL_ERROR;
8278 }
8279
8280
8281 static int
8282 _wrap_tinaShistogram_array_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8283 shistogram *arg1 = (shistogram *) 0 ;
8284 float **result;
8285
8286 if (SWIG_GetArgs(interp, objc, objv,"o:tinaShistogram_array_get self ",0) == TCL_ERROR) SWIG_fail;
8287 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8288 result = (float **) ((arg1)->array);
8289
8290 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_float,0));
8291 return TCL_OK;
8292 fail:
8293 return TCL_ERROR;
8294 }
8295
8296
8297 static int
8298 _wrap_new_tinaShistogram(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8299 shistogram *result;
8300
8301 if (SWIG_GetArgs(interp, objc, objv,":new_tinaShistogram ") == TCL_ERROR) SWIG_fail;
8302 result = (shistogram *)(shistogram *) calloc(1, sizeof(shistogram));
8303
8304 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_shistogram,0));
8305 return TCL_OK;
8306 fail:
8307 return TCL_ERROR;
8308 }
8309
8310
8311 static int
8312 _wrap_delete_tinaShistogram(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8313 shistogram *arg1 = (shistogram *) 0 ;
8314
8315 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaShistogram self ",0) == TCL_ERROR) SWIG_fail;
8316 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_shistogram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8317 free((char *) arg1);
8318
8319
8320 return TCL_OK;
8321 fail:
8322 return TCL_ERROR;
8323 }
8324
8325
8326 static void swig_delete_tinaShistogram(void *obj) {
8327 shistogram *arg1 = (shistogram *) obj;
8328 free((char *) arg1);
8329 }
8330 static swig_method swig_shistogram_methods[] = {
8331 {0,0}
8332 };
8333 static swig_attribute swig_shistogram_attributes[] = {
8334 { "-id",_wrap_tinaShistogram_id_get, _wrap_tinaShistogram_id_set},
8335 { "-title",_wrap_tinaShistogram_title_get, _wrap_tinaShistogram_title_set},
8336 { "-type",_wrap_tinaShistogram_type_get, _wrap_tinaShistogram_type_set},
8337 { "-shFuncSuper",_wrap_tinaShistogram_shFuncSuper_get, _wrap_tinaShistogram_shFuncSuper_set},
8338 { "-par",_wrap_tinaShistogram_par_get, _wrap_tinaShistogram_par_set},
8339 { "-npar",_wrap_tinaShistogram_npar_get, _wrap_tinaShistogram_npar_set},
8340 { "-xmin",_wrap_tinaShistogram_xmin_get, _wrap_tinaShistogram_xmin_set},
8341 { "-xmax",_wrap_tinaShistogram_xmax_get, _wrap_tinaShistogram_xmax_set},
8342 { "-ymin",_wrap_tinaShistogram_ymin_get, _wrap_tinaShistogram_ymin_set},
8343 { "-ymax",_wrap_tinaShistogram_ymax_get, _wrap_tinaShistogram_ymax_set},
8344 { "-mean",_wrap_tinaShistogram_mean_get, _wrap_tinaShistogram_mean_set},
8345 { "-mean2",_wrap_tinaShistogram_mean2_get, _wrap_tinaShistogram_mean2_set},
8346 { "-xbins",_wrap_tinaShistogram_xbins_get, _wrap_tinaShistogram_xbins_set},
8347 { "-ybins",_wrap_tinaShistogram_ybins_get, _wrap_tinaShistogram_ybins_set},
8348 { "-xincr",_wrap_tinaShistogram_xincr_get, _wrap_tinaShistogram_xincr_set},
8349 { "-yincr",_wrap_tinaShistogram_yincr_get, _wrap_tinaShistogram_yincr_set},
8350 { "-entries",_wrap_tinaShistogram_entries_get, _wrap_tinaShistogram_entries_set},
8351 { "-contents",_wrap_tinaShistogram_contents_get, _wrap_tinaShistogram_contents_set},
8352 { "-under",_wrap_tinaShistogram_under_get, _wrap_tinaShistogram_under_set},
8353 { "-over",_wrap_tinaShistogram_over_get, _wrap_tinaShistogram_over_set},
8354 { "-above",_wrap_tinaShistogram_above_get, _wrap_tinaShistogram_above_set},
8355 { "-below",_wrap_tinaShistogram_below_get, _wrap_tinaShistogram_below_set},
8356 { "-array",_wrap_tinaShistogram_array_get, _wrap_tinaShistogram_array_set},
8357 {0,0,0}
8358 };
8359 static swig_class *swig_shistogram_bases[] = {0};
8360 swig_class _wrap_class_shistogram = { "tinaShistogram", &SWIGTYPE_p_shistogram,_wrap_new_tinaShistogram, swig_delete_tinaShistogram, swig_shistogram_methods, swig_shistogram_attributes, swig_shistogram_bases };
8361 static char *_wrap_hist_get(ClientData clientData, Tcl_Interp *interp, char *name1, char *name2, int flags) {
8362 Tcl_Obj *value = 0;
8363
8364 value = SWIG_NewPointerObj((void *) hist, SWIGTYPE_p_p_shistogram,0);
8365 if (value) {
8366 Tcl_SetVar2(interp,name1,name2,Tcl_GetStringFromObj(value,NULL), flags);
8367 Tcl_DecrRefCount(value);
8368 }
8369 return NULL;
8370 }
8371
8372
8373 static char *_wrap_hist_set(ClientData clientData, Tcl_Interp *interp, char *name1, char *name2, int flags) {
8374 Tcl_Obj *value = 0;
8375 Tcl_Obj *name1o = 0;
8376
8377 name1o = Tcl_NewStringObj(name1,-1);
8378 value = Tcl_ObjGetVar2(interp, name1o, 0, flags);
8379 Tcl_DecrRefCount(name1o);
8380 if (!value) return NULL;
8381 {
8382 void *temp;
8383 if (SWIG_ConvertPtr(interp,value,&temp,SWIGTYPE_p_p_shistogram, SWIG_POINTER_EXCEPTION) != TCL_OK) {
8384 return (char *)"Type error. Expected shistogram **";
8385 }
8386 memmove((void *) hist,temp,50*sizeof(shistogram *));
8387 }
8388 return NULL;
8389 }
8390
8391
8392 static int
8393 _wrap_tinaVector_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8394 Vector *arg1 = (Vector *) 0 ;
8395 int arg2 ;
8396
8397 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaVector_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
8398 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vector,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8399 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
8400
8401
8402 return TCL_OK;
8403 fail:
8404 return TCL_ERROR;
8405 }
8406
8407
8408 static int
8409 _wrap_tinaVector_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8410 Vector *arg1 = (Vector *) 0 ;
8411 int result;
8412
8413 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVector_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
8414 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vector,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8415 result = (int) ((arg1)->ts_id);
8416
8417 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
8418 return TCL_OK;
8419 fail:
8420 return TCL_ERROR;
8421 }
8422
8423
8424 static int
8425 _wrap_tinaVector_vtype_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8426 Vector *arg1 = (Vector *) 0 ;
8427 int arg2 ;
8428
8429 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaVector_vtype_set self vtype ",0,&arg2) == TCL_ERROR) SWIG_fail;
8430 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vector,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8431 if (arg1) (arg1)->vtype = (Vartype )arg2;
8432
8433
8434 return TCL_OK;
8435 fail:
8436 return TCL_ERROR;
8437 }
8438
8439
8440 static int
8441 _wrap_tinaVector_vtype_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8442 Vector *arg1 = (Vector *) 0 ;
8443 int result;
8444
8445 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVector_vtype_get self ",0) == TCL_ERROR) SWIG_fail;
8446 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vector,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8447 result = (int) ((arg1)->vtype);
8448
8449 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
8450 return TCL_OK;
8451 fail:
8452 return TCL_ERROR;
8453 }
8454
8455
8456 static int
8457 _wrap_tinaVector_n_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8458 Vector *arg1 = (Vector *) 0 ;
8459 int arg2 ;
8460
8461 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaVector_n_set self n ",0,&arg2) == TCL_ERROR) SWIG_fail;
8462 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vector,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8463 if (arg1) (arg1)->n = arg2;
8464
8465
8466 return TCL_OK;
8467 fail:
8468 return TCL_ERROR;
8469 }
8470
8471
8472 static int
8473 _wrap_tinaVector_n_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8474 Vector *arg1 = (Vector *) 0 ;
8475 int result;
8476
8477 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVector_n_get self ",0) == TCL_ERROR) SWIG_fail;
8478 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vector,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8479 result = (int) ((arg1)->n);
8480
8481 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
8482 return TCL_OK;
8483 fail:
8484 return TCL_ERROR;
8485 }
8486
8487
8488 static int
8489 _wrap_tinaVector_data_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8490 Vector *arg1 = (Vector *) 0 ;
8491 void *arg2 = (void *) 0 ;
8492
8493 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVector_data_set self data ",0,0) == TCL_ERROR) SWIG_fail;
8494 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vector,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8495 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, 0,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
8496 if (arg1) (arg1)->data = arg2;
8497
8498
8499 return TCL_OK;
8500 fail:
8501 return TCL_ERROR;
8502 }
8503
8504
8505 static int
8506 _wrap_tinaVector_data_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8507 Vector *arg1 = (Vector *) 0 ;
8508 void *result;
8509
8510 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVector_data_get self ",0) == TCL_ERROR) SWIG_fail;
8511 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vector,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8512 result = (void *) ((arg1)->data);
8513
8514 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_void,0));
8515 return TCL_OK;
8516 fail:
8517 return TCL_ERROR;
8518 }
8519
8520
8521 static int
8522 _wrap_new_tinaVector(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8523 Vector *result;
8524
8525 if (SWIG_GetArgs(interp, objc, objv,":new_tinaVector ") == TCL_ERROR) SWIG_fail;
8526 result = (Vector *)(Vector *) calloc(1, sizeof(Vector));
8527
8528 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Vector,0));
8529 return TCL_OK;
8530 fail:
8531 return TCL_ERROR;
8532 }
8533
8534
8535 static int
8536 _wrap_delete_tinaVector(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8537 Vector *arg1 = (Vector *) 0 ;
8538
8539 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaVector self ",0) == TCL_ERROR) SWIG_fail;
8540 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vector,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8541 free((char *) arg1);
8542
8543
8544 return TCL_OK;
8545 fail:
8546 return TCL_ERROR;
8547 }
8548
8549
8550 static void swig_delete_tinaVector(void *obj) {
8551 Vector *arg1 = (Vector *) obj;
8552 free((char *) arg1);
8553 }
8554 static swig_method swig_Vector_methods[] = {
8555 {0,0}
8556 };
8557 static swig_attribute swig_Vector_attributes[] = {
8558 { "-tinaTsId",_wrap_tinaVector_tinaTsId_get, _wrap_tinaVector_tinaTsId_set},
8559 { "-vtype",_wrap_tinaVector_vtype_get, _wrap_tinaVector_vtype_set},
8560 { "-n",_wrap_tinaVector_n_get, _wrap_tinaVector_n_set},
8561 { "-data",_wrap_tinaVector_data_get, _wrap_tinaVector_data_set},
8562 {0,0,0}
8563 };
8564 static swig_class *swig_Vector_bases[] = {0};
8565 swig_class _wrap_class_Vector = { "tinaVector", &SWIGTYPE_p_Vector,_wrap_new_tinaVector, swig_delete_tinaVector, swig_Vector_methods, swig_Vector_attributes, swig_Vector_bases };
8566 static int
8567 _wrap_tinaImregion_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8568 Imregion *arg1 = (Imregion *) 0 ;
8569 int arg2 ;
8570
8571 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaImregion_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
8572 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Imregion,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8573 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
8574
8575
8576 return TCL_OK;
8577 fail:
8578 return TCL_ERROR;
8579 }
8580
8581
8582 static int
8583 _wrap_tinaImregion_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8584 Imregion *arg1 = (Imregion *) 0 ;
8585 int result;
8586
8587 if (SWIG_GetArgs(interp, objc, objv,"o:tinaImregion_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
8588 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Imregion,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8589 result = (int) ((arg1)->ts_id);
8590
8591 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
8592 return TCL_OK;
8593 fail:
8594 return TCL_ERROR;
8595 }
8596
8597
8598 static int
8599 _wrap_tinaImregion_lx_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8600 Imregion *arg1 = (Imregion *) 0 ;
8601 int arg2 ;
8602
8603 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaImregion_lx_set self lx ",0,&arg2) == TCL_ERROR) SWIG_fail;
8604 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Imregion,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8605 if (arg1) (arg1)->lx = arg2;
8606
8607
8608 return TCL_OK;
8609 fail:
8610 return TCL_ERROR;
8611 }
8612
8613
8614 static int
8615 _wrap_tinaImregion_lx_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8616 Imregion *arg1 = (Imregion *) 0 ;
8617 int result;
8618
8619 if (SWIG_GetArgs(interp, objc, objv,"o:tinaImregion_lx_get self ",0) == TCL_ERROR) SWIG_fail;
8620 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Imregion,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8621 result = (int) ((arg1)->lx);
8622
8623 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
8624 return TCL_OK;
8625 fail:
8626 return TCL_ERROR;
8627 }
8628
8629
8630 static int
8631 _wrap_tinaImregion_ly_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8632 Imregion *arg1 = (Imregion *) 0 ;
8633 int arg2 ;
8634
8635 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaImregion_ly_set self ly ",0,&arg2) == TCL_ERROR) SWIG_fail;
8636 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Imregion,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8637 if (arg1) (arg1)->ly = arg2;
8638
8639
8640 return TCL_OK;
8641 fail:
8642 return TCL_ERROR;
8643 }
8644
8645
8646 static int
8647 _wrap_tinaImregion_ly_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8648 Imregion *arg1 = (Imregion *) 0 ;
8649 int result;
8650
8651 if (SWIG_GetArgs(interp, objc, objv,"o:tinaImregion_ly_get self ",0) == TCL_ERROR) SWIG_fail;
8652 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Imregion,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8653 result = (int) ((arg1)->ly);
8654
8655 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
8656 return TCL_OK;
8657 fail:
8658 return TCL_ERROR;
8659 }
8660
8661
8662 static int
8663 _wrap_tinaImregion_ux_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8664 Imregion *arg1 = (Imregion *) 0 ;
8665 int arg2 ;
8666
8667 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaImregion_ux_set self ux ",0,&arg2) == TCL_ERROR) SWIG_fail;
8668 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Imregion,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8669 if (arg1) (arg1)->ux = arg2;
8670
8671
8672 return TCL_OK;
8673 fail:
8674 return TCL_ERROR;
8675 }
8676
8677
8678 static int
8679 _wrap_tinaImregion_ux_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8680 Imregion *arg1 = (Imregion *) 0 ;
8681 int result;
8682
8683 if (SWIG_GetArgs(interp, objc, objv,"o:tinaImregion_ux_get self ",0) == TCL_ERROR) SWIG_fail;
8684 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Imregion,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8685 result = (int) ((arg1)->ux);
8686
8687 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
8688 return TCL_OK;
8689 fail:
8690 return TCL_ERROR;
8691 }
8692
8693
8694 static int
8695 _wrap_tinaImregion_uy_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8696 Imregion *arg1 = (Imregion *) 0 ;
8697 int arg2 ;
8698
8699 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaImregion_uy_set self uy ",0,&arg2) == TCL_ERROR) SWIG_fail;
8700 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Imregion,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8701 if (arg1) (arg1)->uy = arg2;
8702
8703
8704 return TCL_OK;
8705 fail:
8706 return TCL_ERROR;
8707 }
8708
8709
8710 static int
8711 _wrap_tinaImregion_uy_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8712 Imregion *arg1 = (Imregion *) 0 ;
8713 int result;
8714
8715 if (SWIG_GetArgs(interp, objc, objv,"o:tinaImregion_uy_get self ",0) == TCL_ERROR) SWIG_fail;
8716 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Imregion,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8717 result = (int) ((arg1)->uy);
8718
8719 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
8720 return TCL_OK;
8721 fail:
8722 return TCL_ERROR;
8723 }
8724
8725
8726 static int
8727 _wrap_new_tinaImregion(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8728 Imregion *result;
8729
8730 if (SWIG_GetArgs(interp, objc, objv,":new_tinaImregion ") == TCL_ERROR) SWIG_fail;
8731 result = (Imregion *)(Imregion *) calloc(1, sizeof(Imregion));
8732
8733 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Imregion,0));
8734 return TCL_OK;
8735 fail:
8736 return TCL_ERROR;
8737 }
8738
8739
8740 static int
8741 _wrap_delete_tinaImregion(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8742 Imregion *arg1 = (Imregion *) 0 ;
8743
8744 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaImregion self ",0) == TCL_ERROR) SWIG_fail;
8745 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Imregion,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8746 free((char *) arg1);
8747
8748
8749 return TCL_OK;
8750 fail:
8751 return TCL_ERROR;
8752 }
8753
8754
8755 static void swig_delete_tinaImregion(void *obj) {
8756 Imregion *arg1 = (Imregion *) obj;
8757 free((char *) arg1);
8758 }
8759 static swig_method swig_Imregion_methods[] = {
8760 {0,0}
8761 };
8762 static swig_attribute swig_Imregion_attributes[] = {
8763 { "-tinaTsId",_wrap_tinaImregion_tinaTsId_get, _wrap_tinaImregion_tinaTsId_set},
8764 { "-lx",_wrap_tinaImregion_lx_get, _wrap_tinaImregion_lx_set},
8765 { "-ly",_wrap_tinaImregion_ly_get, _wrap_tinaImregion_ly_set},
8766 { "-ux",_wrap_tinaImregion_ux_get, _wrap_tinaImregion_ux_set},
8767 { "-uy",_wrap_tinaImregion_uy_get, _wrap_tinaImregion_uy_set},
8768 {0,0,0}
8769 };
8770 static swig_class *swig_Imregion_bases[] = {0};
8771 swig_class _wrap_class_Imregion = { "tinaImregion", &SWIGTYPE_p_Imregion,_wrap_new_tinaImregion, swig_delete_tinaImregion, swig_Imregion_methods, swig_Imregion_attributes, swig_Imregion_bases };
8772 static int
8773 _wrap_tinaImrect_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8774 Imrect *arg1 = (Imrect *) 0 ;
8775 int arg2 ;
8776
8777 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaImrect_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
8778 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Imrect,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8779 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
8780
8781
8782 return TCL_OK;
8783 fail:
8784 return TCL_ERROR;
8785 }
8786
8787
8788 static int
8789 _wrap_tinaImrect_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8790 Imrect *arg1 = (Imrect *) 0 ;
8791 int result;
8792
8793 if (SWIG_GetArgs(interp, objc, objv,"o:tinaImrect_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
8794 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Imrect,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8795 result = (int) ((arg1)->ts_id);
8796
8797 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
8798 return TCL_OK;
8799 fail:
8800 return TCL_ERROR;
8801 }
8802
8803
8804 static int
8805 _wrap_tinaImrect_vtype_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8806 Imrect *arg1 = (Imrect *) 0 ;
8807 int arg2 ;
8808
8809 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaImrect_vtype_set self vtype ",0,&arg2) == TCL_ERROR) SWIG_fail;
8810 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Imrect,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8811 if (arg1) (arg1)->vtype = (Vartype )arg2;
8812
8813
8814 return TCL_OK;
8815 fail:
8816 return TCL_ERROR;
8817 }
8818
8819
8820 static int
8821 _wrap_tinaImrect_vtype_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8822 Imrect *arg1 = (Imrect *) 0 ;
8823 int result;
8824
8825 if (SWIG_GetArgs(interp, objc, objv,"o:tinaImrect_vtype_get self ",0) == TCL_ERROR) SWIG_fail;
8826 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Imrect,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8827 result = (int) ((arg1)->vtype);
8828
8829 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
8830 return TCL_OK;
8831 fail:
8832 return TCL_ERROR;
8833 }
8834
8835
8836 static int
8837 _wrap_tinaImrect_width_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8838 Imrect *arg1 = (Imrect *) 0 ;
8839 int arg2 ;
8840
8841 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaImrect_width_set self width ",0,&arg2) == TCL_ERROR) SWIG_fail;
8842 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Imrect,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8843 if (arg1) (arg1)->width = arg2;
8844
8845
8846 return TCL_OK;
8847 fail:
8848 return TCL_ERROR;
8849 }
8850
8851
8852 static int
8853 _wrap_tinaImrect_width_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8854 Imrect *arg1 = (Imrect *) 0 ;
8855 int result;
8856
8857 if (SWIG_GetArgs(interp, objc, objv,"o:tinaImrect_width_get self ",0) == TCL_ERROR) SWIG_fail;
8858 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Imrect,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8859 result = (int) ((arg1)->width);
8860
8861 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
8862 return TCL_OK;
8863 fail:
8864 return TCL_ERROR;
8865 }
8866
8867
8868 static int
8869 _wrap_tinaImrect_height_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8870 Imrect *arg1 = (Imrect *) 0 ;
8871 int arg2 ;
8872
8873 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaImrect_height_set self height ",0,&arg2) == TCL_ERROR) SWIG_fail;
8874 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Imrect,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8875 if (arg1) (arg1)->height = arg2;
8876
8877
8878 return TCL_OK;
8879 fail:
8880 return TCL_ERROR;
8881 }
8882
8883
8884 static int
8885 _wrap_tinaImrect_height_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8886 Imrect *arg1 = (Imrect *) 0 ;
8887 int result;
8888
8889 if (SWIG_GetArgs(interp, objc, objv,"o:tinaImrect_height_get self ",0) == TCL_ERROR) SWIG_fail;
8890 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Imrect,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8891 result = (int) ((arg1)->height);
8892
8893 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
8894 return TCL_OK;
8895 fail:
8896 return TCL_ERROR;
8897 }
8898
8899
8900 static int
8901 _wrap_tinaImrect_region_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8902 Imrect *arg1 = (Imrect *) 0 ;
8903 Imregion *arg2 = (Imregion *) 0 ;
8904
8905 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaImrect_region_set self region ",0,0) == TCL_ERROR) SWIG_fail;
8906 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Imrect,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8907 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_Imregion,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
8908 if (arg1) (arg1)->region = arg2;
8909
8910
8911 return TCL_OK;
8912 fail:
8913 return TCL_ERROR;
8914 }
8915
8916
8917 static int
8918 _wrap_tinaImrect_region_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8919 Imrect *arg1 = (Imrect *) 0 ;
8920 Imregion *result;
8921
8922 if (SWIG_GetArgs(interp, objc, objv,"o:tinaImrect_region_get self ",0) == TCL_ERROR) SWIG_fail;
8923 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Imrect,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8924 result = (Imregion *) ((arg1)->region);
8925
8926 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Imregion,0));
8927 return TCL_OK;
8928 fail:
8929 return TCL_ERROR;
8930 }
8931
8932
8933 static int
8934 _wrap_tinaImrect_data_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8935 Imrect *arg1 = (Imrect *) 0 ;
8936 void *arg2 = (void *) 0 ;
8937
8938 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaImrect_data_set self data ",0,0) == TCL_ERROR) SWIG_fail;
8939 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Imrect,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8940 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, 0,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
8941 if (arg1) (arg1)->data = arg2;
8942
8943
8944 return TCL_OK;
8945 fail:
8946 return TCL_ERROR;
8947 }
8948
8949
8950 static int
8951 _wrap_tinaImrect_data_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8952 Imrect *arg1 = (Imrect *) 0 ;
8953 void *result;
8954
8955 if (SWIG_GetArgs(interp, objc, objv,"o:tinaImrect_data_get self ",0) == TCL_ERROR) SWIG_fail;
8956 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Imrect,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8957 result = (void *) ((arg1)->data);
8958
8959 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_void,0));
8960 return TCL_OK;
8961 fail:
8962 return TCL_ERROR;
8963 }
8964
8965
8966 static int
8967 _wrap_tinaImrect_props_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8968 Imrect *arg1 = (Imrect *) 0 ;
8969 List *arg2 = (List *) 0 ;
8970
8971 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaImrect_props_set self props ",0,0) == TCL_ERROR) SWIG_fail;
8972 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Imrect,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8973 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
8974 if (arg1) (arg1)->props = arg2;
8975
8976
8977 return TCL_OK;
8978 fail:
8979 return TCL_ERROR;
8980 }
8981
8982
8983 static int
8984 _wrap_tinaImrect_props_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
8985 Imrect *arg1 = (Imrect *) 0 ;
8986 List *result;
8987
8988 if (SWIG_GetArgs(interp, objc, objv,"o:tinaImrect_props_get self ",0) == TCL_ERROR) SWIG_fail;
8989 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Imrect,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
8990 result = (List *) ((arg1)->props);
8991
8992 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_List,0));
8993 return TCL_OK;
8994 fail:
8995 return TCL_ERROR;
8996 }
8997
8998
8999 static int
9000 _wrap_new_tinaImrect(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9001 Imrect *result;
9002
9003 if (SWIG_GetArgs(interp, objc, objv,":new_tinaImrect ") == TCL_ERROR) SWIG_fail;
9004 result = (Imrect *)(Imrect *) calloc(1, sizeof(Imrect));
9005
9006 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Imrect,0));
9007 return TCL_OK;
9008 fail:
9009 return TCL_ERROR;
9010 }
9011
9012
9013 static int
9014 _wrap_delete_tinaImrect(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9015 Imrect *arg1 = (Imrect *) 0 ;
9016
9017 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaImrect self ",0) == TCL_ERROR) SWIG_fail;
9018 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Imrect,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9019 free((char *) arg1);
9020
9021
9022 return TCL_OK;
9023 fail:
9024 return TCL_ERROR;
9025 }
9026
9027
9028 static void swig_delete_tinaImrect(void *obj) {
9029 Imrect *arg1 = (Imrect *) obj;
9030 free((char *) arg1);
9031 }
9032 static swig_method swig_Imrect_methods[] = {
9033 {0,0}
9034 };
9035 static swig_attribute swig_Imrect_attributes[] = {
9036 { "-tinaTsId",_wrap_tinaImrect_tinaTsId_get, _wrap_tinaImrect_tinaTsId_set},
9037 { "-vtype",_wrap_tinaImrect_vtype_get, _wrap_tinaImrect_vtype_set},
9038 { "-width",_wrap_tinaImrect_width_get, _wrap_tinaImrect_width_set},
9039 { "-height",_wrap_tinaImrect_height_get, _wrap_tinaImrect_height_set},
9040 { "-region",_wrap_tinaImrect_region_get, _wrap_tinaImrect_region_set},
9041 { "-data",_wrap_tinaImrect_data_get, _wrap_tinaImrect_data_set},
9042 { "-props",_wrap_tinaImrect_props_get, _wrap_tinaImrect_props_set},
9043 {0,0,0}
9044 };
9045 static swig_class *swig_Imrect_bases[] = {0};
9046 swig_class _wrap_class_Imrect = { "tinaImrect", &SWIGTYPE_p_Imrect,_wrap_new_tinaImrect, swig_delete_tinaImrect, swig_Imrect_methods, swig_Imrect_attributes, swig_Imrect_bases };
9047 static int
9048 _wrap_tinaProf1_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9049 Prof1 *arg1 = (Prof1 *) 0 ;
9050 int arg2 ;
9051
9052 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaProf1_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
9053 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prof1,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9054 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
9055
9056
9057 return TCL_OK;
9058 fail:
9059 return TCL_ERROR;
9060 }
9061
9062
9063 static int
9064 _wrap_tinaProf1_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9065 Prof1 *arg1 = (Prof1 *) 0 ;
9066 int result;
9067
9068 if (SWIG_GetArgs(interp, objc, objv,"o:tinaProf1_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
9069 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prof1,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9070 result = (int) ((arg1)->ts_id);
9071
9072 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
9073 return TCL_OK;
9074 fail:
9075 return TCL_ERROR;
9076 }
9077
9078
9079 static int
9080 _wrap_tinaProf1_n1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9081 Prof1 *arg1 = (Prof1 *) 0 ;
9082 int arg2 ;
9083
9084 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaProf1_n1_set self n1 ",0,&arg2) == TCL_ERROR) SWIG_fail;
9085 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prof1,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9086 if (arg1) (arg1)->n1 = arg2;
9087
9088
9089 return TCL_OK;
9090 fail:
9091 return TCL_ERROR;
9092 }
9093
9094
9095 static int
9096 _wrap_tinaProf1_n1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9097 Prof1 *arg1 = (Prof1 *) 0 ;
9098 int result;
9099
9100 if (SWIG_GetArgs(interp, objc, objv,"o:tinaProf1_n1_get self ",0) == TCL_ERROR) SWIG_fail;
9101 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prof1,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9102 result = (int) ((arg1)->n1);
9103
9104 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
9105 return TCL_OK;
9106 fail:
9107 return TCL_ERROR;
9108 }
9109
9110
9111 static int
9112 _wrap_tinaProf1_n2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9113 Prof1 *arg1 = (Prof1 *) 0 ;
9114 int arg2 ;
9115
9116 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaProf1_n2_set self n2 ",0,&arg2) == TCL_ERROR) SWIG_fail;
9117 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prof1,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9118 if (arg1) (arg1)->n2 = arg2;
9119
9120
9121 return TCL_OK;
9122 fail:
9123 return TCL_ERROR;
9124 }
9125
9126
9127 static int
9128 _wrap_tinaProf1_n2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9129 Prof1 *arg1 = (Prof1 *) 0 ;
9130 int result;
9131
9132 if (SWIG_GetArgs(interp, objc, objv,"o:tinaProf1_n2_get self ",0) == TCL_ERROR) SWIG_fail;
9133 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prof1,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9134 result = (int) ((arg1)->n2);
9135
9136 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
9137 return TCL_OK;
9138 fail:
9139 return TCL_ERROR;
9140 }
9141
9142
9143 static int
9144 _wrap_tinaProf1_vtype_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9145 Prof1 *arg1 = (Prof1 *) 0 ;
9146 int arg2 ;
9147
9148 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaProf1_vtype_set self vtype ",0,&arg2) == TCL_ERROR) SWIG_fail;
9149 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prof1,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9150 if (arg1) (arg1)->vtype = (Vartype )arg2;
9151
9152
9153 return TCL_OK;
9154 fail:
9155 return TCL_ERROR;
9156 }
9157
9158
9159 static int
9160 _wrap_tinaProf1_vtype_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9161 Prof1 *arg1 = (Prof1 *) 0 ;
9162 int result;
9163
9164 if (SWIG_GetArgs(interp, objc, objv,"o:tinaProf1_vtype_get self ",0) == TCL_ERROR) SWIG_fail;
9165 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prof1,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9166 result = (int) ((arg1)->vtype);
9167
9168 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
9169 return TCL_OK;
9170 fail:
9171 return TCL_ERROR;
9172 }
9173
9174
9175 static int
9176 _wrap_tinaProf1_el_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9177 Prof1 *arg1 = (Prof1 *) 0 ;
9178 Varptr *arg2 = (Varptr *) 0 ;
9179
9180 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaProf1_el_set self el ",0,0) == TCL_ERROR) SWIG_fail;
9181 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prof1,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9182 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9183 if (arg1) (arg1)->el = *arg2;
9184
9185
9186 return TCL_OK;
9187 fail:
9188 return TCL_ERROR;
9189 }
9190
9191
9192 static int
9193 _wrap_tinaProf1_el_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9194 Prof1 *arg1 = (Prof1 *) 0 ;
9195 Varptr *result;
9196
9197 if (SWIG_GetArgs(interp, objc, objv,"o:tinaProf1_el_get self ",0) == TCL_ERROR) SWIG_fail;
9198 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prof1,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9199 result = (Varptr *)& ((arg1)->el);
9200
9201 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Varptr,0));
9202 return TCL_OK;
9203 fail:
9204 return TCL_ERROR;
9205 }
9206
9207
9208 static int
9209 _wrap_new_tinaProf1(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9210 Prof1 *result;
9211
9212 if (SWIG_GetArgs(interp, objc, objv,":new_tinaProf1 ") == TCL_ERROR) SWIG_fail;
9213 result = (Prof1 *)(Prof1 *) calloc(1, sizeof(Prof1));
9214
9215 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Prof1,0));
9216 return TCL_OK;
9217 fail:
9218 return TCL_ERROR;
9219 }
9220
9221
9222 static int
9223 _wrap_delete_tinaProf1(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9224 Prof1 *arg1 = (Prof1 *) 0 ;
9225
9226 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaProf1 self ",0) == TCL_ERROR) SWIG_fail;
9227 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prof1,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9228 free((char *) arg1);
9229
9230
9231 return TCL_OK;
9232 fail:
9233 return TCL_ERROR;
9234 }
9235
9236
9237 static void swig_delete_tinaProf1(void *obj) {
9238 Prof1 *arg1 = (Prof1 *) obj;
9239 free((char *) arg1);
9240 }
9241 static swig_method swig_Prof1_methods[] = {
9242 {0,0}
9243 };
9244 static swig_attribute swig_Prof1_attributes[] = {
9245 { "-tinaTsId",_wrap_tinaProf1_tinaTsId_get, _wrap_tinaProf1_tinaTsId_set},
9246 { "-n1",_wrap_tinaProf1_n1_get, _wrap_tinaProf1_n1_set},
9247 { "-n2",_wrap_tinaProf1_n2_get, _wrap_tinaProf1_n2_set},
9248 { "-vtype",_wrap_tinaProf1_vtype_get, _wrap_tinaProf1_vtype_set},
9249 { "-el",_wrap_tinaProf1_el_get, _wrap_tinaProf1_el_set},
9250 {0,0,0}
9251 };
9252 static swig_class *swig_Prof1_bases[] = {0};
9253 swig_class _wrap_class_Prof1 = { "tinaProf1", &SWIGTYPE_p_Prof1,_wrap_new_tinaProf1, swig_delete_tinaProf1, swig_Prof1_methods, swig_Prof1_attributes, swig_Prof1_bases };
9254 static int
9255 _wrap_tinaTerrain_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9256 Terrain_data *arg1 = (Terrain_data *) 0 ;
9257 int arg2 ;
9258
9259 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaTerrain_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
9260 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Terrain_data,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9261 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
9262
9263
9264 return TCL_OK;
9265 fail:
9266 return TCL_ERROR;
9267 }
9268
9269
9270 static int
9271 _wrap_tinaTerrain_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9272 Terrain_data *arg1 = (Terrain_data *) 0 ;
9273 int result;
9274
9275 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTerrain_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
9276 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Terrain_data,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9277 result = (int) ((arg1)->ts_id);
9278
9279 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
9280 return TCL_OK;
9281 fail:
9282 return TCL_ERROR;
9283 }
9284
9285
9286 static int
9287 _wrap_tinaTerrain_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9288 Terrain_data *arg1 = (Terrain_data *) 0 ;
9289 int arg2 ;
9290
9291 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaTerrain_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
9292 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Terrain_data,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9293 if (arg1) (arg1)->type = arg2;
9294
9295
9296 return TCL_OK;
9297 fail:
9298 return TCL_ERROR;
9299 }
9300
9301
9302 static int
9303 _wrap_tinaTerrain_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9304 Terrain_data *arg1 = (Terrain_data *) 0 ;
9305 int result;
9306
9307 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTerrain_type_get self ",0) == TCL_ERROR) SWIG_fail;
9308 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Terrain_data,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9309 result = (int) ((arg1)->type);
9310
9311 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
9312 return TCL_OK;
9313 fail:
9314 return TCL_ERROR;
9315 }
9316
9317
9318 static int
9319 _wrap_tinaTerrain_m_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9320 Terrain_data *arg1 = (Terrain_data *) 0 ;
9321 int arg2 ;
9322
9323 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaTerrain_m_set self m ",0,&arg2) == TCL_ERROR) SWIG_fail;
9324 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Terrain_data,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9325 if (arg1) (arg1)->m = arg2;
9326
9327
9328 return TCL_OK;
9329 fail:
9330 return TCL_ERROR;
9331 }
9332
9333
9334 static int
9335 _wrap_tinaTerrain_m_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9336 Terrain_data *arg1 = (Terrain_data *) 0 ;
9337 int result;
9338
9339 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTerrain_m_get self ",0) == TCL_ERROR) SWIG_fail;
9340 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Terrain_data,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9341 result = (int) ((arg1)->m);
9342
9343 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
9344 return TCL_OK;
9345 fail:
9346 return TCL_ERROR;
9347 }
9348
9349
9350 static int
9351 _wrap_tinaTerrain_n_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9352 Terrain_data *arg1 = (Terrain_data *) 0 ;
9353 int arg2 ;
9354
9355 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaTerrain_n_set self n ",0,&arg2) == TCL_ERROR) SWIG_fail;
9356 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Terrain_data,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9357 if (arg1) (arg1)->n = arg2;
9358
9359
9360 return TCL_OK;
9361 fail:
9362 return TCL_ERROR;
9363 }
9364
9365
9366 static int
9367 _wrap_tinaTerrain_n_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9368 Terrain_data *arg1 = (Terrain_data *) 0 ;
9369 int result;
9370
9371 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTerrain_n_get self ",0) == TCL_ERROR) SWIG_fail;
9372 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Terrain_data,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9373 result = (int) ((arg1)->n);
9374
9375 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
9376 return TCL_OK;
9377 fail:
9378 return TCL_ERROR;
9379 }
9380
9381
9382 static int
9383 _wrap_tinaTerrain_data_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9384 Terrain_data *arg1 = (Terrain_data *) 0 ;
9385 Vec3 **arg2 = (Vec3 **) 0 ;
9386
9387 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaTerrain_data_set self data ",0,0) == TCL_ERROR) SWIG_fail;
9388 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Terrain_data,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9389 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_Vec3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9390 if (arg1) (arg1)->data = arg2;
9391
9392
9393 return TCL_OK;
9394 fail:
9395 return TCL_ERROR;
9396 }
9397
9398
9399 static int
9400 _wrap_tinaTerrain_data_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9401 Terrain_data *arg1 = (Terrain_data *) 0 ;
9402 Vec3 **result;
9403
9404 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTerrain_data_get self ",0) == TCL_ERROR) SWIG_fail;
9405 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Terrain_data,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9406 result = (Vec3 **) ((arg1)->data);
9407
9408 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_Vec3,0));
9409 return TCL_OK;
9410 fail:
9411 return TCL_ERROR;
9412 }
9413
9414
9415 static int
9416 _wrap_tinaTerrain_mask_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9417 Terrain_data *arg1 = (Terrain_data *) 0 ;
9418 char **arg2 = (char **) 0 ;
9419
9420 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaTerrain_mask_set self mask ",0,0) == TCL_ERROR) SWIG_fail;
9421 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Terrain_data,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9422 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_char,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9423 if (arg1) (arg1)->mask = arg2;
9424
9425
9426 return TCL_OK;
9427 fail:
9428 return TCL_ERROR;
9429 }
9430
9431
9432 static int
9433 _wrap_tinaTerrain_mask_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9434 Terrain_data *arg1 = (Terrain_data *) 0 ;
9435 char **result;
9436
9437 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTerrain_mask_get self ",0) == TCL_ERROR) SWIG_fail;
9438 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Terrain_data,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9439 result = (char **) ((arg1)->mask);
9440
9441 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_char,0));
9442 return TCL_OK;
9443 fail:
9444 return TCL_ERROR;
9445 }
9446
9447
9448 static int
9449 _wrap_new_tinaTerrain(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9450 Terrain_data *result;
9451
9452 if (SWIG_GetArgs(interp, objc, objv,":new_tinaTerrain ") == TCL_ERROR) SWIG_fail;
9453 result = (Terrain_data *)(Terrain_data *) calloc(1, sizeof(Terrain_data));
9454
9455 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Terrain_data,0));
9456 return TCL_OK;
9457 fail:
9458 return TCL_ERROR;
9459 }
9460
9461
9462 static int
9463 _wrap_delete_tinaTerrain(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9464 Terrain_data *arg1 = (Terrain_data *) 0 ;
9465
9466 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaTerrain self ",0) == TCL_ERROR) SWIG_fail;
9467 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Terrain_data,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9468 free((char *) arg1);
9469
9470
9471 return TCL_OK;
9472 fail:
9473 return TCL_ERROR;
9474 }
9475
9476
9477 static void swig_delete_tinaTerrain(void *obj) {
9478 Terrain_data *arg1 = (Terrain_data *) obj;
9479 free((char *) arg1);
9480 }
9481 static swig_method swig_Terrain_data_methods[] = {
9482 {0,0}
9483 };
9484 static swig_attribute swig_Terrain_data_attributes[] = {
9485 { "-tinaTsId",_wrap_tinaTerrain_tinaTsId_get, _wrap_tinaTerrain_tinaTsId_set},
9486 { "-type",_wrap_tinaTerrain_type_get, _wrap_tinaTerrain_type_set},
9487 { "-m",_wrap_tinaTerrain_m_get, _wrap_tinaTerrain_m_set},
9488 { "-n",_wrap_tinaTerrain_n_get, _wrap_tinaTerrain_n_set},
9489 { "-data",_wrap_tinaTerrain_data_get, _wrap_tinaTerrain_data_set},
9490 { "-mask",_wrap_tinaTerrain_mask_get, _wrap_tinaTerrain_mask_set},
9491 {0,0,0}
9492 };
9493 static swig_class *swig_Terrain_data_bases[] = {0};
9494 swig_class _wrap_class_Terrain_data = { "tinaTerrain", &SWIGTYPE_p_Terrain_data,_wrap_new_tinaTerrain, swig_delete_tinaTerrain, swig_Terrain_data_methods, swig_Terrain_data_attributes, swig_Terrain_data_bases };
9495 static int
9496 _wrap_tinaSequence_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9497 Sequence *arg1 = (Sequence *) 0 ;
9498 int arg2 ;
9499
9500 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaSequence_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
9501 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Sequence,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9502 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
9503
9504
9505 return TCL_OK;
9506 fail:
9507 return TCL_ERROR;
9508 }
9509
9510
9511 static int
9512 _wrap_tinaSequence_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9513 Sequence *arg1 = (Sequence *) 0 ;
9514 int result;
9515
9516 if (SWIG_GetArgs(interp, objc, objv,"o:tinaSequence_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
9517 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Sequence,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9518 result = (int) ((arg1)->ts_id);
9519
9520 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
9521 return TCL_OK;
9522 fail:
9523 return TCL_ERROR;
9524 }
9525
9526
9527 static int
9528 _wrap_tinaSequence_filename_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9529 Sequence *arg1 = (Sequence *) 0 ;
9530 char *arg2 ;
9531
9532 if (SWIG_GetArgs(interp, objc, objv,"os:tinaSequence_filename_set self filename ",0,&arg2) == TCL_ERROR) SWIG_fail;
9533 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Sequence,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9534 {
9535 if (arg1->filename) free((char*)arg1->filename);
9536 if (arg2) {
9537 arg1->filename = (char *) malloc(strlen(arg2)+1);
9538 strcpy((char*)arg1->filename,arg2);
9539 }else {
9540 arg1->filename = 0;
9541 }
9542 }
9543
9544 return TCL_OK;
9545 fail:
9546 return TCL_ERROR;
9547 }
9548
9549
9550 static int
9551 _wrap_tinaSequence_filename_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9552 Sequence *arg1 = (Sequence *) 0 ;
9553 char *result;
9554
9555 if (SWIG_GetArgs(interp, objc, objv,"o:tinaSequence_filename_get self ",0) == TCL_ERROR) SWIG_fail;
9556 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Sequence,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9557 result = (char *) ((arg1)->filename);
9558
9559 Tcl_SetObjResult(interp,Tcl_NewStringObj(result,-1));
9560 return TCL_OK;
9561 fail:
9562 return TCL_ERROR;
9563 }
9564
9565
9566 static int
9567 _wrap_tinaSequence_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9568 Sequence *arg1 = (Sequence *) 0 ;
9569 int arg2 ;
9570
9571 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaSequence_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
9572 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Sequence,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9573 if (arg1) (arg1)->type = arg2;
9574
9575
9576 return TCL_OK;
9577 fail:
9578 return TCL_ERROR;
9579 }
9580
9581
9582 static int
9583 _wrap_tinaSequence_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9584 Sequence *arg1 = (Sequence *) 0 ;
9585 int result;
9586
9587 if (SWIG_GetArgs(interp, objc, objv,"o:tinaSequence_type_get self ",0) == TCL_ERROR) SWIG_fail;
9588 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Sequence,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9589 result = (int) ((arg1)->type);
9590
9591 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
9592 return TCL_OK;
9593 fail:
9594 return TCL_ERROR;
9595 }
9596
9597
9598 static int
9599 _wrap_tinaSequence_start_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9600 Sequence *arg1 = (Sequence *) 0 ;
9601 List *arg2 = (List *) 0 ;
9602
9603 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaSequence_start_set self start ",0,0) == TCL_ERROR) SWIG_fail;
9604 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Sequence,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9605 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
9606 if (arg1) (arg1)->start = arg2;
9607
9608
9609 return TCL_OK;
9610 fail:
9611 return TCL_ERROR;
9612 }
9613
9614
9615 static int
9616 _wrap_tinaSequence_start_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9617 Sequence *arg1 = (Sequence *) 0 ;
9618 List *result;
9619
9620 if (SWIG_GetArgs(interp, objc, objv,"o:tinaSequence_start_get self ",0) == TCL_ERROR) SWIG_fail;
9621 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Sequence,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9622 result = (List *) ((arg1)->start);
9623
9624 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_List,0));
9625 return TCL_OK;
9626 fail:
9627 return TCL_ERROR;
9628 }
9629
9630
9631 static int
9632 _wrap_tinaSequence_current_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9633 Sequence *arg1 = (Sequence *) 0 ;
9634 List *arg2 = (List *) 0 ;
9635
9636 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaSequence_current_set self current ",0,0) == TCL_ERROR) SWIG_fail;
9637 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Sequence,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9638 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
9639 if (arg1) (arg1)->current = arg2;
9640
9641
9642 return TCL_OK;
9643 fail:
9644 return TCL_ERROR;
9645 }
9646
9647
9648 static int
9649 _wrap_tinaSequence_current_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9650 Sequence *arg1 = (Sequence *) 0 ;
9651 List *result;
9652
9653 if (SWIG_GetArgs(interp, objc, objv,"o:tinaSequence_current_get self ",0) == TCL_ERROR) SWIG_fail;
9654 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Sequence,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9655 result = (List *) ((arg1)->current);
9656
9657 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_List,0));
9658 return TCL_OK;
9659 fail:
9660 return TCL_ERROR;
9661 }
9662
9663
9664 static int
9665 _wrap_tinaSequence_end_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9666 Sequence *arg1 = (Sequence *) 0 ;
9667 List *arg2 = (List *) 0 ;
9668
9669 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaSequence_end_set self end ",0,0) == TCL_ERROR) SWIG_fail;
9670 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Sequence,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9671 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
9672 if (arg1) (arg1)->end = arg2;
9673
9674
9675 return TCL_OK;
9676 fail:
9677 return TCL_ERROR;
9678 }
9679
9680
9681 static int
9682 _wrap_tinaSequence_end_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9683 Sequence *arg1 = (Sequence *) 0 ;
9684 List *result;
9685
9686 if (SWIG_GetArgs(interp, objc, objv,"o:tinaSequence_end_get self ",0) == TCL_ERROR) SWIG_fail;
9687 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Sequence,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9688 result = (List *) ((arg1)->end);
9689
9690 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_List,0));
9691 return TCL_OK;
9692 fail:
9693 return TCL_ERROR;
9694 }
9695
9696
9697 static int
9698 _wrap_tinaSequence_offset_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9699 Sequence *arg1 = (Sequence *) 0 ;
9700 int arg2 ;
9701
9702 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaSequence_offset_set self offset ",0,&arg2) == TCL_ERROR) SWIG_fail;
9703 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Sequence,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9704 if (arg1) (arg1)->offset = arg2;
9705
9706
9707 return TCL_OK;
9708 fail:
9709 return TCL_ERROR;
9710 }
9711
9712
9713 static int
9714 _wrap_tinaSequence_offset_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9715 Sequence *arg1 = (Sequence *) 0 ;
9716 int result;
9717
9718 if (SWIG_GetArgs(interp, objc, objv,"o:tinaSequence_offset_get self ",0) == TCL_ERROR) SWIG_fail;
9719 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Sequence,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9720 result = (int) ((arg1)->offset);
9721
9722 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
9723 return TCL_OK;
9724 fail:
9725 return TCL_ERROR;
9726 }
9727
9728
9729 static int
9730 _wrap_tinaSequence_stride_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9731 Sequence *arg1 = (Sequence *) 0 ;
9732 int arg2 ;
9733
9734 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaSequence_stride_set self stride ",0,&arg2) == TCL_ERROR) SWIG_fail;
9735 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Sequence,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9736 if (arg1) (arg1)->stride = arg2;
9737
9738
9739 return TCL_OK;
9740 fail:
9741 return TCL_ERROR;
9742 }
9743
9744
9745 static int
9746 _wrap_tinaSequence_stride_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9747 Sequence *arg1 = (Sequence *) 0 ;
9748 int result;
9749
9750 if (SWIG_GetArgs(interp, objc, objv,"o:tinaSequence_stride_get self ",0) == TCL_ERROR) SWIG_fail;
9751 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Sequence,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9752 result = (int) ((arg1)->stride);
9753
9754 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
9755 return TCL_OK;
9756 fail:
9757 return TCL_ERROR;
9758 }
9759
9760
9761 static int
9762 _wrap_tinaSequence_dim_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9763 Sequence *arg1 = (Sequence *) 0 ;
9764 float *arg2 ;
9765
9766 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaSequence_dim_set self dim ",0,0) == TCL_ERROR) SWIG_fail;
9767 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Sequence,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9768 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_float,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9769 {
9770 int ii;
9771 float *b = (float *) arg1->dim;
9772 for (ii = 0; ii < 4; ii++) b[ii] = *((float *) arg2 + ii);
9773 }
9774
9775 return TCL_OK;
9776 fail:
9777 return TCL_ERROR;
9778 }
9779
9780
9781 static int
9782 _wrap_tinaSequence_dim_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9783 Sequence *arg1 = (Sequence *) 0 ;
9784 float *result;
9785
9786 if (SWIG_GetArgs(interp, objc, objv,"o:tinaSequence_dim_get self ",0) == TCL_ERROR) SWIG_fail;
9787 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Sequence,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9788 result = (float *)(float *) ((arg1)->dim);
9789
9790 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_float,0));
9791 return TCL_OK;
9792 fail:
9793 return TCL_ERROR;
9794 }
9795
9796
9797 static int
9798 _wrap_tinaSequence_props_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9799 Sequence *arg1 = (Sequence *) 0 ;
9800 List *arg2 = (List *) 0 ;
9801
9802 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaSequence_props_set self props ",0,0) == TCL_ERROR) SWIG_fail;
9803 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Sequence,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9804 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
9805 if (arg1) (arg1)->props = arg2;
9806
9807
9808 return TCL_OK;
9809 fail:
9810 return TCL_ERROR;
9811 }
9812
9813
9814 static int
9815 _wrap_tinaSequence_props_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9816 Sequence *arg1 = (Sequence *) 0 ;
9817 List *result;
9818
9819 if (SWIG_GetArgs(interp, objc, objv,"o:tinaSequence_props_get self ",0) == TCL_ERROR) SWIG_fail;
9820 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Sequence,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9821 result = (List *) ((arg1)->props);
9822
9823 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_List,0));
9824 return TCL_OK;
9825 fail:
9826 return TCL_ERROR;
9827 }
9828
9829
9830 static int
9831 _wrap_new_tinaSequence(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9832 Sequence *result;
9833
9834 if (SWIG_GetArgs(interp, objc, objv,":new_tinaSequence ") == TCL_ERROR) SWIG_fail;
9835 result = (Sequence *)(Sequence *) calloc(1, sizeof(Sequence));
9836
9837 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Sequence,0));
9838 return TCL_OK;
9839 fail:
9840 return TCL_ERROR;
9841 }
9842
9843
9844 static int
9845 _wrap_delete_tinaSequence(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9846 Sequence *arg1 = (Sequence *) 0 ;
9847
9848 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaSequence self ",0) == TCL_ERROR) SWIG_fail;
9849 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Sequence,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9850 free((char *) arg1);
9851
9852
9853 return TCL_OK;
9854 fail:
9855 return TCL_ERROR;
9856 }
9857
9858
9859 static void swig_delete_tinaSequence(void *obj) {
9860 Sequence *arg1 = (Sequence *) obj;
9861 free((char *) arg1);
9862 }
9863 static swig_method swig_Sequence_methods[] = {
9864 {0,0}
9865 };
9866 static swig_attribute swig_Sequence_attributes[] = {
9867 { "-tinaTsId",_wrap_tinaSequence_tinaTsId_get, _wrap_tinaSequence_tinaTsId_set},
9868 { "-filename",_wrap_tinaSequence_filename_get, _wrap_tinaSequence_filename_set},
9869 { "-type",_wrap_tinaSequence_type_get, _wrap_tinaSequence_type_set},
9870 { "-start",_wrap_tinaSequence_start_get, _wrap_tinaSequence_start_set},
9871 { "-current",_wrap_tinaSequence_current_get, _wrap_tinaSequence_current_set},
9872 { "-end",_wrap_tinaSequence_end_get, _wrap_tinaSequence_end_set},
9873 { "-offset",_wrap_tinaSequence_offset_get, _wrap_tinaSequence_offset_set},
9874 { "-stride",_wrap_tinaSequence_stride_get, _wrap_tinaSequence_stride_set},
9875 { "-dim",_wrap_tinaSequence_dim_get, _wrap_tinaSequence_dim_set},
9876 { "-props",_wrap_tinaSequence_props_get, _wrap_tinaSequence_props_set},
9877 {0,0,0}
9878 };
9879 static swig_class *swig_Sequence_bases[] = {0};
9880 swig_class _wrap_class_Sequence = { "tinaSequence", &SWIGTYPE_p_Sequence,_wrap_new_tinaSequence, swig_delete_tinaSequence, swig_Sequence_methods, swig_Sequence_attributes, swig_Sequence_bases };
9881 static int
9882 _wrap_tinaSeqVoi_tinaSpline_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9883 Seqvoi *arg1 = (Seqvoi *) 0 ;
9884 Spline2 *arg2 = (Spline2 *) 0 ;
9885
9886 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaSeqVoi_tinaSpline_set self spline ",0,0) == TCL_ERROR) SWIG_fail;
9887 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Seqvoi,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9888 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_Spline2,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
9889 if (arg1) (arg1)->spline = arg2;
9890
9891
9892 return TCL_OK;
9893 fail:
9894 return TCL_ERROR;
9895 }
9896
9897
9898 static int
9899 _wrap_tinaSeqVoi_tinaSpline_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9900 Seqvoi *arg1 = (Seqvoi *) 0 ;
9901 Spline2 *result;
9902
9903 if (SWIG_GetArgs(interp, objc, objv,"o:tinaSeqVoi_tinaSpline_get self ",0) == TCL_ERROR) SWIG_fail;
9904 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Seqvoi,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9905 result = (Spline2 *) ((arg1)->spline);
9906
9907 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Spline2,0));
9908 return TCL_OK;
9909 fail:
9910 return TCL_ERROR;
9911 }
9912
9913
9914 static int
9915 _wrap_tinaSeqVoi_string_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9916 Seqvoi *arg1 = (Seqvoi *) 0 ;
9917 Tstring *arg2 = (Tstring *) 0 ;
9918
9919 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaSeqVoi_string_set self string ",0,0) == TCL_ERROR) SWIG_fail;
9920 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Seqvoi,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9921 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
9922 if (arg1) (arg1)->string = arg2;
9923
9924
9925 return TCL_OK;
9926 fail:
9927 return TCL_ERROR;
9928 }
9929
9930
9931 static int
9932 _wrap_tinaSeqVoi_string_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9933 Seqvoi *arg1 = (Seqvoi *) 0 ;
9934 Tstring *result;
9935
9936 if (SWIG_GetArgs(interp, objc, objv,"o:tinaSeqVoi_string_get self ",0) == TCL_ERROR) SWIG_fail;
9937 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Seqvoi,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9938 result = (Tstring *) ((arg1)->string);
9939
9940 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Tstring,0));
9941 return TCL_OK;
9942 fail:
9943 return TCL_ERROR;
9944 }
9945
9946
9947 static int
9948 _wrap_tinaSeqVoi_nspline_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9949 Seqvoi *arg1 = (Seqvoi *) 0 ;
9950 int arg2 ;
9951
9952 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaSeqVoi_nspline_set self nspline ",0,&arg2) == TCL_ERROR) SWIG_fail;
9953 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Seqvoi,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9954 if (arg1) (arg1)->nspline = arg2;
9955
9956
9957 return TCL_OK;
9958 fail:
9959 return TCL_ERROR;
9960 }
9961
9962
9963 static int
9964 _wrap_tinaSeqVoi_nspline_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9965 Seqvoi *arg1 = (Seqvoi *) 0 ;
9966 int result;
9967
9968 if (SWIG_GetArgs(interp, objc, objv,"o:tinaSeqVoi_nspline_get self ",0) == TCL_ERROR) SWIG_fail;
9969 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Seqvoi,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9970 result = (int) ((arg1)->nspline);
9971
9972 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
9973 return TCL_OK;
9974 fail:
9975 return TCL_ERROR;
9976 }
9977
9978
9979 static int
9980 _wrap_tinaSeqVoi_n_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9981 Seqvoi *arg1 = (Seqvoi *) 0 ;
9982 int arg2 ;
9983
9984 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaSeqVoi_n_set self n ",0,&arg2) == TCL_ERROR) SWIG_fail;
9985 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Seqvoi,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
9986 if (arg1) (arg1)->n = arg2;
9987
9988
9989 return TCL_OK;
9990 fail:
9991 return TCL_ERROR;
9992 }
9993
9994
9995 static int
9996 _wrap_tinaSeqVoi_n_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
9997 Seqvoi *arg1 = (Seqvoi *) 0 ;
9998 int result;
9999
10000 if (SWIG_GetArgs(interp, objc, objv,"o:tinaSeqVoi_n_get self ",0) == TCL_ERROR) SWIG_fail;
10001 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Seqvoi,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10002 result = (int) ((arg1)->n);
10003
10004 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
10005 return TCL_OK;
10006 fail:
10007 return TCL_ERROR;
10008 }
10009
10010
10011 static int
10012 _wrap_new_tinaSeqVoi(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10013 Seqvoi *result;
10014
10015 if (SWIG_GetArgs(interp, objc, objv,":new_tinaSeqVoi ") == TCL_ERROR) SWIG_fail;
10016 result = (Seqvoi *)(Seqvoi *) calloc(1, sizeof(Seqvoi));
10017
10018 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Seqvoi,0));
10019 return TCL_OK;
10020 fail:
10021 return TCL_ERROR;
10022 }
10023
10024
10025 static int
10026 _wrap_delete_tinaSeqVoi(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10027 Seqvoi *arg1 = (Seqvoi *) 0 ;
10028
10029 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaSeqVoi self ",0) == TCL_ERROR) SWIG_fail;
10030 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Seqvoi,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10031 free((char *) arg1);
10032
10033
10034 return TCL_OK;
10035 fail:
10036 return TCL_ERROR;
10037 }
10038
10039
10040 static void swig_delete_tinaSeqVoi(void *obj) {
10041 Seqvoi *arg1 = (Seqvoi *) obj;
10042 free((char *) arg1);
10043 }
10044 static swig_method swig_Seqvoi_methods[] = {
10045 {0,0}
10046 };
10047 static swig_attribute swig_Seqvoi_attributes[] = {
10048 { "-tinaSpline",_wrap_tinaSeqVoi_tinaSpline_get, _wrap_tinaSeqVoi_tinaSpline_set},
10049 { "-string",_wrap_tinaSeqVoi_string_get, _wrap_tinaSeqVoi_string_set},
10050 { "-nspline",_wrap_tinaSeqVoi_nspline_get, _wrap_tinaSeqVoi_nspline_set},
10051 { "-n",_wrap_tinaSeqVoi_n_get, _wrap_tinaSeqVoi_n_set},
10052 {0,0,0}
10053 };
10054 static swig_class *swig_Seqvoi_bases[] = {0};
10055 swig_class _wrap_class_Seqvoi = { "tinaSeqVoi", &SWIGTYPE_p_Seqvoi,_wrap_new_tinaSeqVoi, swig_delete_tinaSeqVoi, swig_Seqvoi_methods, swig_Seqvoi_attributes, swig_Seqvoi_bases };
10056 static int
10057 _wrap_tinaSeqSlice_im_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10058 Seqslice *arg1 = (Seqslice *) 0 ;
10059 Imrect *arg2 = (Imrect *) 0 ;
10060
10061 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaSeqSlice_im_set self im ",0,0) == TCL_ERROR) SWIG_fail;
10062 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Seqslice,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10063 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_Imrect,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
10064 if (arg1) (arg1)->im = arg2;
10065
10066
10067 return TCL_OK;
10068 fail:
10069 return TCL_ERROR;
10070 }
10071
10072
10073 static int
10074 _wrap_tinaSeqSlice_im_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10075 Seqslice *arg1 = (Seqslice *) 0 ;
10076 Imrect *result;
10077
10078 if (SWIG_GetArgs(interp, objc, objv,"o:tinaSeqSlice_im_get self ",0) == TCL_ERROR) SWIG_fail;
10079 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Seqslice,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10080 result = (Imrect *) ((arg1)->im);
10081
10082 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Imrect,0));
10083 return TCL_OK;
10084 fail:
10085 return TCL_ERROR;
10086 }
10087
10088
10089 static int
10090 _wrap_tinaSeqSlice_voi_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10091 Seqslice *arg1 = (Seqslice *) 0 ;
10092 Seqvoi **arg2 ;
10093
10094 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaSeqSlice_voi_set self voi ",0,0) == TCL_ERROR) SWIG_fail;
10095 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Seqslice,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10096 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_Seqvoi,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10097 {
10098 int ii;
10099 Seqvoi * *b = (Seqvoi * *) arg1->voi;
10100 for (ii = 0; ii < 6; ii++) b[ii] = *((Seqvoi * *) arg2 + ii);
10101 }
10102
10103 return TCL_OK;
10104 fail:
10105 return TCL_ERROR;
10106 }
10107
10108
10109 static int
10110 _wrap_tinaSeqSlice_voi_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10111 Seqslice *arg1 = (Seqslice *) 0 ;
10112 Seqvoi **result;
10113
10114 if (SWIG_GetArgs(interp, objc, objv,"o:tinaSeqSlice_voi_get self ",0) == TCL_ERROR) SWIG_fail;
10115 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Seqslice,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10116 result = (Seqvoi **)(Seqvoi **) ((arg1)->voi);
10117
10118 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_Seqvoi,0));
10119 return TCL_OK;
10120 fail:
10121 return TCL_ERROR;
10122 }
10123
10124
10125 static int
10126 _wrap_tinaSeqSlice_z_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10127 Seqslice *arg1 = (Seqslice *) 0 ;
10128 double arg2 ;
10129
10130 if (SWIG_GetArgs(interp, objc, objv,"od:tinaSeqSlice_z_set self z ",0,&arg2) == TCL_ERROR) SWIG_fail;
10131 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Seqslice,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10132 if (arg1) (arg1)->z = arg2;
10133
10134
10135 return TCL_OK;
10136 fail:
10137 return TCL_ERROR;
10138 }
10139
10140
10141 static int
10142 _wrap_tinaSeqSlice_z_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10143 Seqslice *arg1 = (Seqslice *) 0 ;
10144 double result;
10145
10146 if (SWIG_GetArgs(interp, objc, objv,"o:tinaSeqSlice_z_get self ",0) == TCL_ERROR) SWIG_fail;
10147 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Seqslice,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10148 result = (double) ((arg1)->z);
10149
10150 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
10151 return TCL_OK;
10152 fail:
10153 return TCL_ERROR;
10154 }
10155
10156
10157 static int
10158 _wrap_new_tinaSeqSlice(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10159 Seqslice *result;
10160
10161 if (SWIG_GetArgs(interp, objc, objv,":new_tinaSeqSlice ") == TCL_ERROR) SWIG_fail;
10162 result = (Seqslice *)(Seqslice *) calloc(1, sizeof(Seqslice));
10163
10164 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Seqslice,0));
10165 return TCL_OK;
10166 fail:
10167 return TCL_ERROR;
10168 }
10169
10170
10171 static int
10172 _wrap_delete_tinaSeqSlice(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10173 Seqslice *arg1 = (Seqslice *) 0 ;
10174
10175 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaSeqSlice self ",0) == TCL_ERROR) SWIG_fail;
10176 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Seqslice,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10177 free((char *) arg1);
10178
10179
10180 return TCL_OK;
10181 fail:
10182 return TCL_ERROR;
10183 }
10184
10185
10186 static void swig_delete_tinaSeqSlice(void *obj) {
10187 Seqslice *arg1 = (Seqslice *) obj;
10188 free((char *) arg1);
10189 }
10190 static swig_method swig_Seqslice_methods[] = {
10191 {0,0}
10192 };
10193 static swig_attribute swig_Seqslice_attributes[] = {
10194 { "-im",_wrap_tinaSeqSlice_im_get, _wrap_tinaSeqSlice_im_set},
10195 { "-voi",_wrap_tinaSeqSlice_voi_get, _wrap_tinaSeqSlice_voi_set},
10196 { "-z",_wrap_tinaSeqSlice_z_get, _wrap_tinaSeqSlice_z_set},
10197 {0,0,0}
10198 };
10199 static swig_class *swig_Seqslice_bases[] = {0};
10200 swig_class _wrap_class_Seqslice = { "tinaSeqSlice", &SWIGTYPE_p_Seqslice,_wrap_new_tinaSeqSlice, swig_delete_tinaSeqSlice, swig_Seqslice_methods, swig_Seqslice_attributes, swig_Seqslice_bases };
10201 static int
10202 _wrap_tinaBrImStack_vtype_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10203 Br_imstack *arg1 = (Br_imstack *) 0 ;
10204 int arg2 ;
10205
10206 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaBrImStack_vtype_set self vtype ",0,&arg2) == TCL_ERROR) SWIG_fail;
10207 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Br_imstack,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10208 if (arg1) (arg1)->vtype = (Vartype )arg2;
10209
10210
10211 return TCL_OK;
10212 fail:
10213 return TCL_ERROR;
10214 }
10215
10216
10217 static int
10218 _wrap_tinaBrImStack_vtype_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10219 Br_imstack *arg1 = (Br_imstack *) 0 ;
10220 int result;
10221
10222 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBrImStack_vtype_get self ",0) == TCL_ERROR) SWIG_fail;
10223 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Br_imstack,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10224 result = (int) ((arg1)->vtype);
10225
10226 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
10227 return TCL_OK;
10228 fail:
10229 return TCL_ERROR;
10230 }
10231
10232
10233 static int
10234 _wrap_tinaBrImStack_x_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10235 Br_imstack *arg1 = (Br_imstack *) 0 ;
10236 int arg2 ;
10237
10238 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaBrImStack_x_set self x ",0,&arg2) == TCL_ERROR) SWIG_fail;
10239 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Br_imstack,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10240 if (arg1) (arg1)->x = arg2;
10241
10242
10243 return TCL_OK;
10244 fail:
10245 return TCL_ERROR;
10246 }
10247
10248
10249 static int
10250 _wrap_tinaBrImStack_x_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10251 Br_imstack *arg1 = (Br_imstack *) 0 ;
10252 int result;
10253
10254 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBrImStack_x_get self ",0) == TCL_ERROR) SWIG_fail;
10255 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Br_imstack,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10256 result = (int) ((arg1)->x);
10257
10258 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
10259 return TCL_OK;
10260 fail:
10261 return TCL_ERROR;
10262 }
10263
10264
10265 static int
10266 _wrap_tinaBrImStack_lx_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10267 Br_imstack *arg1 = (Br_imstack *) 0 ;
10268 int arg2 ;
10269
10270 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaBrImStack_lx_set self lx ",0,&arg2) == TCL_ERROR) SWIG_fail;
10271 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Br_imstack,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10272 if (arg1) (arg1)->lx = arg2;
10273
10274
10275 return TCL_OK;
10276 fail:
10277 return TCL_ERROR;
10278 }
10279
10280
10281 static int
10282 _wrap_tinaBrImStack_lx_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10283 Br_imstack *arg1 = (Br_imstack *) 0 ;
10284 int result;
10285
10286 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBrImStack_lx_get self ",0) == TCL_ERROR) SWIG_fail;
10287 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Br_imstack,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10288 result = (int) ((arg1)->lx);
10289
10290 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
10291 return TCL_OK;
10292 fail:
10293 return TCL_ERROR;
10294 }
10295
10296
10297 static int
10298 _wrap_tinaBrImStack_ux_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10299 Br_imstack *arg1 = (Br_imstack *) 0 ;
10300 int arg2 ;
10301
10302 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaBrImStack_ux_set self ux ",0,&arg2) == TCL_ERROR) SWIG_fail;
10303 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Br_imstack,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10304 if (arg1) (arg1)->ux = arg2;
10305
10306
10307 return TCL_OK;
10308 fail:
10309 return TCL_ERROR;
10310 }
10311
10312
10313 static int
10314 _wrap_tinaBrImStack_ux_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10315 Br_imstack *arg1 = (Br_imstack *) 0 ;
10316 int result;
10317
10318 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBrImStack_ux_get self ",0) == TCL_ERROR) SWIG_fail;
10319 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Br_imstack,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10320 result = (int) ((arg1)->ux);
10321
10322 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
10323 return TCL_OK;
10324 fail:
10325 return TCL_ERROR;
10326 }
10327
10328
10329 static int
10330 _wrap_tinaBrImStack_y_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10331 Br_imstack *arg1 = (Br_imstack *) 0 ;
10332 int arg2 ;
10333
10334 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaBrImStack_y_set self y ",0,&arg2) == TCL_ERROR) SWIG_fail;
10335 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Br_imstack,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10336 if (arg1) (arg1)->y = arg2;
10337
10338
10339 return TCL_OK;
10340 fail:
10341 return TCL_ERROR;
10342 }
10343
10344
10345 static int
10346 _wrap_tinaBrImStack_y_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10347 Br_imstack *arg1 = (Br_imstack *) 0 ;
10348 int result;
10349
10350 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBrImStack_y_get self ",0) == TCL_ERROR) SWIG_fail;
10351 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Br_imstack,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10352 result = (int) ((arg1)->y);
10353
10354 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
10355 return TCL_OK;
10356 fail:
10357 return TCL_ERROR;
10358 }
10359
10360
10361 static int
10362 _wrap_tinaBrImStack_ly_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10363 Br_imstack *arg1 = (Br_imstack *) 0 ;
10364 int arg2 ;
10365
10366 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaBrImStack_ly_set self ly ",0,&arg2) == TCL_ERROR) SWIG_fail;
10367 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Br_imstack,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10368 if (arg1) (arg1)->ly = arg2;
10369
10370
10371 return TCL_OK;
10372 fail:
10373 return TCL_ERROR;
10374 }
10375
10376
10377 static int
10378 _wrap_tinaBrImStack_ly_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10379 Br_imstack *arg1 = (Br_imstack *) 0 ;
10380 int result;
10381
10382 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBrImStack_ly_get self ",0) == TCL_ERROR) SWIG_fail;
10383 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Br_imstack,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10384 result = (int) ((arg1)->ly);
10385
10386 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
10387 return TCL_OK;
10388 fail:
10389 return TCL_ERROR;
10390 }
10391
10392
10393 static int
10394 _wrap_tinaBrImStack_uy_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10395 Br_imstack *arg1 = (Br_imstack *) 0 ;
10396 int arg2 ;
10397
10398 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaBrImStack_uy_set self uy ",0,&arg2) == TCL_ERROR) SWIG_fail;
10399 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Br_imstack,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10400 if (arg1) (arg1)->uy = arg2;
10401
10402
10403 return TCL_OK;
10404 fail:
10405 return TCL_ERROR;
10406 }
10407
10408
10409 static int
10410 _wrap_tinaBrImStack_uy_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10411 Br_imstack *arg1 = (Br_imstack *) 0 ;
10412 int result;
10413
10414 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBrImStack_uy_get self ",0) == TCL_ERROR) SWIG_fail;
10415 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Br_imstack,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10416 result = (int) ((arg1)->uy);
10417
10418 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
10419 return TCL_OK;
10420 fail:
10421 return TCL_ERROR;
10422 }
10423
10424
10425 static int
10426 _wrap_tinaBrImStack_z_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10427 Br_imstack *arg1 = (Br_imstack *) 0 ;
10428 int arg2 ;
10429
10430 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaBrImStack_z_set self z ",0,&arg2) == TCL_ERROR) SWIG_fail;
10431 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Br_imstack,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10432 if (arg1) (arg1)->z = arg2;
10433
10434
10435 return TCL_OK;
10436 fail:
10437 return TCL_ERROR;
10438 }
10439
10440
10441 static int
10442 _wrap_tinaBrImStack_z_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10443 Br_imstack *arg1 = (Br_imstack *) 0 ;
10444 int result;
10445
10446 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBrImStack_z_get self ",0) == TCL_ERROR) SWIG_fail;
10447 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Br_imstack,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10448 result = (int) ((arg1)->z);
10449
10450 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
10451 return TCL_OK;
10452 fail:
10453 return TCL_ERROR;
10454 }
10455
10456
10457 static int
10458 _wrap_tinaBrImStack_lz_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10459 Br_imstack *arg1 = (Br_imstack *) 0 ;
10460 int arg2 ;
10461
10462 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaBrImStack_lz_set self lz ",0,&arg2) == TCL_ERROR) SWIG_fail;
10463 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Br_imstack,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10464 if (arg1) (arg1)->lz = arg2;
10465
10466
10467 return TCL_OK;
10468 fail:
10469 return TCL_ERROR;
10470 }
10471
10472
10473 static int
10474 _wrap_tinaBrImStack_lz_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10475 Br_imstack *arg1 = (Br_imstack *) 0 ;
10476 int result;
10477
10478 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBrImStack_lz_get self ",0) == TCL_ERROR) SWIG_fail;
10479 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Br_imstack,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10480 result = (int) ((arg1)->lz);
10481
10482 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
10483 return TCL_OK;
10484 fail:
10485 return TCL_ERROR;
10486 }
10487
10488
10489 static int
10490 _wrap_tinaBrImStack_uz_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10491 Br_imstack *arg1 = (Br_imstack *) 0 ;
10492 int arg2 ;
10493
10494 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaBrImStack_uz_set self uz ",0,&arg2) == TCL_ERROR) SWIG_fail;
10495 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Br_imstack,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10496 if (arg1) (arg1)->uz = arg2;
10497
10498
10499 return TCL_OK;
10500 fail:
10501 return TCL_ERROR;
10502 }
10503
10504
10505 static int
10506 _wrap_tinaBrImStack_uz_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10507 Br_imstack *arg1 = (Br_imstack *) 0 ;
10508 int result;
10509
10510 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBrImStack_uz_get self ",0) == TCL_ERROR) SWIG_fail;
10511 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Br_imstack,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10512 result = (int) ((arg1)->uz);
10513
10514 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
10515 return TCL_OK;
10516 fail:
10517 return TCL_ERROR;
10518 }
10519
10520
10521 static int
10522 _wrap_tinaBrImStack_zmark_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10523 Br_imstack *arg1 = (Br_imstack *) 0 ;
10524 int arg2 ;
10525
10526 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaBrImStack_zmark_set self zmark ",0,&arg2) == TCL_ERROR) SWIG_fail;
10527 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Br_imstack,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10528 if (arg1) (arg1)->zmark = arg2;
10529
10530
10531 return TCL_OK;
10532 fail:
10533 return TCL_ERROR;
10534 }
10535
10536
10537 static int
10538 _wrap_tinaBrImStack_zmark_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10539 Br_imstack *arg1 = (Br_imstack *) 0 ;
10540 int result;
10541
10542 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBrImStack_zmark_get self ",0) == TCL_ERROR) SWIG_fail;
10543 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Br_imstack,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10544 result = (int) ((arg1)->zmark);
10545
10546 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
10547 return TCL_OK;
10548 fail:
10549 return TCL_ERROR;
10550 }
10551
10552
10553 static int
10554 _wrap_tinaBrImStack_slice_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10555 Br_imstack *arg1 = (Br_imstack *) 0 ;
10556 Seqslice **arg2 = (Seqslice **) 0 ;
10557
10558 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaBrImStack_slice_set self slice ",0,0) == TCL_ERROR) SWIG_fail;
10559 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Br_imstack,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10560 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_Seqslice,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10561 if (arg1) (arg1)->slice = arg2;
10562
10563
10564 return TCL_OK;
10565 fail:
10566 return TCL_ERROR;
10567 }
10568
10569
10570 static int
10571 _wrap_tinaBrImStack_slice_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10572 Br_imstack *arg1 = (Br_imstack *) 0 ;
10573 Seqslice **result;
10574
10575 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBrImStack_slice_get self ",0) == TCL_ERROR) SWIG_fail;
10576 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Br_imstack,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10577 result = (Seqslice **) ((arg1)->slice);
10578
10579 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_Seqslice,0));
10580 return TCL_OK;
10581 fail:
10582 return TCL_ERROR;
10583 }
10584
10585
10586 static int
10587 _wrap_tinaBrImStack_zscale_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10588 Br_imstack *arg1 = (Br_imstack *) 0 ;
10589 double arg2 ;
10590
10591 if (SWIG_GetArgs(interp, objc, objv,"od:tinaBrImStack_zscale_set self zscale ",0,&arg2) == TCL_ERROR) SWIG_fail;
10592 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Br_imstack,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10593 if (arg1) (arg1)->zscale = arg2;
10594
10595
10596 return TCL_OK;
10597 fail:
10598 return TCL_ERROR;
10599 }
10600
10601
10602 static int
10603 _wrap_tinaBrImStack_zscale_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10604 Br_imstack *arg1 = (Br_imstack *) 0 ;
10605 double result;
10606
10607 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBrImStack_zscale_get self ",0) == TCL_ERROR) SWIG_fail;
10608 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Br_imstack,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10609 result = (double) ((arg1)->zscale);
10610
10611 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
10612 return TCL_OK;
10613 fail:
10614 return TCL_ERROR;
10615 }
10616
10617
10618 static int
10619 _wrap_tinaBrImStack_nvoi_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10620 Br_imstack *arg1 = (Br_imstack *) 0 ;
10621 int arg2 ;
10622
10623 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaBrImStack_nvoi_set self nvoi ",0,&arg2) == TCL_ERROR) SWIG_fail;
10624 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Br_imstack,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10625 if (arg1) (arg1)->nvoi = arg2;
10626
10627
10628 return TCL_OK;
10629 fail:
10630 return TCL_ERROR;
10631 }
10632
10633
10634 static int
10635 _wrap_tinaBrImStack_nvoi_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10636 Br_imstack *arg1 = (Br_imstack *) 0 ;
10637 int result;
10638
10639 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBrImStack_nvoi_get self ",0) == TCL_ERROR) SWIG_fail;
10640 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Br_imstack,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10641 result = (int) ((arg1)->nvoi);
10642
10643 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
10644 return TCL_OK;
10645 fail:
10646 return TCL_ERROR;
10647 }
10648
10649
10650 static int
10651 _wrap_new_tinaBrImStack(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10652 Br_imstack *result;
10653
10654 if (SWIG_GetArgs(interp, objc, objv,":new_tinaBrImStack ") == TCL_ERROR) SWIG_fail;
10655 result = (Br_imstack *)(Br_imstack *) calloc(1, sizeof(Br_imstack));
10656
10657 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Br_imstack,0));
10658 return TCL_OK;
10659 fail:
10660 return TCL_ERROR;
10661 }
10662
10663
10664 static int
10665 _wrap_delete_tinaBrImStack(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10666 Br_imstack *arg1 = (Br_imstack *) 0 ;
10667
10668 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaBrImStack self ",0) == TCL_ERROR) SWIG_fail;
10669 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Br_imstack,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10670 free((char *) arg1);
10671
10672
10673 return TCL_OK;
10674 fail:
10675 return TCL_ERROR;
10676 }
10677
10678
10679 static void swig_delete_tinaBrImStack(void *obj) {
10680 Br_imstack *arg1 = (Br_imstack *) obj;
10681 free((char *) arg1);
10682 }
10683 static swig_method swig_Br_imstack_methods[] = {
10684 {0,0}
10685 };
10686 static swig_attribute swig_Br_imstack_attributes[] = {
10687 { "-vtype",_wrap_tinaBrImStack_vtype_get, _wrap_tinaBrImStack_vtype_set},
10688 { "-x",_wrap_tinaBrImStack_x_get, _wrap_tinaBrImStack_x_set},
10689 { "-lx",_wrap_tinaBrImStack_lx_get, _wrap_tinaBrImStack_lx_set},
10690 { "-ux",_wrap_tinaBrImStack_ux_get, _wrap_tinaBrImStack_ux_set},
10691 { "-y",_wrap_tinaBrImStack_y_get, _wrap_tinaBrImStack_y_set},
10692 { "-ly",_wrap_tinaBrImStack_ly_get, _wrap_tinaBrImStack_ly_set},
10693 { "-uy",_wrap_tinaBrImStack_uy_get, _wrap_tinaBrImStack_uy_set},
10694 { "-z",_wrap_tinaBrImStack_z_get, _wrap_tinaBrImStack_z_set},
10695 { "-lz",_wrap_tinaBrImStack_lz_get, _wrap_tinaBrImStack_lz_set},
10696 { "-uz",_wrap_tinaBrImStack_uz_get, _wrap_tinaBrImStack_uz_set},
10697 { "-zmark",_wrap_tinaBrImStack_zmark_get, _wrap_tinaBrImStack_zmark_set},
10698 { "-slice",_wrap_tinaBrImStack_slice_get, _wrap_tinaBrImStack_slice_set},
10699 { "-zscale",_wrap_tinaBrImStack_zscale_get, _wrap_tinaBrImStack_zscale_set},
10700 { "-nvoi",_wrap_tinaBrImStack_nvoi_get, _wrap_tinaBrImStack_nvoi_set},
10701 {0,0,0}
10702 };
10703 static swig_class *swig_Br_imstack_bases[] = {0};
10704 swig_class _wrap_class_Br_imstack = { "tinaBrImStack", &SWIGTYPE_p_Br_imstack,_wrap_new_tinaBrImStack, swig_delete_tinaBrImStack, swig_Br_imstack_methods, swig_Br_imstack_attributes, swig_Br_imstack_bases };
10705 static int
10706 _wrap_tinaMixmodel_nmix_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10707 Mixmodel *arg1 = (Mixmodel *) 0 ;
10708 int arg2 ;
10709
10710 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaMixmodel_nmix_set self nmix ",0,&arg2) == TCL_ERROR) SWIG_fail;
10711 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mixmodel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10712 if (arg1) (arg1)->nmix = arg2;
10713
10714
10715 return TCL_OK;
10716 fail:
10717 return TCL_ERROR;
10718 }
10719
10720
10721 static int
10722 _wrap_tinaMixmodel_nmix_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10723 Mixmodel *arg1 = (Mixmodel *) 0 ;
10724 int result;
10725
10726 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMixmodel_nmix_get self ",0) == TCL_ERROR) SWIG_fail;
10727 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mixmodel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10728 result = (int) ((arg1)->nmix);
10729
10730 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
10731 return TCL_OK;
10732 fail:
10733 return TCL_ERROR;
10734 }
10735
10736
10737 static int
10738 _wrap_tinaMixmodel_ndim_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10739 Mixmodel *arg1 = (Mixmodel *) 0 ;
10740 int arg2 ;
10741
10742 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaMixmodel_ndim_set self ndim ",0,&arg2) == TCL_ERROR) SWIG_fail;
10743 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mixmodel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10744 if (arg1) (arg1)->ndim = arg2;
10745
10746
10747 return TCL_OK;
10748 fail:
10749 return TCL_ERROR;
10750 }
10751
10752
10753 static int
10754 _wrap_tinaMixmodel_ndim_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10755 Mixmodel *arg1 = (Mixmodel *) 0 ;
10756 int result;
10757
10758 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMixmodel_ndim_get self ",0) == TCL_ERROR) SWIG_fail;
10759 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mixmodel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10760 result = (int) ((arg1)->ndim);
10761
10762 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
10763 return TCL_OK;
10764 fail:
10765 return TCL_ERROR;
10766 }
10767
10768
10769 static int
10770 _wrap_tinaMixmodel_vectors_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10771 Mixmodel *arg1 = (Mixmodel *) 0 ;
10772 double **arg2 = (double **) 0 ;
10773
10774 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaMixmodel_vectors_set self vectors ",0,0) == TCL_ERROR) SWIG_fail;
10775 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mixmodel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10776 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_double,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10777 if (arg1) (arg1)->vectors = arg2;
10778
10779
10780 return TCL_OK;
10781 fail:
10782 return TCL_ERROR;
10783 }
10784
10785
10786 static int
10787 _wrap_tinaMixmodel_vectors_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10788 Mixmodel *arg1 = (Mixmodel *) 0 ;
10789 double **result;
10790
10791 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMixmodel_vectors_get self ",0) == TCL_ERROR) SWIG_fail;
10792 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mixmodel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10793 result = (double **) ((arg1)->vectors);
10794
10795 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_double,0));
10796 return TCL_OK;
10797 fail:
10798 return TCL_ERROR;
10799 }
10800
10801
10802 static int
10803 _wrap_tinaMixmodel_normal_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10804 Mixmodel *arg1 = (Mixmodel *) 0 ;
10805 double *arg2 = (double *) 0 ;
10806
10807 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaMixmodel_normal_set self normal ",0,0) == TCL_ERROR) SWIG_fail;
10808 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mixmodel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10809 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_double,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
10810 if (arg1) (arg1)->normal = arg2;
10811
10812
10813 return TCL_OK;
10814 fail:
10815 return TCL_ERROR;
10816 }
10817
10818
10819 static int
10820 _wrap_tinaMixmodel_normal_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10821 Mixmodel *arg1 = (Mixmodel *) 0 ;
10822 double *result;
10823
10824 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMixmodel_normal_get self ",0) == TCL_ERROR) SWIG_fail;
10825 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mixmodel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10826 result = (double *) ((arg1)->normal);
10827
10828 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_double,0));
10829 return TCL_OK;
10830 fail:
10831 return TCL_ERROR;
10832 }
10833
10834
10835 static int
10836 _wrap_tinaMixmodel_volume_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10837 Mixmodel *arg1 = (Mixmodel *) 0 ;
10838 double *arg2 = (double *) 0 ;
10839
10840 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaMixmodel_volume_set self volume ",0,0) == TCL_ERROR) SWIG_fail;
10841 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mixmodel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10842 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_double,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
10843 if (arg1) (arg1)->volume = arg2;
10844
10845
10846 return TCL_OK;
10847 fail:
10848 return TCL_ERROR;
10849 }
10850
10851
10852 static int
10853 _wrap_tinaMixmodel_volume_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10854 Mixmodel *arg1 = (Mixmodel *) 0 ;
10855 double *result;
10856
10857 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMixmodel_volume_get self ",0) == TCL_ERROR) SWIG_fail;
10858 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mixmodel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10859 result = (double *) ((arg1)->volume);
10860
10861 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_double,0));
10862 return TCL_OK;
10863 fail:
10864 return TCL_ERROR;
10865 }
10866
10867
10868 static int
10869 _wrap_tinaMixmodel_background_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10870 Mixmodel *arg1 = (Mixmodel *) 0 ;
10871 double arg2 ;
10872
10873 if (SWIG_GetArgs(interp, objc, objv,"od:tinaMixmodel_background_set self background ",0,&arg2) == TCL_ERROR) SWIG_fail;
10874 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mixmodel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10875 if (arg1) (arg1)->background = arg2;
10876
10877
10878 return TCL_OK;
10879 fail:
10880 return TCL_ERROR;
10881 }
10882
10883
10884 static int
10885 _wrap_tinaMixmodel_background_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10886 Mixmodel *arg1 = (Mixmodel *) 0 ;
10887 double result;
10888
10889 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMixmodel_background_get self ",0) == TCL_ERROR) SWIG_fail;
10890 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mixmodel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10891 result = (double) ((arg1)->background);
10892
10893 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
10894 return TCL_OK;
10895 fail:
10896 return TCL_ERROR;
10897 }
10898
10899
10900 static int
10901 _wrap_tinaMixmodel_par_dens_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10902 Mixmodel *arg1 = (Mixmodel *) 0 ;
10903 double **arg2 = (double **) 0 ;
10904
10905 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaMixmodel_par_dens_set self par_dens ",0,0) == TCL_ERROR) SWIG_fail;
10906 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mixmodel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10907 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_double,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10908 if (arg1) (arg1)->par_dens = arg2;
10909
10910
10911 return TCL_OK;
10912 fail:
10913 return TCL_ERROR;
10914 }
10915
10916
10917 static int
10918 _wrap_tinaMixmodel_par_dens_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10919 Mixmodel *arg1 = (Mixmodel *) 0 ;
10920 double **result;
10921
10922 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMixmodel_par_dens_get self ",0) == TCL_ERROR) SWIG_fail;
10923 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mixmodel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10924 result = (double **) ((arg1)->par_dens);
10925
10926 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_double,0));
10927 return TCL_OK;
10928 fail:
10929 return TCL_ERROR;
10930 }
10931
10932
10933 static int
10934 _wrap_tinaMixmodel_cov_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10935 Mixmodel *arg1 = (Mixmodel *) 0 ;
10936 double ***arg2 = (double ***) 0 ;
10937
10938 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaMixmodel_cov_set self cov ",0,0) == TCL_ERROR) SWIG_fail;
10939 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mixmodel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10940 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_p_double,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10941 if (arg1) (arg1)->cov = arg2;
10942
10943
10944 return TCL_OK;
10945 fail:
10946 return TCL_ERROR;
10947 }
10948
10949
10950 static int
10951 _wrap_tinaMixmodel_cov_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10952 Mixmodel *arg1 = (Mixmodel *) 0 ;
10953 double ***result;
10954
10955 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMixmodel_cov_get self ",0) == TCL_ERROR) SWIG_fail;
10956 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mixmodel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10957 result = (double ***) ((arg1)->cov);
10958
10959 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_p_double,0));
10960 return TCL_OK;
10961 fail:
10962 return TCL_ERROR;
10963 }
10964
10965
10966 static int
10967 _wrap_tinaMixmodel_tissue_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10968 Mixmodel *arg1 = (Mixmodel *) 0 ;
10969 char **arg2 = (char **) 0 ;
10970
10971 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaMixmodel_tissue_type_set self tissue_type ",0,0) == TCL_ERROR) SWIG_fail;
10972 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mixmodel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10973 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_char,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10974 if (arg1) (arg1)->tissue_type = arg2;
10975
10976
10977 return TCL_OK;
10978 fail:
10979 return TCL_ERROR;
10980 }
10981
10982
10983 static int
10984 _wrap_tinaMixmodel_tissue_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
10985 Mixmodel *arg1 = (Mixmodel *) 0 ;
10986 char **result;
10987
10988 if (SWIG_GetArgs(interp, objc, objv,"o:tinaMixmodel_tissue_type_get self ",0) == TCL_ERROR) SWIG_fail;
10989 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mixmodel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
10990 result = (char **) ((arg1)->tissue_type);
10991
10992 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_char,0));
10993 return TCL_OK;
10994 fail:
10995 return TCL_ERROR;
10996 }
10997
10998
10999 static int
11000 _wrap_new_tinaMixmodel(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11001 Mixmodel *result;
11002
11003 if (SWIG_GetArgs(interp, objc, objv,":new_tinaMixmodel ") == TCL_ERROR) SWIG_fail;
11004 result = (Mixmodel *)(Mixmodel *) calloc(1, sizeof(Mixmodel));
11005
11006 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Mixmodel,0));
11007 return TCL_OK;
11008 fail:
11009 return TCL_ERROR;
11010 }
11011
11012
11013 static int
11014 _wrap_delete_tinaMixmodel(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11015 Mixmodel *arg1 = (Mixmodel *) 0 ;
11016
11017 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaMixmodel self ",0) == TCL_ERROR) SWIG_fail;
11018 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mixmodel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11019 free((char *) arg1);
11020
11021
11022 return TCL_OK;
11023 fail:
11024 return TCL_ERROR;
11025 }
11026
11027
11028 static void swig_delete_tinaMixmodel(void *obj) {
11029 Mixmodel *arg1 = (Mixmodel *) obj;
11030 free((char *) arg1);
11031 }
11032 static swig_method swig_Mixmodel_methods[] = {
11033 {0,0}
11034 };
11035 static swig_attribute swig_Mixmodel_attributes[] = {
11036 { "-nmix",_wrap_tinaMixmodel_nmix_get, _wrap_tinaMixmodel_nmix_set},
11037 { "-ndim",_wrap_tinaMixmodel_ndim_get, _wrap_tinaMixmodel_ndim_set},
11038 { "-vectors",_wrap_tinaMixmodel_vectors_get, _wrap_tinaMixmodel_vectors_set},
11039 { "-normal",_wrap_tinaMixmodel_normal_get, _wrap_tinaMixmodel_normal_set},
11040 { "-volume",_wrap_tinaMixmodel_volume_get, _wrap_tinaMixmodel_volume_set},
11041 { "-background",_wrap_tinaMixmodel_background_get, _wrap_tinaMixmodel_background_set},
11042 { "-par_dens",_wrap_tinaMixmodel_par_dens_get, _wrap_tinaMixmodel_par_dens_set},
11043 { "-cov",_wrap_tinaMixmodel_cov_get, _wrap_tinaMixmodel_cov_set},
11044 { "-tissue_type",_wrap_tinaMixmodel_tissue_type_get, _wrap_tinaMixmodel_tissue_type_set},
11045 {0,0,0}
11046 };
11047 static swig_class *swig_Mixmodel_bases[] = {0};
11048 swig_class _wrap_class_Mixmodel = { "tinaMixmodel", &SWIGTYPE_p_Mixmodel,_wrap_new_tinaMixmodel, swig_delete_tinaMixmodel, swig_Mixmodel_methods, swig_Mixmodel_attributes, swig_Mixmodel_bases };
11049 static int
11050 _wrap_tinaCamera_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11051 Camera *arg1 = (Camera *) 0 ;
11052 int arg2 ;
11053
11054 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaCamera_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
11055 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11056 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
11057
11058
11059 return TCL_OK;
11060 fail:
11061 return TCL_ERROR;
11062 }
11063
11064
11065 static int
11066 _wrap_tinaCamera_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11067 Camera *arg1 = (Camera *) 0 ;
11068 int result;
11069
11070 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCamera_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
11071 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11072 result = (int) ((arg1)->ts_id);
11073
11074 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
11075 return TCL_OK;
11076 fail:
11077 return TCL_ERROR;
11078 }
11079
11080
11081 static int
11082 _wrap_tinaCamera_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11083 Camera *arg1 = (Camera *) 0 ;
11084 unsigned int arg2 ;
11085
11086 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaCamera_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
11087 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11088 if (arg1) (arg1)->type = arg2;
11089
11090
11091 return TCL_OK;
11092 fail:
11093 return TCL_ERROR;
11094 }
11095
11096
11097 static int
11098 _wrap_tinaCamera_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11099 Camera *arg1 = (Camera *) 0 ;
11100 unsigned int result;
11101
11102 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCamera_type_get self ",0) == TCL_ERROR) SWIG_fail;
11103 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11104 result = (unsigned int) ((arg1)->type);
11105
11106 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
11107 return TCL_OK;
11108 fail:
11109 return TCL_ERROR;
11110 }
11111
11112
11113 static int
11114 _wrap_tinaCamera_label_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11115 Camera *arg1 = (Camera *) 0 ;
11116 unsigned int arg2 ;
11117
11118 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaCamera_label_set self label ",0,&arg2) == TCL_ERROR) SWIG_fail;
11119 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11120 if (arg1) (arg1)->label = arg2;
11121
11122
11123 return TCL_OK;
11124 fail:
11125 return TCL_ERROR;
11126 }
11127
11128
11129 static int
11130 _wrap_tinaCamera_label_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11131 Camera *arg1 = (Camera *) 0 ;
11132 unsigned int result;
11133
11134 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCamera_label_get self ",0) == TCL_ERROR) SWIG_fail;
11135 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11136 result = (unsigned int) ((arg1)->label);
11137
11138 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
11139 return TCL_OK;
11140 fail:
11141 return TCL_ERROR;
11142 }
11143
11144
11145 static int
11146 _wrap_tinaCamera_f_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11147 Camera *arg1 = (Camera *) 0 ;
11148 float arg2 ;
11149
11150 if (SWIG_GetArgs(interp, objc, objv,"of:tinaCamera_f_set self f ",0,&arg2) == TCL_ERROR) SWIG_fail;
11151 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11152 if (arg1) (arg1)->f = arg2;
11153
11154
11155 return TCL_OK;
11156 fail:
11157 return TCL_ERROR;
11158 }
11159
11160
11161 static int
11162 _wrap_tinaCamera_f_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11163 Camera *arg1 = (Camera *) 0 ;
11164 float result;
11165
11166 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCamera_f_get self ",0) == TCL_ERROR) SWIG_fail;
11167 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11168 result = (float) ((arg1)->f);
11169
11170 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
11171 return TCL_OK;
11172 fail:
11173 return TCL_ERROR;
11174 }
11175
11176
11177 static int
11178 _wrap_tinaCamera_pixel_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11179 Camera *arg1 = (Camera *) 0 ;
11180 float arg2 ;
11181
11182 if (SWIG_GetArgs(interp, objc, objv,"of:tinaCamera_pixel_set self pixel ",0,&arg2) == TCL_ERROR) SWIG_fail;
11183 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11184 if (arg1) (arg1)->pixel = arg2;
11185
11186
11187 return TCL_OK;
11188 fail:
11189 return TCL_ERROR;
11190 }
11191
11192
11193 static int
11194 _wrap_tinaCamera_pixel_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11195 Camera *arg1 = (Camera *) 0 ;
11196 float result;
11197
11198 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCamera_pixel_get self ",0) == TCL_ERROR) SWIG_fail;
11199 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11200 result = (float) ((arg1)->pixel);
11201
11202 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
11203 return TCL_OK;
11204 fail:
11205 return TCL_ERROR;
11206 }
11207
11208
11209 static int
11210 _wrap_tinaCamera_ax_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11211 Camera *arg1 = (Camera *) 0 ;
11212 float arg2 ;
11213
11214 if (SWIG_GetArgs(interp, objc, objv,"of:tinaCamera_ax_set self ax ",0,&arg2) == TCL_ERROR) SWIG_fail;
11215 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11216 if (arg1) (arg1)->ax = arg2;
11217
11218
11219 return TCL_OK;
11220 fail:
11221 return TCL_ERROR;
11222 }
11223
11224
11225 static int
11226 _wrap_tinaCamera_ax_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11227 Camera *arg1 = (Camera *) 0 ;
11228 float result;
11229
11230 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCamera_ax_get self ",0) == TCL_ERROR) SWIG_fail;
11231 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11232 result = (float) ((arg1)->ax);
11233
11234 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
11235 return TCL_OK;
11236 fail:
11237 return TCL_ERROR;
11238 }
11239
11240
11241 static int
11242 _wrap_tinaCamera_ay_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11243 Camera *arg1 = (Camera *) 0 ;
11244 float arg2 ;
11245
11246 if (SWIG_GetArgs(interp, objc, objv,"of:tinaCamera_ay_set self ay ",0,&arg2) == TCL_ERROR) SWIG_fail;
11247 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11248 if (arg1) (arg1)->ay = arg2;
11249
11250
11251 return TCL_OK;
11252 fail:
11253 return TCL_ERROR;
11254 }
11255
11256
11257 static int
11258 _wrap_tinaCamera_ay_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11259 Camera *arg1 = (Camera *) 0 ;
11260 float result;
11261
11262 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCamera_ay_get self ",0) == TCL_ERROR) SWIG_fail;
11263 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11264 result = (float) ((arg1)->ay);
11265
11266 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
11267 return TCL_OK;
11268 fail:
11269 return TCL_ERROR;
11270 }
11271
11272
11273 static int
11274 _wrap_tinaCamera_cx_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11275 Camera *arg1 = (Camera *) 0 ;
11276 float arg2 ;
11277
11278 if (SWIG_GetArgs(interp, objc, objv,"of:tinaCamera_cx_set self cx ",0,&arg2) == TCL_ERROR) SWIG_fail;
11279 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11280 if (arg1) (arg1)->cx = arg2;
11281
11282
11283 return TCL_OK;
11284 fail:
11285 return TCL_ERROR;
11286 }
11287
11288
11289 static int
11290 _wrap_tinaCamera_cx_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11291 Camera *arg1 = (Camera *) 0 ;
11292 float result;
11293
11294 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCamera_cx_get self ",0) == TCL_ERROR) SWIG_fail;
11295 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11296 result = (float) ((arg1)->cx);
11297
11298 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
11299 return TCL_OK;
11300 fail:
11301 return TCL_ERROR;
11302 }
11303
11304
11305 static int
11306 _wrap_tinaCamera_cy_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11307 Camera *arg1 = (Camera *) 0 ;
11308 float arg2 ;
11309
11310 if (SWIG_GetArgs(interp, objc, objv,"of:tinaCamera_cy_set self cy ",0,&arg2) == TCL_ERROR) SWIG_fail;
11311 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11312 if (arg1) (arg1)->cy = arg2;
11313
11314
11315 return TCL_OK;
11316 fail:
11317 return TCL_ERROR;
11318 }
11319
11320
11321 static int
11322 _wrap_tinaCamera_cy_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11323 Camera *arg1 = (Camera *) 0 ;
11324 float result;
11325
11326 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCamera_cy_get self ",0) == TCL_ERROR) SWIG_fail;
11327 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11328 result = (float) ((arg1)->cy);
11329
11330 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
11331 return TCL_OK;
11332 fail:
11333 return TCL_ERROR;
11334 }
11335
11336
11337 static int
11338 _wrap_tinaCamera_width_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11339 Camera *arg1 = (Camera *) 0 ;
11340 int arg2 ;
11341
11342 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaCamera_width_set self width ",0,&arg2) == TCL_ERROR) SWIG_fail;
11343 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11344 if (arg1) (arg1)->width = arg2;
11345
11346
11347 return TCL_OK;
11348 fail:
11349 return TCL_ERROR;
11350 }
11351
11352
11353 static int
11354 _wrap_tinaCamera_width_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11355 Camera *arg1 = (Camera *) 0 ;
11356 int result;
11357
11358 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCamera_width_get self ",0) == TCL_ERROR) SWIG_fail;
11359 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11360 result = (int) ((arg1)->width);
11361
11362 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
11363 return TCL_OK;
11364 fail:
11365 return TCL_ERROR;
11366 }
11367
11368
11369 static int
11370 _wrap_tinaCamera_height_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11371 Camera *arg1 = (Camera *) 0 ;
11372 int arg2 ;
11373
11374 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaCamera_height_set self height ",0,&arg2) == TCL_ERROR) SWIG_fail;
11375 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11376 if (arg1) (arg1)->height = arg2;
11377
11378
11379 return TCL_OK;
11380 fail:
11381 return TCL_ERROR;
11382 }
11383
11384
11385 static int
11386 _wrap_tinaCamera_height_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11387 Camera *arg1 = (Camera *) 0 ;
11388 int result;
11389
11390 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCamera_height_get self ",0) == TCL_ERROR) SWIG_fail;
11391 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11392 result = (int) ((arg1)->height);
11393
11394 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
11395 return TCL_OK;
11396 fail:
11397 return TCL_ERROR;
11398 }
11399
11400
11401 static int
11402 _wrap_tinaCamera_transf_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11403 Camera *arg1 = (Camera *) 0 ;
11404 Transform3 *arg2 = (Transform3 *) 0 ;
11405
11406 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaCamera_transf_set self transf ",0,0) == TCL_ERROR) SWIG_fail;
11407 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11408 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_Transform3,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
11409 if (arg1) (arg1)->transf = arg2;
11410
11411
11412 return TCL_OK;
11413 fail:
11414 return TCL_ERROR;
11415 }
11416
11417
11418 static int
11419 _wrap_tinaCamera_transf_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11420 Camera *arg1 = (Camera *) 0 ;
11421 Transform3 *result;
11422
11423 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCamera_transf_get self ",0) == TCL_ERROR) SWIG_fail;
11424 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11425 result = (Transform3 *) ((arg1)->transf);
11426
11427 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Transform3,0));
11428 return TCL_OK;
11429 fail:
11430 return TCL_ERROR;
11431 }
11432
11433
11434 static int
11435 _wrap_tinaCamera_distort_params_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11436 Camera *arg1 = (Camera *) 0 ;
11437 void *arg2 = (void *) 0 ;
11438
11439 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaCamera_distort_params_set self distort_params ",0,0) == TCL_ERROR) SWIG_fail;
11440 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11441 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, 0,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
11442 if (arg1) (arg1)->distort_params = arg2;
11443
11444
11445 return TCL_OK;
11446 fail:
11447 return TCL_ERROR;
11448 }
11449
11450
11451 static int
11452 _wrap_tinaCamera_distort_params_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11453 Camera *arg1 = (Camera *) 0 ;
11454 void *result;
11455
11456 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCamera_distort_params_get self ",0) == TCL_ERROR) SWIG_fail;
11457 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11458 result = (void *) ((arg1)->distort_params);
11459
11460 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_void,0));
11461 return TCL_OK;
11462 fail:
11463 return TCL_ERROR;
11464 }
11465
11466
11467 static int
11468 _wrap_tinaCamera_copy_dist_func_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11469 Camera *arg1 = (Camera *) 0 ;
11470 void *(*arg2)() = (void *(*)()) 0 ;
11471
11472 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaCamera_copy_dist_func_set self copy_dist_func ",0,0) == TCL_ERROR) SWIG_fail;
11473 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11474 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_f___p_void,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11475 if (arg1) (arg1)->copy_dist_func = arg2;
11476
11477
11478 return TCL_OK;
11479 fail:
11480 return TCL_ERROR;
11481 }
11482
11483
11484 static int
11485 _wrap_tinaCamera_copy_dist_func_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11486 Camera *arg1 = (Camera *) 0 ;
11487 void *(*result)();
11488
11489 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCamera_copy_dist_func_get self ",0) == TCL_ERROR) SWIG_fail;
11490 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11491 result = (void *(*)()) ((arg1)->copy_dist_func);
11492
11493 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_f___p_void,0));
11494 return TCL_OK;
11495 fail:
11496 return TCL_ERROR;
11497 }
11498
11499
11500 static int
11501 _wrap_tinaCamera_distort_func_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11502 Camera *arg1 = (Camera *) 0 ;
11503 Vec2 (*arg2)() = (Vec2 (*)()) 0 ;
11504
11505 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaCamera_distort_func_set self distort_func ",0,0) == TCL_ERROR) SWIG_fail;
11506 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11507 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_f___Vec2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11508 if (arg1) (arg1)->distort_func = arg2;
11509
11510
11511 return TCL_OK;
11512 fail:
11513 return TCL_ERROR;
11514 }
11515
11516
11517 static int
11518 _wrap_tinaCamera_distort_func_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11519 Camera *arg1 = (Camera *) 0 ;
11520 Vec2 (*result)();
11521
11522 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCamera_distort_func_get self ",0) == TCL_ERROR) SWIG_fail;
11523 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11524 result = (Vec2 (*)()) ((arg1)->distort_func);
11525
11526 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_f___Vec2,0));
11527 return TCL_OK;
11528 fail:
11529 return TCL_ERROR;
11530 }
11531
11532
11533 static int
11534 _wrap_tinaCamera_correct_func_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11535 Camera *arg1 = (Camera *) 0 ;
11536 Vec2 (*arg2)() = (Vec2 (*)()) 0 ;
11537
11538 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaCamera_correct_func_set self correct_func ",0,0) == TCL_ERROR) SWIG_fail;
11539 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11540 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_f___Vec2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11541 if (arg1) (arg1)->correct_func = arg2;
11542
11543
11544 return TCL_OK;
11545 fail:
11546 return TCL_ERROR;
11547 }
11548
11549
11550 static int
11551 _wrap_tinaCamera_correct_func_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11552 Camera *arg1 = (Camera *) 0 ;
11553 Vec2 (*result)();
11554
11555 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCamera_correct_func_get self ",0) == TCL_ERROR) SWIG_fail;
11556 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11557 result = (Vec2 (*)()) ((arg1)->correct_func);
11558
11559 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_f___Vec2,0));
11560 return TCL_OK;
11561 fail:
11562 return TCL_ERROR;
11563 }
11564
11565
11566 static int
11567 _wrap_tinaCamera_cam_to_im_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11568 Camera *arg1 = (Camera *) 0 ;
11569 Mat3 *arg2 = (Mat3 *) 0 ;
11570
11571 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaCamera_cam_to_im_set self cam_to_im ",0,0) == TCL_ERROR) SWIG_fail;
11572 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11573 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_Mat3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11574 if (arg1) (arg1)->cam_to_im = *arg2;
11575
11576
11577 return TCL_OK;
11578 fail:
11579 return TCL_ERROR;
11580 }
11581
11582
11583 static int
11584 _wrap_tinaCamera_cam_to_im_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11585 Camera *arg1 = (Camera *) 0 ;
11586 Mat3 *result;
11587
11588 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCamera_cam_to_im_get self ",0) == TCL_ERROR) SWIG_fail;
11589 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11590 result = (Mat3 *)& ((arg1)->cam_to_im);
11591
11592 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Mat3,0));
11593 return TCL_OK;
11594 fail:
11595 return TCL_ERROR;
11596 }
11597
11598
11599 static int
11600 _wrap_tinaCamera_im_to_cam_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11601 Camera *arg1 = (Camera *) 0 ;
11602 Mat3 *arg2 = (Mat3 *) 0 ;
11603
11604 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaCamera_im_to_cam_set self im_to_cam ",0,0) == TCL_ERROR) SWIG_fail;
11605 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11606 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_Mat3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11607 if (arg1) (arg1)->im_to_cam = *arg2;
11608
11609
11610 return TCL_OK;
11611 fail:
11612 return TCL_ERROR;
11613 }
11614
11615
11616 static int
11617 _wrap_tinaCamera_im_to_cam_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11618 Camera *arg1 = (Camera *) 0 ;
11619 Mat3 *result;
11620
11621 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCamera_im_to_cam_get self ",0) == TCL_ERROR) SWIG_fail;
11622 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11623 result = (Mat3 *)& ((arg1)->im_to_cam);
11624
11625 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Mat3,0));
11626 return TCL_OK;
11627 fail:
11628 return TCL_ERROR;
11629 }
11630
11631
11632 static int
11633 _wrap_new_tinaCamera(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11634 Camera *result;
11635
11636 if (SWIG_GetArgs(interp, objc, objv,":new_tinaCamera ") == TCL_ERROR) SWIG_fail;
11637 result = (Camera *)(Camera *) calloc(1, sizeof(Camera));
11638
11639 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Camera,0));
11640 return TCL_OK;
11641 fail:
11642 return TCL_ERROR;
11643 }
11644
11645
11646 static int
11647 _wrap_delete_tinaCamera(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11648 Camera *arg1 = (Camera *) 0 ;
11649
11650 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaCamera self ",0) == TCL_ERROR) SWIG_fail;
11651 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Camera,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11652 free((char *) arg1);
11653
11654
11655 return TCL_OK;
11656 fail:
11657 return TCL_ERROR;
11658 }
11659
11660
11661 static void swig_delete_tinaCamera(void *obj) {
11662 Camera *arg1 = (Camera *) obj;
11663 free((char *) arg1);
11664 }
11665 static swig_method swig_Camera_methods[] = {
11666 {0,0}
11667 };
11668 static swig_attribute swig_Camera_attributes[] = {
11669 { "-tinaTsId",_wrap_tinaCamera_tinaTsId_get, _wrap_tinaCamera_tinaTsId_set},
11670 { "-type",_wrap_tinaCamera_type_get, _wrap_tinaCamera_type_set},
11671 { "-label",_wrap_tinaCamera_label_get, _wrap_tinaCamera_label_set},
11672 { "-f",_wrap_tinaCamera_f_get, _wrap_tinaCamera_f_set},
11673 { "-pixel",_wrap_tinaCamera_pixel_get, _wrap_tinaCamera_pixel_set},
11674 { "-ax",_wrap_tinaCamera_ax_get, _wrap_tinaCamera_ax_set},
11675 { "-ay",_wrap_tinaCamera_ay_get, _wrap_tinaCamera_ay_set},
11676 { "-cx",_wrap_tinaCamera_cx_get, _wrap_tinaCamera_cx_set},
11677 { "-cy",_wrap_tinaCamera_cy_get, _wrap_tinaCamera_cy_set},
11678 { "-width",_wrap_tinaCamera_width_get, _wrap_tinaCamera_width_set},
11679 { "-height",_wrap_tinaCamera_height_get, _wrap_tinaCamera_height_set},
11680 { "-transf",_wrap_tinaCamera_transf_get, _wrap_tinaCamera_transf_set},
11681 { "-distort_params",_wrap_tinaCamera_distort_params_get, _wrap_tinaCamera_distort_params_set},
11682 { "-copy_dist_func",_wrap_tinaCamera_copy_dist_func_get, _wrap_tinaCamera_copy_dist_func_set},
11683 { "-distort_func",_wrap_tinaCamera_distort_func_get, _wrap_tinaCamera_distort_func_set},
11684 { "-correct_func",_wrap_tinaCamera_correct_func_get, _wrap_tinaCamera_correct_func_set},
11685 { "-cam_to_im",_wrap_tinaCamera_cam_to_im_get, _wrap_tinaCamera_cam_to_im_set},
11686 { "-im_to_cam",_wrap_tinaCamera_im_to_cam_get, _wrap_tinaCamera_im_to_cam_set},
11687 {0,0,0}
11688 };
11689 static swig_class *swig_Camera_bases[] = {0};
11690 swig_class _wrap_class_Camera = { "tinaCamera", &SWIGTYPE_p_Camera,_wrap_new_tinaCamera, swig_delete_tinaCamera, swig_Camera_methods, swig_Camera_attributes, swig_Camera_bases };
11691 static int
11692 _wrap_tinaParcam_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11693 Parcam *arg1 = (Parcam *) 0 ;
11694 int arg2 ;
11695
11696 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaParcam_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
11697 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11698 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
11699
11700
11701 return TCL_OK;
11702 fail:
11703 return TCL_ERROR;
11704 }
11705
11706
11707 static int
11708 _wrap_tinaParcam_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11709 Parcam *arg1 = (Parcam *) 0 ;
11710 int result;
11711
11712 if (SWIG_GetArgs(interp, objc, objv,"o:tinaParcam_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
11713 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11714 result = (int) ((arg1)->ts_id);
11715
11716 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
11717 return TCL_OK;
11718 fail:
11719 return TCL_ERROR;
11720 }
11721
11722
11723 static int
11724 _wrap_tinaParcam_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11725 Parcam *arg1 = (Parcam *) 0 ;
11726 unsigned int arg2 ;
11727
11728 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaParcam_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
11729 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11730 if (arg1) (arg1)->type = arg2;
11731
11732
11733 return TCL_OK;
11734 fail:
11735 return TCL_ERROR;
11736 }
11737
11738
11739 static int
11740 _wrap_tinaParcam_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11741 Parcam *arg1 = (Parcam *) 0 ;
11742 unsigned int result;
11743
11744 if (SWIG_GetArgs(interp, objc, objv,"o:tinaParcam_type_get self ",0) == TCL_ERROR) SWIG_fail;
11745 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11746 result = (unsigned int) ((arg1)->type);
11747
11748 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
11749 return TCL_OK;
11750 fail:
11751 return TCL_ERROR;
11752 }
11753
11754
11755 static int
11756 _wrap_tinaParcam_label_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11757 Parcam *arg1 = (Parcam *) 0 ;
11758 unsigned int arg2 ;
11759
11760 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaParcam_label_set self label ",0,&arg2) == TCL_ERROR) SWIG_fail;
11761 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11762 if (arg1) (arg1)->label = arg2;
11763
11764
11765 return TCL_OK;
11766 fail:
11767 return TCL_ERROR;
11768 }
11769
11770
11771 static int
11772 _wrap_tinaParcam_label_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11773 Parcam *arg1 = (Parcam *) 0 ;
11774 unsigned int result;
11775
11776 if (SWIG_GetArgs(interp, objc, objv,"o:tinaParcam_label_get self ",0) == TCL_ERROR) SWIG_fail;
11777 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11778 result = (unsigned int) ((arg1)->label);
11779
11780 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
11781 return TCL_OK;
11782 fail:
11783 return TCL_ERROR;
11784 }
11785
11786
11787 static int
11788 _wrap_tinaParcam_f_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11789 Parcam *arg1 = (Parcam *) 0 ;
11790 float arg2 ;
11791
11792 if (SWIG_GetArgs(interp, objc, objv,"of:tinaParcam_f_set self f ",0,&arg2) == TCL_ERROR) SWIG_fail;
11793 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11794 if (arg1) (arg1)->f = arg2;
11795
11796
11797 return TCL_OK;
11798 fail:
11799 return TCL_ERROR;
11800 }
11801
11802
11803 static int
11804 _wrap_tinaParcam_f_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11805 Parcam *arg1 = (Parcam *) 0 ;
11806 float result;
11807
11808 if (SWIG_GetArgs(interp, objc, objv,"o:tinaParcam_f_get self ",0) == TCL_ERROR) SWIG_fail;
11809 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11810 result = (float) ((arg1)->f);
11811
11812 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
11813 return TCL_OK;
11814 fail:
11815 return TCL_ERROR;
11816 }
11817
11818
11819 static int
11820 _wrap_tinaParcam_I_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11821 Parcam *arg1 = (Parcam *) 0 ;
11822 float arg2 ;
11823
11824 if (SWIG_GetArgs(interp, objc, objv,"of:tinaParcam_I_set self I ",0,&arg2) == TCL_ERROR) SWIG_fail;
11825 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11826 if (arg1) (arg1)->I = arg2;
11827
11828
11829 return TCL_OK;
11830 fail:
11831 return TCL_ERROR;
11832 }
11833
11834
11835 static int
11836 _wrap_tinaParcam_I_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11837 Parcam *arg1 = (Parcam *) 0 ;
11838 float result;
11839
11840 if (SWIG_GetArgs(interp, objc, objv,"o:tinaParcam_I_get self ",0) == TCL_ERROR) SWIG_fail;
11841 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11842 result = (float) ((arg1)->I);
11843
11844 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
11845 return TCL_OK;
11846 fail:
11847 return TCL_ERROR;
11848 }
11849
11850
11851 static int
11852 _wrap_tinaParcam_pixel_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11853 Parcam *arg1 = (Parcam *) 0 ;
11854 float arg2 ;
11855
11856 if (SWIG_GetArgs(interp, objc, objv,"of:tinaParcam_pixel_set self pixel ",0,&arg2) == TCL_ERROR) SWIG_fail;
11857 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11858 if (arg1) (arg1)->pixel = arg2;
11859
11860
11861 return TCL_OK;
11862 fail:
11863 return TCL_ERROR;
11864 }
11865
11866
11867 static int
11868 _wrap_tinaParcam_pixel_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11869 Parcam *arg1 = (Parcam *) 0 ;
11870 float result;
11871
11872 if (SWIG_GetArgs(interp, objc, objv,"o:tinaParcam_pixel_get self ",0) == TCL_ERROR) SWIG_fail;
11873 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11874 result = (float) ((arg1)->pixel);
11875
11876 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
11877 return TCL_OK;
11878 fail:
11879 return TCL_ERROR;
11880 }
11881
11882
11883 static int
11884 _wrap_tinaParcam_cam1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11885 Parcam *arg1 = (Parcam *) 0 ;
11886 struct camera *arg2 = (struct camera *) 0 ;
11887
11888 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaParcam_cam1_set self cam1 ",0,0) == TCL_ERROR) SWIG_fail;
11889 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11890 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_camera,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
11891 if (arg1) (arg1)->cam1 = arg2;
11892
11893
11894 return TCL_OK;
11895 fail:
11896 return TCL_ERROR;
11897 }
11898
11899
11900 static int
11901 _wrap_tinaParcam_cam1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11902 Parcam *arg1 = (Parcam *) 0 ;
11903 struct camera *result;
11904
11905 if (SWIG_GetArgs(interp, objc, objv,"o:tinaParcam_cam1_get self ",0) == TCL_ERROR) SWIG_fail;
11906 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11907 result = (struct camera *) ((arg1)->cam1);
11908
11909 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_camera,0));
11910 return TCL_OK;
11911 fail:
11912 return TCL_ERROR;
11913 }
11914
11915
11916 static int
11917 _wrap_tinaParcam_rcam1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11918 Parcam *arg1 = (Parcam *) 0 ;
11919 struct camera *arg2 = (struct camera *) 0 ;
11920
11921 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaParcam_rcam1_set self rcam1 ",0,0) == TCL_ERROR) SWIG_fail;
11922 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11923 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_camera,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
11924 if (arg1) (arg1)->rcam1 = arg2;
11925
11926
11927 return TCL_OK;
11928 fail:
11929 return TCL_ERROR;
11930 }
11931
11932
11933 static int
11934 _wrap_tinaParcam_rcam1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11935 Parcam *arg1 = (Parcam *) 0 ;
11936 struct camera *result;
11937
11938 if (SWIG_GetArgs(interp, objc, objv,"o:tinaParcam_rcam1_get self ",0) == TCL_ERROR) SWIG_fail;
11939 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11940 result = (struct camera *) ((arg1)->rcam1);
11941
11942 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_camera,0));
11943 return TCL_OK;
11944 fail:
11945 return TCL_ERROR;
11946 }
11947
11948
11949 static int
11950 _wrap_tinaParcam_cam2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11951 Parcam *arg1 = (Parcam *) 0 ;
11952 struct camera *arg2 = (struct camera *) 0 ;
11953
11954 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaParcam_cam2_set self cam2 ",0,0) == TCL_ERROR) SWIG_fail;
11955 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11956 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_camera,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
11957 if (arg1) (arg1)->cam2 = arg2;
11958
11959
11960 return TCL_OK;
11961 fail:
11962 return TCL_ERROR;
11963 }
11964
11965
11966 static int
11967 _wrap_tinaParcam_cam2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11968 Parcam *arg1 = (Parcam *) 0 ;
11969 struct camera *result;
11970
11971 if (SWIG_GetArgs(interp, objc, objv,"o:tinaParcam_cam2_get self ",0) == TCL_ERROR) SWIG_fail;
11972 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11973 result = (struct camera *) ((arg1)->cam2);
11974
11975 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_camera,0));
11976 return TCL_OK;
11977 fail:
11978 return TCL_ERROR;
11979 }
11980
11981
11982 static int
11983 _wrap_tinaParcam_rcam2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
11984 Parcam *arg1 = (Parcam *) 0 ;
11985 struct camera *arg2 = (struct camera *) 0 ;
11986
11987 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaParcam_rcam2_set self rcam2 ",0,0) == TCL_ERROR) SWIG_fail;
11988 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
11989 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_camera,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
11990 if (arg1) (arg1)->rcam2 = arg2;
11991
11992
11993 return TCL_OK;
11994 fail:
11995 return TCL_ERROR;
11996 }
11997
11998
11999 static int
12000 _wrap_tinaParcam_rcam2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12001 Parcam *arg1 = (Parcam *) 0 ;
12002 struct camera *result;
12003
12004 if (SWIG_GetArgs(interp, objc, objv,"o:tinaParcam_rcam2_get self ",0) == TCL_ERROR) SWIG_fail;
12005 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12006 result = (struct camera *) ((arg1)->rcam2);
12007
12008 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_camera,0));
12009 return TCL_OK;
12010 fail:
12011 return TCL_ERROR;
12012 }
12013
12014
12015 static int
12016 _wrap_tinaParcam_rect1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12017 Parcam *arg1 = (Parcam *) 0 ;
12018 struct mat3 *arg2 = (struct mat3 *) 0 ;
12019
12020 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaParcam_rect1_set self rect1 ",0,0) == TCL_ERROR) SWIG_fail;
12021 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12022 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_mat3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12023 if (arg1) (arg1)->rect1 = *arg2;
12024
12025
12026 return TCL_OK;
12027 fail:
12028 return TCL_ERROR;
12029 }
12030
12031
12032 static int
12033 _wrap_tinaParcam_rect1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12034 Parcam *arg1 = (Parcam *) 0 ;
12035 struct mat3 *result;
12036
12037 if (SWIG_GetArgs(interp, objc, objv,"o:tinaParcam_rect1_get self ",0) == TCL_ERROR) SWIG_fail;
12038 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12039 result = (struct mat3 *)& ((arg1)->rect1);
12040
12041 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_mat3,0));
12042 return TCL_OK;
12043 fail:
12044 return TCL_ERROR;
12045 }
12046
12047
12048 static int
12049 _wrap_tinaParcam_derect1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12050 Parcam *arg1 = (Parcam *) 0 ;
12051 struct mat3 *arg2 = (struct mat3 *) 0 ;
12052
12053 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaParcam_derect1_set self derect1 ",0,0) == TCL_ERROR) SWIG_fail;
12054 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12055 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_mat3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12056 if (arg1) (arg1)->derect1 = *arg2;
12057
12058
12059 return TCL_OK;
12060 fail:
12061 return TCL_ERROR;
12062 }
12063
12064
12065 static int
12066 _wrap_tinaParcam_derect1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12067 Parcam *arg1 = (Parcam *) 0 ;
12068 struct mat3 *result;
12069
12070 if (SWIG_GetArgs(interp, objc, objv,"o:tinaParcam_derect1_get self ",0) == TCL_ERROR) SWIG_fail;
12071 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12072 result = (struct mat3 *)& ((arg1)->derect1);
12073
12074 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_mat3,0));
12075 return TCL_OK;
12076 fail:
12077 return TCL_ERROR;
12078 }
12079
12080
12081 static int
12082 _wrap_tinaParcam_rect2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12083 Parcam *arg1 = (Parcam *) 0 ;
12084 struct mat3 *arg2 = (struct mat3 *) 0 ;
12085
12086 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaParcam_rect2_set self rect2 ",0,0) == TCL_ERROR) SWIG_fail;
12087 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12088 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_mat3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12089 if (arg1) (arg1)->rect2 = *arg2;
12090
12091
12092 return TCL_OK;
12093 fail:
12094 return TCL_ERROR;
12095 }
12096
12097
12098 static int
12099 _wrap_tinaParcam_rect2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12100 Parcam *arg1 = (Parcam *) 0 ;
12101 struct mat3 *result;
12102
12103 if (SWIG_GetArgs(interp, objc, objv,"o:tinaParcam_rect2_get self ",0) == TCL_ERROR) SWIG_fail;
12104 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12105 result = (struct mat3 *)& ((arg1)->rect2);
12106
12107 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_mat3,0));
12108 return TCL_OK;
12109 fail:
12110 return TCL_ERROR;
12111 }
12112
12113
12114 static int
12115 _wrap_tinaParcam_derect2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12116 Parcam *arg1 = (Parcam *) 0 ;
12117 struct mat3 *arg2 = (struct mat3 *) 0 ;
12118
12119 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaParcam_derect2_set self derect2 ",0,0) == TCL_ERROR) SWIG_fail;
12120 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12121 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_mat3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12122 if (arg1) (arg1)->derect2 = *arg2;
12123
12124
12125 return TCL_OK;
12126 fail:
12127 return TCL_ERROR;
12128 }
12129
12130
12131 static int
12132 _wrap_tinaParcam_derect2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12133 Parcam *arg1 = (Parcam *) 0 ;
12134 struct mat3 *result;
12135
12136 if (SWIG_GetArgs(interp, objc, objv,"o:tinaParcam_derect2_get self ",0) == TCL_ERROR) SWIG_fail;
12137 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12138 result = (struct mat3 *)& ((arg1)->derect2);
12139
12140 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_mat3,0));
12141 return TCL_OK;
12142 fail:
12143 return TCL_ERROR;
12144 }
12145
12146
12147 static int
12148 _wrap_tinaParcam_e_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12149 Parcam *arg1 = (Parcam *) 0 ;
12150 struct mat3 *arg2 = (struct mat3 *) 0 ;
12151
12152 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaParcam_e_set self e ",0,0) == TCL_ERROR) SWIG_fail;
12153 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12154 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_mat3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12155 if (arg1) (arg1)->e = *arg2;
12156
12157
12158 return TCL_OK;
12159 fail:
12160 return TCL_ERROR;
12161 }
12162
12163
12164 static int
12165 _wrap_tinaParcam_e_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12166 Parcam *arg1 = (Parcam *) 0 ;
12167 struct mat3 *result;
12168
12169 if (SWIG_GetArgs(interp, objc, objv,"o:tinaParcam_e_get self ",0) == TCL_ERROR) SWIG_fail;
12170 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12171 result = (struct mat3 *)& ((arg1)->e);
12172
12173 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_mat3,0));
12174 return TCL_OK;
12175 fail:
12176 return TCL_ERROR;
12177 }
12178
12179
12180 static int
12181 _wrap_new_tinaParcam(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12182 Parcam *result;
12183
12184 if (SWIG_GetArgs(interp, objc, objv,":new_tinaParcam ") == TCL_ERROR) SWIG_fail;
12185 result = (Parcam *)(Parcam *) calloc(1, sizeof(Parcam));
12186
12187 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Parcam,0));
12188 return TCL_OK;
12189 fail:
12190 return TCL_ERROR;
12191 }
12192
12193
12194 static int
12195 _wrap_delete_tinaParcam(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12196 Parcam *arg1 = (Parcam *) 0 ;
12197
12198 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaParcam self ",0) == TCL_ERROR) SWIG_fail;
12199 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Parcam,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12200 free((char *) arg1);
12201
12202
12203 return TCL_OK;
12204 fail:
12205 return TCL_ERROR;
12206 }
12207
12208
12209 static void swig_delete_tinaParcam(void *obj) {
12210 Parcam *arg1 = (Parcam *) obj;
12211 free((char *) arg1);
12212 }
12213 static swig_method swig_Parcam_methods[] = {
12214 {0,0}
12215 };
12216 static swig_attribute swig_Parcam_attributes[] = {
12217 { "-tinaTsId",_wrap_tinaParcam_tinaTsId_get, _wrap_tinaParcam_tinaTsId_set},
12218 { "-type",_wrap_tinaParcam_type_get, _wrap_tinaParcam_type_set},
12219 { "-label",_wrap_tinaParcam_label_get, _wrap_tinaParcam_label_set},
12220 { "-f",_wrap_tinaParcam_f_get, _wrap_tinaParcam_f_set},
12221 { "-I",_wrap_tinaParcam_I_get, _wrap_tinaParcam_I_set},
12222 { "-pixel",_wrap_tinaParcam_pixel_get, _wrap_tinaParcam_pixel_set},
12223 { "-cam1",_wrap_tinaParcam_cam1_get, _wrap_tinaParcam_cam1_set},
12224 { "-rcam1",_wrap_tinaParcam_rcam1_get, _wrap_tinaParcam_rcam1_set},
12225 { "-cam2",_wrap_tinaParcam_cam2_get, _wrap_tinaParcam_cam2_set},
12226 { "-rcam2",_wrap_tinaParcam_rcam2_get, _wrap_tinaParcam_rcam2_set},
12227 { "-rect1",_wrap_tinaParcam_rect1_get, _wrap_tinaParcam_rect1_set},
12228 { "-derect1",_wrap_tinaParcam_derect1_get, _wrap_tinaParcam_derect1_set},
12229 { "-rect2",_wrap_tinaParcam_rect2_get, _wrap_tinaParcam_rect2_set},
12230 { "-derect2",_wrap_tinaParcam_derect2_get, _wrap_tinaParcam_derect2_set},
12231 { "-e",_wrap_tinaParcam_e_get, _wrap_tinaParcam_e_set},
12232 {0,0,0}
12233 };
12234 static swig_class *swig_Parcam_bases[] = {0};
12235 swig_class _wrap_class_Parcam = { "tinaParcam", &SWIGTYPE_p_Parcam,_wrap_new_tinaParcam, swig_delete_tinaParcam, swig_Parcam_methods, swig_Parcam_attributes, swig_Parcam_bases };
12236 static int
12237 _wrap_tinaConic_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12238 Conic *arg1 = (Conic *) 0 ;
12239 int arg2 ;
12240
12241 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaConic_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
12242 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12243 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
12244
12245
12246 return TCL_OK;
12247 fail:
12248 return TCL_ERROR;
12249 }
12250
12251
12252 static int
12253 _wrap_tinaConic_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12254 Conic *arg1 = (Conic *) 0 ;
12255 int result;
12256
12257 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConic_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
12258 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12259 result = (int) ((arg1)->ts_id);
12260
12261 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
12262 return TCL_OK;
12263 fail:
12264 return TCL_ERROR;
12265 }
12266
12267
12268 static int
12269 _wrap_tinaConic_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12270 Conic *arg1 = (Conic *) 0 ;
12271 unsigned int arg2 ;
12272
12273 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaConic_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
12274 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12275 if (arg1) (arg1)->type = arg2;
12276
12277
12278 return TCL_OK;
12279 fail:
12280 return TCL_ERROR;
12281 }
12282
12283
12284 static int
12285 _wrap_tinaConic_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12286 Conic *arg1 = (Conic *) 0 ;
12287 unsigned int result;
12288
12289 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConic_type_get self ",0) == TCL_ERROR) SWIG_fail;
12290 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12291 result = (unsigned int) ((arg1)->type);
12292
12293 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
12294 return TCL_OK;
12295 fail:
12296 return TCL_ERROR;
12297 }
12298
12299
12300 static int
12301 _wrap_tinaConic_label_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12302 Conic *arg1 = (Conic *) 0 ;
12303 unsigned int arg2 ;
12304
12305 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaConic_label_set self label ",0,&arg2) == TCL_ERROR) SWIG_fail;
12306 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12307 if (arg1) (arg1)->label = arg2;
12308
12309
12310 return TCL_OK;
12311 fail:
12312 return TCL_ERROR;
12313 }
12314
12315
12316 static int
12317 _wrap_tinaConic_label_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12318 Conic *arg1 = (Conic *) 0 ;
12319 unsigned int result;
12320
12321 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConic_label_get self ",0) == TCL_ERROR) SWIG_fail;
12322 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12323 result = (unsigned int) ((arg1)->label);
12324
12325 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
12326 return TCL_OK;
12327 fail:
12328 return TCL_ERROR;
12329 }
12330
12331
12332 static int
12333 _wrap_tinaConic_filler1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12334 Conic *arg1 = (Conic *) 0 ;
12335 int arg2 ;
12336
12337 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaConic_filler1_set self filler1 ",0,&arg2) == TCL_ERROR) SWIG_fail;
12338 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12339 if (arg1) (arg1)->filler1 = arg2;
12340
12341
12342 return TCL_OK;
12343 fail:
12344 return TCL_ERROR;
12345 }
12346
12347
12348 static int
12349 _wrap_tinaConic_filler1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12350 Conic *arg1 = (Conic *) 0 ;
12351 int result;
12352
12353 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConic_filler1_get self ",0) == TCL_ERROR) SWIG_fail;
12354 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12355 result = (int) ((arg1)->filler1);
12356
12357 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
12358 return TCL_OK;
12359 fail:
12360 return TCL_ERROR;
12361 }
12362
12363
12364 static int
12365 _wrap_tinaConic_a_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12366 Conic *arg1 = (Conic *) 0 ;
12367 double arg2 ;
12368
12369 if (SWIG_GetArgs(interp, objc, objv,"od:tinaConic_a_set self a ",0,&arg2) == TCL_ERROR) SWIG_fail;
12370 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12371 if (arg1) (arg1)->a = arg2;
12372
12373
12374 return TCL_OK;
12375 fail:
12376 return TCL_ERROR;
12377 }
12378
12379
12380 static int
12381 _wrap_tinaConic_a_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12382 Conic *arg1 = (Conic *) 0 ;
12383 double result;
12384
12385 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConic_a_get self ",0) == TCL_ERROR) SWIG_fail;
12386 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12387 result = (double) ((arg1)->a);
12388
12389 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
12390 return TCL_OK;
12391 fail:
12392 return TCL_ERROR;
12393 }
12394
12395
12396 static int
12397 _wrap_tinaConic_b_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12398 Conic *arg1 = (Conic *) 0 ;
12399 double arg2 ;
12400
12401 if (SWIG_GetArgs(interp, objc, objv,"od:tinaConic_b_set self b ",0,&arg2) == TCL_ERROR) SWIG_fail;
12402 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12403 if (arg1) (arg1)->b = arg2;
12404
12405
12406 return TCL_OK;
12407 fail:
12408 return TCL_ERROR;
12409 }
12410
12411
12412 static int
12413 _wrap_tinaConic_b_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12414 Conic *arg1 = (Conic *) 0 ;
12415 double result;
12416
12417 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConic_b_get self ",0) == TCL_ERROR) SWIG_fail;
12418 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12419 result = (double) ((arg1)->b);
12420
12421 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
12422 return TCL_OK;
12423 fail:
12424 return TCL_ERROR;
12425 }
12426
12427
12428 static int
12429 _wrap_tinaConic_c_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12430 Conic *arg1 = (Conic *) 0 ;
12431 double arg2 ;
12432
12433 if (SWIG_GetArgs(interp, objc, objv,"od:tinaConic_c_set self c ",0,&arg2) == TCL_ERROR) SWIG_fail;
12434 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12435 if (arg1) (arg1)->c = arg2;
12436
12437
12438 return TCL_OK;
12439 fail:
12440 return TCL_ERROR;
12441 }
12442
12443
12444 static int
12445 _wrap_tinaConic_c_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12446 Conic *arg1 = (Conic *) 0 ;
12447 double result;
12448
12449 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConic_c_get self ",0) == TCL_ERROR) SWIG_fail;
12450 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12451 result = (double) ((arg1)->c);
12452
12453 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
12454 return TCL_OK;
12455 fail:
12456 return TCL_ERROR;
12457 }
12458
12459
12460 static int
12461 _wrap_tinaConic_d_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12462 Conic *arg1 = (Conic *) 0 ;
12463 double arg2 ;
12464
12465 if (SWIG_GetArgs(interp, objc, objv,"od:tinaConic_d_set self d ",0,&arg2) == TCL_ERROR) SWIG_fail;
12466 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12467 if (arg1) (arg1)->d = arg2;
12468
12469
12470 return TCL_OK;
12471 fail:
12472 return TCL_ERROR;
12473 }
12474
12475
12476 static int
12477 _wrap_tinaConic_d_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12478 Conic *arg1 = (Conic *) 0 ;
12479 double result;
12480
12481 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConic_d_get self ",0) == TCL_ERROR) SWIG_fail;
12482 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12483 result = (double) ((arg1)->d);
12484
12485 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
12486 return TCL_OK;
12487 fail:
12488 return TCL_ERROR;
12489 }
12490
12491
12492 static int
12493 _wrap_tinaConic_e_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12494 Conic *arg1 = (Conic *) 0 ;
12495 double arg2 ;
12496
12497 if (SWIG_GetArgs(interp, objc, objv,"od:tinaConic_e_set self e ",0,&arg2) == TCL_ERROR) SWIG_fail;
12498 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12499 if (arg1) (arg1)->e = arg2;
12500
12501
12502 return TCL_OK;
12503 fail:
12504 return TCL_ERROR;
12505 }
12506
12507
12508 static int
12509 _wrap_tinaConic_e_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12510 Conic *arg1 = (Conic *) 0 ;
12511 double result;
12512
12513 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConic_e_get self ",0) == TCL_ERROR) SWIG_fail;
12514 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12515 result = (double) ((arg1)->e);
12516
12517 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
12518 return TCL_OK;
12519 fail:
12520 return TCL_ERROR;
12521 }
12522
12523
12524 static int
12525 _wrap_tinaConic_f_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12526 Conic *arg1 = (Conic *) 0 ;
12527 double arg2 ;
12528
12529 if (SWIG_GetArgs(interp, objc, objv,"od:tinaConic_f_set self f ",0,&arg2) == TCL_ERROR) SWIG_fail;
12530 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12531 if (arg1) (arg1)->f = arg2;
12532
12533
12534 return TCL_OK;
12535 fail:
12536 return TCL_ERROR;
12537 }
12538
12539
12540 static int
12541 _wrap_tinaConic_f_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12542 Conic *arg1 = (Conic *) 0 ;
12543 double result;
12544
12545 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConic_f_get self ",0) == TCL_ERROR) SWIG_fail;
12546 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12547 result = (double) ((arg1)->f);
12548
12549 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
12550 return TCL_OK;
12551 fail:
12552 return TCL_ERROR;
12553 }
12554
12555
12556 static int
12557 _wrap_tinaConic_theta_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12558 Conic *arg1 = (Conic *) 0 ;
12559 double arg2 ;
12560
12561 if (SWIG_GetArgs(interp, objc, objv,"od:tinaConic_theta_set self theta ",0,&arg2) == TCL_ERROR) SWIG_fail;
12562 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12563 if (arg1) (arg1)->theta = arg2;
12564
12565
12566 return TCL_OK;
12567 fail:
12568 return TCL_ERROR;
12569 }
12570
12571
12572 static int
12573 _wrap_tinaConic_theta_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12574 Conic *arg1 = (Conic *) 0 ;
12575 double result;
12576
12577 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConic_theta_get self ",0) == TCL_ERROR) SWIG_fail;
12578 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12579 result = (double) ((arg1)->theta);
12580
12581 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
12582 return TCL_OK;
12583 fail:
12584 return TCL_ERROR;
12585 }
12586
12587
12588 static int
12589 _wrap_tinaConic_alpha_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12590 Conic *arg1 = (Conic *) 0 ;
12591 double arg2 ;
12592
12593 if (SWIG_GetArgs(interp, objc, objv,"od:tinaConic_alpha_set self alpha ",0,&arg2) == TCL_ERROR) SWIG_fail;
12594 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12595 if (arg1) (arg1)->alpha = arg2;
12596
12597
12598 return TCL_OK;
12599 fail:
12600 return TCL_ERROR;
12601 }
12602
12603
12604 static int
12605 _wrap_tinaConic_alpha_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12606 Conic *arg1 = (Conic *) 0 ;
12607 double result;
12608
12609 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConic_alpha_get self ",0) == TCL_ERROR) SWIG_fail;
12610 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12611 result = (double) ((arg1)->alpha);
12612
12613 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
12614 return TCL_OK;
12615 fail:
12616 return TCL_ERROR;
12617 }
12618
12619
12620 static int
12621 _wrap_tinaConic_beta_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12622 Conic *arg1 = (Conic *) 0 ;
12623 double arg2 ;
12624
12625 if (SWIG_GetArgs(interp, objc, objv,"od:tinaConic_beta_set self beta ",0,&arg2) == TCL_ERROR) SWIG_fail;
12626 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12627 if (arg1) (arg1)->beta = arg2;
12628
12629
12630 return TCL_OK;
12631 fail:
12632 return TCL_ERROR;
12633 }
12634
12635
12636 static int
12637 _wrap_tinaConic_beta_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12638 Conic *arg1 = (Conic *) 0 ;
12639 double result;
12640
12641 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConic_beta_get self ",0) == TCL_ERROR) SWIG_fail;
12642 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12643 result = (double) ((arg1)->beta);
12644
12645 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
12646 return TCL_OK;
12647 fail:
12648 return TCL_ERROR;
12649 }
12650
12651
12652 static int
12653 _wrap_tinaConic_center_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12654 Conic *arg1 = (Conic *) 0 ;
12655 struct vec2 *arg2 = (struct vec2 *) 0 ;
12656
12657 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaConic_center_set self center ",0,0) == TCL_ERROR) SWIG_fail;
12658 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12659 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_vec2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12660 if (arg1) (arg1)->center = *arg2;
12661
12662
12663 return TCL_OK;
12664 fail:
12665 return TCL_ERROR;
12666 }
12667
12668
12669 static int
12670 _wrap_tinaConic_center_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12671 Conic *arg1 = (Conic *) 0 ;
12672 struct vec2 *result;
12673
12674 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConic_center_get self ",0) == TCL_ERROR) SWIG_fail;
12675 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12676 result = (struct vec2 *)& ((arg1)->center);
12677
12678 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_vec2,0));
12679 return TCL_OK;
12680 fail:
12681 return TCL_ERROR;
12682 }
12683
12684
12685 static int
12686 _wrap_tinaConic_filler2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12687 Conic *arg1 = (Conic *) 0 ;
12688 int arg2 ;
12689
12690 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaConic_filler2_set self filler2 ",0,&arg2) == TCL_ERROR) SWIG_fail;
12691 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12692 if (arg1) (arg1)->filler2 = arg2;
12693
12694
12695 return TCL_OK;
12696 fail:
12697 return TCL_ERROR;
12698 }
12699
12700
12701 static int
12702 _wrap_tinaConic_filler2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12703 Conic *arg1 = (Conic *) 0 ;
12704 int result;
12705
12706 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConic_filler2_get self ",0) == TCL_ERROR) SWIG_fail;
12707 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12708 result = (int) ((arg1)->filler2);
12709
12710 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
12711 return TCL_OK;
12712 fail:
12713 return TCL_ERROR;
12714 }
12715
12716
12717 static int
12718 _wrap_tinaConic_t1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12719 Conic *arg1 = (Conic *) 0 ;
12720 double arg2 ;
12721
12722 if (SWIG_GetArgs(interp, objc, objv,"od:tinaConic_t1_set self t1 ",0,&arg2) == TCL_ERROR) SWIG_fail;
12723 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12724 if (arg1) (arg1)->t1 = arg2;
12725
12726
12727 return TCL_OK;
12728 fail:
12729 return TCL_ERROR;
12730 }
12731
12732
12733 static int
12734 _wrap_tinaConic_t1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12735 Conic *arg1 = (Conic *) 0 ;
12736 double result;
12737
12738 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConic_t1_get self ",0) == TCL_ERROR) SWIG_fail;
12739 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12740 result = (double) ((arg1)->t1);
12741
12742 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
12743 return TCL_OK;
12744 fail:
12745 return TCL_ERROR;
12746 }
12747
12748
12749 static int
12750 _wrap_tinaConic_t2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12751 Conic *arg1 = (Conic *) 0 ;
12752 double arg2 ;
12753
12754 if (SWIG_GetArgs(interp, objc, objv,"od:tinaConic_t2_set self t2 ",0,&arg2) == TCL_ERROR) SWIG_fail;
12755 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12756 if (arg1) (arg1)->t2 = arg2;
12757
12758
12759 return TCL_OK;
12760 fail:
12761 return TCL_ERROR;
12762 }
12763
12764
12765 static int
12766 _wrap_tinaConic_t2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12767 Conic *arg1 = (Conic *) 0 ;
12768 double result;
12769
12770 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConic_t2_get self ",0) == TCL_ERROR) SWIG_fail;
12771 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12772 result = (double) ((arg1)->t2);
12773
12774 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
12775 return TCL_OK;
12776 fail:
12777 return TCL_ERROR;
12778 }
12779
12780
12781 static int
12782 _wrap_tinaConic_branch_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12783 Conic *arg1 = (Conic *) 0 ;
12784 int arg2 ;
12785
12786 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaConic_branch_set self branch ",0,&arg2) == TCL_ERROR) SWIG_fail;
12787 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12788 if (arg1) (arg1)->branch = arg2;
12789
12790
12791 return TCL_OK;
12792 fail:
12793 return TCL_ERROR;
12794 }
12795
12796
12797 static int
12798 _wrap_tinaConic_branch_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12799 Conic *arg1 = (Conic *) 0 ;
12800 int result;
12801
12802 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConic_branch_get self ",0) == TCL_ERROR) SWIG_fail;
12803 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12804 result = (int) ((arg1)->branch);
12805
12806 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
12807 return TCL_OK;
12808 fail:
12809 return TCL_ERROR;
12810 }
12811
12812
12813 static int
12814 _wrap_tinaConic_props_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12815 Conic *arg1 = (Conic *) 0 ;
12816 List *arg2 = (List *) 0 ;
12817
12818 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaConic_props_set self props ",0,0) == TCL_ERROR) SWIG_fail;
12819 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12820 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
12821 if (arg1) (arg1)->props = arg2;
12822
12823
12824 return TCL_OK;
12825 fail:
12826 return TCL_ERROR;
12827 }
12828
12829
12830 static int
12831 _wrap_tinaConic_props_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12832 Conic *arg1 = (Conic *) 0 ;
12833 List *result;
12834
12835 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConic_props_get self ",0) == TCL_ERROR) SWIG_fail;
12836 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12837 result = (List *) ((arg1)->props);
12838
12839 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_List,0));
12840 return TCL_OK;
12841 fail:
12842 return TCL_ERROR;
12843 }
12844
12845
12846 static int
12847 _wrap_new_tinaConic(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12848 Conic *result;
12849
12850 if (SWIG_GetArgs(interp, objc, objv,":new_tinaConic ") == TCL_ERROR) SWIG_fail;
12851 result = (Conic *)(Conic *) calloc(1, sizeof(Conic));
12852
12853 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Conic,0));
12854 return TCL_OK;
12855 fail:
12856 return TCL_ERROR;
12857 }
12858
12859
12860 static int
12861 _wrap_delete_tinaConic(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12862 Conic *arg1 = (Conic *) 0 ;
12863
12864 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaConic self ",0) == TCL_ERROR) SWIG_fail;
12865 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12866 free((char *) arg1);
12867
12868
12869 return TCL_OK;
12870 fail:
12871 return TCL_ERROR;
12872 }
12873
12874
12875 static void swig_delete_tinaConic(void *obj) {
12876 Conic *arg1 = (Conic *) obj;
12877 free((char *) arg1);
12878 }
12879 static swig_method swig_Conic_methods[] = {
12880 {0,0}
12881 };
12882 static swig_attribute swig_Conic_attributes[] = {
12883 { "-tinaTsId",_wrap_tinaConic_tinaTsId_get, _wrap_tinaConic_tinaTsId_set},
12884 { "-type",_wrap_tinaConic_type_get, _wrap_tinaConic_type_set},
12885 { "-label",_wrap_tinaConic_label_get, _wrap_tinaConic_label_set},
12886 { "-filler1",_wrap_tinaConic_filler1_get, _wrap_tinaConic_filler1_set},
12887 { "-a",_wrap_tinaConic_a_get, _wrap_tinaConic_a_set},
12888 { "-b",_wrap_tinaConic_b_get, _wrap_tinaConic_b_set},
12889 { "-c",_wrap_tinaConic_c_get, _wrap_tinaConic_c_set},
12890 { "-d",_wrap_tinaConic_d_get, _wrap_tinaConic_d_set},
12891 { "-e",_wrap_tinaConic_e_get, _wrap_tinaConic_e_set},
12892 { "-f",_wrap_tinaConic_f_get, _wrap_tinaConic_f_set},
12893 { "-theta",_wrap_tinaConic_theta_get, _wrap_tinaConic_theta_set},
12894 { "-alpha",_wrap_tinaConic_alpha_get, _wrap_tinaConic_alpha_set},
12895 { "-beta",_wrap_tinaConic_beta_get, _wrap_tinaConic_beta_set},
12896 { "-center",_wrap_tinaConic_center_get, _wrap_tinaConic_center_set},
12897 { "-filler2",_wrap_tinaConic_filler2_get, _wrap_tinaConic_filler2_set},
12898 { "-t1",_wrap_tinaConic_t1_get, _wrap_tinaConic_t1_set},
12899 { "-t2",_wrap_tinaConic_t2_get, _wrap_tinaConic_t2_set},
12900 { "-branch",_wrap_tinaConic_branch_get, _wrap_tinaConic_branch_set},
12901 { "-props",_wrap_tinaConic_props_get, _wrap_tinaConic_props_set},
12902 {0,0,0}
12903 };
12904 static swig_class *swig_Conic_bases[] = {0};
12905 swig_class _wrap_class_Conic = { "tinaConic", &SWIGTYPE_p_Conic,_wrap_new_tinaConic, swig_delete_tinaConic, swig_Conic_methods, swig_Conic_attributes, swig_Conic_bases };
12906 static int
12907 _wrap_tinaConic3_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12908 Conic3 *arg1 = (Conic3 *) 0 ;
12909 int arg2 ;
12910
12911 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaConic3_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
12912 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12913 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
12914
12915
12916 return TCL_OK;
12917 fail:
12918 return TCL_ERROR;
12919 }
12920
12921
12922 static int
12923 _wrap_tinaConic3_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12924 Conic3 *arg1 = (Conic3 *) 0 ;
12925 int result;
12926
12927 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConic3_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
12928 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12929 result = (int) ((arg1)->ts_id);
12930
12931 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
12932 return TCL_OK;
12933 fail:
12934 return TCL_ERROR;
12935 }
12936
12937
12938 static int
12939 _wrap_tinaConic3_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12940 Conic3 *arg1 = (Conic3 *) 0 ;
12941 int arg2 ;
12942
12943 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaConic3_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
12944 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12945 if (arg1) (arg1)->type = arg2;
12946
12947
12948 return TCL_OK;
12949 fail:
12950 return TCL_ERROR;
12951 }
12952
12953
12954 static int
12955 _wrap_tinaConic3_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12956 Conic3 *arg1 = (Conic3 *) 0 ;
12957 int result;
12958
12959 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConic3_type_get self ",0) == TCL_ERROR) SWIG_fail;
12960 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12961 result = (int) ((arg1)->type);
12962
12963 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
12964 return TCL_OK;
12965 fail:
12966 return TCL_ERROR;
12967 }
12968
12969
12970 static int
12971 _wrap_tinaConic3_tinaConic_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12972 Conic3 *arg1 = (Conic3 *) 0 ;
12973 struct conic *arg2 = (struct conic *) 0 ;
12974
12975 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaConic3_tinaConic_set self conic ",0,0) == TCL_ERROR) SWIG_fail;
12976 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12977 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_conic,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
12978 if (arg1) (arg1)->conic = arg2;
12979
12980
12981 return TCL_OK;
12982 fail:
12983 return TCL_ERROR;
12984 }
12985
12986
12987 static int
12988 _wrap_tinaConic3_tinaConic_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
12989 Conic3 *arg1 = (Conic3 *) 0 ;
12990 struct conic *result;
12991
12992 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConic3_tinaConic_get self ",0) == TCL_ERROR) SWIG_fail;
12993 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
12994 result = (struct conic *) ((arg1)->conic);
12995
12996 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_conic,0));
12997 return TCL_OK;
12998 fail:
12999 return TCL_ERROR;
13000 }
13001
13002
13003 static int
13004 _wrap_tinaConic3_origin_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13005 Conic3 *arg1 = (Conic3 *) 0 ;
13006 struct vec3 *arg2 = (struct vec3 *) 0 ;
13007
13008 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaConic3_origin_set self origin ",0,0) == TCL_ERROR) SWIG_fail;
13009 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13010 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_vec3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13011 if (arg1) (arg1)->origin = *arg2;
13012
13013
13014 return TCL_OK;
13015 fail:
13016 return TCL_ERROR;
13017 }
13018
13019
13020 static int
13021 _wrap_tinaConic3_origin_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13022 Conic3 *arg1 = (Conic3 *) 0 ;
13023 struct vec3 *result;
13024
13025 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConic3_origin_get self ",0) == TCL_ERROR) SWIG_fail;
13026 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13027 result = (struct vec3 *)& ((arg1)->origin);
13028
13029 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_vec3,0));
13030 return TCL_OK;
13031 fail:
13032 return TCL_ERROR;
13033 }
13034
13035
13036 static int
13037 _wrap_tinaConic3_ex_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13038 Conic3 *arg1 = (Conic3 *) 0 ;
13039 struct vec3 *arg2 = (struct vec3 *) 0 ;
13040
13041 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaConic3_ex_set self ex ",0,0) == TCL_ERROR) SWIG_fail;
13042 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13043 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_vec3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13044 if (arg1) (arg1)->ex = *arg2;
13045
13046
13047 return TCL_OK;
13048 fail:
13049 return TCL_ERROR;
13050 }
13051
13052
13053 static int
13054 _wrap_tinaConic3_ex_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13055 Conic3 *arg1 = (Conic3 *) 0 ;
13056 struct vec3 *result;
13057
13058 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConic3_ex_get self ",0) == TCL_ERROR) SWIG_fail;
13059 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13060 result = (struct vec3 *)& ((arg1)->ex);
13061
13062 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_vec3,0));
13063 return TCL_OK;
13064 fail:
13065 return TCL_ERROR;
13066 }
13067
13068
13069 static int
13070 _wrap_tinaConic3_ey_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13071 Conic3 *arg1 = (Conic3 *) 0 ;
13072 struct vec3 *arg2 = (struct vec3 *) 0 ;
13073
13074 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaConic3_ey_set self ey ",0,0) == TCL_ERROR) SWIG_fail;
13075 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13076 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_vec3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13077 if (arg1) (arg1)->ey = *arg2;
13078
13079
13080 return TCL_OK;
13081 fail:
13082 return TCL_ERROR;
13083 }
13084
13085
13086 static int
13087 _wrap_tinaConic3_ey_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13088 Conic3 *arg1 = (Conic3 *) 0 ;
13089 struct vec3 *result;
13090
13091 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConic3_ey_get self ",0) == TCL_ERROR) SWIG_fail;
13092 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13093 result = (struct vec3 *)& ((arg1)->ey);
13094
13095 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_vec3,0));
13096 return TCL_OK;
13097 fail:
13098 return TCL_ERROR;
13099 }
13100
13101
13102 static int
13103 _wrap_tinaConic3_ez_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13104 Conic3 *arg1 = (Conic3 *) 0 ;
13105 struct vec3 *arg2 = (struct vec3 *) 0 ;
13106
13107 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaConic3_ez_set self ez ",0,0) == TCL_ERROR) SWIG_fail;
13108 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13109 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_vec3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13110 if (arg1) (arg1)->ez = *arg2;
13111
13112
13113 return TCL_OK;
13114 fail:
13115 return TCL_ERROR;
13116 }
13117
13118
13119 static int
13120 _wrap_tinaConic3_ez_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13121 Conic3 *arg1 = (Conic3 *) 0 ;
13122 struct vec3 *result;
13123
13124 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConic3_ez_get self ",0) == TCL_ERROR) SWIG_fail;
13125 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13126 result = (struct vec3 *)& ((arg1)->ez);
13127
13128 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_vec3,0));
13129 return TCL_OK;
13130 fail:
13131 return TCL_ERROR;
13132 }
13133
13134
13135 static int
13136 _wrap_new_tinaConic3(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13137 Conic3 *result;
13138
13139 if (SWIG_GetArgs(interp, objc, objv,":new_tinaConic3 ") == TCL_ERROR) SWIG_fail;
13140 result = (Conic3 *)(Conic3 *) calloc(1, sizeof(Conic3));
13141
13142 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Conic3,0));
13143 return TCL_OK;
13144 fail:
13145 return TCL_ERROR;
13146 }
13147
13148
13149 static int
13150 _wrap_delete_tinaConic3(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13151 Conic3 *arg1 = (Conic3 *) 0 ;
13152
13153 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaConic3 self ",0) == TCL_ERROR) SWIG_fail;
13154 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13155 free((char *) arg1);
13156
13157
13158 return TCL_OK;
13159 fail:
13160 return TCL_ERROR;
13161 }
13162
13163
13164 static void swig_delete_tinaConic3(void *obj) {
13165 Conic3 *arg1 = (Conic3 *) obj;
13166 free((char *) arg1);
13167 }
13168 static swig_method swig_Conic3_methods[] = {
13169 {0,0}
13170 };
13171 static swig_attribute swig_Conic3_attributes[] = {
13172 { "-tinaTsId",_wrap_tinaConic3_tinaTsId_get, _wrap_tinaConic3_tinaTsId_set},
13173 { "-type",_wrap_tinaConic3_type_get, _wrap_tinaConic3_type_set},
13174 { "-tinaConic",_wrap_tinaConic3_tinaConic_get, _wrap_tinaConic3_tinaConic_set},
13175 { "-origin",_wrap_tinaConic3_origin_get, _wrap_tinaConic3_origin_set},
13176 { "-ex",_wrap_tinaConic3_ex_get, _wrap_tinaConic3_ex_set},
13177 { "-ey",_wrap_tinaConic3_ey_get, _wrap_tinaConic3_ey_set},
13178 { "-ez",_wrap_tinaConic3_ez_get, _wrap_tinaConic3_ez_set},
13179 {0,0,0}
13180 };
13181 static swig_class *swig_Conic3_bases[] = {0};
13182 swig_class _wrap_class_Conic3 = { "tinaConic3", &SWIGTYPE_p_Conic3,_wrap_new_tinaConic3, swig_delete_tinaConic3, swig_Conic3_methods, swig_Conic3_attributes, swig_Conic3_bases };
13183 static int
13184 _wrap_tinaCone_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13185 Cone *arg1 = (Cone *) 0 ;
13186 int arg2 ;
13187
13188 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaCone_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
13189 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Cone,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13190 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
13191
13192
13193 return TCL_OK;
13194 fail:
13195 return TCL_ERROR;
13196 }
13197
13198
13199 static int
13200 _wrap_tinaCone_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13201 Cone *arg1 = (Cone *) 0 ;
13202 int result;
13203
13204 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCone_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
13205 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Cone,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13206 result = (int) ((arg1)->ts_id);
13207
13208 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
13209 return TCL_OK;
13210 fail:
13211 return TCL_ERROR;
13212 }
13213
13214
13215 static int
13216 _wrap_tinaCone_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13217 Cone *arg1 = (Cone *) 0 ;
13218 unsigned int arg2 ;
13219
13220 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaCone_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
13221 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Cone,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13222 if (arg1) (arg1)->type = arg2;
13223
13224
13225 return TCL_OK;
13226 fail:
13227 return TCL_ERROR;
13228 }
13229
13230
13231 static int
13232 _wrap_tinaCone_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13233 Cone *arg1 = (Cone *) 0 ;
13234 unsigned int result;
13235
13236 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCone_type_get self ",0) == TCL_ERROR) SWIG_fail;
13237 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Cone,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13238 result = (unsigned int) ((arg1)->type);
13239
13240 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
13241 return TCL_OK;
13242 fail:
13243 return TCL_ERROR;
13244 }
13245
13246
13247 static int
13248 _wrap_tinaCone_label_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13249 Cone *arg1 = (Cone *) 0 ;
13250 unsigned int arg2 ;
13251
13252 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaCone_label_set self label ",0,&arg2) == TCL_ERROR) SWIG_fail;
13253 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Cone,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13254 if (arg1) (arg1)->label = arg2;
13255
13256
13257 return TCL_OK;
13258 fail:
13259 return TCL_ERROR;
13260 }
13261
13262
13263 static int
13264 _wrap_tinaCone_label_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13265 Cone *arg1 = (Cone *) 0 ;
13266 unsigned int result;
13267
13268 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCone_label_get self ",0) == TCL_ERROR) SWIG_fail;
13269 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Cone,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13270 result = (unsigned int) ((arg1)->label);
13271
13272 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
13273 return TCL_OK;
13274 fail:
13275 return TCL_ERROR;
13276 }
13277
13278
13279 static int
13280 _wrap_tinaCone_c1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13281 Cone *arg1 = (Cone *) 0 ;
13282 struct conic3 *arg2 = (struct conic3 *) 0 ;
13283
13284 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaCone_c1_set self c1 ",0,0) == TCL_ERROR) SWIG_fail;
13285 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Cone,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13286 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_conic3,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
13287 if (arg1) (arg1)->c1 = arg2;
13288
13289
13290 return TCL_OK;
13291 fail:
13292 return TCL_ERROR;
13293 }
13294
13295
13296 static int
13297 _wrap_tinaCone_c1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13298 Cone *arg1 = (Cone *) 0 ;
13299 struct conic3 *result;
13300
13301 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCone_c1_get self ",0) == TCL_ERROR) SWIG_fail;
13302 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Cone,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13303 result = (struct conic3 *) ((arg1)->c1);
13304
13305 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_conic3,0));
13306 return TCL_OK;
13307 fail:
13308 return TCL_ERROR;
13309 }
13310
13311
13312 static int
13313 _wrap_tinaCone_c2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13314 Cone *arg1 = (Cone *) 0 ;
13315 struct conic3 *arg2 = (struct conic3 *) 0 ;
13316
13317 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaCone_c2_set self c2 ",0,0) == TCL_ERROR) SWIG_fail;
13318 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Cone,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13319 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_conic3,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
13320 if (arg1) (arg1)->c2 = arg2;
13321
13322
13323 return TCL_OK;
13324 fail:
13325 return TCL_ERROR;
13326 }
13327
13328
13329 static int
13330 _wrap_tinaCone_c2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13331 Cone *arg1 = (Cone *) 0 ;
13332 struct conic3 *result;
13333
13334 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCone_c2_get self ",0) == TCL_ERROR) SWIG_fail;
13335 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Cone,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13336 result = (struct conic3 *) ((arg1)->c2);
13337
13338 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_conic3,0));
13339 return TCL_OK;
13340 fail:
13341 return TCL_ERROR;
13342 }
13343
13344
13345 static int
13346 _wrap_tinaCone_filler_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13347 Cone *arg1 = (Cone *) 0 ;
13348 int arg2 ;
13349
13350 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaCone_filler_set self filler ",0,&arg2) == TCL_ERROR) SWIG_fail;
13351 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Cone,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13352 if (arg1) (arg1)->filler = arg2;
13353
13354
13355 return TCL_OK;
13356 fail:
13357 return TCL_ERROR;
13358 }
13359
13360
13361 static int
13362 _wrap_tinaCone_filler_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13363 Cone *arg1 = (Cone *) 0 ;
13364 int result;
13365
13366 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCone_filler_get self ",0) == TCL_ERROR) SWIG_fail;
13367 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Cone,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13368 result = (int) ((arg1)->filler);
13369
13370 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
13371 return TCL_OK;
13372 fail:
13373 return TCL_ERROR;
13374 }
13375
13376
13377 static int
13378 _wrap_tinaCone_offset_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13379 Cone *arg1 = (Cone *) 0 ;
13380 double arg2 ;
13381
13382 if (SWIG_GetArgs(interp, objc, objv,"od:tinaCone_offset_set self offset ",0,&arg2) == TCL_ERROR) SWIG_fail;
13383 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Cone,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13384 if (arg1) (arg1)->offset = arg2;
13385
13386
13387 return TCL_OK;
13388 fail:
13389 return TCL_ERROR;
13390 }
13391
13392
13393 static int
13394 _wrap_tinaCone_offset_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13395 Cone *arg1 = (Cone *) 0 ;
13396 double result;
13397
13398 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCone_offset_get self ",0) == TCL_ERROR) SWIG_fail;
13399 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Cone,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13400 result = (double) ((arg1)->offset);
13401
13402 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
13403 return TCL_OK;
13404 fail:
13405 return TCL_ERROR;
13406 }
13407
13408
13409 static int
13410 _wrap_tinaCone_props_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13411 Cone *arg1 = (Cone *) 0 ;
13412 struct list *arg2 = (struct list *) 0 ;
13413
13414 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaCone_props_set self props ",0,0) == TCL_ERROR) SWIG_fail;
13415 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Cone,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13416 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_list,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
13417 if (arg1) (arg1)->props = arg2;
13418
13419
13420 return TCL_OK;
13421 fail:
13422 return TCL_ERROR;
13423 }
13424
13425
13426 static int
13427 _wrap_tinaCone_props_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13428 Cone *arg1 = (Cone *) 0 ;
13429 struct list *result;
13430
13431 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCone_props_get self ",0) == TCL_ERROR) SWIG_fail;
13432 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Cone,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13433 result = (struct list *) ((arg1)->props);
13434
13435 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_list,0));
13436 return TCL_OK;
13437 fail:
13438 return TCL_ERROR;
13439 }
13440
13441
13442 static int
13443 _wrap_new_tinaCone(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13444 Cone *result;
13445
13446 if (SWIG_GetArgs(interp, objc, objv,":new_tinaCone ") == TCL_ERROR) SWIG_fail;
13447 result = (Cone *)(Cone *) calloc(1, sizeof(Cone));
13448
13449 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Cone,0));
13450 return TCL_OK;
13451 fail:
13452 return TCL_ERROR;
13453 }
13454
13455
13456 static int
13457 _wrap_delete_tinaCone(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13458 Cone *arg1 = (Cone *) 0 ;
13459
13460 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaCone self ",0) == TCL_ERROR) SWIG_fail;
13461 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Cone,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13462 free((char *) arg1);
13463
13464
13465 return TCL_OK;
13466 fail:
13467 return TCL_ERROR;
13468 }
13469
13470
13471 static void swig_delete_tinaCone(void *obj) {
13472 Cone *arg1 = (Cone *) obj;
13473 free((char *) arg1);
13474 }
13475 static swig_method swig_Cone_methods[] = {
13476 {0,0}
13477 };
13478 static swig_attribute swig_Cone_attributes[] = {
13479 { "-tinaTsId",_wrap_tinaCone_tinaTsId_get, _wrap_tinaCone_tinaTsId_set},
13480 { "-type",_wrap_tinaCone_type_get, _wrap_tinaCone_type_set},
13481 { "-label",_wrap_tinaCone_label_get, _wrap_tinaCone_label_set},
13482 { "-c1",_wrap_tinaCone_c1_get, _wrap_tinaCone_c1_set},
13483 { "-c2",_wrap_tinaCone_c2_get, _wrap_tinaCone_c2_set},
13484 { "-filler",_wrap_tinaCone_filler_get, _wrap_tinaCone_filler_set},
13485 { "-offset",_wrap_tinaCone_offset_get, _wrap_tinaCone_offset_set},
13486 { "-props",_wrap_tinaCone_props_get, _wrap_tinaCone_props_set},
13487 {0,0,0}
13488 };
13489 static swig_class *swig_Cone_bases[] = {0};
13490 swig_class _wrap_class_Cone = { "tinaCone", &SWIGTYPE_p_Cone,_wrap_new_tinaCone, swig_delete_tinaCone, swig_Cone_methods, swig_Cone_attributes, swig_Cone_bases };
13491 static int
13492 _wrap_tinaConicStat_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13493 Conic_stat *arg1 = (Conic_stat *) 0 ;
13494 int arg2 ;
13495
13496 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaConicStat_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
13497 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic_stat,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13498 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
13499
13500
13501 return TCL_OK;
13502 fail:
13503 return TCL_ERROR;
13504 }
13505
13506
13507 static int
13508 _wrap_tinaConicStat_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13509 Conic_stat *arg1 = (Conic_stat *) 0 ;
13510 int result;
13511
13512 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConicStat_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
13513 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic_stat,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13514 result = (int) ((arg1)->ts_id);
13515
13516 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
13517 return TCL_OK;
13518 fail:
13519 return TCL_ERROR;
13520 }
13521
13522
13523 static int
13524 _wrap_tinaConicStat_filler_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13525 Conic_stat *arg1 = (Conic_stat *) 0 ;
13526 int arg2 ;
13527
13528 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaConicStat_filler_set self filler ",0,&arg2) == TCL_ERROR) SWIG_fail;
13529 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic_stat,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13530 if (arg1) (arg1)->filler = arg2;
13531
13532
13533 return TCL_OK;
13534 fail:
13535 return TCL_ERROR;
13536 }
13537
13538
13539 static int
13540 _wrap_tinaConicStat_filler_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13541 Conic_stat *arg1 = (Conic_stat *) 0 ;
13542 int result;
13543
13544 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConicStat_filler_get self ",0) == TCL_ERROR) SWIG_fail;
13545 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic_stat,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13546 result = (int) ((arg1)->filler);
13547
13548 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
13549 return TCL_OK;
13550 fail:
13551 return TCL_ERROR;
13552 }
13553
13554
13555 static int
13556 _wrap_tinaConicStat_x_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13557 Conic_stat *arg1 = (Conic_stat *) 0 ;
13558 double *arg2 ;
13559
13560 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaConicStat_x_set self x ",0,0) == TCL_ERROR) SWIG_fail;
13561 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic_stat,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13562 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_double,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13563 {
13564 int ii;
13565 double *b = (double *) arg1->x;
13566 for (ii = 0; ii < 5; ii++) b[ii] = *((double *) arg2 + ii);
13567 }
13568
13569 return TCL_OK;
13570 fail:
13571 return TCL_ERROR;
13572 }
13573
13574
13575 static int
13576 _wrap_tinaConicStat_x_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13577 Conic_stat *arg1 = (Conic_stat *) 0 ;
13578 double *result;
13579
13580 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConicStat_x_get self ",0) == TCL_ERROR) SWIG_fail;
13581 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic_stat,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13582 result = (double *)(double *) ((arg1)->x);
13583
13584 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_double,0));
13585 return TCL_OK;
13586 fail:
13587 return TCL_ERROR;
13588 }
13589
13590
13591 static int
13592 _wrap_tinaConicStat_d_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13593 Conic_stat *arg1 = (Conic_stat *) 0 ;
13594 double *arg2 ;
13595
13596 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaConicStat_d_set self d ",0,0) == TCL_ERROR) SWIG_fail;
13597 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic_stat,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13598 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_double,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13599 {
13600 int ii;
13601 double *b = (double *) arg1->d;
13602 for (ii = 0; ii < 5; ii++) b[ii] = *((double *) arg2 + ii);
13603 }
13604
13605 return TCL_OK;
13606 fail:
13607 return TCL_ERROR;
13608 }
13609
13610
13611 static int
13612 _wrap_tinaConicStat_d_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13613 Conic_stat *arg1 = (Conic_stat *) 0 ;
13614 double *result;
13615
13616 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConicStat_d_get self ",0) == TCL_ERROR) SWIG_fail;
13617 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic_stat,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13618 result = (double *)(double *) ((arg1)->d);
13619
13620 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_double,0));
13621 return TCL_OK;
13622 fail:
13623 return TCL_ERROR;
13624 }
13625
13626
13627 static int
13628 _wrap_tinaConicStat_u_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13629 Conic_stat *arg1 = (Conic_stat *) 0 ;
13630 double (*arg2)[5] ;
13631
13632 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaConicStat_u_set self u ",0,0) == TCL_ERROR) SWIG_fail;
13633 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic_stat,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13634 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_a_5__double,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13635 {
13636 int ii;
13637 double *b = (double *) arg1->u;
13638 for (ii = 0; ii < 5*5; ii++) b[ii] = *((double *) arg2 + ii);
13639 }
13640
13641 return TCL_OK;
13642 fail:
13643 return TCL_ERROR;
13644 }
13645
13646
13647 static int
13648 _wrap_tinaConicStat_u_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13649 Conic_stat *arg1 = (Conic_stat *) 0 ;
13650 double (*result)[5];
13651
13652 if (SWIG_GetArgs(interp, objc, objv,"o:tinaConicStat_u_get self ",0) == TCL_ERROR) SWIG_fail;
13653 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic_stat,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13654 result = (double (*)[5])(double (*)[5]) ((arg1)->u);
13655
13656 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_a_5__double,0));
13657 return TCL_OK;
13658 fail:
13659 return TCL_ERROR;
13660 }
13661
13662
13663 static int
13664 _wrap_new_tinaConicStat(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13665 Conic_stat *result;
13666
13667 if (SWIG_GetArgs(interp, objc, objv,":new_tinaConicStat ") == TCL_ERROR) SWIG_fail;
13668 result = (Conic_stat *)(Conic_stat *) calloc(1, sizeof(Conic_stat));
13669
13670 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Conic_stat,0));
13671 return TCL_OK;
13672 fail:
13673 return TCL_ERROR;
13674 }
13675
13676
13677 static int
13678 _wrap_delete_tinaConicStat(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13679 Conic_stat *arg1 = (Conic_stat *) 0 ;
13680
13681 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaConicStat self ",0) == TCL_ERROR) SWIG_fail;
13682 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Conic_stat,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13683 free((char *) arg1);
13684
13685
13686 return TCL_OK;
13687 fail:
13688 return TCL_ERROR;
13689 }
13690
13691
13692 static void swig_delete_tinaConicStat(void *obj) {
13693 Conic_stat *arg1 = (Conic_stat *) obj;
13694 free((char *) arg1);
13695 }
13696 static swig_method swig_Conic_stat_methods[] = {
13697 {0,0}
13698 };
13699 static swig_attribute swig_Conic_stat_attributes[] = {
13700 { "-tinaTsId",_wrap_tinaConicStat_tinaTsId_get, _wrap_tinaConicStat_tinaTsId_set},
13701 { "-filler",_wrap_tinaConicStat_filler_get, _wrap_tinaConicStat_filler_set},
13702 { "-x",_wrap_tinaConicStat_x_get, _wrap_tinaConicStat_x_set},
13703 { "-d",_wrap_tinaConicStat_d_get, _wrap_tinaConicStat_d_set},
13704 { "-u",_wrap_tinaConicStat_u_get, _wrap_tinaConicStat_u_set},
13705 {0,0,0}
13706 };
13707 static swig_class *swig_Conic_stat_bases[] = {0};
13708 swig_class _wrap_class_Conic_stat = { "tinaConicStat", &SWIGTYPE_p_Conic_stat,_wrap_new_tinaConicStat, swig_delete_tinaConicStat, swig_Conic_stat_methods, swig_Conic_stat_attributes, swig_Conic_stat_bases };
13709 static int
13710 _wrap_tinaCirc2_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13711 Circ2 *arg1 = (Circ2 *) 0 ;
13712 int arg2 ;
13713
13714 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaCirc2_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
13715 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Circ2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13716 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
13717
13718
13719 return TCL_OK;
13720 fail:
13721 return TCL_ERROR;
13722 }
13723
13724
13725 static int
13726 _wrap_tinaCirc2_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13727 Circ2 *arg1 = (Circ2 *) 0 ;
13728 int result;
13729
13730 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCirc2_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
13731 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Circ2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13732 result = (int) ((arg1)->ts_id);
13733
13734 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
13735 return TCL_OK;
13736 fail:
13737 return TCL_ERROR;
13738 }
13739
13740
13741 static int
13742 _wrap_tinaCirc2_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13743 Circ2 *arg1 = (Circ2 *) 0 ;
13744 unsigned int arg2 ;
13745
13746 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaCirc2_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
13747 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Circ2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13748 if (arg1) (arg1)->type = arg2;
13749
13750
13751 return TCL_OK;
13752 fail:
13753 return TCL_ERROR;
13754 }
13755
13756
13757 static int
13758 _wrap_tinaCirc2_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13759 Circ2 *arg1 = (Circ2 *) 0 ;
13760 unsigned int result;
13761
13762 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCirc2_type_get self ",0) == TCL_ERROR) SWIG_fail;
13763 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Circ2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13764 result = (unsigned int) ((arg1)->type);
13765
13766 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
13767 return TCL_OK;
13768 fail:
13769 return TCL_ERROR;
13770 }
13771
13772
13773 static int
13774 _wrap_tinaCirc2_label_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13775 Circ2 *arg1 = (Circ2 *) 0 ;
13776 unsigned int arg2 ;
13777
13778 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaCirc2_label_set self label ",0,&arg2) == TCL_ERROR) SWIG_fail;
13779 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Circ2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13780 if (arg1) (arg1)->label = arg2;
13781
13782
13783 return TCL_OK;
13784 fail:
13785 return TCL_ERROR;
13786 }
13787
13788
13789 static int
13790 _wrap_tinaCirc2_label_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13791 Circ2 *arg1 = (Circ2 *) 0 ;
13792 unsigned int result;
13793
13794 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCirc2_label_get self ",0) == TCL_ERROR) SWIG_fail;
13795 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Circ2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13796 result = (unsigned int) ((arg1)->label);
13797
13798 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
13799 return TCL_OK;
13800 fail:
13801 return TCL_ERROR;
13802 }
13803
13804
13805 static int
13806 _wrap_tinaCirc2_filler1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13807 Circ2 *arg1 = (Circ2 *) 0 ;
13808 int arg2 ;
13809
13810 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaCirc2_filler1_set self filler1 ",0,&arg2) == TCL_ERROR) SWIG_fail;
13811 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Circ2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13812 if (arg1) (arg1)->filler1 = arg2;
13813
13814
13815 return TCL_OK;
13816 fail:
13817 return TCL_ERROR;
13818 }
13819
13820
13821 static int
13822 _wrap_tinaCirc2_filler1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13823 Circ2 *arg1 = (Circ2 *) 0 ;
13824 int result;
13825
13826 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCirc2_filler1_get self ",0) == TCL_ERROR) SWIG_fail;
13827 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Circ2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13828 result = (int) ((arg1)->filler1);
13829
13830 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
13831 return TCL_OK;
13832 fail:
13833 return TCL_ERROR;
13834 }
13835
13836
13837 static int
13838 _wrap_tinaCirc2_r_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13839 Circ2 *arg1 = (Circ2 *) 0 ;
13840 double arg2 ;
13841
13842 if (SWIG_GetArgs(interp, objc, objv,"od:tinaCirc2_r_set self r ",0,&arg2) == TCL_ERROR) SWIG_fail;
13843 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Circ2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13844 if (arg1) (arg1)->r = arg2;
13845
13846
13847 return TCL_OK;
13848 fail:
13849 return TCL_ERROR;
13850 }
13851
13852
13853 static int
13854 _wrap_tinaCirc2_r_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13855 Circ2 *arg1 = (Circ2 *) 0 ;
13856 double result;
13857
13858 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCirc2_r_get self ",0) == TCL_ERROR) SWIG_fail;
13859 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Circ2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13860 result = (double) ((arg1)->r);
13861
13862 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
13863 return TCL_OK;
13864 fail:
13865 return TCL_ERROR;
13866 }
13867
13868
13869 static int
13870 _wrap_tinaCirc2_center_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13871 Circ2 *arg1 = (Circ2 *) 0 ;
13872 struct vec2 *arg2 = (struct vec2 *) 0 ;
13873
13874 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaCirc2_center_set self center ",0,0) == TCL_ERROR) SWIG_fail;
13875 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Circ2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13876 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_vec2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13877 if (arg1) (arg1)->center = *arg2;
13878
13879
13880 return TCL_OK;
13881 fail:
13882 return TCL_ERROR;
13883 }
13884
13885
13886 static int
13887 _wrap_tinaCirc2_center_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13888 Circ2 *arg1 = (Circ2 *) 0 ;
13889 struct vec2 *result;
13890
13891 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCirc2_center_get self ",0) == TCL_ERROR) SWIG_fail;
13892 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Circ2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13893 result = (struct vec2 *)& ((arg1)->center);
13894
13895 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_vec2,0));
13896 return TCL_OK;
13897 fail:
13898 return TCL_ERROR;
13899 }
13900
13901
13902 static int
13903 _wrap_tinaCirc2_p1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13904 Circ2 *arg1 = (Circ2 *) 0 ;
13905 struct vec2 *arg2 = (struct vec2 *) 0 ;
13906
13907 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaCirc2_p1_set self p1 ",0,0) == TCL_ERROR) SWIG_fail;
13908 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Circ2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13909 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_vec2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13910 if (arg1) (arg1)->p1 = *arg2;
13911
13912
13913 return TCL_OK;
13914 fail:
13915 return TCL_ERROR;
13916 }
13917
13918
13919 static int
13920 _wrap_tinaCirc2_p1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13921 Circ2 *arg1 = (Circ2 *) 0 ;
13922 struct vec2 *result;
13923
13924 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCirc2_p1_get self ",0) == TCL_ERROR) SWIG_fail;
13925 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Circ2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13926 result = (struct vec2 *)& ((arg1)->p1);
13927
13928 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_vec2,0));
13929 return TCL_OK;
13930 fail:
13931 return TCL_ERROR;
13932 }
13933
13934
13935 static int
13936 _wrap_tinaCirc2_p2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13937 Circ2 *arg1 = (Circ2 *) 0 ;
13938 struct vec2 *arg2 = (struct vec2 *) 0 ;
13939
13940 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaCirc2_p2_set self p2 ",0,0) == TCL_ERROR) SWIG_fail;
13941 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Circ2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13942 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_vec2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13943 if (arg1) (arg1)->p2 = *arg2;
13944
13945
13946 return TCL_OK;
13947 fail:
13948 return TCL_ERROR;
13949 }
13950
13951
13952 static int
13953 _wrap_tinaCirc2_p2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13954 Circ2 *arg1 = (Circ2 *) 0 ;
13955 struct vec2 *result;
13956
13957 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCirc2_p2_get self ",0) == TCL_ERROR) SWIG_fail;
13958 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Circ2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13959 result = (struct vec2 *)& ((arg1)->p2);
13960
13961 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_vec2,0));
13962 return TCL_OK;
13963 fail:
13964 return TCL_ERROR;
13965 }
13966
13967
13968 static int
13969 _wrap_tinaCirc2_filler2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13970 Circ2 *arg1 = (Circ2 *) 0 ;
13971 int arg2 ;
13972
13973 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaCirc2_filler2_set self filler2 ",0,&arg2) == TCL_ERROR) SWIG_fail;
13974 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Circ2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13975 if (arg1) (arg1)->filler2 = arg2;
13976
13977
13978 return TCL_OK;
13979 fail:
13980 return TCL_ERROR;
13981 }
13982
13983
13984 static int
13985 _wrap_tinaCirc2_filler2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
13986 Circ2 *arg1 = (Circ2 *) 0 ;
13987 int result;
13988
13989 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCirc2_filler2_get self ",0) == TCL_ERROR) SWIG_fail;
13990 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Circ2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
13991 result = (int) ((arg1)->filler2);
13992
13993 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
13994 return TCL_OK;
13995 fail:
13996 return TCL_ERROR;
13997 }
13998
13999
14000 static int
14001 _wrap_tinaCirc2_t1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14002 Circ2 *arg1 = (Circ2 *) 0 ;
14003 double arg2 ;
14004
14005 if (SWIG_GetArgs(interp, objc, objv,"od:tinaCirc2_t1_set self t1 ",0,&arg2) == TCL_ERROR) SWIG_fail;
14006 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Circ2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14007 if (arg1) (arg1)->t1 = arg2;
14008
14009
14010 return TCL_OK;
14011 fail:
14012 return TCL_ERROR;
14013 }
14014
14015
14016 static int
14017 _wrap_tinaCirc2_t1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14018 Circ2 *arg1 = (Circ2 *) 0 ;
14019 double result;
14020
14021 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCirc2_t1_get self ",0) == TCL_ERROR) SWIG_fail;
14022 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Circ2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14023 result = (double) ((arg1)->t1);
14024
14025 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
14026 return TCL_OK;
14027 fail:
14028 return TCL_ERROR;
14029 }
14030
14031
14032 static int
14033 _wrap_tinaCirc2_t2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14034 Circ2 *arg1 = (Circ2 *) 0 ;
14035 double arg2 ;
14036
14037 if (SWIG_GetArgs(interp, objc, objv,"od:tinaCirc2_t2_set self t2 ",0,&arg2) == TCL_ERROR) SWIG_fail;
14038 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Circ2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14039 if (arg1) (arg1)->t2 = arg2;
14040
14041
14042 return TCL_OK;
14043 fail:
14044 return TCL_ERROR;
14045 }
14046
14047
14048 static int
14049 _wrap_tinaCirc2_t2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14050 Circ2 *arg1 = (Circ2 *) 0 ;
14051 double result;
14052
14053 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCirc2_t2_get self ",0) == TCL_ERROR) SWIG_fail;
14054 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Circ2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14055 result = (double) ((arg1)->t2);
14056
14057 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
14058 return TCL_OK;
14059 fail:
14060 return TCL_ERROR;
14061 }
14062
14063
14064 static int
14065 _wrap_tinaCirc2_length_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14066 Circ2 *arg1 = (Circ2 *) 0 ;
14067 double arg2 ;
14068
14069 if (SWIG_GetArgs(interp, objc, objv,"od:tinaCirc2_length_set self length ",0,&arg2) == TCL_ERROR) SWIG_fail;
14070 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Circ2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14071 if (arg1) (arg1)->length = arg2;
14072
14073
14074 return TCL_OK;
14075 fail:
14076 return TCL_ERROR;
14077 }
14078
14079
14080 static int
14081 _wrap_tinaCirc2_length_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14082 Circ2 *arg1 = (Circ2 *) 0 ;
14083 double result;
14084
14085 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCirc2_length_get self ",0) == TCL_ERROR) SWIG_fail;
14086 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Circ2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14087 result = (double) ((arg1)->length);
14088
14089 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
14090 return TCL_OK;
14091 fail:
14092 return TCL_ERROR;
14093 }
14094
14095
14096 static int
14097 _wrap_tinaCirc2_props_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14098 Circ2 *arg1 = (Circ2 *) 0 ;
14099 struct list *arg2 = (struct list *) 0 ;
14100
14101 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaCirc2_props_set self props ",0,0) == TCL_ERROR) SWIG_fail;
14102 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Circ2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14103 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_list,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
14104 if (arg1) (arg1)->props = arg2;
14105
14106
14107 return TCL_OK;
14108 fail:
14109 return TCL_ERROR;
14110 }
14111
14112
14113 static int
14114 _wrap_tinaCirc2_props_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14115 Circ2 *arg1 = (Circ2 *) 0 ;
14116 struct list *result;
14117
14118 if (SWIG_GetArgs(interp, objc, objv,"o:tinaCirc2_props_get self ",0) == TCL_ERROR) SWIG_fail;
14119 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Circ2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14120 result = (struct list *) ((arg1)->props);
14121
14122 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_list,0));
14123 return TCL_OK;
14124 fail:
14125 return TCL_ERROR;
14126 }
14127
14128
14129 static int
14130 _wrap_new_tinaCirc2(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14131 Circ2 *result;
14132
14133 if (SWIG_GetArgs(interp, objc, objv,":new_tinaCirc2 ") == TCL_ERROR) SWIG_fail;
14134 result = (Circ2 *)(Circ2 *) calloc(1, sizeof(Circ2));
14135
14136 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Circ2,0));
14137 return TCL_OK;
14138 fail:
14139 return TCL_ERROR;
14140 }
14141
14142
14143 static int
14144 _wrap_delete_tinaCirc2(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14145 Circ2 *arg1 = (Circ2 *) 0 ;
14146
14147 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaCirc2 self ",0) == TCL_ERROR) SWIG_fail;
14148 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Circ2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14149 free((char *) arg1);
14150
14151
14152 return TCL_OK;
14153 fail:
14154 return TCL_ERROR;
14155 }
14156
14157
14158 static void swig_delete_tinaCirc2(void *obj) {
14159 Circ2 *arg1 = (Circ2 *) obj;
14160 free((char *) arg1);
14161 }
14162 static swig_method swig_Circ2_methods[] = {
14163 {0,0}
14164 };
14165 static swig_attribute swig_Circ2_attributes[] = {
14166 { "-tinaTsId",_wrap_tinaCirc2_tinaTsId_get, _wrap_tinaCirc2_tinaTsId_set},
14167 { "-type",_wrap_tinaCirc2_type_get, _wrap_tinaCirc2_type_set},
14168 { "-label",_wrap_tinaCirc2_label_get, _wrap_tinaCirc2_label_set},
14169 { "-filler1",_wrap_tinaCirc2_filler1_get, _wrap_tinaCirc2_filler1_set},
14170 { "-r",_wrap_tinaCirc2_r_get, _wrap_tinaCirc2_r_set},
14171 { "-center",_wrap_tinaCirc2_center_get, _wrap_tinaCirc2_center_set},
14172 { "-p1",_wrap_tinaCirc2_p1_get, _wrap_tinaCirc2_p1_set},
14173 { "-p2",_wrap_tinaCirc2_p2_get, _wrap_tinaCirc2_p2_set},
14174 { "-filler2",_wrap_tinaCirc2_filler2_get, _wrap_tinaCirc2_filler2_set},
14175 { "-t1",_wrap_tinaCirc2_t1_get, _wrap_tinaCirc2_t1_set},
14176 { "-t2",_wrap_tinaCirc2_t2_get, _wrap_tinaCirc2_t2_set},
14177 { "-length",_wrap_tinaCirc2_length_get, _wrap_tinaCirc2_length_set},
14178 { "-props",_wrap_tinaCirc2_props_get, _wrap_tinaCirc2_props_set},
14179 {0,0,0}
14180 };
14181 static swig_class *swig_Circ2_bases[] = {0};
14182 swig_class _wrap_class_Circ2 = { "tinaCirc2", &SWIGTYPE_p_Circ2,_wrap_new_tinaCirc2, swig_delete_tinaCirc2, swig_Circ2_methods, swig_Circ2_attributes, swig_Circ2_bases };
14183 static int
14184 _wrap_tinaEdgel_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14185 Edgel *arg1 = (Edgel *) 0 ;
14186 int arg2 ;
14187
14188 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaEdgel_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
14189 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Edgel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14190 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
14191
14192
14193 return TCL_OK;
14194 fail:
14195 return TCL_ERROR;
14196 }
14197
14198
14199 static int
14200 _wrap_tinaEdgel_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14201 Edgel *arg1 = (Edgel *) 0 ;
14202 int result;
14203
14204 if (SWIG_GetArgs(interp, objc, objv,"o:tinaEdgel_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
14205 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Edgel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14206 result = (int) ((arg1)->ts_id);
14207
14208 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
14209 return TCL_OK;
14210 fail:
14211 return TCL_ERROR;
14212 }
14213
14214
14215 static int
14216 _wrap_tinaEdgel_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14217 Edgel *arg1 = (Edgel *) 0 ;
14218 unsigned int arg2 ;
14219
14220 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaEdgel_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
14221 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Edgel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14222 if (arg1) (arg1)->type = arg2;
14223
14224
14225 return TCL_OK;
14226 fail:
14227 return TCL_ERROR;
14228 }
14229
14230
14231 static int
14232 _wrap_tinaEdgel_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14233 Edgel *arg1 = (Edgel *) 0 ;
14234 unsigned int result;
14235
14236 if (SWIG_GetArgs(interp, objc, objv,"o:tinaEdgel_type_get self ",0) == TCL_ERROR) SWIG_fail;
14237 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Edgel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14238 result = (unsigned int) ((arg1)->type);
14239
14240 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
14241 return TCL_OK;
14242 fail:
14243 return TCL_ERROR;
14244 }
14245
14246
14247 static int
14248 _wrap_tinaEdgel_label_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14249 Edgel *arg1 = (Edgel *) 0 ;
14250 unsigned int arg2 ;
14251
14252 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaEdgel_label_set self label ",0,&arg2) == TCL_ERROR) SWIG_fail;
14253 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Edgel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14254 if (arg1) (arg1)->label = arg2;
14255
14256
14257 return TCL_OK;
14258 fail:
14259 return TCL_ERROR;
14260 }
14261
14262
14263 static int
14264 _wrap_tinaEdgel_label_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14265 Edgel *arg1 = (Edgel *) 0 ;
14266 unsigned int result;
14267
14268 if (SWIG_GetArgs(interp, objc, objv,"o:tinaEdgel_label_get self ",0) == TCL_ERROR) SWIG_fail;
14269 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Edgel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14270 result = (unsigned int) ((arg1)->label);
14271
14272 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
14273 return TCL_OK;
14274 fail:
14275 return TCL_ERROR;
14276 }
14277
14278
14279 static int
14280 _wrap_tinaEdgel_pos_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14281 Edgel *arg1 = (Edgel *) 0 ;
14282 struct vec2 *arg2 = (struct vec2 *) 0 ;
14283
14284 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaEdgel_pos_set self pos ",0,0) == TCL_ERROR) SWIG_fail;
14285 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Edgel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14286 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_vec2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14287 if (arg1) (arg1)->pos = *arg2;
14288
14289
14290 return TCL_OK;
14291 fail:
14292 return TCL_ERROR;
14293 }
14294
14295
14296 static int
14297 _wrap_tinaEdgel_pos_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14298 Edgel *arg1 = (Edgel *) 0 ;
14299 struct vec2 *result;
14300
14301 if (SWIG_GetArgs(interp, objc, objv,"o:tinaEdgel_pos_get self ",0) == TCL_ERROR) SWIG_fail;
14302 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Edgel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14303 result = (struct vec2 *)& ((arg1)->pos);
14304
14305 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_vec2,0));
14306 return TCL_OK;
14307 fail:
14308 return TCL_ERROR;
14309 }
14310
14311
14312 static int
14313 _wrap_tinaEdgel_orient_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14314 Edgel *arg1 = (Edgel *) 0 ;
14315 float arg2 ;
14316
14317 if (SWIG_GetArgs(interp, objc, objv,"of:tinaEdgel_orient_set self orient ",0,&arg2) == TCL_ERROR) SWIG_fail;
14318 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Edgel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14319 if (arg1) (arg1)->orient = arg2;
14320
14321
14322 return TCL_OK;
14323 fail:
14324 return TCL_ERROR;
14325 }
14326
14327
14328 static int
14329 _wrap_tinaEdgel_orient_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14330 Edgel *arg1 = (Edgel *) 0 ;
14331 float result;
14332
14333 if (SWIG_GetArgs(interp, objc, objv,"o:tinaEdgel_orient_get self ",0) == TCL_ERROR) SWIG_fail;
14334 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Edgel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14335 result = (float) ((arg1)->orient);
14336
14337 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
14338 return TCL_OK;
14339 fail:
14340 return TCL_ERROR;
14341 }
14342
14343
14344 static int
14345 _wrap_tinaEdgel_contrast_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14346 Edgel *arg1 = (Edgel *) 0 ;
14347 float arg2 ;
14348
14349 if (SWIG_GetArgs(interp, objc, objv,"of:tinaEdgel_contrast_set self contrast ",0,&arg2) == TCL_ERROR) SWIG_fail;
14350 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Edgel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14351 if (arg1) (arg1)->contrast = arg2;
14352
14353
14354 return TCL_OK;
14355 fail:
14356 return TCL_ERROR;
14357 }
14358
14359
14360 static int
14361 _wrap_tinaEdgel_contrast_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14362 Edgel *arg1 = (Edgel *) 0 ;
14363 float result;
14364
14365 if (SWIG_GetArgs(interp, objc, objv,"o:tinaEdgel_contrast_get self ",0) == TCL_ERROR) SWIG_fail;
14366 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Edgel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14367 result = (float) ((arg1)->contrast);
14368
14369 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
14370 return TCL_OK;
14371 fail:
14372 return TCL_ERROR;
14373 }
14374
14375
14376 static int
14377 _wrap_tinaEdgel_props_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14378 Edgel *arg1 = (Edgel *) 0 ;
14379 struct list *arg2 = (struct list *) 0 ;
14380
14381 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaEdgel_props_set self props ",0,0) == TCL_ERROR) SWIG_fail;
14382 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Edgel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14383 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_list,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
14384 if (arg1) (arg1)->props = arg2;
14385
14386
14387 return TCL_OK;
14388 fail:
14389 return TCL_ERROR;
14390 }
14391
14392
14393 static int
14394 _wrap_tinaEdgel_props_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14395 Edgel *arg1 = (Edgel *) 0 ;
14396 struct list *result;
14397
14398 if (SWIG_GetArgs(interp, objc, objv,"o:tinaEdgel_props_get self ",0) == TCL_ERROR) SWIG_fail;
14399 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Edgel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14400 result = (struct list *) ((arg1)->props);
14401
14402 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_list,0));
14403 return TCL_OK;
14404 fail:
14405 return TCL_ERROR;
14406 }
14407
14408
14409 static int
14410 _wrap_new_tinaEdgel(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14411 Edgel *result;
14412
14413 if (SWIG_GetArgs(interp, objc, objv,":new_tinaEdgel ") == TCL_ERROR) SWIG_fail;
14414 result = (Edgel *)(Edgel *) calloc(1, sizeof(Edgel));
14415
14416 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Edgel,0));
14417 return TCL_OK;
14418 fail:
14419 return TCL_ERROR;
14420 }
14421
14422
14423 static int
14424 _wrap_delete_tinaEdgel(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14425 Edgel *arg1 = (Edgel *) 0 ;
14426
14427 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaEdgel self ",0) == TCL_ERROR) SWIG_fail;
14428 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Edgel,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14429 free((char *) arg1);
14430
14431
14432 return TCL_OK;
14433 fail:
14434 return TCL_ERROR;
14435 }
14436
14437
14438 static void swig_delete_tinaEdgel(void *obj) {
14439 Edgel *arg1 = (Edgel *) obj;
14440 free((char *) arg1);
14441 }
14442 static swig_method swig_Edgel_methods[] = {
14443 {0,0}
14444 };
14445 static swig_attribute swig_Edgel_attributes[] = {
14446 { "-tinaTsId",_wrap_tinaEdgel_tinaTsId_get, _wrap_tinaEdgel_tinaTsId_set},
14447 { "-type",_wrap_tinaEdgel_type_get, _wrap_tinaEdgel_type_set},
14448 { "-label",_wrap_tinaEdgel_label_get, _wrap_tinaEdgel_label_set},
14449 { "-pos",_wrap_tinaEdgel_pos_get, _wrap_tinaEdgel_pos_set},
14450 { "-orient",_wrap_tinaEdgel_orient_get, _wrap_tinaEdgel_orient_set},
14451 { "-contrast",_wrap_tinaEdgel_contrast_get, _wrap_tinaEdgel_contrast_set},
14452 { "-props",_wrap_tinaEdgel_props_get, _wrap_tinaEdgel_props_set},
14453 {0,0,0}
14454 };
14455 static swig_class *swig_Edgel_bases[] = {0};
14456 swig_class _wrap_class_Edgel = { "tinaEdgel", &SWIGTYPE_p_Edgel,_wrap_new_tinaEdgel, swig_delete_tinaEdgel, swig_Edgel_methods, swig_Edgel_attributes, swig_Edgel_bases };
14457 static int
14458 _wrap_tinaEdgeConn_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14459 Edge_conn *arg1 = (Edge_conn *) 0 ;
14460 int arg2 ;
14461
14462 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaEdgeConn_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
14463 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Edge_conn,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14464 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
14465
14466
14467 return TCL_OK;
14468 fail:
14469 return TCL_ERROR;
14470 }
14471
14472
14473 static int
14474 _wrap_tinaEdgeConn_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14475 Edge_conn *arg1 = (Edge_conn *) 0 ;
14476 int result;
14477
14478 if (SWIG_GetArgs(interp, objc, objv,"o:tinaEdgeConn_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
14479 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Edge_conn,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14480 result = (int) ((arg1)->ts_id);
14481
14482 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
14483 return TCL_OK;
14484 fail:
14485 return TCL_ERROR;
14486 }
14487
14488
14489 static int
14490 _wrap_tinaEdgeConn_count_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14491 Edge_conn *arg1 = (Edge_conn *) 0 ;
14492 unsigned short arg2 ;
14493
14494 if (SWIG_GetArgs(interp, objc, objv,"oh:tinaEdgeConn_count_set self count ",0,&arg2) == TCL_ERROR) SWIG_fail;
14495 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Edge_conn,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14496 if (arg1) (arg1)->count = arg2;
14497
14498
14499 return TCL_OK;
14500 fail:
14501 return TCL_ERROR;
14502 }
14503
14504
14505 static int
14506 _wrap_tinaEdgeConn_count_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14507 Edge_conn *arg1 = (Edge_conn *) 0 ;
14508 unsigned short result;
14509
14510 if (SWIG_GetArgs(interp, objc, objv,"o:tinaEdgeConn_count_get self ",0) == TCL_ERROR) SWIG_fail;
14511 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Edge_conn,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14512 result = (unsigned short) ((arg1)->count);
14513
14514 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
14515 return TCL_OK;
14516 fail:
14517 return TCL_ERROR;
14518 }
14519
14520
14521 static int
14522 _wrap_tinaEdgeConn_c1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14523 Edge_conn *arg1 = (Edge_conn *) 0 ;
14524 struct edgel *arg2 = (struct edgel *) 0 ;
14525
14526 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaEdgeConn_c1_set self c1 ",0,0) == TCL_ERROR) SWIG_fail;
14527 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Edge_conn,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14528 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_edgel,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
14529 if (arg1) (arg1)->c1 = arg2;
14530
14531
14532 return TCL_OK;
14533 fail:
14534 return TCL_ERROR;
14535 }
14536
14537
14538 static int
14539 _wrap_tinaEdgeConn_c1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14540 Edge_conn *arg1 = (Edge_conn *) 0 ;
14541 struct edgel *result;
14542
14543 if (SWIG_GetArgs(interp, objc, objv,"o:tinaEdgeConn_c1_get self ",0) == TCL_ERROR) SWIG_fail;
14544 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Edge_conn,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14545 result = (struct edgel *) ((arg1)->c1);
14546
14547 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_edgel,0));
14548 return TCL_OK;
14549 fail:
14550 return TCL_ERROR;
14551 }
14552
14553
14554 static int
14555 _wrap_tinaEdgeConn_c2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14556 Edge_conn *arg1 = (Edge_conn *) 0 ;
14557 struct edgel *arg2 = (struct edgel *) 0 ;
14558
14559 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaEdgeConn_c2_set self c2 ",0,0) == TCL_ERROR) SWIG_fail;
14560 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Edge_conn,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14561 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_edgel,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
14562 if (arg1) (arg1)->c2 = arg2;
14563
14564
14565 return TCL_OK;
14566 fail:
14567 return TCL_ERROR;
14568 }
14569
14570
14571 static int
14572 _wrap_tinaEdgeConn_c2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14573 Edge_conn *arg1 = (Edge_conn *) 0 ;
14574 struct edgel *result;
14575
14576 if (SWIG_GetArgs(interp, objc, objv,"o:tinaEdgeConn_c2_get self ",0) == TCL_ERROR) SWIG_fail;
14577 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Edge_conn,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14578 result = (struct edgel *) ((arg1)->c2);
14579
14580 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_edgel,0));
14581 return TCL_OK;
14582 fail:
14583 return TCL_ERROR;
14584 }
14585
14586
14587 static int
14588 _wrap_tinaEdgeConn_conns_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14589 Edge_conn *arg1 = (Edge_conn *) 0 ;
14590 struct list *arg2 = (struct list *) 0 ;
14591
14592 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaEdgeConn_conns_set self conns ",0,0) == TCL_ERROR) SWIG_fail;
14593 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Edge_conn,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14594 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_list,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
14595 if (arg1) (arg1)->conns = arg2;
14596
14597
14598 return TCL_OK;
14599 fail:
14600 return TCL_ERROR;
14601 }
14602
14603
14604 static int
14605 _wrap_tinaEdgeConn_conns_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14606 Edge_conn *arg1 = (Edge_conn *) 0 ;
14607 struct list *result;
14608
14609 if (SWIG_GetArgs(interp, objc, objv,"o:tinaEdgeConn_conns_get self ",0) == TCL_ERROR) SWIG_fail;
14610 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Edge_conn,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14611 result = (struct list *) ((arg1)->conns);
14612
14613 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_list,0));
14614 return TCL_OK;
14615 fail:
14616 return TCL_ERROR;
14617 }
14618
14619
14620 static int
14621 _wrap_new_tinaEdgeConn(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14622 Edge_conn *result;
14623
14624 if (SWIG_GetArgs(interp, objc, objv,":new_tinaEdgeConn ") == TCL_ERROR) SWIG_fail;
14625 result = (Edge_conn *)(Edge_conn *) calloc(1, sizeof(Edge_conn));
14626
14627 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Edge_conn,0));
14628 return TCL_OK;
14629 fail:
14630 return TCL_ERROR;
14631 }
14632
14633
14634 static int
14635 _wrap_delete_tinaEdgeConn(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14636 Edge_conn *arg1 = (Edge_conn *) 0 ;
14637
14638 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaEdgeConn self ",0) == TCL_ERROR) SWIG_fail;
14639 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Edge_conn,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14640 free((char *) arg1);
14641
14642
14643 return TCL_OK;
14644 fail:
14645 return TCL_ERROR;
14646 }
14647
14648
14649 static void swig_delete_tinaEdgeConn(void *obj) {
14650 Edge_conn *arg1 = (Edge_conn *) obj;
14651 free((char *) arg1);
14652 }
14653 static swig_method swig_Edge_conn_methods[] = {
14654 {0,0}
14655 };
14656 static swig_attribute swig_Edge_conn_attributes[] = {
14657 { "-tinaTsId",_wrap_tinaEdgeConn_tinaTsId_get, _wrap_tinaEdgeConn_tinaTsId_set},
14658 { "-count",_wrap_tinaEdgeConn_count_get, _wrap_tinaEdgeConn_count_set},
14659 { "-c1",_wrap_tinaEdgeConn_c1_get, _wrap_tinaEdgeConn_c1_set},
14660 { "-c2",_wrap_tinaEdgeConn_c2_get, _wrap_tinaEdgeConn_c2_set},
14661 { "-conns",_wrap_tinaEdgeConn_conns_get, _wrap_tinaEdgeConn_conns_set},
14662 {0,0,0}
14663 };
14664 static swig_class *swig_Edge_conn_bases[] = {0};
14665 swig_class _wrap_class_Edge_conn = { "tinaEdgeConn", &SWIGTYPE_p_Edge_conn,_wrap_new_tinaEdgeConn, swig_delete_tinaEdgeConn, swig_Edge_conn_methods, swig_Edge_conn_attributes, swig_Edge_conn_bases };
14666 static int
14667 _wrap_tinaPropDef_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14668 Prop_def *arg1 = (Prop_def *) 0 ;
14669 int arg2 ;
14670
14671 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaPropDef_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
14672 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop_def,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14673 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
14674
14675
14676 return TCL_OK;
14677 fail:
14678 return TCL_ERROR;
14679 }
14680
14681
14682 static int
14683 _wrap_tinaPropDef_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14684 Prop_def *arg1 = (Prop_def *) 0 ;
14685 int result;
14686
14687 if (SWIG_GetArgs(interp, objc, objv,"o:tinaPropDef_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
14688 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop_def,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14689 result = (int) ((arg1)->ts_id);
14690
14691 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
14692 return TCL_OK;
14693 fail:
14694 return TCL_ERROR;
14695 }
14696
14697
14698 static int
14699 _wrap_tinaPropDef_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14700 Prop_def *arg1 = (Prop_def *) 0 ;
14701 int arg2 ;
14702
14703 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaPropDef_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
14704 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop_def,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14705 if (arg1) (arg1)->type = arg2;
14706
14707
14708 return TCL_OK;
14709 fail:
14710 return TCL_ERROR;
14711 }
14712
14713
14714 static int
14715 _wrap_tinaPropDef_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14716 Prop_def *arg1 = (Prop_def *) 0 ;
14717 int result;
14718
14719 if (SWIG_GetArgs(interp, objc, objv,"o:tinaPropDef_type_get self ",0) == TCL_ERROR) SWIG_fail;
14720 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop_def,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14721 result = (int) ((arg1)->type);
14722
14723 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
14724 return TCL_OK;
14725 fail:
14726 return TCL_ERROR;
14727 }
14728
14729
14730 static int
14731 _wrap_tinaPropDef_tinaProp_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14732 Prop_def *arg1 = (Prop_def *) 0 ;
14733 void *arg2 = (void *) 0 ;
14734
14735 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaPropDef_tinaProp_set self prop ",0,0) == TCL_ERROR) SWIG_fail;
14736 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop_def,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14737 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, 0,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
14738 if (arg1) (arg1)->prop = arg2;
14739
14740
14741 return TCL_OK;
14742 fail:
14743 return TCL_ERROR;
14744 }
14745
14746
14747 static int
14748 _wrap_tinaPropDef_tinaProp_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14749 Prop_def *arg1 = (Prop_def *) 0 ;
14750 void *result;
14751
14752 if (SWIG_GetArgs(interp, objc, objv,"o:tinaPropDef_tinaProp_get self ",0) == TCL_ERROR) SWIG_fail;
14753 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop_def,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14754 result = (void *) ((arg1)->prop);
14755
14756 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_void,0));
14757 return TCL_OK;
14758 fail:
14759 return TCL_ERROR;
14760 }
14761
14762
14763 static int
14764 _wrap_tinaPropDef_free_func_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14765 Prop_def *arg1 = (Prop_def *) 0 ;
14766 void (*arg2)() = (void (*)()) 0 ;
14767
14768 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaPropDef_free_func_set self free_func ",0,0) == TCL_ERROR) SWIG_fail;
14769 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop_def,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14770 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_f___void,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14771 if (arg1) (arg1)->free_func = arg2;
14772
14773
14774 return TCL_OK;
14775 fail:
14776 return TCL_ERROR;
14777 }
14778
14779
14780 static int
14781 _wrap_tinaPropDef_free_func_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14782 Prop_def *arg1 = (Prop_def *) 0 ;
14783 void (*result)();
14784
14785 if (SWIG_GetArgs(interp, objc, objv,"o:tinaPropDef_free_func_get self ",0) == TCL_ERROR) SWIG_fail;
14786 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop_def,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14787 result = (void (*)()) ((arg1)->free_func);
14788
14789 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_f___void,0));
14790 return TCL_OK;
14791 fail:
14792 return TCL_ERROR;
14793 }
14794
14795
14796 static int
14797 _wrap_tinaPropDef_dofree_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14798 Prop_def *arg1 = (Prop_def *) 0 ;
14799 Bool arg2 ;
14800
14801 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaPropDef_dofree_set self dofree ",0,&arg2) == TCL_ERROR) SWIG_fail;
14802 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop_def,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14803 if (arg1) (arg1)->dofree = arg2;
14804
14805
14806 return TCL_OK;
14807 fail:
14808 return TCL_ERROR;
14809 }
14810
14811
14812 static int
14813 _wrap_tinaPropDef_dofree_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14814 Prop_def *arg1 = (Prop_def *) 0 ;
14815 Bool result;
14816
14817 if (SWIG_GetArgs(interp, objc, objv,"o:tinaPropDef_dofree_get self ",0) == TCL_ERROR) SWIG_fail;
14818 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop_def,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14819 result = (Bool) ((arg1)->dofree);
14820
14821 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
14822 return TCL_OK;
14823 fail:
14824 return TCL_ERROR;
14825 }
14826
14827
14828 static int
14829 _wrap_new_tinaPropDef(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14830 Prop_def *result;
14831
14832 if (SWIG_GetArgs(interp, objc, objv,":new_tinaPropDef ") == TCL_ERROR) SWIG_fail;
14833 result = (Prop_def *)(Prop_def *) calloc(1, sizeof(Prop_def));
14834
14835 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Prop_def,0));
14836 return TCL_OK;
14837 fail:
14838 return TCL_ERROR;
14839 }
14840
14841
14842 static int
14843 _wrap_delete_tinaPropDef(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14844 Prop_def *arg1 = (Prop_def *) 0 ;
14845
14846 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaPropDef self ",0) == TCL_ERROR) SWIG_fail;
14847 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop_def,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14848 free((char *) arg1);
14849
14850
14851 return TCL_OK;
14852 fail:
14853 return TCL_ERROR;
14854 }
14855
14856
14857 static void swig_delete_tinaPropDef(void *obj) {
14858 Prop_def *arg1 = (Prop_def *) obj;
14859 free((char *) arg1);
14860 }
14861 static swig_method swig_Prop_def_methods[] = {
14862 {0,0}
14863 };
14864 static swig_attribute swig_Prop_def_attributes[] = {
14865 { "-tinaTsId",_wrap_tinaPropDef_tinaTsId_get, _wrap_tinaPropDef_tinaTsId_set},
14866 { "-type",_wrap_tinaPropDef_type_get, _wrap_tinaPropDef_type_set},
14867 { "-tinaProp",_wrap_tinaPropDef_tinaProp_get, _wrap_tinaPropDef_tinaProp_set},
14868 { "-free_func",_wrap_tinaPropDef_free_func_get, _wrap_tinaPropDef_free_func_set},
14869 { "-dofree",_wrap_tinaPropDef_dofree_get, _wrap_tinaPropDef_dofree_set},
14870 {0,0,0}
14871 };
14872 static swig_class *swig_Prop_def_bases[] = {0};
14873 swig_class _wrap_class_Prop_def = { "tinaPropDef", &SWIGTYPE_p_Prop_def,_wrap_new_tinaPropDef, swig_delete_tinaPropDef, swig_Prop_def_methods, swig_Prop_def_attributes, swig_Prop_def_bases };
14874 static int
14875 _wrap_tinaLine2_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14876 Line2 *arg1 = (Line2 *) 0 ;
14877 int arg2 ;
14878
14879 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaLine2_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
14880 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14881 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
14882
14883
14884 return TCL_OK;
14885 fail:
14886 return TCL_ERROR;
14887 }
14888
14889
14890 static int
14891 _wrap_tinaLine2_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14892 Line2 *arg1 = (Line2 *) 0 ;
14893 int result;
14894
14895 if (SWIG_GetArgs(interp, objc, objv,"o:tinaLine2_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
14896 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14897 result = (int) ((arg1)->ts_id);
14898
14899 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
14900 return TCL_OK;
14901 fail:
14902 return TCL_ERROR;
14903 }
14904
14905
14906 static int
14907 _wrap_tinaLine2_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14908 Line2 *arg1 = (Line2 *) 0 ;
14909 unsigned int arg2 ;
14910
14911 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaLine2_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
14912 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14913 if (arg1) (arg1)->type = arg2;
14914
14915
14916 return TCL_OK;
14917 fail:
14918 return TCL_ERROR;
14919 }
14920
14921
14922 static int
14923 _wrap_tinaLine2_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14924 Line2 *arg1 = (Line2 *) 0 ;
14925 unsigned int result;
14926
14927 if (SWIG_GetArgs(interp, objc, objv,"o:tinaLine2_type_get self ",0) == TCL_ERROR) SWIG_fail;
14928 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14929 result = (unsigned int) ((arg1)->type);
14930
14931 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
14932 return TCL_OK;
14933 fail:
14934 return TCL_ERROR;
14935 }
14936
14937
14938 static int
14939 _wrap_tinaLine2_label_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14940 Line2 *arg1 = (Line2 *) 0 ;
14941 unsigned int arg2 ;
14942
14943 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaLine2_label_set self label ",0,&arg2) == TCL_ERROR) SWIG_fail;
14944 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14945 if (arg1) (arg1)->label = arg2;
14946
14947
14948 return TCL_OK;
14949 fail:
14950 return TCL_ERROR;
14951 }
14952
14953
14954 static int
14955 _wrap_tinaLine2_label_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14956 Line2 *arg1 = (Line2 *) 0 ;
14957 unsigned int result;
14958
14959 if (SWIG_GetArgs(interp, objc, objv,"o:tinaLine2_label_get self ",0) == TCL_ERROR) SWIG_fail;
14960 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14961 result = (unsigned int) ((arg1)->label);
14962
14963 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
14964 return TCL_OK;
14965 fail:
14966 return TCL_ERROR;
14967 }
14968
14969
14970 static int
14971 _wrap_tinaLine2_p1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14972 Line2 *arg1 = (Line2 *) 0 ;
14973 struct vec2 *arg2 = (struct vec2 *) 0 ;
14974
14975 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaLine2_p1_set self p1 ",0,0) == TCL_ERROR) SWIG_fail;
14976 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14977 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_vec2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14978 if (arg1) (arg1)->p1 = *arg2;
14979
14980
14981 return TCL_OK;
14982 fail:
14983 return TCL_ERROR;
14984 }
14985
14986
14987 static int
14988 _wrap_tinaLine2_p1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
14989 Line2 *arg1 = (Line2 *) 0 ;
14990 struct vec2 *result;
14991
14992 if (SWIG_GetArgs(interp, objc, objv,"o:tinaLine2_p1_get self ",0) == TCL_ERROR) SWIG_fail;
14993 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
14994 result = (struct vec2 *)& ((arg1)->p1);
14995
14996 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_vec2,0));
14997 return TCL_OK;
14998 fail:
14999 return TCL_ERROR;
15000 }
15001
15002
15003 static int
15004 _wrap_tinaLine2_p2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15005 Line2 *arg1 = (Line2 *) 0 ;
15006 struct vec2 *arg2 = (struct vec2 *) 0 ;
15007
15008 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaLine2_p2_set self p2 ",0,0) == TCL_ERROR) SWIG_fail;
15009 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15010 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_vec2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15011 if (arg1) (arg1)->p2 = *arg2;
15012
15013
15014 return TCL_OK;
15015 fail:
15016 return TCL_ERROR;
15017 }
15018
15019
15020 static int
15021 _wrap_tinaLine2_p2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15022 Line2 *arg1 = (Line2 *) 0 ;
15023 struct vec2 *result;
15024
15025 if (SWIG_GetArgs(interp, objc, objv,"o:tinaLine2_p2_get self ",0) == TCL_ERROR) SWIG_fail;
15026 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15027 result = (struct vec2 *)& ((arg1)->p2);
15028
15029 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_vec2,0));
15030 return TCL_OK;
15031 fail:
15032 return TCL_ERROR;
15033 }
15034
15035
15036 static int
15037 _wrap_tinaLine2_p_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15038 Line2 *arg1 = (Line2 *) 0 ;
15039 struct vec2 *arg2 = (struct vec2 *) 0 ;
15040
15041 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaLine2_p_set self p ",0,0) == TCL_ERROR) SWIG_fail;
15042 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15043 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_vec2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15044 if (arg1) (arg1)->p = *arg2;
15045
15046
15047 return TCL_OK;
15048 fail:
15049 return TCL_ERROR;
15050 }
15051
15052
15053 static int
15054 _wrap_tinaLine2_p_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15055 Line2 *arg1 = (Line2 *) 0 ;
15056 struct vec2 *result;
15057
15058 if (SWIG_GetArgs(interp, objc, objv,"o:tinaLine2_p_get self ",0) == TCL_ERROR) SWIG_fail;
15059 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15060 result = (struct vec2 *)& ((arg1)->p);
15061
15062 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_vec2,0));
15063 return TCL_OK;
15064 fail:
15065 return TCL_ERROR;
15066 }
15067
15068
15069 static int
15070 _wrap_tinaLine2_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15071 Line2 *arg1 = (Line2 *) 0 ;
15072 struct vec2 *arg2 = (struct vec2 *) 0 ;
15073
15074 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaLine2_v_set self v ",0,0) == TCL_ERROR) SWIG_fail;
15075 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15076 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_vec2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15077 if (arg1) (arg1)->v = *arg2;
15078
15079
15080 return TCL_OK;
15081 fail:
15082 return TCL_ERROR;
15083 }
15084
15085
15086 static int
15087 _wrap_tinaLine2_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15088 Line2 *arg1 = (Line2 *) 0 ;
15089 struct vec2 *result;
15090
15091 if (SWIG_GetArgs(interp, objc, objv,"o:tinaLine2_v_get self ",0) == TCL_ERROR) SWIG_fail;
15092 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15093 result = (struct vec2 *)& ((arg1)->v);
15094
15095 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_vec2,0));
15096 return TCL_OK;
15097 fail:
15098 return TCL_ERROR;
15099 }
15100
15101
15102 static int
15103 _wrap_tinaLine2_length_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15104 Line2 *arg1 = (Line2 *) 0 ;
15105 float arg2 ;
15106
15107 if (SWIG_GetArgs(interp, objc, objv,"of:tinaLine2_length_set self length ",0,&arg2) == TCL_ERROR) SWIG_fail;
15108 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15109 if (arg1) (arg1)->length = arg2;
15110
15111
15112 return TCL_OK;
15113 fail:
15114 return TCL_ERROR;
15115 }
15116
15117
15118 static int
15119 _wrap_tinaLine2_length_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15120 Line2 *arg1 = (Line2 *) 0 ;
15121 float result;
15122
15123 if (SWIG_GetArgs(interp, objc, objv,"o:tinaLine2_length_get self ",0) == TCL_ERROR) SWIG_fail;
15124 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15125 result = (float) ((arg1)->length);
15126
15127 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
15128 return TCL_OK;
15129 fail:
15130 return TCL_ERROR;
15131 }
15132
15133
15134 static int
15135 _wrap_tinaLine2_props_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15136 Line2 *arg1 = (Line2 *) 0 ;
15137 struct list *arg2 = (struct list *) 0 ;
15138
15139 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaLine2_props_set self props ",0,0) == TCL_ERROR) SWIG_fail;
15140 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15141 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_list,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
15142 if (arg1) (arg1)->props = arg2;
15143
15144
15145 return TCL_OK;
15146 fail:
15147 return TCL_ERROR;
15148 }
15149
15150
15151 static int
15152 _wrap_tinaLine2_props_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15153 Line2 *arg1 = (Line2 *) 0 ;
15154 struct list *result;
15155
15156 if (SWIG_GetArgs(interp, objc, objv,"o:tinaLine2_props_get self ",0) == TCL_ERROR) SWIG_fail;
15157 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15158 result = (struct list *) ((arg1)->props);
15159
15160 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_list,0));
15161 return TCL_OK;
15162 fail:
15163 return TCL_ERROR;
15164 }
15165
15166
15167 static int
15168 _wrap_new_tinaLine2(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15169 Line2 *result;
15170
15171 if (SWIG_GetArgs(interp, objc, objv,":new_tinaLine2 ") == TCL_ERROR) SWIG_fail;
15172 result = (Line2 *)(Line2 *) calloc(1, sizeof(Line2));
15173
15174 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Line2,0));
15175 return TCL_OK;
15176 fail:
15177 return TCL_ERROR;
15178 }
15179
15180
15181 static int
15182 _wrap_delete_tinaLine2(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15183 Line2 *arg1 = (Line2 *) 0 ;
15184
15185 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaLine2 self ",0) == TCL_ERROR) SWIG_fail;
15186 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15187 free((char *) arg1);
15188
15189
15190 return TCL_OK;
15191 fail:
15192 return TCL_ERROR;
15193 }
15194
15195
15196 static void swig_delete_tinaLine2(void *obj) {
15197 Line2 *arg1 = (Line2 *) obj;
15198 free((char *) arg1);
15199 }
15200 static swig_method swig_Line2_methods[] = {
15201 {0,0}
15202 };
15203 static swig_attribute swig_Line2_attributes[] = {
15204 { "-tinaTsId",_wrap_tinaLine2_tinaTsId_get, _wrap_tinaLine2_tinaTsId_set},
15205 { "-type",_wrap_tinaLine2_type_get, _wrap_tinaLine2_type_set},
15206 { "-label",_wrap_tinaLine2_label_get, _wrap_tinaLine2_label_set},
15207 { "-p1",_wrap_tinaLine2_p1_get, _wrap_tinaLine2_p1_set},
15208 { "-p2",_wrap_tinaLine2_p2_get, _wrap_tinaLine2_p2_set},
15209 { "-p",_wrap_tinaLine2_p_get, _wrap_tinaLine2_p_set},
15210 { "-v",_wrap_tinaLine2_v_get, _wrap_tinaLine2_v_set},
15211 { "-length",_wrap_tinaLine2_length_get, _wrap_tinaLine2_length_set},
15212 { "-props",_wrap_tinaLine2_props_get, _wrap_tinaLine2_props_set},
15213 {0,0,0}
15214 };
15215 static swig_class *swig_Line2_bases[] = {0};
15216 swig_class _wrap_class_Line2 = { "tinaLine2", &SWIGTYPE_p_Line2,_wrap_new_tinaLine2, swig_delete_tinaLine2, swig_Line2_methods, swig_Line2_attributes, swig_Line2_bases };
15217 static int
15218 _wrap_tinaLine3_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15219 Line3 *arg1 = (Line3 *) 0 ;
15220 int arg2 ;
15221
15222 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaLine3_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
15223 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15224 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
15225
15226
15227 return TCL_OK;
15228 fail:
15229 return TCL_ERROR;
15230 }
15231
15232
15233 static int
15234 _wrap_tinaLine3_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15235 Line3 *arg1 = (Line3 *) 0 ;
15236 int result;
15237
15238 if (SWIG_GetArgs(interp, objc, objv,"o:tinaLine3_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
15239 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15240 result = (int) ((arg1)->ts_id);
15241
15242 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
15243 return TCL_OK;
15244 fail:
15245 return TCL_ERROR;
15246 }
15247
15248
15249 static int
15250 _wrap_tinaLine3_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15251 Line3 *arg1 = (Line3 *) 0 ;
15252 unsigned int arg2 ;
15253
15254 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaLine3_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
15255 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15256 if (arg1) (arg1)->type = arg2;
15257
15258
15259 return TCL_OK;
15260 fail:
15261 return TCL_ERROR;
15262 }
15263
15264
15265 static int
15266 _wrap_tinaLine3_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15267 Line3 *arg1 = (Line3 *) 0 ;
15268 unsigned int result;
15269
15270 if (SWIG_GetArgs(interp, objc, objv,"o:tinaLine3_type_get self ",0) == TCL_ERROR) SWIG_fail;
15271 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15272 result = (unsigned int) ((arg1)->type);
15273
15274 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
15275 return TCL_OK;
15276 fail:
15277 return TCL_ERROR;
15278 }
15279
15280
15281 static int
15282 _wrap_tinaLine3_label_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15283 Line3 *arg1 = (Line3 *) 0 ;
15284 unsigned int arg2 ;
15285
15286 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaLine3_label_set self label ",0,&arg2) == TCL_ERROR) SWIG_fail;
15287 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15288 if (arg1) (arg1)->label = arg2;
15289
15290
15291 return TCL_OK;
15292 fail:
15293 return TCL_ERROR;
15294 }
15295
15296
15297 static int
15298 _wrap_tinaLine3_label_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15299 Line3 *arg1 = (Line3 *) 0 ;
15300 unsigned int result;
15301
15302 if (SWIG_GetArgs(interp, objc, objv,"o:tinaLine3_label_get self ",0) == TCL_ERROR) SWIG_fail;
15303 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15304 result = (unsigned int) ((arg1)->label);
15305
15306 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
15307 return TCL_OK;
15308 fail:
15309 return TCL_ERROR;
15310 }
15311
15312
15313 static int
15314 _wrap_tinaLine3_p1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15315 Line3 *arg1 = (Line3 *) 0 ;
15316 struct vec3 *arg2 = (struct vec3 *) 0 ;
15317
15318 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaLine3_p1_set self p1 ",0,0) == TCL_ERROR) SWIG_fail;
15319 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15320 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_vec3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15321 if (arg1) (arg1)->p1 = *arg2;
15322
15323
15324 return TCL_OK;
15325 fail:
15326 return TCL_ERROR;
15327 }
15328
15329
15330 static int
15331 _wrap_tinaLine3_p1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15332 Line3 *arg1 = (Line3 *) 0 ;
15333 struct vec3 *result;
15334
15335 if (SWIG_GetArgs(interp, objc, objv,"o:tinaLine3_p1_get self ",0) == TCL_ERROR) SWIG_fail;
15336 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15337 result = (struct vec3 *)& ((arg1)->p1);
15338
15339 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_vec3,0));
15340 return TCL_OK;
15341 fail:
15342 return TCL_ERROR;
15343 }
15344
15345
15346 static int
15347 _wrap_tinaLine3_p2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15348 Line3 *arg1 = (Line3 *) 0 ;
15349 struct vec3 *arg2 = (struct vec3 *) 0 ;
15350
15351 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaLine3_p2_set self p2 ",0,0) == TCL_ERROR) SWIG_fail;
15352 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15353 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_vec3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15354 if (arg1) (arg1)->p2 = *arg2;
15355
15356
15357 return TCL_OK;
15358 fail:
15359 return TCL_ERROR;
15360 }
15361
15362
15363 static int
15364 _wrap_tinaLine3_p2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15365 Line3 *arg1 = (Line3 *) 0 ;
15366 struct vec3 *result;
15367
15368 if (SWIG_GetArgs(interp, objc, objv,"o:tinaLine3_p2_get self ",0) == TCL_ERROR) SWIG_fail;
15369 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15370 result = (struct vec3 *)& ((arg1)->p2);
15371
15372 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_vec3,0));
15373 return TCL_OK;
15374 fail:
15375 return TCL_ERROR;
15376 }
15377
15378
15379 static int
15380 _wrap_tinaLine3_p_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15381 Line3 *arg1 = (Line3 *) 0 ;
15382 struct vec3 *arg2 = (struct vec3 *) 0 ;
15383
15384 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaLine3_p_set self p ",0,0) == TCL_ERROR) SWIG_fail;
15385 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15386 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_vec3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15387 if (arg1) (arg1)->p = *arg2;
15388
15389
15390 return TCL_OK;
15391 fail:
15392 return TCL_ERROR;
15393 }
15394
15395
15396 static int
15397 _wrap_tinaLine3_p_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15398 Line3 *arg1 = (Line3 *) 0 ;
15399 struct vec3 *result;
15400
15401 if (SWIG_GetArgs(interp, objc, objv,"o:tinaLine3_p_get self ",0) == TCL_ERROR) SWIG_fail;
15402 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15403 result = (struct vec3 *)& ((arg1)->p);
15404
15405 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_vec3,0));
15406 return TCL_OK;
15407 fail:
15408 return TCL_ERROR;
15409 }
15410
15411
15412 static int
15413 _wrap_tinaLine3_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15414 Line3 *arg1 = (Line3 *) 0 ;
15415 struct vec3 *arg2 = (struct vec3 *) 0 ;
15416
15417 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaLine3_v_set self v ",0,0) == TCL_ERROR) SWIG_fail;
15418 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15419 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_vec3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15420 if (arg1) (arg1)->v = *arg2;
15421
15422
15423 return TCL_OK;
15424 fail:
15425 return TCL_ERROR;
15426 }
15427
15428
15429 static int
15430 _wrap_tinaLine3_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15431 Line3 *arg1 = (Line3 *) 0 ;
15432 struct vec3 *result;
15433
15434 if (SWIG_GetArgs(interp, objc, objv,"o:tinaLine3_v_get self ",0) == TCL_ERROR) SWIG_fail;
15435 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15436 result = (struct vec3 *)& ((arg1)->v);
15437
15438 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_vec3,0));
15439 return TCL_OK;
15440 fail:
15441 return TCL_ERROR;
15442 }
15443
15444
15445 static int
15446 _wrap_tinaLine3_length_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15447 Line3 *arg1 = (Line3 *) 0 ;
15448 float arg2 ;
15449
15450 if (SWIG_GetArgs(interp, objc, objv,"of:tinaLine3_length_set self length ",0,&arg2) == TCL_ERROR) SWIG_fail;
15451 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15452 if (arg1) (arg1)->length = arg2;
15453
15454
15455 return TCL_OK;
15456 fail:
15457 return TCL_ERROR;
15458 }
15459
15460
15461 static int
15462 _wrap_tinaLine3_length_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15463 Line3 *arg1 = (Line3 *) 0 ;
15464 float result;
15465
15466 if (SWIG_GetArgs(interp, objc, objv,"o:tinaLine3_length_get self ",0) == TCL_ERROR) SWIG_fail;
15467 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15468 result = (float) ((arg1)->length);
15469
15470 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
15471 return TCL_OK;
15472 fail:
15473 return TCL_ERROR;
15474 }
15475
15476
15477 static int
15478 _wrap_tinaLine3_props_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15479 Line3 *arg1 = (Line3 *) 0 ;
15480 struct list *arg2 = (struct list *) 0 ;
15481
15482 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaLine3_props_set self props ",0,0) == TCL_ERROR) SWIG_fail;
15483 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15484 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_list,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
15485 if (arg1) (arg1)->props = arg2;
15486
15487
15488 return TCL_OK;
15489 fail:
15490 return TCL_ERROR;
15491 }
15492
15493
15494 static int
15495 _wrap_tinaLine3_props_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15496 Line3 *arg1 = (Line3 *) 0 ;
15497 struct list *result;
15498
15499 if (SWIG_GetArgs(interp, objc, objv,"o:tinaLine3_props_get self ",0) == TCL_ERROR) SWIG_fail;
15500 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15501 result = (struct list *) ((arg1)->props);
15502
15503 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_list,0));
15504 return TCL_OK;
15505 fail:
15506 return TCL_ERROR;
15507 }
15508
15509
15510 static int
15511 _wrap_new_tinaLine3(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15512 Line3 *result;
15513
15514 if (SWIG_GetArgs(interp, objc, objv,":new_tinaLine3 ") == TCL_ERROR) SWIG_fail;
15515 result = (Line3 *)(Line3 *) calloc(1, sizeof(Line3));
15516
15517 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Line3,0));
15518 return TCL_OK;
15519 fail:
15520 return TCL_ERROR;
15521 }
15522
15523
15524 static int
15525 _wrap_delete_tinaLine3(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15526 Line3 *arg1 = (Line3 *) 0 ;
15527
15528 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaLine3 self ",0) == TCL_ERROR) SWIG_fail;
15529 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Line3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15530 free((char *) arg1);
15531
15532
15533 return TCL_OK;
15534 fail:
15535 return TCL_ERROR;
15536 }
15537
15538
15539 static void swig_delete_tinaLine3(void *obj) {
15540 Line3 *arg1 = (Line3 *) obj;
15541 free((char *) arg1);
15542 }
15543 static swig_method swig_Line3_methods[] = {
15544 {0,0}
15545 };
15546 static swig_attribute swig_Line3_attributes[] = {
15547 { "-tinaTsId",_wrap_tinaLine3_tinaTsId_get, _wrap_tinaLine3_tinaTsId_set},
15548 { "-type",_wrap_tinaLine3_type_get, _wrap_tinaLine3_type_set},
15549 { "-label",_wrap_tinaLine3_label_get, _wrap_tinaLine3_label_set},
15550 { "-p1",_wrap_tinaLine3_p1_get, _wrap_tinaLine3_p1_set},
15551 { "-p2",_wrap_tinaLine3_p2_get, _wrap_tinaLine3_p2_set},
15552 { "-p",_wrap_tinaLine3_p_get, _wrap_tinaLine3_p_set},
15553 { "-v",_wrap_tinaLine3_v_get, _wrap_tinaLine3_v_set},
15554 { "-length",_wrap_tinaLine3_length_get, _wrap_tinaLine3_length_set},
15555 { "-props",_wrap_tinaLine3_props_get, _wrap_tinaLine3_props_set},
15556 {0,0,0}
15557 };
15558 static swig_class *swig_Line3_bases[] = {0};
15559 swig_class _wrap_class_Line3 = { "tinaLine3", &SWIGTYPE_p_Line3,_wrap_new_tinaLine3, swig_delete_tinaLine3, swig_Line3_methods, swig_Line3_attributes, swig_Line3_bases };
15560 static int
15561 _wrap_tinaPlane_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15562 Plane *arg1 = (Plane *) 0 ;
15563 int arg2 ;
15564
15565 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaPlane_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
15566 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Plane,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15567 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
15568
15569
15570 return TCL_OK;
15571 fail:
15572 return TCL_ERROR;
15573 }
15574
15575
15576 static int
15577 _wrap_tinaPlane_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15578 Plane *arg1 = (Plane *) 0 ;
15579 int result;
15580
15581 if (SWIG_GetArgs(interp, objc, objv,"o:tinaPlane_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
15582 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Plane,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15583 result = (int) ((arg1)->ts_id);
15584
15585 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
15586 return TCL_OK;
15587 fail:
15588 return TCL_ERROR;
15589 }
15590
15591
15592 static int
15593 _wrap_tinaPlane_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15594 Plane *arg1 = (Plane *) 0 ;
15595 unsigned int arg2 ;
15596
15597 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaPlane_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
15598 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Plane,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15599 if (arg1) (arg1)->type = arg2;
15600
15601
15602 return TCL_OK;
15603 fail:
15604 return TCL_ERROR;
15605 }
15606
15607
15608 static int
15609 _wrap_tinaPlane_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15610 Plane *arg1 = (Plane *) 0 ;
15611 unsigned int result;
15612
15613 if (SWIG_GetArgs(interp, objc, objv,"o:tinaPlane_type_get self ",0) == TCL_ERROR) SWIG_fail;
15614 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Plane,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15615 result = (unsigned int) ((arg1)->type);
15616
15617 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
15618 return TCL_OK;
15619 fail:
15620 return TCL_ERROR;
15621 }
15622
15623
15624 static int
15625 _wrap_tinaPlane_label_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15626 Plane *arg1 = (Plane *) 0 ;
15627 unsigned int arg2 ;
15628
15629 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaPlane_label_set self label ",0,&arg2) == TCL_ERROR) SWIG_fail;
15630 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Plane,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15631 if (arg1) (arg1)->label = arg2;
15632
15633
15634 return TCL_OK;
15635 fail:
15636 return TCL_ERROR;
15637 }
15638
15639
15640 static int
15641 _wrap_tinaPlane_label_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15642 Plane *arg1 = (Plane *) 0 ;
15643 unsigned int result;
15644
15645 if (SWIG_GetArgs(interp, objc, objv,"o:tinaPlane_label_get self ",0) == TCL_ERROR) SWIG_fail;
15646 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Plane,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15647 result = (unsigned int) ((arg1)->label);
15648
15649 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
15650 return TCL_OK;
15651 fail:
15652 return TCL_ERROR;
15653 }
15654
15655
15656 static int
15657 _wrap_tinaPlane_p_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15658 Plane *arg1 = (Plane *) 0 ;
15659 struct vec3 *arg2 = (struct vec3 *) 0 ;
15660
15661 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaPlane_p_set self p ",0,0) == TCL_ERROR) SWIG_fail;
15662 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Plane,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15663 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_vec3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15664 if (arg1) (arg1)->p = *arg2;
15665
15666
15667 return TCL_OK;
15668 fail:
15669 return TCL_ERROR;
15670 }
15671
15672
15673 static int
15674 _wrap_tinaPlane_p_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15675 Plane *arg1 = (Plane *) 0 ;
15676 struct vec3 *result;
15677
15678 if (SWIG_GetArgs(interp, objc, objv,"o:tinaPlane_p_get self ",0) == TCL_ERROR) SWIG_fail;
15679 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Plane,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15680 result = (struct vec3 *)& ((arg1)->p);
15681
15682 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_vec3,0));
15683 return TCL_OK;
15684 fail:
15685 return TCL_ERROR;
15686 }
15687
15688
15689 static int
15690 _wrap_tinaPlane_n_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15691 Plane *arg1 = (Plane *) 0 ;
15692 struct vec3 *arg2 = (struct vec3 *) 0 ;
15693
15694 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaPlane_n_set self n ",0,0) == TCL_ERROR) SWIG_fail;
15695 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Plane,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15696 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_vec3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15697 if (arg1) (arg1)->n = *arg2;
15698
15699
15700 return TCL_OK;
15701 fail:
15702 return TCL_ERROR;
15703 }
15704
15705
15706 static int
15707 _wrap_tinaPlane_n_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15708 Plane *arg1 = (Plane *) 0 ;
15709 struct vec3 *result;
15710
15711 if (SWIG_GetArgs(interp, objc, objv,"o:tinaPlane_n_get self ",0) == TCL_ERROR) SWIG_fail;
15712 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Plane,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15713 result = (struct vec3 *)& ((arg1)->n);
15714
15715 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_vec3,0));
15716 return TCL_OK;
15717 fail:
15718 return TCL_ERROR;
15719 }
15720
15721
15722 static int
15723 _wrap_tinaPlane_props_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15724 Plane *arg1 = (Plane *) 0 ;
15725 struct list *arg2 = (struct list *) 0 ;
15726
15727 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaPlane_props_set self props ",0,0) == TCL_ERROR) SWIG_fail;
15728 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Plane,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15729 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_list,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
15730 if (arg1) (arg1)->props = arg2;
15731
15732
15733 return TCL_OK;
15734 fail:
15735 return TCL_ERROR;
15736 }
15737
15738
15739 static int
15740 _wrap_tinaPlane_props_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15741 Plane *arg1 = (Plane *) 0 ;
15742 struct list *result;
15743
15744 if (SWIG_GetArgs(interp, objc, objv,"o:tinaPlane_props_get self ",0) == TCL_ERROR) SWIG_fail;
15745 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Plane,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15746 result = (struct list *) ((arg1)->props);
15747
15748 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_list,0));
15749 return TCL_OK;
15750 fail:
15751 return TCL_ERROR;
15752 }
15753
15754
15755 static int
15756 _wrap_new_tinaPlane(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15757 Plane *result;
15758
15759 if (SWIG_GetArgs(interp, objc, objv,":new_tinaPlane ") == TCL_ERROR) SWIG_fail;
15760 result = (Plane *)(Plane *) calloc(1, sizeof(Plane));
15761
15762 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Plane,0));
15763 return TCL_OK;
15764 fail:
15765 return TCL_ERROR;
15766 }
15767
15768
15769 static int
15770 _wrap_delete_tinaPlane(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15771 Plane *arg1 = (Plane *) 0 ;
15772
15773 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaPlane self ",0) == TCL_ERROR) SWIG_fail;
15774 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Plane,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15775 free((char *) arg1);
15776
15777
15778 return TCL_OK;
15779 fail:
15780 return TCL_ERROR;
15781 }
15782
15783
15784 static void swig_delete_tinaPlane(void *obj) {
15785 Plane *arg1 = (Plane *) obj;
15786 free((char *) arg1);
15787 }
15788 static swig_method swig_Plane_methods[] = {
15789 {0,0}
15790 };
15791 static swig_attribute swig_Plane_attributes[] = {
15792 { "-tinaTsId",_wrap_tinaPlane_tinaTsId_get, _wrap_tinaPlane_tinaTsId_set},
15793 { "-type",_wrap_tinaPlane_type_get, _wrap_tinaPlane_type_set},
15794 { "-label",_wrap_tinaPlane_label_get, _wrap_tinaPlane_label_set},
15795 { "-p",_wrap_tinaPlane_p_get, _wrap_tinaPlane_p_set},
15796 { "-n",_wrap_tinaPlane_n_get, _wrap_tinaPlane_n_set},
15797 { "-props",_wrap_tinaPlane_props_get, _wrap_tinaPlane_props_set},
15798 {0,0,0}
15799 };
15800 static swig_class *swig_Plane_bases[] = {0};
15801 swig_class _wrap_class_Plane = { "tinaPlane", &SWIGTYPE_p_Plane,_wrap_new_tinaPlane, swig_delete_tinaPlane, swig_Plane_methods, swig_Plane_attributes, swig_Plane_bases };
15802 static int
15803 _wrap_tinaPoint2_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15804 Point2 *arg1 = (Point2 *) 0 ;
15805 int arg2 ;
15806
15807 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaPoint2_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
15808 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Point2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15809 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
15810
15811
15812 return TCL_OK;
15813 fail:
15814 return TCL_ERROR;
15815 }
15816
15817
15818 static int
15819 _wrap_tinaPoint2_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15820 Point2 *arg1 = (Point2 *) 0 ;
15821 int result;
15822
15823 if (SWIG_GetArgs(interp, objc, objv,"o:tinaPoint2_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
15824 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Point2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15825 result = (int) ((arg1)->ts_id);
15826
15827 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
15828 return TCL_OK;
15829 fail:
15830 return TCL_ERROR;
15831 }
15832
15833
15834 static int
15835 _wrap_tinaPoint2_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15836 Point2 *arg1 = (Point2 *) 0 ;
15837 unsigned int arg2 ;
15838
15839 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaPoint2_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
15840 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Point2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15841 if (arg1) (arg1)->type = arg2;
15842
15843
15844 return TCL_OK;
15845 fail:
15846 return TCL_ERROR;
15847 }
15848
15849
15850 static int
15851 _wrap_tinaPoint2_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15852 Point2 *arg1 = (Point2 *) 0 ;
15853 unsigned int result;
15854
15855 if (SWIG_GetArgs(interp, objc, objv,"o:tinaPoint2_type_get self ",0) == TCL_ERROR) SWIG_fail;
15856 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Point2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15857 result = (unsigned int) ((arg1)->type);
15858
15859 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
15860 return TCL_OK;
15861 fail:
15862 return TCL_ERROR;
15863 }
15864
15865
15866 static int
15867 _wrap_tinaPoint2_label_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15868 Point2 *arg1 = (Point2 *) 0 ;
15869 unsigned int arg2 ;
15870
15871 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaPoint2_label_set self label ",0,&arg2) == TCL_ERROR) SWIG_fail;
15872 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Point2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15873 if (arg1) (arg1)->label = arg2;
15874
15875
15876 return TCL_OK;
15877 fail:
15878 return TCL_ERROR;
15879 }
15880
15881
15882 static int
15883 _wrap_tinaPoint2_label_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15884 Point2 *arg1 = (Point2 *) 0 ;
15885 unsigned int result;
15886
15887 if (SWIG_GetArgs(interp, objc, objv,"o:tinaPoint2_label_get self ",0) == TCL_ERROR) SWIG_fail;
15888 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Point2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15889 result = (unsigned int) ((arg1)->label);
15890
15891 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
15892 return TCL_OK;
15893 fail:
15894 return TCL_ERROR;
15895 }
15896
15897
15898 static int
15899 _wrap_tinaPoint2_p_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15900 Point2 *arg1 = (Point2 *) 0 ;
15901 struct vec2 *arg2 = (struct vec2 *) 0 ;
15902
15903 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaPoint2_p_set self p ",0,0) == TCL_ERROR) SWIG_fail;
15904 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Point2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15905 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_vec2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15906 if (arg1) (arg1)->p = *arg2;
15907
15908
15909 return TCL_OK;
15910 fail:
15911 return TCL_ERROR;
15912 }
15913
15914
15915 static int
15916 _wrap_tinaPoint2_p_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15917 Point2 *arg1 = (Point2 *) 0 ;
15918 struct vec2 *result;
15919
15920 if (SWIG_GetArgs(interp, objc, objv,"o:tinaPoint2_p_get self ",0) == TCL_ERROR) SWIG_fail;
15921 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Point2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15922 result = (struct vec2 *)& ((arg1)->p);
15923
15924 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_vec2,0));
15925 return TCL_OK;
15926 fail:
15927 return TCL_ERROR;
15928 }
15929
15930
15931 static int
15932 _wrap_tinaPoint2_props_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15933 Point2 *arg1 = (Point2 *) 0 ;
15934 struct list *arg2 = (struct list *) 0 ;
15935
15936 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaPoint2_props_set self props ",0,0) == TCL_ERROR) SWIG_fail;
15937 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Point2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15938 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_list,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
15939 if (arg1) (arg1)->props = arg2;
15940
15941
15942 return TCL_OK;
15943 fail:
15944 return TCL_ERROR;
15945 }
15946
15947
15948 static int
15949 _wrap_tinaPoint2_props_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15950 Point2 *arg1 = (Point2 *) 0 ;
15951 struct list *result;
15952
15953 if (SWIG_GetArgs(interp, objc, objv,"o:tinaPoint2_props_get self ",0) == TCL_ERROR) SWIG_fail;
15954 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Point2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15955 result = (struct list *) ((arg1)->props);
15956
15957 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_list,0));
15958 return TCL_OK;
15959 fail:
15960 return TCL_ERROR;
15961 }
15962
15963
15964 static int
15965 _wrap_new_tinaPoint2(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15966 Point2 *result;
15967
15968 if (SWIG_GetArgs(interp, objc, objv,":new_tinaPoint2 ") == TCL_ERROR) SWIG_fail;
15969 result = (Point2 *)(Point2 *) calloc(1, sizeof(Point2));
15970
15971 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Point2,0));
15972 return TCL_OK;
15973 fail:
15974 return TCL_ERROR;
15975 }
15976
15977
15978 static int
15979 _wrap_delete_tinaPoint2(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
15980 Point2 *arg1 = (Point2 *) 0 ;
15981
15982 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaPoint2 self ",0) == TCL_ERROR) SWIG_fail;
15983 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Point2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
15984 free((char *) arg1);
15985
15986
15987 return TCL_OK;
15988 fail:
15989 return TCL_ERROR;
15990 }
15991
15992
15993 static void swig_delete_tinaPoint2(void *obj) {
15994 Point2 *arg1 = (Point2 *) obj;
15995 free((char *) arg1);
15996 }
15997 static swig_method swig_Point2_methods[] = {
15998 {0,0}
15999 };
16000 static swig_attribute swig_Point2_attributes[] = {
16001 { "-tinaTsId",_wrap_tinaPoint2_tinaTsId_get, _wrap_tinaPoint2_tinaTsId_set},
16002 { "-type",_wrap_tinaPoint2_type_get, _wrap_tinaPoint2_type_set},
16003 { "-label",_wrap_tinaPoint2_label_get, _wrap_tinaPoint2_label_set},
16004 { "-p",_wrap_tinaPoint2_p_get, _wrap_tinaPoint2_p_set},
16005 { "-props",_wrap_tinaPoint2_props_get, _wrap_tinaPoint2_props_set},
16006 {0,0,0}
16007 };
16008 static swig_class *swig_Point2_bases[] = {0};
16009 swig_class _wrap_class_Point2 = { "tinaPoint2", &SWIGTYPE_p_Point2,_wrap_new_tinaPoint2, swig_delete_tinaPoint2, swig_Point2_methods, swig_Point2_attributes, swig_Point2_bases };
16010 static int
16011 _wrap_tinaPoint3_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
16012 Point3 *arg1 = (Point3 *) 0 ;
16013 int arg2 ;
16014
16015 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaPoint3_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
16016 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Point3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
16017 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
16018
16019
16020 return TCL_OK;
16021 fail:
16022 return TCL_ERROR;
16023 }
16024
16025
16026 static int
16027 _wrap_tinaPoint3_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
16028 Point3 *arg1 = (Point3 *) 0 ;
16029 int result;
16030
16031 if (SWIG_GetArgs(interp, objc, objv,"o:tinaPoint3_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
16032 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Point3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
16033 result = (int) ((arg1)->ts_id);
16034
16035 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
16036 return TCL_OK;
16037 fail:
16038 return TCL_ERROR;
16039 }
16040
16041