~ [ source navigation ] ~ [ diff markup ] ~ [ identifier search ] ~ [ freetext search ] ~ [ file search ] ~

Linux Cross Reference
Tina5/tina-libs/swig/tcl/tinaTcl.c

Version: ~
Architecture: ~ [ i386 ] ~ [ alpha ] ~ [ m68k ] ~ [ mips ] ~ [ ppc ] ~ [ sparc ] ~ [ sparc64 ] ~

  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 ;