TINA_libs  5
TINAmachinevisionlibraries
tinaTcl.c
Go to the documentation of this file.
00001 /* ----------------------------------------------------------------------------
00002  * This file was automatically generated by SWIG (http://www.swig.org).
00003  * Version 1.3.19
00004  * 
00005  * This file is not intended to be easily readable and contains a number of 
00006  * coding conventions designed to improve portability and efficiency. Do not make
00007  * changes to this file unless you know what you are doing--modify the SWIG 
00008  * interface file instead. 
00009  * ----------------------------------------------------------------------------- */
00010 
00011 /***********************************************************************
00012  * common.swg
00013  *
00014  *     This file contains generic SWIG runtime support for pointer
00015  *     type checking as well as a few commonly used macros to control
00016  *     external linkage.
00017  *
00018  * Author : David Beazley (beazley@cs.uchicago.edu)
00019  *
00020  * Copyright (c) 1999-2000, The University of Chicago
00021  * 
00022  * This file may be freely redistributed without license or fee provided
00023  * this copyright message remains intact.
00024  ************************************************************************/
00025 
00026 #include <string.h>
00027 
00028 #if defined(_WIN32) || defined(__WIN32__)
00029 #       if defined(_MSC_VER)
00030 #               if defined(STATIC_LINKED)
00031 #                       define SWIGEXPORT(a) a
00032 #                       define SWIGIMPORT(a) extern a
00033 #               else
00034 #                       define SWIGEXPORT(a) __declspec(dllexport) a
00035 #                       define SWIGIMPORT(a) extern a
00036 #               endif
00037 #       else
00038 #               if defined(__BORLANDC__)
00039 #                       define SWIGEXPORT(a) a _export
00040 #                       define SWIGIMPORT(a) a _export
00041 #               else
00042 #                       define SWIGEXPORT(a) a
00043 #                       define SWIGIMPORT(a) a
00044 #               endif
00045 #       endif
00046 #else
00047 #       define SWIGEXPORT(a) a
00048 #       define SWIGIMPORT(a) a
00049 #endif
00050 
00051 #ifdef SWIG_GLOBAL
00052 #define SWIGRUNTIME(a) SWIGEXPORT(a)
00053 #else
00054 #define SWIGRUNTIME(a) static a
00055 #endif
00056 
00057 #ifdef __cplusplus
00058 extern "C" {
00059 #endif
00060 
00061 typedef void *(*swig_converter_func)(void *);
00062 typedef struct swig_type_info *(*swig_dycast_func)(void **);
00063 
00064 typedef struct swig_type_info {
00065   const char             *name;                 
00066   swig_converter_func     converter;
00067   const char             *str;
00068   void                   *clientdata;   
00069   swig_dycast_func        dcast;
00070   struct swig_type_info  *next;
00071   struct swig_type_info  *prev;
00072 } swig_type_info;
00073 
00074 #ifdef SWIG_NOINCLUDE
00075 
00076 SWIGIMPORT(swig_type_info *) SWIG_TypeRegister(swig_type_info *);
00077 SWIGIMPORT(swig_type_info *) SWIG_TypeCheck(char *c, swig_type_info *);
00078 SWIGIMPORT(void *)           SWIG_TypeCast(swig_type_info *, void *);
00079 SWIGIMPORT(swig_type_info *) SWIG_TypeDynamicCast(swig_type_info *, void **);
00080 SWIGIMPORT(const char *)     SWIG_TypeName(const swig_type_info *);
00081 SWIGIMPORT(swig_type_info *) SWIG_TypeQuery(const char *);
00082 SWIGIMPORT(void)             SWIG_TypeClientData(swig_type_info *, void *);
00083 
00084 #else
00085 
00086 static swig_type_info *swig_type_list = 0;
00087 
00088 /* Register a type mapping with the type-checking */
00089 SWIGRUNTIME(swig_type_info *)
00090 SWIG_TypeRegister(swig_type_info *ti)
00091 {
00092   swig_type_info *tc, *head, *ret, *next;
00093   /* Check to see if this type has already been registered */
00094   tc = swig_type_list;
00095   while (tc) {
00096     if (strcmp(tc->name, ti->name) == 0) {
00097       /* Already exists in the table.  Just add additional types to the list */
00098       if (tc->clientdata) ti->clientdata = tc->clientdata;      
00099       head = tc;
00100       next = tc->next;
00101       goto l1;
00102     }
00103     tc = tc->prev;
00104   }
00105   head = ti;
00106   next = 0;
00107 
00108   /* Place in list */
00109   ti->prev = swig_type_list;
00110   swig_type_list = ti;
00111 
00112   /* Build linked lists */
00113  l1:
00114   ret = head;
00115   tc = ti + 1;
00116   /* Patch up the rest of the links */
00117   while (tc->name) {
00118     head->next = tc;
00119     tc->prev = head;
00120     head = tc;
00121     tc++;
00122   }
00123   if (next) next->prev = head;  /**/
00124   head->next = next;
00125   return ret;
00126 }
00127 
00128 /* Check the typename */
00129 SWIGRUNTIME(swig_type_info *) 
00130 SWIG_TypeCheck(char *c, swig_type_info *ty)
00131 {
00132   swig_type_info *s;
00133   if (!ty) return 0;        /* Void pointer */
00134   s = ty->next;             /* First element always just a name */
00135   do {
00136     if (strcmp(s->name,c) == 0) {
00137       if (s == ty->next) return s;
00138       /* Move s to the top of the linked list */
00139       s->prev->next = s->next;
00140       if (s->next) {
00141         s->next->prev = s->prev;
00142       }
00143       /* Insert s as second element in the list */
00144       s->next = ty->next;
00145       if (ty->next) ty->next->prev = s;
00146       ty->next = s;
00147       s->prev = ty;  /**/
00148       return s;
00149     }
00150     s = s->next;
00151   } while (s && (s != ty->next));
00152   return 0;
00153 }
00154 
00155 /* Cast a pointer up an inheritance hierarchy */
00156 SWIGRUNTIME(void *) 
00157 SWIG_TypeCast(swig_type_info *ty, void *ptr) 
00158 {
00159   if ((!ty) || (!ty->converter)) return ptr;
00160   return (*ty->converter)(ptr);
00161 }
00162 
00163 /* Dynamic pointer casting. Down an inheritance hierarchy */
00164 SWIGRUNTIME(swig_type_info *) 
00165 SWIG_TypeDynamicCast(swig_type_info *ty, void **ptr) 
00166 {
00167   swig_type_info *lastty = ty;
00168   if (!ty || !ty->dcast) return ty;
00169   while (ty && (ty->dcast)) {
00170      ty = (*ty->dcast)(ptr);
00171      if (ty) lastty = ty;
00172   }
00173   return lastty;
00174 }
00175 
00176 /* Return the name associated with this type */
00177 SWIGRUNTIME(const char *)
00178 SWIG_TypeName(const swig_type_info *ty) {
00179   return ty->name;
00180 }
00181 
00182 /* Search for a swig_type_info structure */
00183 SWIGRUNTIME(swig_type_info *)
00184 SWIG_TypeQuery(const char *name) {
00185   swig_type_info *ty = swig_type_list;
00186   while (ty) {
00187     if (ty->str && (strcmp(name,ty->str) == 0)) return ty;
00188     if (ty->name && (strcmp(name,ty->name) == 0)) return ty;
00189     ty = ty->prev;
00190   }
00191   return 0;
00192 }
00193 
00194 /* Set the clientdata field for a type */
00195 SWIGRUNTIME(void)
00196 SWIG_TypeClientData(swig_type_info *ti, void *clientdata) {
00197   swig_type_info *tc, *equiv;
00198   if (ti->clientdata == clientdata) return;
00199   ti->clientdata = clientdata;
00200   equiv = ti->next;
00201   while (equiv) {
00202     if (!equiv->converter) {
00203       tc = swig_type_list;
00204       while (tc) {
00205         if ((strcmp(tc->name, equiv->name) == 0))
00206           SWIG_TypeClientData(tc,clientdata);
00207         tc = tc->prev;
00208       }
00209     }
00210     equiv = equiv->next;
00211   }
00212 }
00213 #endif
00214 
00215 #ifdef __cplusplus
00216 }
00217 
00218 #endif
00219 
00220 /*
00221  * $Header: /home/tina/cvs/tina-libs/swig/tcl/tinaTcl.c,v 1.2 2003/09/12 10:29:36 tony Exp $
00222  * 
00223  * swigtcl8.swg
00224  */
00225 
00226 #include <tcl.h>
00227 #include <stdlib.h>
00228 #include <stdarg.h>
00229 #include <ctype.h>
00230 
00231 #ifdef __cplusplus
00232 extern "C" {
00233 #endif
00234 
00235 /* Constant table */
00236 
00237 #define SWIG_TCL_INT     1
00238 #define SWIG_TCL_FLOAT   2
00239 #define SWIG_TCL_STRING  3
00240 #define SWIG_TCL_POINTER 4
00241 #define SWIG_TCL_BINARY  5
00242 
00243 /* Flags for pointer conversion */
00244 #define SWIG_POINTER_EXCEPTION     0x1
00245 #define SWIG_POINTER_DISOWN        0x2
00246 
00247 /* Swig fail macro */
00248 
00249 #define SWIG_fail   goto fail
00250    
00251 /* Constant information structure */
00252 typedef struct swig_const_info {
00253     int type;
00254     char *name;
00255     long lvalue;
00256     double dvalue;
00257     void   *pvalue;
00258     swig_type_info **ptype;
00259 } swig_const_info;
00260 
00261 typedef int   (*swig_wrapper)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST []);
00262 typedef int   (*swig_wrapper_func)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST []);
00263 typedef char *(*swig_variable_func)(ClientData, Tcl_Interp *, char *, char *, int);
00264 typedef void  (*swig_delete_func)(ClientData);
00265 
00266 typedef struct swig_method { 
00267   const char     *name;
00268   swig_wrapper   method;
00269 } swig_method;
00270 
00271 typedef struct swig_attribute {
00272   const char     *name;
00273   swig_wrapper   getmethod;
00274   swig_wrapper   setmethod;
00275 } swig_attribute;
00276   
00277 typedef struct swig_class {
00278   const char         *name;
00279   swig_type_info   **type;
00280   swig_wrapper       constructor;
00281   void              (*destructor)(void *);
00282   swig_method        *methods;
00283   swig_attribute     *attributes;
00284   struct swig_class **bases;
00285 } swig_class;
00286 
00287 typedef struct swig_instance {
00288   Tcl_Obj       *thisptr;
00289   void          *thisvalue;
00290   swig_class   *classptr;
00291   int            destroy;
00292   Tcl_Command    cmdtok;
00293 } swig_instance;
00294 
00295 #ifdef SWIG_NOINCLUDE
00296 SWIGEXPORT(char *)    SWIG_PackData(char *c, void *ptr, int sz);
00297 SWIGEXPORT(char *)    SWIG_UnpackData(char *c, void *ptr, int sz);
00298 SWIGEXPORT(int)       SWIG_ConvertPtrFromString(Tcl_Interp *, char *, void **, swig_type_info *,int flags);
00299 SWIGEXPORT(int)       SWIG_ConvertPtr(Tcl_Interp *, Tcl_Obj *, void **, swig_type_info *, int flags);
00300 SWIGEXPORT(int)       SWIG_ConvertPacked(Tcl_Interp *, Tcl_Obj *, void *, int sz, swig_type_info *, int flags);
00301 SWIGEXPORT(void)      SWIG_MakePtr(char *, void *, swig_type_info *, int flags);
00302 SWIGEXPORT(Tcl_Obj *) SWIG_NewPointerObj(void *, swig_type_info *, int flags);
00303 SWIGEXPORT(Tcl_Obj *) SWIG_NewPackedObj(void *, int sz, swig_type_info *, int flags);
00304 SWIGEXPORT(int)       SWIG_GetArgs(Tcl_Interp *, int, Tcl_Obj *CONST [], const char *, ...);
00305 SWIGEXPORT(char *)    SWIG_PointerTypeFromString(char *c);
00306 SWIGEXPORT(void)      SWIG_Acquire(void *ptr);
00307 SWIGEXPORT(int)       SWIG_Disown(void *ptr);
00308 SWIGEXPORT(int)       SWIG_Thisown(void *ptr);
00309 SWIGEXPORT(void)      SWIG_InstallConstants(Tcl_Interp *interp, struct swig_const_info constants[]);
00310 SWIGEXPORT(Tcl_Obj *) SWIG_GetConstant(const char *key);
00311 SWIGEXPORT(Tcl_Obj *) SWIG_NewInstanceObj(Tcl_Interp *interp, void *, swig_type_info *, int flags);
00312 SWIGEXPORT(int)       SWIG_ObjectConstructor(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]);
00313 SWIGEXPORT(int)       SWIG_MethodCommand(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]);
00314 SWIGEXPORT(void)      SWIG_ObjectDelete(ClientData);
00315 #else
00316 
00317 /* Object support */
00318 static Tcl_HashTable  swigobjectTable;
00319 static int            swigobjectTableinit = 0;
00320 
00321 /* Acquire ownership of a pointer */
00322 SWIGRUNTIME(void)
00323 SWIG_Acquire(void *ptr)
00324 {
00325   Tcl_HashEntry *entryPtr;
00326   int newobj;
00327   if (!swigobjectTableinit) {
00328     Tcl_InitHashTable(&swigobjectTable, TCL_ONE_WORD_KEYS);
00329     swigobjectTableinit = 1;
00330   }
00331   entryPtr = Tcl_CreateHashEntry(&swigobjectTable, (char *) ptr, &newobj);
00332 }
00333 
00334 /* Disown a pointer.  Returns 1 if we owned it to begin with */
00335 SWIGRUNTIME(int)
00336 SWIG_Disown(void *ptr)
00337 {
00338   Tcl_HashEntry *entryPtr;
00339   if (!swigobjectTableinit) return 0;
00340   entryPtr = Tcl_FindHashEntry(&swigobjectTable, (char *) ptr);
00341   if (entryPtr) {
00342     Tcl_DeleteHashEntry(entryPtr);
00343     return 1;
00344   } 
00345   return 0;
00346 }
00347 
00348 SWIGRUNTIME(int)
00349 SWIG_Thisown(void *ptr) {
00350   if (!swigobjectTableinit) return 0;
00351   if (Tcl_FindHashEntry(&swigobjectTable, (char *) ptr)) {
00352     return 1;
00353   }
00354   return 0;
00355 }
00356 
00357 /* Pack binary data into a string */
00358 SWIGRUNTIME(char *)
00359 SWIG_PackData(char *c, void *ptr, int sz) {
00360   static char hex[17] = "0123456789abcdef";
00361   int i;
00362   unsigned char *u = (unsigned char *) ptr;
00363   register unsigned char uu;
00364   for (i = 0; i < sz; i++,u++) {
00365     uu = *u;
00366     *(c++) = hex[(uu & 0xf0) >> 4];
00367     *(c++) = hex[uu & 0xf];
00368   }
00369   return c;
00370 }
00371 
00372 /* Unpack binary data from a string */
00373 SWIGRUNTIME(char *)
00374 SWIG_UnpackData(char *c, void *ptr, int sz) {
00375   register unsigned char uu = 0;
00376   register int d;
00377   unsigned char *u = (unsigned char *) ptr;
00378   int i;
00379   if ((int)strlen(c) < (2*sz)) return c;
00380   for (i = 0; i < sz; i++, u++) {
00381     d = *(c++);
00382     if ((d >= '0') && (d <= '9'))
00383       uu = ((d - '0') << 4);
00384     else if ((d >= 'a') && (d <= 'f'))
00385       uu = ((d - ('a'-10)) << 4);
00386     d = *(c++);
00387     if ((d >= '0') && (d <= '9'))
00388       uu |= (d - '0');
00389     else if ((d >= 'a') && (d <= 'f'))
00390       uu |= (d - ('a'-10));
00391     *u = uu;
00392   }
00393   return c;
00394 }
00395 
00396 /* Convert a pointer value */
00397 SWIGRUNTIME(int)
00398 SWIG_ConvertPtrFromString(Tcl_Interp *interp, char *c, void **ptr, swig_type_info *ty, int flags)
00399 {
00400   swig_type_info *tc;
00401   /* Pointer values must start with leading underscore */
00402   while (*c != '_') {
00403     *ptr = (void *) 0;
00404     if (strcmp(c,"NULL") == 0) return TCL_OK;
00405     /* Hmmm. It could be an object name. */
00406     if (Tcl_VarEval(interp,c," cget -this", (char *) NULL) == TCL_OK) {
00407       Tcl_Obj *result = Tcl_GetObjResult(interp);
00408       c = Tcl_GetStringFromObj(result, NULL);
00409       continue;
00410     }
00411     if (flags & SWIG_POINTER_EXCEPTION) 
00412       Tcl_SetResult(interp, (char *) "Type error. Expected a pointer", TCL_STATIC);
00413     return TCL_ERROR;
00414   }
00415   c++;
00416   c = SWIG_UnpackData(c,ptr,sizeof(void *));
00417   if (ty) {
00418     tc = SWIG_TypeCheck(c,ty);
00419     if ((!tc) && (flags & SWIG_POINTER_EXCEPTION)) {
00420       Tcl_SetResult(interp, (char *) "Type error. Expected ", TCL_STATIC);
00421       Tcl_AppendElement(interp, (char *) ty->name);
00422       return TCL_ERROR;
00423     } else if (!tc) {
00424       return TCL_ERROR;
00425     }
00426     if (flags & SWIG_POINTER_DISOWN) {
00427       SWIG_Disown((void *) *ptr);
00428     }
00429     *ptr = SWIG_TypeCast(tc,(void *) *ptr);
00430   }
00431   return TCL_OK;
00432 }
00433 
00434 /* Convert a pointer value */
00435 SWIGRUNTIME(int)
00436 SWIG_ConvertPtr(Tcl_Interp *interp, Tcl_Obj *oc, void **ptr, swig_type_info *ty, int flags)
00437 {
00438   return SWIG_ConvertPtrFromString(interp, Tcl_GetStringFromObj(oc,NULL), ptr, ty, flags);
00439 }
00440 
00441 /* Convert a pointer value */
00442 SWIGRUNTIME(char *)
00443 SWIG_PointerTypeFromString(char *c) {
00444   char d;
00445   /* Pointer values must start with leading underscore. NULL has no type */
00446   if (*c != '_') {
00447     return 0;
00448   }
00449   c++;
00450   /* Extract hex value from pointer */
00451   while ((d = *c)) {
00452     if (!(((d >= '0') && (d <= '9')) || ((d >= 'a') && (d <= 'f')))) break;
00453     c++;
00454   }
00455   return c;
00456 }
00457 
00458 /* Convert a packed value value */
00459 SWIGRUNTIME(int)
00460 SWIG_ConvertPacked(Tcl_Interp *interp, Tcl_Obj *obj, void *ptr, int sz, swig_type_info *ty, int flags) {
00461   swig_type_info *tc;
00462   char  *c;
00463   
00464   if (!obj) goto type_error;
00465   c = Tcl_GetStringFromObj(obj,NULL);
00466   /* Pointer values must start with leading underscore */
00467   if (*c != '_') goto type_error;
00468   c++;
00469   c = SWIG_UnpackData(c,ptr,sz);
00470   if (ty) {
00471     tc = SWIG_TypeCheck(c,ty);
00472     if (!tc) goto type_error;
00473   }
00474   return TCL_OK;
00475 
00476 type_error:
00477 
00478   if (flags) {
00479     if (ty) {
00480       Tcl_SetResult(interp, (char *) "Type error. Expected ", TCL_STATIC);
00481       Tcl_AppendElement(interp, (char *) ty->name);
00482       return TCL_ERROR;
00483     } else {
00484       Tcl_SetResult(interp, (char *) "Expected packed data.", TCL_STATIC);
00485       return TCL_ERROR;
00486     }
00487   }
00488   return TCL_ERROR;
00489 }
00490 
00491 
00492 /* Take a pointer and convert it to a string */
00493 SWIGRUNTIME(void) 
00494 SWIG_MakePtr(char *c, void *ptr, swig_type_info *ty, int flags) {
00495   if (ptr) {
00496     *(c++) = '_';
00497     c = SWIG_PackData(c,&ptr,sizeof(void *));
00498     strcpy(c,ty->name);
00499   } else {
00500     strcpy(c,(char *)"NULL");
00501   }
00502   flags = 0;
00503 }
00504 
00505 /* Create a new pointer object */
00506 SWIGRUNTIME(Tcl_Obj *)
00507 SWIG_NewPointerObj(void *ptr, swig_type_info *type, int flags) {
00508   Tcl_Obj *robj;
00509   char result[512];
00510   SWIG_MakePtr(result,ptr,type,flags);
00511   robj = Tcl_NewStringObj(result,-1);
00512   return robj;
00513 }
00514 
00515 SWIGRUNTIME(Tcl_Obj *)
00516 SWIG_NewPackedObj(void *ptr, int sz, swig_type_info *type, int flags) {
00517   char result[1024];
00518   char *r = result;
00519   if ((2*sz + 1 + strlen(type->name)) > 1000) return 0;
00520   *(r++) = '_';
00521   r = SWIG_PackData(r,ptr,sz);
00522   strcpy(r,type->name);
00523   flags = 0;
00524   return Tcl_NewStringObj(result,-1);
00525 }
00526 
00527 static Tcl_HashTable   swigconstTable;
00528 static int             swigconstTableinit = 0;
00529 
00530 /* Install Constants */
00531 SWIGRUNTIME(void)
00532 SWIG_InstallConstants(Tcl_Interp *interp, swig_const_info constants[]) {
00533   int i;
00534   Tcl_Obj *obj;
00535   Tcl_HashEntry *entryPtr;
00536   int            newobj;
00537 
00538   if (!swigconstTableinit) {
00539     Tcl_InitHashTable(&swigconstTable, TCL_STRING_KEYS);
00540     swigconstTableinit = 1;
00541   }
00542   for (i = 0; constants[i].type; i++) {
00543     switch(constants[i].type) {
00544     case SWIG_TCL_INT:
00545       obj = Tcl_NewIntObj(constants[i].lvalue);
00546       break;
00547     case SWIG_TCL_FLOAT:
00548       obj = Tcl_NewDoubleObj(constants[i].dvalue);
00549       break;
00550     case SWIG_TCL_STRING:
00551       obj = Tcl_NewStringObj((char *) constants[i].pvalue,-1);
00552       break;
00553     case SWIG_TCL_POINTER:
00554       obj = SWIG_NewPointerObj(constants[i].pvalue, *(constants[i]).ptype,0);
00555       break;
00556     case SWIG_TCL_BINARY:
00557       obj = SWIG_NewPackedObj(constants[i].pvalue, constants[i].lvalue, *(constants[i].ptype),0);
00558       break;
00559     default:
00560       obj = 0;
00561       break;
00562     }
00563     if (obj) {
00564       Tcl_ObjSetVar2(interp,Tcl_NewStringObj(constants[i].name,-1), NULL, obj, TCL_GLOBAL_ONLY);
00565       entryPtr = Tcl_CreateHashEntry(&swigconstTable, constants[i].name, &newobj);
00566       Tcl_SetHashValue(entryPtr, (ClientData) obj);
00567     }
00568   }
00569 }
00570 
00571 SWIGRUNTIME(Tcl_Obj *)
00572 SWIG_GetConstant(const char *key) {
00573   Tcl_HashEntry *entryPtr;
00574   if (!swigconstTableinit) return 0;
00575   entryPtr = Tcl_FindHashEntry(&swigconstTable, key);
00576   if (entryPtr) {
00577     return (Tcl_Obj *) Tcl_GetHashValue(entryPtr);
00578   }
00579   printf("Searching %s\n", key);
00580   return 0;
00581 }
00582 
00583 /* Get arguments */
00584 SWIGRUNTIME(int)
00585 SWIG_GetArgs(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], const char *fmt, ...)
00586 {
00587   int        argno = 0, opt = 0, tempi;
00588   double     tempd;
00589   const char *c;
00590   va_list    ap;
00591   void      *vptr;
00592   Tcl_Obj   *obj = 0;
00593   swig_type_info *ty;
00594 
00595   va_start(ap,fmt);
00596   for (c = fmt; (*c && (*c != ':') && (*c != ';')); c++,argno++) {
00597     if (*c == '|') {
00598       opt = 1;
00599       c++;
00600     }
00601     if (argno >= (objc-1)) {
00602       if (!opt) {
00603         Tcl_SetResult(interp, (char *) "Wrong # args. ", TCL_STATIC);
00604         goto argerror;
00605       } else {
00606         va_end(ap);
00607         return TCL_OK;
00608       }
00609     }
00610 
00611     vptr = va_arg(ap,void *);
00612     if (vptr) {
00613       if (isupper(*c)) {
00614         obj = SWIG_GetConstant(Tcl_GetStringFromObj(objv[argno+1],0));
00615         if (!obj) obj = objv[argno+1];
00616       } else {
00617         obj = objv[argno+1];
00618       }
00619       switch(*c) {
00620       case 'i': case 'I':
00621       case 'l': case 'L':
00622       case 'h': case 'H':
00623       case 'b': case 'B':
00624         if (Tcl_GetIntFromObj(interp,obj,&tempi) != TCL_OK) goto argerror;
00625         if ((*c == 'i') || (*c == 'I')) *((int *)vptr) = tempi;
00626         else if ((*c == 'l') || (*c == 'L')) *((long *)vptr) = tempi;
00627         else if ((*c == 'h') || (*c == 'H')) *((short*)vptr) = tempi;
00628         else if ((*c == 'b') || (*c == 'B')) *((unsigned char *)vptr) = tempi;
00629         break;
00630       case 'f': case 'F':
00631       case 'd': case 'D':
00632         if (Tcl_GetDoubleFromObj(interp,obj,&tempd) != TCL_OK) goto argerror;
00633         if ((*c == 'f') || (*c == 'F')) *((float *) vptr) = (float)tempd;
00634         else if ((*c == 'd') || (*c == 'D')) *((double*) vptr) = tempd;
00635         break;
00636       case 's': case 'S':
00637         if (*(c+1) == '#') {
00638           int *vlptr = (int *) va_arg(ap, void *);
00639           *((char **) vptr) = Tcl_GetStringFromObj(obj, vlptr);
00640           c++;
00641         } else {
00642           *((char **)vptr) = Tcl_GetStringFromObj(obj,NULL);
00643         }
00644         break;
00645       case 'c': case 'C':
00646         *((char *)vptr) = *(Tcl_GetStringFromObj(obj,NULL));
00647         break;
00648       case 'p': case 'P':
00649         ty = (swig_type_info *) va_arg(ap, void *);
00650         if (SWIG_ConvertPtr(interp, obj, (void **) vptr, ty, SWIG_POINTER_EXCEPTION) == TCL_ERROR) goto argerror;
00651         break;
00652       case 'o': case 'O':
00653         *((Tcl_Obj **)vptr) = objv[argno+1];
00654         break;
00655       default:
00656         break;
00657       }
00658     }
00659   }
00660   
00661   if ((*c != ';') && ((objc-1) > argno)) {
00662     Tcl_SetResult(interp, (char *) "Wrong # args.", TCL_STATIC);
00663     goto argerror;
00664   }
00665   va_end(ap);
00666   return TCL_OK;
00667   
00668  argerror:
00669   {
00670     char temp[32];
00671     sprintf(temp,"%d", argno+1);
00672     c = strchr(fmt,':');
00673     if (!c) c = strchr(fmt,';');
00674     if (!c) c = (char *)"";
00675     Tcl_AppendResult(interp,c," argument ", temp, NULL);
00676     va_end(ap);
00677     return TCL_ERROR;
00678   }
00679 }
00680 
00681 SWIGRUNTIME(void)
00682 SWIG_ObjectDelete(ClientData clientData) {
00683   swig_instance *si = (swig_instance *) clientData;
00684   if ((si) && (si->destroy) && (SWIG_Disown(si->thisvalue))) {
00685     if (si->classptr->destructor) {
00686       (si->classptr->destructor)(si->thisvalue);
00687     }
00688   }
00689   Tcl_DecrRefCount(si->thisptr);
00690   free(si);
00691 }
00692 
00693 /* Function to invoke object methods given an instance */
00694 SWIGRUNTIME(int)
00695 SWIG_MethodCommand(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[])
00696 {
00697   char *method,   *attrname;
00698   swig_instance   *inst = (swig_instance *) clientData;
00699   swig_method     *meth;
00700   swig_attribute  *attr;
00701   Tcl_Obj         *oldarg;
00702   Tcl_Obj         **objv;
00703   int              rcode;
00704   swig_class      *cls;
00705   swig_class      *cls_stack[64];
00706   int              cls_stack_bi[64];
00707   int              cls_stack_top = 0;
00708   int              numconf = 2;
00709   int              bi;
00710 
00711   objv = (Tcl_Obj **) _objv;
00712   if (objc < 2) {
00713     Tcl_SetResult(interp, (char *) "wrong # args.", TCL_STATIC);
00714     return TCL_ERROR;
00715   }
00716   method = Tcl_GetStringFromObj(objv[1],NULL);
00717   if (strcmp(method,"-acquire") == 0) {
00718     inst->destroy = 1;
00719     SWIG_Acquire(inst->thisvalue);
00720     return TCL_OK;
00721   } 
00722   if (strcmp(method,"-disown") == 0) {
00723     if (inst->destroy) {
00724       SWIG_Disown(inst->thisvalue);
00725     }
00726     inst->destroy = 0;
00727     return TCL_OK;
00728   }
00729   if (strcmp(method,"-delete") == 0) {
00730     Tcl_DeleteCommandFromToken(interp,inst->cmdtok);
00731     return TCL_OK;
00732   }
00733   cls_stack[cls_stack_top] = inst->classptr;
00734   cls_stack_bi[cls_stack_top] = -1;
00735   cls = inst->classptr;
00736   while (1) {
00737     bi = cls_stack_bi[cls_stack_top];
00738     cls = cls_stack[cls_stack_top];
00739     if (bi != -1) {
00740       cls = cls->bases[bi];
00741       if (cls) {
00742         cls_stack_bi[cls_stack_top]++;
00743         cls_stack_top++;
00744         cls_stack[cls_stack_top] = cls;
00745         cls_stack_bi[cls_stack_top] = -1;
00746         continue;
00747       }
00748     }
00749     if (!cls) {
00750       cls_stack_top--;
00751       if (cls_stack_top < 0) break;
00752       else continue;
00753     }
00754     cls_stack_bi[cls_stack_top]++;
00755 
00756     meth = cls->methods;
00757     /* Check for methods */
00758     while (meth && meth->name) {
00759       if (strcmp(meth->name,method) == 0) {
00760         oldarg = objv[1];
00761         objv[1] = inst->thisptr;
00762         Tcl_IncrRefCount(inst->thisptr);
00763         rcode = (*meth->method)(clientData,interp,objc,objv);
00764         objv[1] = oldarg;
00765         Tcl_DecrRefCount(inst->thisptr);
00766         return rcode;
00767       }
00768       meth++;
00769     }
00770     /* Check class methods for a match */
00771     if (strcmp(method,"cget") == 0) {
00772       if (objc < 3) {
00773         Tcl_SetResult(interp, (char *) "wrong # args.", TCL_STATIC);
00774         return TCL_ERROR;
00775       }
00776       attrname = Tcl_GetStringFromObj(objv[2],NULL);
00777       attr = cls->attributes;
00778       while (attr && attr->name) {
00779         if ((strcmp(attr->name, attrname) == 0) && (attr->getmethod)) {
00780           oldarg = objv[1];
00781           objv[1] = inst->thisptr;
00782           Tcl_IncrRefCount(inst->thisptr);
00783           rcode = (*attr->getmethod)(clientData,interp,2, objv);
00784           objv[1] = oldarg;
00785           Tcl_DecrRefCount(inst->thisptr);
00786           return rcode;
00787         }
00788         attr++;
00789       }
00790       if (strcmp(attrname, "-this") == 0) {
00791         Tcl_SetObjResult(interp, Tcl_DuplicateObj(inst->thisptr));
00792         return TCL_OK;
00793       }
00794       if (strcmp(attrname, "-thisown") == 0) {
00795         if (SWIG_Thisown(inst->thisvalue)) {
00796           Tcl_SetResult(interp,(char*)"1",TCL_STATIC);
00797         } else {
00798           Tcl_SetResult(interp,(char*)"0",TCL_STATIC);
00799         }
00800         return TCL_OK;
00801       }
00802     } else if (strcmp(method, "configure") == 0) {
00803       int i;
00804       if (objc < 4) {
00805         Tcl_SetResult(interp, (char *) "wrong # args.", TCL_STATIC);
00806         return TCL_ERROR;
00807       }
00808       i = 2;
00809       while (i < objc) {
00810         attrname = Tcl_GetStringFromObj(objv[i],NULL);
00811         attr = cls->attributes;
00812         while (attr && attr->name) {
00813           if ((strcmp(attr->name, attrname) == 0) && (attr->setmethod)) {
00814             oldarg = objv[i];
00815             objv[i] = inst->thisptr;
00816             Tcl_IncrRefCount(inst->thisptr);
00817             rcode = (*attr->setmethod)(clientData,interp,3, &objv[i-1]);
00818             objv[i] = oldarg;
00819             Tcl_DecrRefCount(inst->thisptr);
00820             if (rcode != TCL_OK) return rcode;
00821             numconf += 2;
00822           }
00823           attr++;
00824         }
00825         i+=2;
00826       }
00827     }
00828   }
00829   if (strcmp(method,"configure") == 0) {
00830     if (numconf >= objc) {
00831       return TCL_OK;
00832     } else {
00833       Tcl_SetResult(interp,(char *) "Invalid attribute name.", TCL_STATIC);
00834       return TCL_ERROR;
00835     }
00836   }
00837   if (strcmp(method,"cget") == 0) {
00838       Tcl_SetResult(interp,(char *) "Invalid attribute name.", TCL_STATIC);
00839       return TCL_ERROR;
00840   }
00841 
00842   Tcl_SetResult(interp, (char *) "Invalid method. Must be one of: configure cget -acquire -disown -delete", TCL_STATIC);
00843   cls = inst->classptr;
00844   bi = 0;
00845   while (cls) {
00846     meth = cls->methods;
00847     while (meth && meth->name) {
00848       char *cr = (char *) Tcl_GetStringResult(interp);
00849       if (!strstr(strchr(cr,':'), meth->name))
00850         Tcl_AppendElement(interp, (char *) meth->name);
00851       meth++;
00852     }
00853     cls = inst->classptr->bases[bi++];
00854   }
00855   return TCL_ERROR;
00856 }
00857 
00858 /* Function to create objects */
00859 SWIGRUNTIME(int)
00860 SWIG_ObjectConstructor(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
00861 {
00862     Tcl_Obj          *newObj = 0;
00863     void             *thisvalue = 0;
00864     swig_instance   *newinst = 0;
00865     swig_class      *classptr = (swig_class *) clientData;
00866     swig_wrapper     cons = 0;
00867     char             *name = 0;
00868     int               firstarg = 0;
00869     int               thisarg = 0;
00870     int               destroy = 1; 
00871 
00872     if (!classptr) {
00873       Tcl_SetResult(interp, (char *) "swig: internal runtime error. No class object defined.", TCL_STATIC);
00874       return TCL_ERROR;
00875     }
00876     cons = classptr->constructor;
00877     if (objc > 1) {
00878       char *s = Tcl_GetStringFromObj(objv[1],NULL);
00879       if (strcmp(s,"-this") == 0) {
00880         thisarg = 2;
00881         cons = 0;
00882       } else if (strcmp(s,"-args") == 0) {
00883         firstarg = 1;
00884       } else if (objc == 2) {
00885         firstarg = 1;
00886         name = s;
00887       } else if (objc >= 3) {
00888         char *s1;
00889         name = s;
00890         s1 = Tcl_GetStringFromObj(objv[2],NULL);
00891         if (strcmp(s1,"-this") == 0) {
00892           thisarg = 3;
00893           cons = 0;
00894         } else {
00895           firstarg = 1;
00896         }
00897       }
00898     }
00899     if (cons) {
00900       int result;
00901       result = (*cons)(0, interp, objc-firstarg, &objv[firstarg]);
00902       if (result != TCL_OK) {
00903         return result;
00904       }
00905       newObj = Tcl_DuplicateObj(Tcl_GetObjResult(interp));
00906       if (!name) name = Tcl_GetStringFromObj(newObj,NULL);
00907     } else if (thisarg > 0) {
00908       if (thisarg < objc) {
00909         destroy = 0;
00910         newObj = Tcl_DuplicateObj(objv[thisarg]);
00911         if (!name) name = Tcl_GetStringFromObj(newObj,NULL);
00912       } else {
00913         Tcl_SetResult(interp, (char *) "wrong # args.", TCL_STATIC);
00914         return TCL_ERROR;
00915       }
00916     } else {
00917       Tcl_SetResult(interp, (char *) "No constructor available.", TCL_STATIC);
00918       return TCL_ERROR;
00919     }
00920     if (SWIG_ConvertPtr(interp,newObj, (void **) &thisvalue, *(classptr->type), SWIG_POINTER_EXCEPTION) == TCL_ERROR) {
00921       Tcl_DecrRefCount(newObj);
00922       return TCL_ERROR;
00923     }
00924     newinst = (swig_instance *) malloc(sizeof(swig_instance));
00925     newinst->thisptr = newObj;
00926     Tcl_IncrRefCount(newObj);
00927     newinst->thisvalue = thisvalue;
00928     newinst->classptr = classptr;
00929     newinst->destroy = destroy;
00930     if (destroy) {
00931       SWIG_Acquire(thisvalue);
00932     }
00933     newinst->cmdtok = Tcl_CreateObjCommand(interp,name, (swig_wrapper) SWIG_MethodCommand, (ClientData) newinst, (swig_delete_func) SWIG_ObjectDelete);
00934     return TCL_OK;
00935 }
00936 
00937 
00938 /* This function takes the current result and turns it into an object command */
00939 SWIGRUNTIME(Tcl_Obj *)
00940 SWIG_NewInstanceObj(Tcl_Interp *interp, void *thisvalue, swig_type_info *type, int flags) {
00941   Tcl_Obj *robj = SWIG_NewPointerObj(thisvalue, type,0);
00942   /* Check to see if this pointer belongs to a class or not */
00943   if ((type->clientdata) && (interp)) {
00944     Tcl_CmdInfo    ci;
00945     char          *name;
00946     name = Tcl_GetStringFromObj(robj,NULL);
00947     if (!Tcl_GetCommandInfo(interp,name, &ci) || (flags)) {
00948       swig_instance *newinst = (swig_instance *) malloc(sizeof(swig_instance));
00949       newinst->thisptr = Tcl_DuplicateObj(robj);
00950       Tcl_IncrRefCount(newinst->thisptr);
00951       newinst->thisvalue = thisvalue;
00952       newinst->classptr = (swig_class *) type->clientdata;
00953       newinst->destroy = flags;
00954       newinst->cmdtok = Tcl_CreateObjCommand(interp, Tcl_GetStringFromObj(robj,NULL), (swig_wrapper_func) SWIG_MethodCommand, (ClientData) newinst, (swig_delete_func) SWIG_ObjectDelete);
00955       if (flags) {
00956         SWIG_Acquire(thisvalue);
00957       }
00958     }
00959   }
00960   return robj;
00961 }
00962 
00963 #endif
00964 
00965 /* Structure for command table */
00966 typedef struct {
00967   const char *name;
00968   int       (*wrapper)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST []);
00969   ClientData  clientdata;
00970 } swig_command_info;
00971 
00972 /* Structure for variable linking table */
00973 typedef struct {
00974   const char *name;
00975   void *addr;
00976   char * (*get)(ClientData, Tcl_Interp *, char *, char *, int);
00977   char * (*set)(ClientData, Tcl_Interp *, char *, char *, int);
00978 } swig_var_info;
00979 
00980 #ifdef __cplusplus
00981 }
00982 #endif
00983 
00984 
00985 
00986 
00987 
00988 
00989 /* -------- TYPES TABLE (BEGIN) -------- */
00990 
00991 #define  SWIGTYPE_p_f___p_void swig_types[0] 
00992 #define  SWIGTYPE_p_void swig_types[1] 
00993 #define  SWIGTYPE_p_p_p_void swig_types[2] 
00994 #define  SWIGTYPE_p_p_void swig_types[3] 
00995 #define  SWIGTYPE_p_pwrte_gen swig_types[4] 
00996 #define  SWIGTYPE_p_Pwrte_gen swig_types[5] 
00997 #define  SWIGTYPE_p_f___void swig_types[6] 
00998 #define  SWIGTYPE_p_p_unsigned_char swig_types[7] 
00999 #define  SWIGTYPE_p_unsigned_char swig_types[8] 
01000 #define  SWIGTYPE_p_Sequence swig_types[9] 
01001 #define  SWIGTYPE_p_Point2 swig_types[10] 
01002 #define  SWIGTYPE_p_Hough1_peak swig_types[11] 
01003 #define  SWIGTYPE_p_Point3 swig_types[12] 
01004 #define  SWIGTYPE_p_list swig_types[13] 
01005 #define  SWIGTYPE_p_p_Spline swig_types[14] 
01006 #define  SWIGTYPE_p_Spline swig_types[15] 
01007 #define  SWIGTYPE_p_p_List swig_types[16] 
01008 #define  SWIGTYPE_p_List swig_types[17] 
01009 #define  SWIGTYPE_p_Mat swig_types[18] 
01010 #define  SWIGTYPE_p_Perfusion swig_types[19] 
01011 #define  SWIGTYPE_p_Parcam swig_types[20] 
01012 #define  SWIGTYPE_p_Edgel swig_types[21] 
01013 #define  SWIGTYPE_p_Conic3 swig_types[22] 
01014 #define  SWIGTYPE_p_a_2__float swig_types[23] 
01015 #define  SWIGTYPE_p_a_3__float swig_types[24] 
01016 #define  SWIGTYPE_p_a_4__float swig_types[25] 
01017 #define  SWIGTYPE_p_Match swig_types[26] 
01018 #define  SWIGTYPE_p_Viols_node swig_types[27] 
01019 #define  SWIGTYPE_p_Varptrptr swig_types[28] 
01020 #define  SWIGTYPE_p_varptrptr swig_types[29] 
01021 #define  SWIGTYPE_p_Ipos swig_types[30] 
01022 #define  SWIGTYPE_p_Plane swig_types[31] 
01023 #define  SWIGTYPE_p_Conic swig_types[32] 
01024 #define  SWIGTYPE_p_Tstring swig_types[33] 
01025 #define  SWIGTYPE_p_p_unsigned_int swig_types[34] 
01026 #define  SWIGTYPE_p_unsigned_int swig_types[35] 
01027 #define  SWIGTYPE_p_shistogram swig_types[36] 
01028 #define  SWIGTYPE_p_p_shistogram swig_types[37] 
01029 #define  SWIGTYPE_p_p_unsigned_short swig_types[38] 
01030 #define  SWIGTYPE_p_p_short swig_types[39] 
01031 #define  SWIGTYPE_p_short swig_types[40] 
01032 #define  SWIGTYPE_p_unsigned_short swig_types[41] 
01033 #define  SWIGTYPE_p_Br_imstack swig_types[42] 
01034 #define  SWIGTYPE_p_tree_node swig_types[43] 
01035 #define  SWIGTYPE_p_Tree_node swig_types[44] 
01036 #define  SWIGTYPE_p_p_float swig_types[45] 
01037 #define  SWIGTYPE_p_float swig_types[46] 
01038 #define  SWIGTYPE_p_camera swig_types[47] 
01039 #define  SWIGTYPE_p_p_Vec swig_types[48] 
01040 #define  SWIGTYPE_p_Vec swig_types[49] 
01041 #define  SWIGTYPE_p_p_Seqvoi swig_types[50] 
01042 #define  SWIGTYPE_p_Seqvoi swig_types[51] 
01043 #define  SWIGTYPE_p_Ucbs swig_types[52] 
01044 #define  SWIGTYPE_p_p_vram swig_types[53] 
01045 #define  SWIGTYPE_p_Scalar swig_types[54] 
01046 #define  SWIGTYPE_p_Vram swig_types[55] 
01047 #define  SWIGTYPE_p_Permiability swig_types[56] 
01048 #define  SWIGTYPE_p_String_match swig_types[57] 
01049 #define  SWIGTYPE_p_Transform2 swig_types[58] 
01050 #define  SWIGTYPE_p_Transform3 swig_types[59] 
01051 #define  SWIGTYPE_p_Prof1 swig_types[60] 
01052 #define  SWIGTYPE_p_Camera swig_types[61] 
01053 #define  SWIGTYPE_p_Support swig_types[62] 
01054 #define  SWIGTYPE_p_Cone swig_types[63] 
01055 #define  SWIGTYPE_p_Hough2_peak swig_types[64] 
01056 #define  SWIGTYPE_p_Match_cliche swig_types[65] 
01057 #define  SWIGTYPE_p_vector swig_types[66] 
01058 #define  SWIGTYPE_p_Pl_flow swig_types[67] 
01059 #define  SWIGTYPE_p_Pwrte swig_types[68] 
01060 #define  SWIGTYPE_p_Pos2 swig_types[69] 
01061 #define  SWIGTYPE_p_Pos3 swig_types[70] 
01062 #define  SWIGTYPE_p_Conic_stat swig_types[71] 
01063 #define  SWIGTYPE_p_edgel swig_types[72] 
01064 #define  SWIGTYPE_p_match swig_types[73] 
01065 #define  SWIGTYPE_p_Generic swig_types[74] 
01066 #define  SWIGTYPE_p_p_int swig_types[75] 
01067 #define  SWIGTYPE_p_int swig_types[76] 
01068 #define  SWIGTYPE_p_conic swig_types[77] 
01069 #define  SWIGTYPE_p_Vector swig_types[78] 
01070 #define  SWIGTYPE_p_mat2 swig_types[79] 
01071 #define  SWIGTYPE_p_mat3 swig_types[80] 
01072 #define  SWIGTYPE_p_p_tcomplex swig_types[81] 
01073 #define  SWIGTYPE_p_Complex swig_types[82] 
01074 #define  SWIGTYPE_p_tcomplex swig_types[83] 
01075 #define  SWIGTYPE_p_matrix swig_types[84] 
01076 #define  SWIGTYPE_p_Graph_node swig_types[85] 
01077 #define  SWIGTYPE_p_Mat2 swig_types[86] 
01078 #define  SWIGTYPE_p_Circ2 swig_types[87] 
01079 #define  SWIGTYPE_p_f___Bool swig_types[88] 
01080 #define  SWIGTYPE_p_Mat3 swig_types[89] 
01081 #define  SWIGTYPE_p_Mat4 swig_types[90] 
01082 #define  SWIGTYPE_p_f_void__double swig_types[91] 
01083 #define  SWIGTYPE_p_f_p_double_float_int__double swig_types[92] 
01084 #define  SWIGTYPE_p_f_p_shistogram_float__double swig_types[93] 
01085 #define  SWIGTYPE_p_f___double swig_types[94] 
01086 #define  SWIGTYPE_p_a_5__double swig_types[95] 
01087 #define  SWIGTYPE_p_p_p_double swig_types[96] 
01088 #define  SWIGTYPE_p_p_double swig_types[97] 
01089 #define  SWIGTYPE_p_double swig_types[98] 
01090 #define  SWIGTYPE_p_f_int_p_double_float__double swig_types[99] 
01091 #define  SWIGTYPE_p_p_Dpnode swig_types[100] 
01092 #define  SWIGTYPE_p_Dpnode swig_types[101] 
01093 #define  SWIGTYPE_p_vec2 swig_types[102] 
01094 #define  SWIGTYPE_p_vec3 swig_types[103] 
01095 #define  SWIGTYPE_p_f___p_Vec2 swig_types[104] 
01096 #define  SWIGTYPE_p_Vec2 swig_types[105] 
01097 #define  SWIGTYPE_p_Kwsnake swig_types[106] 
01098 #define  SWIGTYPE_p_f___p_Vec3 swig_types[107] 
01099 #define  SWIGTYPE_p_p_Vec3 swig_types[108] 
01100 #define  SWIGTYPE_p_Vec3 swig_types[109] 
01101 #define  SWIGTYPE_p_f___Vec2 swig_types[110] 
01102 #define  SWIGTYPE_p_Vec4 swig_types[111] 
01103 #define  SWIGTYPE_p_f___Vec3 swig_types[112] 
01104 #define  SWIGTYPE_p_p_Line2 swig_types[113] 
01105 #define  SWIGTYPE_p_Line2 swig_types[114] 
01106 #define  SWIGTYPE_p_Line3 swig_types[115] 
01107 #define  SWIGTYPE_p_Ucbs2 swig_types[116] 
01108 #define  SWIGTYPE_p_Ucbs3 swig_types[117] 
01109 #define  SWIGTYPE_p_unsigned_long swig_types[118] 
01110 #define  SWIGTYPE_p_Rindex swig_types[119] 
01111 #define  SWIGTYPE_p_p_Matrix swig_types[120] 
01112 #define  SWIGTYPE_p_Matrix swig_types[121] 
01113 #define  SWIGTYPE_p_f___Imregion swig_types[122] 
01114 #define  SWIGTYPE_p_Hough2_region swig_types[123] 
01115 #define  SWIGTYPE_p_Hough_region swig_types[124] 
01116 #define  SWIGTYPE_p_imregion swig_types[125] 
01117 #define  SWIGTYPE_p_Imregion swig_types[126] 
01118 #define  SWIGTYPE_p_Ivec swig_types[127] 
01119 #define  SWIGTYPE_p_Terrain_data swig_types[128] 
01120 #define  SWIGTYPE_p_pwrte_vec_to_vec swig_types[129] 
01121 #define  SWIGTYPE_p_pwrte_point_to_vec swig_types[130] 
01122 #define  SWIGTYPE_p_Pwrte_vec_to_vec swig_types[131] 
01123 #define  SWIGTYPE_p_Pwrte_point_to_vec swig_types[132] 
01124 #define  SWIGTYPE_p_Windex swig_types[133] 
01125 #define  SWIGTYPE_p_Prop_def swig_types[134] 
01126 #define  SWIGTYPE_p_f___int swig_types[135] 
01127 #define  SWIGTYPE_p_pwrte_point_to_point swig_types[136] 
01128 #define  SWIGTYPE_p_Pwrte_point_to_point swig_types[137] 
01129 #define  SWIGTYPE_p_p_Seqslice swig_types[138] 
01130 #define  SWIGTYPE_p_Seqslice swig_types[139] 
01131 #define  SWIGTYPE_p_Ics2 swig_types[140] 
01132 #define  SWIGTYPE_p_Iso_error swig_types[141] 
01133 #define  SWIGTYPE_p_FILE swig_types[142] 
01134 #define  SWIGTYPE_p_Prop swig_types[143] 
01135 #define  SWIGTYPE_p_Transf3 swig_types[144] 
01136 #define  SWIGTYPE_p_Edge_conn swig_types[145] 
01137 #define  SWIGTYPE_p_conic3 swig_types[146] 
01138 #define  SWIGTYPE_p_Match_clique swig_types[147] 
01139 #define  SWIGTYPE_p_bin_node swig_types[148] 
01140 #define  SWIGTYPE_p_Bin_node swig_types[149] 
01141 #define  SWIGTYPE_p_p_char swig_types[150] 
01142 #define  SWIGTYPE_p_Covar swig_types[151] 
01143 #define  SWIGTYPE_p_Pair swig_types[152] 
01144 #define  SWIGTYPE_p_Mixmodel swig_types[153] 
01145 #define  SWIGTYPE_p_Varptr swig_types[154] 
01146 #define  SWIGTYPE_p_p_Spline2 swig_types[155] 
01147 #define  SWIGTYPE_p_Spline2 swig_types[156] 
01148 #define  SWIGTYPE_p_p_Imrect swig_types[157] 
01149 #define  SWIGTYPE_p_Imrect swig_types[158] 
01150 static swig_type_info *swig_types[160];
01151 
01152 /* -------- TYPES TABLE (END) -------- */
01153 
01154 #define SWIG_init    Tina_Init
01155 #define SWIG_name    "tina"
01156 #define SWIG_prefix  ""
01157 #define SWIG_version "0.0"
01158 
01159 
01160 #ifdef __cplusplus
01161 extern "C" {
01162 #endif
01163 #ifdef MAC_TCL
01164 #pragma export on
01165 #endif
01166 SWIGEXPORT(int) SWIG_init(Tcl_Interp *);
01167 #ifdef MAC_TCL
01168 #pragma export off
01169 #endif
01170 #ifdef __cplusplus
01171 }
01172 #endif
01173 
01174 
01175 
01176 #include <tina/image/imgDef.h>
01177 #include <tina/image/imgPro.h>
01178 
01179 
01180 #include <tina/math/mathDef.h>
01181 #include <tina/math/mathPro.h>
01182 
01183 
01184 #include <tina/geometry/geomDef.h>
01185 #include <tina/geometry/geomPro.h>
01186 
01187 
01188 #include <tina/file/fileDef.h>
01189 #include <tina/file/filePro.h>
01190 
01191 
01192 #include <tina/vision/visDef.h>
01193 #include <tina/vision/visPro.h>
01194 
01195 
01196 #include <tina/medical/medDef.h>
01197 #include <tina/medical/medPro.h>
01198 
01199 
01200 
01201 /* A TCL_AppInit() function that lets you build a new copy
01202  * of tclsh.
01203  *
01204  * The macro SWIG_init contains the name of the initialization
01205  * function in the wrapper file.
01206  */
01207 
01208 #ifndef SWIG_RcFileName
01209 char *SWIG_RcFileName = "~/.myapprc";
01210 #endif
01211 
01212 
01213 #ifdef MAC_TCL
01214 extern int              MacintoshInit _ANSI_ARGS_((void));
01215 #endif
01216 
01217 int Tcl_AppInit(Tcl_Interp *interp){
01218 
01219   if (Tcl_Init(interp) == TCL_ERROR) 
01220     return TCL_ERROR;
01221 
01222   /* Now initialize our functions */
01223 
01224   if (SWIG_init(interp) == TCL_ERROR)
01225     return TCL_ERROR;
01226 #if TCL_MAJOR_VERSION > 7 || TCL_MAJOR_VERSION == 7 && TCL_MINOR_VERSION >= 5
01227    Tcl_SetVar(interp, (char *) "tcl_rcFileName",SWIG_RcFileName,TCL_GLOBAL_ONLY);
01228 #else
01229    tcl_RcFileName = SWIG_RcFileName;
01230 #endif
01231 #ifdef SWIG_RcRsrcName
01232   Tcl_SetVar(interp, (char *) "tcl_rcRsrcName",SWIG_RcRsrcName,TCL_GLOBAL);
01233 #endif
01234   
01235   return TCL_OK;
01236 }
01237 
01238 #if TCL_MAJOR_VERSION > 7 || TCL_MAJOR_VERSION == 7 && TCL_MINOR_VERSION >= 4
01239 int main(int argc, char **argv) {
01240 #ifdef MAC_TCL
01241     char *newArgv[2];
01242     
01243     if (MacintoshInit()  != TCL_OK) {
01244         Tcl_Exit(1);
01245     }
01246 
01247     argc = 1;
01248     newArgv[0] = "tclsh";
01249     newArgv[1] = NULL;
01250     argv = newArgv;
01251 #endif
01252 
01253   Tcl_Main(argc, argv, Tcl_AppInit);
01254   return(0);
01255 
01256 }
01257 #else
01258 extern int main();
01259 #endif
01260 
01261 
01262 #ifdef __cplusplus
01263 extern "C" {
01264 #endif
01265 static int
01266 _wrap_tinaComplex_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01267     Complex *arg1 = (Complex *) 0 ;
01268     int arg2 ;
01269     
01270     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaComplex_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
01271     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Complex,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01272     if (arg1) (arg1)->ts_id = (Ts_id )arg2;
01273     
01274     
01275     return TCL_OK;
01276     fail:
01277     return TCL_ERROR;
01278 }
01279 
01280 
01281 static int
01282 _wrap_tinaComplex_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01283     Complex *arg1 = (Complex *) 0 ;
01284     int result;
01285     
01286     if (SWIG_GetArgs(interp, objc, objv,"o:tinaComplex_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
01287     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Complex,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01288     result = (int) ((arg1)->ts_id);
01289     
01290     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
01291     return TCL_OK;
01292     fail:
01293     return TCL_ERROR;
01294 }
01295 
01296 
01297 static int
01298 _wrap_tinaComplex_x_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01299     Complex *arg1 = (Complex *) 0 ;
01300     double arg2 ;
01301     
01302     if (SWIG_GetArgs(interp, objc, objv,"od:tinaComplex_x_set self x ",0,&arg2) == TCL_ERROR) SWIG_fail;
01303     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Complex,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01304     if (arg1) (arg1)->x = arg2;
01305     
01306     
01307     return TCL_OK;
01308     fail:
01309     return TCL_ERROR;
01310 }
01311 
01312 
01313 static int
01314 _wrap_tinaComplex_x_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01315     Complex *arg1 = (Complex *) 0 ;
01316     double result;
01317     
01318     if (SWIG_GetArgs(interp, objc, objv,"o:tinaComplex_x_get self ",0) == TCL_ERROR) SWIG_fail;
01319     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Complex,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01320     result = (double) ((arg1)->x);
01321     
01322     Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
01323     return TCL_OK;
01324     fail:
01325     return TCL_ERROR;
01326 }
01327 
01328 
01329 static int
01330 _wrap_tinaComplex_y_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01331     Complex *arg1 = (Complex *) 0 ;
01332     double arg2 ;
01333     
01334     if (SWIG_GetArgs(interp, objc, objv,"od:tinaComplex_y_set self y ",0,&arg2) == TCL_ERROR) SWIG_fail;
01335     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Complex,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01336     if (arg1) (arg1)->y = arg2;
01337     
01338     
01339     return TCL_OK;
01340     fail:
01341     return TCL_ERROR;
01342 }
01343 
01344 
01345 static int
01346 _wrap_tinaComplex_y_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01347     Complex *arg1 = (Complex *) 0 ;
01348     double result;
01349     
01350     if (SWIG_GetArgs(interp, objc, objv,"o:tinaComplex_y_get self ",0) == TCL_ERROR) SWIG_fail;
01351     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Complex,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01352     result = (double) ((arg1)->y);
01353     
01354     Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
01355     return TCL_OK;
01356     fail:
01357     return TCL_ERROR;
01358 }
01359 
01360 
01361 static int
01362 _wrap_new_tinaComplex(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01363     Complex *result;
01364     
01365     if (SWIG_GetArgs(interp, objc, objv,":new_tinaComplex ") == TCL_ERROR) SWIG_fail;
01366     result = (Complex *)(Complex *) calloc(1, sizeof(Complex));
01367     
01368     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Complex,0));
01369     return TCL_OK;
01370     fail:
01371     return TCL_ERROR;
01372 }
01373 
01374 
01375 static int
01376 _wrap_delete_tinaComplex(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01377     Complex *arg1 = (Complex *) 0 ;
01378     
01379     if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaComplex self ",0) == TCL_ERROR) SWIG_fail;
01380     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Complex,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01381     free((char *) arg1);
01382     
01383     
01384     return TCL_OK;
01385     fail:
01386     return TCL_ERROR;
01387 }
01388 
01389 
01390 static void swig_delete_tinaComplex(void *obj) {
01391 Complex *arg1 = (Complex *) obj;
01392 free((char *) arg1);
01393 }
01394 static swig_method swig_Complex_methods[] = {
01395     {0,0}
01396 };
01397 static swig_attribute swig_Complex_attributes[] = {
01398     { "-tinaTsId",_wrap_tinaComplex_tinaTsId_get, _wrap_tinaComplex_tinaTsId_set},
01399     { "-x",_wrap_tinaComplex_x_get, _wrap_tinaComplex_x_set},
01400     { "-y",_wrap_tinaComplex_y_get, _wrap_tinaComplex_y_set},
01401     {0,0,0}
01402 };
01403 static swig_class *swig_Complex_bases[] = {0};
01404 swig_class _wrap_class_Complex = { "tinaComplex", &SWIGTYPE_p_Complex,_wrap_new_tinaComplex, swig_delete_tinaComplex, swig_Complex_methods, swig_Complex_attributes, swig_Complex_bases };
01405 static int
01406 _wrap_tinaVram_vram0_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01407     Vram *arg1 = (Vram *) 0 ;
01408     unsigned char arg2 ;
01409     
01410     if (SWIG_GetArgs(interp, objc, objv,"ob:tinaVram_vram0_set self vram0 ",0,&arg2) == TCL_ERROR) SWIG_fail;
01411     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01412     if (arg1) (arg1)->vram0 = arg2;
01413     
01414     
01415     return TCL_OK;
01416     fail:
01417     return TCL_ERROR;
01418 }
01419 
01420 
01421 static int
01422 _wrap_tinaVram_vram0_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01423     Vram *arg1 = (Vram *) 0 ;
01424     unsigned char result;
01425     
01426     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVram_vram0_get self ",0) == TCL_ERROR) SWIG_fail;
01427     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01428     result = (unsigned char) ((arg1)->vram0);
01429     
01430     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
01431     return TCL_OK;
01432     fail:
01433     return TCL_ERROR;
01434 }
01435 
01436 
01437 static int
01438 _wrap_tinaVram_vram1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01439     Vram *arg1 = (Vram *) 0 ;
01440     unsigned char arg2 ;
01441     
01442     if (SWIG_GetArgs(interp, objc, objv,"ob:tinaVram_vram1_set self vram1 ",0,&arg2) == TCL_ERROR) SWIG_fail;
01443     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01444     if (arg1) (arg1)->vram1 = arg2;
01445     
01446     
01447     return TCL_OK;
01448     fail:
01449     return TCL_ERROR;
01450 }
01451 
01452 
01453 static int
01454 _wrap_tinaVram_vram1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01455     Vram *arg1 = (Vram *) 0 ;
01456     unsigned char result;
01457     
01458     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVram_vram1_get self ",0) == TCL_ERROR) SWIG_fail;
01459     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01460     result = (unsigned char) ((arg1)->vram1);
01461     
01462     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
01463     return TCL_OK;
01464     fail:
01465     return TCL_ERROR;
01466 }
01467 
01468 
01469 static int
01470 _wrap_tinaVram_vram2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01471     Vram *arg1 = (Vram *) 0 ;
01472     unsigned char arg2 ;
01473     
01474     if (SWIG_GetArgs(interp, objc, objv,"ob:tinaVram_vram2_set self vram2 ",0,&arg2) == TCL_ERROR) SWIG_fail;
01475     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01476     if (arg1) (arg1)->vram2 = arg2;
01477     
01478     
01479     return TCL_OK;
01480     fail:
01481     return TCL_ERROR;
01482 }
01483 
01484 
01485 static int
01486 _wrap_tinaVram_vram2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01487     Vram *arg1 = (Vram *) 0 ;
01488     unsigned char result;
01489     
01490     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVram_vram2_get self ",0) == TCL_ERROR) SWIG_fail;
01491     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01492     result = (unsigned char) ((arg1)->vram2);
01493     
01494     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
01495     return TCL_OK;
01496     fail:
01497     return TCL_ERROR;
01498 }
01499 
01500 
01501 static int
01502 _wrap_tinaVram_vram3_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01503     Vram *arg1 = (Vram *) 0 ;
01504     unsigned char arg2 ;
01505     
01506     if (SWIG_GetArgs(interp, objc, objv,"ob:tinaVram_vram3_set self vram3 ",0,&arg2) == TCL_ERROR) SWIG_fail;
01507     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01508     if (arg1) (arg1)->vram3 = arg2;
01509     
01510     
01511     return TCL_OK;
01512     fail:
01513     return TCL_ERROR;
01514 }
01515 
01516 
01517 static int
01518 _wrap_tinaVram_vram3_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01519     Vram *arg1 = (Vram *) 0 ;
01520     unsigned char result;
01521     
01522     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVram_vram3_get self ",0) == TCL_ERROR) SWIG_fail;
01523     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01524     result = (unsigned char) ((arg1)->vram3);
01525     
01526     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
01527     return TCL_OK;
01528     fail:
01529     return TCL_ERROR;
01530 }
01531 
01532 
01533 static int
01534 _wrap_new_tinaVram(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01535     Vram *result;
01536     
01537     if (SWIG_GetArgs(interp, objc, objv,":new_tinaVram ") == TCL_ERROR) SWIG_fail;
01538     result = (Vram *)(Vram *) calloc(1, sizeof(Vram));
01539     
01540     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Vram,0));
01541     return TCL_OK;
01542     fail:
01543     return TCL_ERROR;
01544 }
01545 
01546 
01547 static int
01548 _wrap_delete_tinaVram(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01549     Vram *arg1 = (Vram *) 0 ;
01550     
01551     if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaVram self ",0) == TCL_ERROR) SWIG_fail;
01552     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01553     free((char *) arg1);
01554     
01555     
01556     return TCL_OK;
01557     fail:
01558     return TCL_ERROR;
01559 }
01560 
01561 
01562 static void swig_delete_tinaVram(void *obj) {
01563 Vram *arg1 = (Vram *) obj;
01564 free((char *) arg1);
01565 }
01566 static swig_method swig_Vram_methods[] = {
01567     {0,0}
01568 };
01569 static swig_attribute swig_Vram_attributes[] = {
01570     { "-vram0",_wrap_tinaVram_vram0_get, _wrap_tinaVram_vram0_set},
01571     { "-vram1",_wrap_tinaVram_vram1_get, _wrap_tinaVram_vram1_set},
01572     { "-vram2",_wrap_tinaVram_vram2_get, _wrap_tinaVram_vram2_set},
01573     { "-vram3",_wrap_tinaVram_vram3_get, _wrap_tinaVram_vram3_set},
01574     {0,0,0}
01575 };
01576 static swig_class *swig_Vram_bases[] = {0};
01577 swig_class _wrap_class_Vram = { "tinaVram", &SWIGTYPE_p_Vram,_wrap_new_tinaVram, swig_delete_tinaVram, swig_Vram_methods, swig_Vram_attributes, swig_Vram_bases };
01578 static int
01579 _wrap_tinaVarptr_char_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01580     Varptr *arg1 = (Varptr *) 0 ;
01581     char *arg2 ;
01582     
01583     if (SWIG_GetArgs(interp, objc, objv,"os:tinaVarptr_char_v_set self char_v ",0,&arg2) == TCL_ERROR) SWIG_fail;
01584     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01585     {
01586         if (arg1->char_v) free((char*)arg1->char_v);
01587         if (arg2) {
01588             arg1->char_v = (char *) malloc(strlen(arg2)+1);
01589             strcpy((char*)arg1->char_v,arg2);
01590         }else {
01591             arg1->char_v = 0;
01592         }
01593     }
01594     
01595     return TCL_OK;
01596     fail:
01597     return TCL_ERROR;
01598 }
01599 
01600 
01601 static int
01602 _wrap_tinaVarptr_char_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01603     Varptr *arg1 = (Varptr *) 0 ;
01604     char *result;
01605     
01606     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptr_char_v_get self ",0) == TCL_ERROR) SWIG_fail;
01607     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01608     result = (char *) ((arg1)->char_v);
01609     
01610     Tcl_SetObjResult(interp,Tcl_NewStringObj(result,-1));
01611     return TCL_OK;
01612     fail:
01613     return TCL_ERROR;
01614 }
01615 
01616 
01617 static int
01618 _wrap_tinaVarptr_uchar_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01619     Varptr *arg1 = (Varptr *) 0 ;
01620     unsigned char *arg2 = (unsigned char *) 0 ;
01621     
01622     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptr_uchar_v_set self uchar_v ",0,0) == TCL_ERROR) SWIG_fail;
01623     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01624     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_unsigned_char,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
01625     if (arg1) (arg1)->uchar_v = arg2;
01626     
01627     
01628     return TCL_OK;
01629     fail:
01630     return TCL_ERROR;
01631 }
01632 
01633 
01634 static int
01635 _wrap_tinaVarptr_uchar_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01636     Varptr *arg1 = (Varptr *) 0 ;
01637     unsigned char *result;
01638     
01639     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptr_uchar_v_get self ",0) == TCL_ERROR) SWIG_fail;
01640     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01641     result = (unsigned char *) ((arg1)->uchar_v);
01642     
01643     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_unsigned_char,0));
01644     return TCL_OK;
01645     fail:
01646     return TCL_ERROR;
01647 }
01648 
01649 
01650 static int
01651 _wrap_tinaVarptr_short_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01652     Varptr *arg1 = (Varptr *) 0 ;
01653     short *arg2 = (short *) 0 ;
01654     
01655     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptr_short_v_set self short_v ",0,0) == TCL_ERROR) SWIG_fail;
01656     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01657     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_short,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
01658     if (arg1) (arg1)->short_v = arg2;
01659     
01660     
01661     return TCL_OK;
01662     fail:
01663     return TCL_ERROR;
01664 }
01665 
01666 
01667 static int
01668 _wrap_tinaVarptr_short_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01669     Varptr *arg1 = (Varptr *) 0 ;
01670     short *result;
01671     
01672     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptr_short_v_get self ",0) == TCL_ERROR) SWIG_fail;
01673     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01674     result = (short *) ((arg1)->short_v);
01675     
01676     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_short,0));
01677     return TCL_OK;
01678     fail:
01679     return TCL_ERROR;
01680 }
01681 
01682 
01683 static int
01684 _wrap_tinaVarptr_ushort_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01685     Varptr *arg1 = (Varptr *) 0 ;
01686     unsigned short *arg2 = (unsigned short *) 0 ;
01687     
01688     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptr_ushort_v_set self ushort_v ",0,0) == TCL_ERROR) SWIG_fail;
01689     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01690     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_unsigned_short,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
01691     if (arg1) (arg1)->ushort_v = arg2;
01692     
01693     
01694     return TCL_OK;
01695     fail:
01696     return TCL_ERROR;
01697 }
01698 
01699 
01700 static int
01701 _wrap_tinaVarptr_ushort_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01702     Varptr *arg1 = (Varptr *) 0 ;
01703     unsigned short *result;
01704     
01705     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptr_ushort_v_get self ",0) == TCL_ERROR) SWIG_fail;
01706     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01707     result = (unsigned short *) ((arg1)->ushort_v);
01708     
01709     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_unsigned_short,0));
01710     return TCL_OK;
01711     fail:
01712     return TCL_ERROR;
01713 }
01714 
01715 
01716 static int
01717 _wrap_tinaVarptr_int_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01718     Varptr *arg1 = (Varptr *) 0 ;
01719     int *arg2 = (int *) 0 ;
01720     
01721     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptr_int_v_set self int_v ",0,0) == TCL_ERROR) SWIG_fail;
01722     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01723     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_int,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
01724     if (arg1) (arg1)->int_v = arg2;
01725     
01726     
01727     return TCL_OK;
01728     fail:
01729     return TCL_ERROR;
01730 }
01731 
01732 
01733 static int
01734 _wrap_tinaVarptr_int_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01735     Varptr *arg1 = (Varptr *) 0 ;
01736     int *result;
01737     
01738     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptr_int_v_get self ",0) == TCL_ERROR) SWIG_fail;
01739     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01740     result = (int *) ((arg1)->int_v);
01741     
01742     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_int,0));
01743     return TCL_OK;
01744     fail:
01745     return TCL_ERROR;
01746 }
01747 
01748 
01749 static int
01750 _wrap_tinaVarptr_uint_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01751     Varptr *arg1 = (Varptr *) 0 ;
01752     unsigned int *arg2 = (unsigned int *) 0 ;
01753     
01754     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptr_uint_v_set self uint_v ",0,0) == TCL_ERROR) SWIG_fail;
01755     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01756     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_unsigned_int,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
01757     if (arg1) (arg1)->uint_v = arg2;
01758     
01759     
01760     return TCL_OK;
01761     fail:
01762     return TCL_ERROR;
01763 }
01764 
01765 
01766 static int
01767 _wrap_tinaVarptr_uint_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01768     Varptr *arg1 = (Varptr *) 0 ;
01769     unsigned int *result;
01770     
01771     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptr_uint_v_get self ",0) == TCL_ERROR) SWIG_fail;
01772     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01773     result = (unsigned int *) ((arg1)->uint_v);
01774     
01775     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_unsigned_int,0));
01776     return TCL_OK;
01777     fail:
01778     return TCL_ERROR;
01779 }
01780 
01781 
01782 static int
01783 _wrap_tinaVarptr_float_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01784     Varptr *arg1 = (Varptr *) 0 ;
01785     float *arg2 = (float *) 0 ;
01786     
01787     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptr_float_v_set self float_v ",0,0) == TCL_ERROR) SWIG_fail;
01788     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01789     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_float,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
01790     if (arg1) (arg1)->float_v = arg2;
01791     
01792     
01793     return TCL_OK;
01794     fail:
01795     return TCL_ERROR;
01796 }
01797 
01798 
01799 static int
01800 _wrap_tinaVarptr_float_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01801     Varptr *arg1 = (Varptr *) 0 ;
01802     float *result;
01803     
01804     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptr_float_v_get self ",0) == TCL_ERROR) SWIG_fail;
01805     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01806     result = (float *) ((arg1)->float_v);
01807     
01808     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_float,0));
01809     return TCL_OK;
01810     fail:
01811     return TCL_ERROR;
01812 }
01813 
01814 
01815 static int
01816 _wrap_tinaVarptr_double_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01817     Varptr *arg1 = (Varptr *) 0 ;
01818     double *arg2 = (double *) 0 ;
01819     
01820     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptr_double_v_set self double_v ",0,0) == TCL_ERROR) SWIG_fail;
01821     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01822     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_double,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
01823     if (arg1) (arg1)->double_v = arg2;
01824     
01825     
01826     return TCL_OK;
01827     fail:
01828     return TCL_ERROR;
01829 }
01830 
01831 
01832 static int
01833 _wrap_tinaVarptr_double_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01834     Varptr *arg1 = (Varptr *) 0 ;
01835     double *result;
01836     
01837     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptr_double_v_get self ",0) == TCL_ERROR) SWIG_fail;
01838     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01839     result = (double *) ((arg1)->double_v);
01840     
01841     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_double,0));
01842     return TCL_OK;
01843     fail:
01844     return TCL_ERROR;
01845 }
01846 
01847 
01848 static int
01849 _wrap_tinaVarptr_complex_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01850     Varptr *arg1 = (Varptr *) 0 ;
01851     struct tcomplex *arg2 = (struct tcomplex *) 0 ;
01852     
01853     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptr_complex_v_set self complex_v ",0,0) == TCL_ERROR) SWIG_fail;
01854     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01855     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_tcomplex,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
01856     if (arg1) (arg1)->complex_v = arg2;
01857     
01858     
01859     return TCL_OK;
01860     fail:
01861     return TCL_ERROR;
01862 }
01863 
01864 
01865 static int
01866 _wrap_tinaVarptr_complex_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01867     Varptr *arg1 = (Varptr *) 0 ;
01868     struct tcomplex *result;
01869     
01870     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptr_complex_v_get self ",0) == TCL_ERROR) SWIG_fail;
01871     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01872     result = (struct tcomplex *) ((arg1)->complex_v);
01873     
01874     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_tcomplex,0));
01875     return TCL_OK;
01876     fail:
01877     return TCL_ERROR;
01878 }
01879 
01880 
01881 static int
01882 _wrap_tinaVarptr_ptr_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01883     Varptr *arg1 = (Varptr *) 0 ;
01884     void **arg2 = (void **) 0 ;
01885     
01886     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptr_ptr_v_set self ptr_v ",0,0) == TCL_ERROR) SWIG_fail;
01887     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01888     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_void,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01889     if (arg1) (arg1)->ptr_v = arg2;
01890     
01891     
01892     return TCL_OK;
01893     fail:
01894     return TCL_ERROR;
01895 }
01896 
01897 
01898 static int
01899 _wrap_tinaVarptr_ptr_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01900     Varptr *arg1 = (Varptr *) 0 ;
01901     void **result;
01902     
01903     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptr_ptr_v_get self ",0) == TCL_ERROR) SWIG_fail;
01904     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01905     result = (void **) ((arg1)->ptr_v);
01906     
01907     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_void,0));
01908     return TCL_OK;
01909     fail:
01910     return TCL_ERROR;
01911 }
01912 
01913 
01914 static int
01915 _wrap_new_tinaVarptr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01916     Varptr *result;
01917     
01918     if (SWIG_GetArgs(interp, objc, objv,":new_tinaVarptr ") == TCL_ERROR) SWIG_fail;
01919     result = (Varptr *)(Varptr *) calloc(1, sizeof(Varptr));
01920     
01921     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Varptr,0));
01922     return TCL_OK;
01923     fail:
01924     return TCL_ERROR;
01925 }
01926 
01927 
01928 static int
01929 _wrap_delete_tinaVarptr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01930     Varptr *arg1 = (Varptr *) 0 ;
01931     
01932     if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaVarptr self ",0) == TCL_ERROR) SWIG_fail;
01933     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01934     free((char *) arg1);
01935     
01936     
01937     return TCL_OK;
01938     fail:
01939     return TCL_ERROR;
01940 }
01941 
01942 
01943 static void swig_delete_tinaVarptr(void *obj) {
01944 Varptr *arg1 = (Varptr *) obj;
01945 free((char *) arg1);
01946 }
01947 static swig_method swig_Varptr_methods[] = {
01948     {0,0}
01949 };
01950 static swig_attribute swig_Varptr_attributes[] = {
01951     { "-char_v",_wrap_tinaVarptr_char_v_get, _wrap_tinaVarptr_char_v_set},
01952     { "-uchar_v",_wrap_tinaVarptr_uchar_v_get, _wrap_tinaVarptr_uchar_v_set},
01953     { "-short_v",_wrap_tinaVarptr_short_v_get, _wrap_tinaVarptr_short_v_set},
01954     { "-ushort_v",_wrap_tinaVarptr_ushort_v_get, _wrap_tinaVarptr_ushort_v_set},
01955     { "-int_v",_wrap_tinaVarptr_int_v_get, _wrap_tinaVarptr_int_v_set},
01956     { "-uint_v",_wrap_tinaVarptr_uint_v_get, _wrap_tinaVarptr_uint_v_set},
01957     { "-float_v",_wrap_tinaVarptr_float_v_get, _wrap_tinaVarptr_float_v_set},
01958     { "-double_v",_wrap_tinaVarptr_double_v_get, _wrap_tinaVarptr_double_v_set},
01959     { "-complex_v",_wrap_tinaVarptr_complex_v_get, _wrap_tinaVarptr_complex_v_set},
01960     { "-ptr_v",_wrap_tinaVarptr_ptr_v_get, _wrap_tinaVarptr_ptr_v_set},
01961     {0,0,0}
01962 };
01963 static swig_class *swig_Varptr_bases[] = {0};
01964 swig_class _wrap_class_Varptr = { "tinaVarptr", &SWIGTYPE_p_Varptr,_wrap_new_tinaVarptr, swig_delete_tinaVarptr, swig_Varptr_methods, swig_Varptr_attributes, swig_Varptr_bases };
01965 static int
01966 _wrap_tinaVarptrptr_char_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01967     Varptrptr *arg1 = (Varptrptr *) 0 ;
01968     char **arg2 = (char **) 0 ;
01969     
01970     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_char_v_set self char_v ",0,0) == TCL_ERROR) SWIG_fail;
01971     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01972     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_char,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01973     if (arg1) (arg1)->char_v = arg2;
01974     
01975     
01976     return TCL_OK;
01977     fail:
01978     return TCL_ERROR;
01979 }
01980 
01981 
01982 static int
01983 _wrap_tinaVarptrptr_char_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
01984     Varptrptr *arg1 = (Varptrptr *) 0 ;
01985     char **result;
01986     
01987     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_char_v_get self ",0) == TCL_ERROR) SWIG_fail;
01988     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
01989     result = (char **) ((arg1)->char_v);
01990     
01991     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_char,0));
01992     return TCL_OK;
01993     fail:
01994     return TCL_ERROR;
01995 }
01996 
01997 
01998 static int
01999 _wrap_tinaVarptrptr_uchar_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02000     Varptrptr *arg1 = (Varptrptr *) 0 ;
02001     unsigned char **arg2 = (unsigned char **) 0 ;
02002     
02003     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_uchar_v_set self uchar_v ",0,0) == TCL_ERROR) SWIG_fail;
02004     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02005     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_unsigned_char,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02006     if (arg1) (arg1)->uchar_v = arg2;
02007     
02008     
02009     return TCL_OK;
02010     fail:
02011     return TCL_ERROR;
02012 }
02013 
02014 
02015 static int
02016 _wrap_tinaVarptrptr_uchar_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02017     Varptrptr *arg1 = (Varptrptr *) 0 ;
02018     unsigned char **result;
02019     
02020     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_uchar_v_get self ",0) == TCL_ERROR) SWIG_fail;
02021     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02022     result = (unsigned char **) ((arg1)->uchar_v);
02023     
02024     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_unsigned_char,0));
02025     return TCL_OK;
02026     fail:
02027     return TCL_ERROR;
02028 }
02029 
02030 
02031 static int
02032 _wrap_tinaVarptrptr_short_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02033     Varptrptr *arg1 = (Varptrptr *) 0 ;
02034     short **arg2 = (short **) 0 ;
02035     
02036     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_short_v_set self short_v ",0,0) == TCL_ERROR) SWIG_fail;
02037     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02038     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_short,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02039     if (arg1) (arg1)->short_v = arg2;
02040     
02041     
02042     return TCL_OK;
02043     fail:
02044     return TCL_ERROR;
02045 }
02046 
02047 
02048 static int
02049 _wrap_tinaVarptrptr_short_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02050     Varptrptr *arg1 = (Varptrptr *) 0 ;
02051     short **result;
02052     
02053     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_short_v_get self ",0) == TCL_ERROR) SWIG_fail;
02054     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02055     result = (short **) ((arg1)->short_v);
02056     
02057     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_short,0));
02058     return TCL_OK;
02059     fail:
02060     return TCL_ERROR;
02061 }
02062 
02063 
02064 static int
02065 _wrap_tinaVarptrptr_ushort_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02066     Varptrptr *arg1 = (Varptrptr *) 0 ;
02067     unsigned short **arg2 = (unsigned short **) 0 ;
02068     
02069     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_ushort_v_set self ushort_v ",0,0) == TCL_ERROR) SWIG_fail;
02070     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02071     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_unsigned_short,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02072     if (arg1) (arg1)->ushort_v = arg2;
02073     
02074     
02075     return TCL_OK;
02076     fail:
02077     return TCL_ERROR;
02078 }
02079 
02080 
02081 static int
02082 _wrap_tinaVarptrptr_ushort_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02083     Varptrptr *arg1 = (Varptrptr *) 0 ;
02084     unsigned short **result;
02085     
02086     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_ushort_v_get self ",0) == TCL_ERROR) SWIG_fail;
02087     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02088     result = (unsigned short **) ((arg1)->ushort_v);
02089     
02090     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_unsigned_short,0));
02091     return TCL_OK;
02092     fail:
02093     return TCL_ERROR;
02094 }
02095 
02096 
02097 static int
02098 _wrap_tinaVarptrptr_int_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02099     Varptrptr *arg1 = (Varptrptr *) 0 ;
02100     int **arg2 = (int **) 0 ;
02101     
02102     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_int_v_set self int_v ",0,0) == TCL_ERROR) SWIG_fail;
02103     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02104     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_int,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02105     if (arg1) (arg1)->int_v = arg2;
02106     
02107     
02108     return TCL_OK;
02109     fail:
02110     return TCL_ERROR;
02111 }
02112 
02113 
02114 static int
02115 _wrap_tinaVarptrptr_int_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02116     Varptrptr *arg1 = (Varptrptr *) 0 ;
02117     int **result;
02118     
02119     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_int_v_get self ",0) == TCL_ERROR) SWIG_fail;
02120     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02121     result = (int **) ((arg1)->int_v);
02122     
02123     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_int,0));
02124     return TCL_OK;
02125     fail:
02126     return TCL_ERROR;
02127 }
02128 
02129 
02130 static int
02131 _wrap_tinaVarptrptr_uint_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02132     Varptrptr *arg1 = (Varptrptr *) 0 ;
02133     unsigned int **arg2 = (unsigned int **) 0 ;
02134     
02135     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_uint_v_set self uint_v ",0,0) == TCL_ERROR) SWIG_fail;
02136     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02137     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_unsigned_int,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02138     if (arg1) (arg1)->uint_v = arg2;
02139     
02140     
02141     return TCL_OK;
02142     fail:
02143     return TCL_ERROR;
02144 }
02145 
02146 
02147 static int
02148 _wrap_tinaVarptrptr_uint_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02149     Varptrptr *arg1 = (Varptrptr *) 0 ;
02150     unsigned int **result;
02151     
02152     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_uint_v_get self ",0) == TCL_ERROR) SWIG_fail;
02153     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02154     result = (unsigned int **) ((arg1)->uint_v);
02155     
02156     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_unsigned_int,0));
02157     return TCL_OK;
02158     fail:
02159     return TCL_ERROR;
02160 }
02161 
02162 
02163 static int
02164 _wrap_tinaVarptrptr_float_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02165     Varptrptr *arg1 = (Varptrptr *) 0 ;
02166     float **arg2 = (float **) 0 ;
02167     
02168     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_float_v_set self float_v ",0,0) == TCL_ERROR) SWIG_fail;
02169     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02170     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_float,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02171     if (arg1) (arg1)->float_v = arg2;
02172     
02173     
02174     return TCL_OK;
02175     fail:
02176     return TCL_ERROR;
02177 }
02178 
02179 
02180 static int
02181 _wrap_tinaVarptrptr_float_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02182     Varptrptr *arg1 = (Varptrptr *) 0 ;
02183     float **result;
02184     
02185     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_float_v_get self ",0) == TCL_ERROR) SWIG_fail;
02186     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02187     result = (float **) ((arg1)->float_v);
02188     
02189     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_float,0));
02190     return TCL_OK;
02191     fail:
02192     return TCL_ERROR;
02193 }
02194 
02195 
02196 static int
02197 _wrap_tinaVarptrptr_double_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02198     Varptrptr *arg1 = (Varptrptr *) 0 ;
02199     double **arg2 = (double **) 0 ;
02200     
02201     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_double_v_set self double_v ",0,0) == TCL_ERROR) SWIG_fail;
02202     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02203     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_double,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02204     if (arg1) (arg1)->double_v = arg2;
02205     
02206     
02207     return TCL_OK;
02208     fail:
02209     return TCL_ERROR;
02210 }
02211 
02212 
02213 static int
02214 _wrap_tinaVarptrptr_double_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02215     Varptrptr *arg1 = (Varptrptr *) 0 ;
02216     double **result;
02217     
02218     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_double_v_get self ",0) == TCL_ERROR) SWIG_fail;
02219     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02220     result = (double **) ((arg1)->double_v);
02221     
02222     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_double,0));
02223     return TCL_OK;
02224     fail:
02225     return TCL_ERROR;
02226 }
02227 
02228 
02229 static int
02230 _wrap_tinaVarptrptr_complex_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02231     Varptrptr *arg1 = (Varptrptr *) 0 ;
02232     struct tcomplex **arg2 = (struct tcomplex **) 0 ;
02233     
02234     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_complex_v_set self complex_v ",0,0) == TCL_ERROR) SWIG_fail;
02235     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02236     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_tcomplex,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02237     if (arg1) (arg1)->complex_v = arg2;
02238     
02239     
02240     return TCL_OK;
02241     fail:
02242     return TCL_ERROR;
02243 }
02244 
02245 
02246 static int
02247 _wrap_tinaVarptrptr_complex_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02248     Varptrptr *arg1 = (Varptrptr *) 0 ;
02249     struct tcomplex **result;
02250     
02251     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_complex_v_get self ",0) == TCL_ERROR) SWIG_fail;
02252     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02253     result = (struct tcomplex **) ((arg1)->complex_v);
02254     
02255     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_tcomplex,0));
02256     return TCL_OK;
02257     fail:
02258     return TCL_ERROR;
02259 }
02260 
02261 
02262 static int
02263 _wrap_tinaVarptrptr_ptr_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02264     Varptrptr *arg1 = (Varptrptr *) 0 ;
02265     void ***arg2 = (void ***) 0 ;
02266     
02267     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_ptr_v_set self ptr_v ",0,0) == TCL_ERROR) SWIG_fail;
02268     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02269     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_p_void,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02270     if (arg1) (arg1)->ptr_v = arg2;
02271     
02272     
02273     return TCL_OK;
02274     fail:
02275     return TCL_ERROR;
02276 }
02277 
02278 
02279 static int
02280 _wrap_tinaVarptrptr_ptr_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02281     Varptrptr *arg1 = (Varptrptr *) 0 ;
02282     void ***result;
02283     
02284     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_ptr_v_get self ",0) == TCL_ERROR) SWIG_fail;
02285     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02286     result = (void ***) ((arg1)->ptr_v);
02287     
02288     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_p_void,0));
02289     return TCL_OK;
02290     fail:
02291     return TCL_ERROR;
02292 }
02293 
02294 
02295 static int
02296 _wrap_tinaVarptrptr_vram_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02297     Varptrptr *arg1 = (Varptrptr *) 0 ;
02298     struct vram **arg2 = (struct vram **) 0 ;
02299     
02300     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_vram_v_set self vram_v ",0,0) == TCL_ERROR) SWIG_fail;
02301     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02302     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_vram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02303     if (arg1) (arg1)->vram_v = arg2;
02304     
02305     
02306     return TCL_OK;
02307     fail:
02308     return TCL_ERROR;
02309 }
02310 
02311 
02312 static int
02313 _wrap_tinaVarptrptr_vram_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02314     Varptrptr *arg1 = (Varptrptr *) 0 ;
02315     struct vram **result;
02316     
02317     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_vram_v_get self ",0) == TCL_ERROR) SWIG_fail;
02318     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02319     result = (struct vram **) ((arg1)->vram_v);
02320     
02321     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_vram,0));
02322     return TCL_OK;
02323     fail:
02324     return TCL_ERROR;
02325 }
02326 
02327 
02328 static int
02329 _wrap_new_tinaVarptrptr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02330     Varptrptr *result;
02331     
02332     if (SWIG_GetArgs(interp, objc, objv,":new_tinaVarptrptr ") == TCL_ERROR) SWIG_fail;
02333     result = (Varptrptr *)(Varptrptr *) calloc(1, sizeof(Varptrptr));
02334     
02335     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Varptrptr,0));
02336     return TCL_OK;
02337     fail:
02338     return TCL_ERROR;
02339 }
02340 
02341 
02342 static int
02343 _wrap_delete_tinaVarptrptr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02344     Varptrptr *arg1 = (Varptrptr *) 0 ;
02345     
02346     if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaVarptrptr self ",0) == TCL_ERROR) SWIG_fail;
02347     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02348     free((char *) arg1);
02349     
02350     
02351     return TCL_OK;
02352     fail:
02353     return TCL_ERROR;
02354 }
02355 
02356 
02357 static void swig_delete_tinaVarptrptr(void *obj) {
02358 Varptrptr *arg1 = (Varptrptr *) obj;
02359 free((char *) arg1);
02360 }
02361 static swig_method swig_Varptrptr_methods[] = {
02362     {0,0}
02363 };
02364 static swig_attribute swig_Varptrptr_attributes[] = {
02365     { "-char_v",_wrap_tinaVarptrptr_char_v_get, _wrap_tinaVarptrptr_char_v_set},
02366     { "-uchar_v",_wrap_tinaVarptrptr_uchar_v_get, _wrap_tinaVarptrptr_uchar_v_set},
02367     { "-short_v",_wrap_tinaVarptrptr_short_v_get, _wrap_tinaVarptrptr_short_v_set},
02368     { "-ushort_v",_wrap_tinaVarptrptr_ushort_v_get, _wrap_tinaVarptrptr_ushort_v_set},
02369     { "-int_v",_wrap_tinaVarptrptr_int_v_get, _wrap_tinaVarptrptr_int_v_set},
02370     { "-uint_v",_wrap_tinaVarptrptr_uint_v_get, _wrap_tinaVarptrptr_uint_v_set},
02371     { "-float_v",_wrap_tinaVarptrptr_float_v_get, _wrap_tinaVarptrptr_float_v_set},
02372     { "-double_v",_wrap_tinaVarptrptr_double_v_get, _wrap_tinaVarptrptr_double_v_set},
02373     { "-complex_v",_wrap_tinaVarptrptr_complex_v_get, _wrap_tinaVarptrptr_complex_v_set},
02374     { "-ptr_v",_wrap_tinaVarptrptr_ptr_v_get, _wrap_tinaVarptrptr_ptr_v_set},
02375     { "-vram_v",_wrap_tinaVarptrptr_vram_v_get, _wrap_tinaVarptrptr_vram_v_set},
02376     {0,0,0}
02377 };
02378 static swig_class *swig_Varptrptr_bases[] = {0};
02379 swig_class _wrap_class_Varptrptr = { "tinaVarptrptr", &SWIGTYPE_p_Varptrptr,_wrap_new_tinaVarptrptr, swig_delete_tinaVarptrptr, swig_Varptrptr_methods, swig_Varptrptr_attributes, swig_Varptrptr_bases };
02380 static int
02381 _wrap_tinaGraphNode_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02382     Graph_node *arg1 = (Graph_node *) 0 ;
02383     int arg2 ;
02384     
02385     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaGraphNode_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
02386     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02387     if (arg1) (arg1)->ts_id = (Ts_id )arg2;
02388     
02389     
02390     return TCL_OK;
02391     fail:
02392     return TCL_ERROR;
02393 }
02394 
02395 
02396 static int
02397 _wrap_tinaGraphNode_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02398     Graph_node *arg1 = (Graph_node *) 0 ;
02399     int result;
02400     
02401     if (SWIG_GetArgs(interp, objc, objv,"o:tinaGraphNode_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
02402     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02403     result = (int) ((arg1)->ts_id);
02404     
02405     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
02406     return TCL_OK;
02407     fail:
02408     return TCL_ERROR;
02409 }
02410 
02411 
02412 static int
02413 _wrap_tinaGraphNode_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02414     Graph_node *arg1 = (Graph_node *) 0 ;
02415     int arg2 ;
02416     
02417     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaGraphNode_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
02418     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02419     if (arg1) (arg1)->type = arg2;
02420     
02421     
02422     return TCL_OK;
02423     fail:
02424     return TCL_ERROR;
02425 }
02426 
02427 
02428 static int
02429 _wrap_tinaGraphNode_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02430     Graph_node *arg1 = (Graph_node *) 0 ;
02431     int result;
02432     
02433     if (SWIG_GetArgs(interp, objc, objv,"o:tinaGraphNode_type_get self ",0) == TCL_ERROR) SWIG_fail;
02434     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02435     result = (int) ((arg1)->type);
02436     
02437     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
02438     return TCL_OK;
02439     fail:
02440     return TCL_ERROR;
02441 }
02442 
02443 
02444 static int
02445 _wrap_tinaGraphNode_status_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02446     Graph_node *arg1 = (Graph_node *) 0 ;
02447     int arg2 ;
02448     
02449     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaGraphNode_status_set self status ",0,&arg2) == TCL_ERROR) SWIG_fail;
02450     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02451     if (arg1) (arg1)->status = arg2;
02452     
02453     
02454     return TCL_OK;
02455     fail:
02456     return TCL_ERROR;
02457 }
02458 
02459 
02460 static int
02461 _wrap_tinaGraphNode_status_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02462     Graph_node *arg1 = (Graph_node *) 0 ;
02463     int result;
02464     
02465     if (SWIG_GetArgs(interp, objc, objv,"o:tinaGraphNode_status_get self ",0) == TCL_ERROR) SWIG_fail;
02466     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02467     result = (int) ((arg1)->status);
02468     
02469     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
02470     return TCL_OK;
02471     fail:
02472     return TCL_ERROR;
02473 }
02474 
02475 
02476 static int
02477 _wrap_tinaGraphNode_bounded_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02478     Graph_node *arg1 = (Graph_node *) 0 ;
02479     Bool arg2 ;
02480     
02481     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaGraphNode_bounded_set self bounded ",0,&arg2) == TCL_ERROR) SWIG_fail;
02482     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02483     if (arg1) (arg1)->bounded = arg2;
02484     
02485     
02486     return TCL_OK;
02487     fail:
02488     return TCL_ERROR;
02489 }
02490 
02491 
02492 static int
02493 _wrap_tinaGraphNode_bounded_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02494     Graph_node *arg1 = (Graph_node *) 0 ;
02495     Bool result;
02496     
02497     if (SWIG_GetArgs(interp, objc, objv,"o:tinaGraphNode_bounded_get self ",0) == TCL_ERROR) SWIG_fail;
02498     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02499     result = (Bool) ((arg1)->bounded);
02500     
02501     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
02502     return TCL_OK;
02503     fail:
02504     return TCL_ERROR;
02505 }
02506 
02507 
02508 static int
02509 _wrap_tinaGraphNode_bound_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02510     Graph_node *arg1 = (Graph_node *) 0 ;
02511     float arg2 ;
02512     
02513     if (SWIG_GetArgs(interp, objc, objv,"of:tinaGraphNode_bound_set self bound ",0,&arg2) == TCL_ERROR) SWIG_fail;
02514     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02515     if (arg1) (arg1)->bound = arg2;
02516     
02517     
02518     return TCL_OK;
02519     fail:
02520     return TCL_ERROR;
02521 }
02522 
02523 
02524 static int
02525 _wrap_tinaGraphNode_bound_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02526     Graph_node *arg1 = (Graph_node *) 0 ;
02527     float result;
02528     
02529     if (SWIG_GetArgs(interp, objc, objv,"o:tinaGraphNode_bound_get self ",0) == TCL_ERROR) SWIG_fail;
02530     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02531     result = (float) ((arg1)->bound);
02532     
02533     Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
02534     return TCL_OK;
02535     fail:
02536     return TCL_ERROR;
02537 }
02538 
02539 
02540 static int
02541 _wrap_tinaGraphNode_value_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02542     Graph_node *arg1 = (Graph_node *) 0 ;
02543     float arg2 ;
02544     
02545     if (SWIG_GetArgs(interp, objc, objv,"of:tinaGraphNode_value_set self value ",0,&arg2) == TCL_ERROR) SWIG_fail;
02546     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02547     if (arg1) (arg1)->value = arg2;
02548     
02549     
02550     return TCL_OK;
02551     fail:
02552     return TCL_ERROR;
02553 }
02554 
02555 
02556 static int
02557 _wrap_tinaGraphNode_value_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02558     Graph_node *arg1 = (Graph_node *) 0 ;
02559     float result;
02560     
02561     if (SWIG_GetArgs(interp, objc, objv,"o:tinaGraphNode_value_get self ",0) == TCL_ERROR) SWIG_fail;
02562     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02563     result = (float) ((arg1)->value);
02564     
02565     Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
02566     return TCL_OK;
02567     fail:
02568     return TCL_ERROR;
02569 }
02570 
02571 
02572 static int
02573 _wrap_tinaGraphNode_to_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02574     Graph_node *arg1 = (Graph_node *) 0 ;
02575     void *arg2 = (void *) 0 ;
02576     
02577     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaGraphNode_to_set self to ",0,0) == TCL_ERROR) SWIG_fail;
02578     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02579     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, 0,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
02580     if (arg1) (arg1)->to = arg2;
02581     
02582     
02583     return TCL_OK;
02584     fail:
02585     return TCL_ERROR;
02586 }
02587 
02588 
02589 static int
02590 _wrap_tinaGraphNode_to_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02591     Graph_node *arg1 = (Graph_node *) 0 ;
02592     void *result;
02593     
02594     if (SWIG_GetArgs(interp, objc, objv,"o:tinaGraphNode_to_get self ",0) == TCL_ERROR) SWIG_fail;
02595     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02596     result = (void *) ((arg1)->to);
02597     
02598     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_void,0));
02599     return TCL_OK;
02600     fail:
02601     return TCL_ERROR;
02602 }
02603 
02604 
02605 static int
02606 _wrap_tinaGraphNode_cons_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02607     Graph_node *arg1 = (Graph_node *) 0 ;
02608     List *arg2 = (List *) 0 ;
02609     
02610     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaGraphNode_cons_set self cons ",0,0) == TCL_ERROR) SWIG_fail;
02611     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02612     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
02613     if (arg1) (arg1)->cons = arg2;
02614     
02615     
02616     return TCL_OK;
02617     fail:
02618     return TCL_ERROR;
02619 }
02620 
02621 
02622 static int
02623 _wrap_tinaGraphNode_cons_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02624     Graph_node *arg1 = (Graph_node *) 0 ;
02625     List *result;
02626     
02627     if (SWIG_GetArgs(interp, objc, objv,"o:tinaGraphNode_cons_get self ",0) == TCL_ERROR) SWIG_fail;
02628     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02629     result = (List *) ((arg1)->cons);
02630     
02631     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_List,0));
02632     return TCL_OK;
02633     fail:
02634     return TCL_ERROR;
02635 }
02636 
02637 
02638 static int
02639 _wrap_new_tinaGraphNode(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02640     Graph_node *result;
02641     
02642     if (SWIG_GetArgs(interp, objc, objv,":new_tinaGraphNode ") == TCL_ERROR) SWIG_fail;
02643     result = (Graph_node *)(Graph_node *) calloc(1, sizeof(Graph_node));
02644     
02645     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Graph_node,0));
02646     return TCL_OK;
02647     fail:
02648     return TCL_ERROR;
02649 }
02650 
02651 
02652 static int
02653 _wrap_delete_tinaGraphNode(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02654     Graph_node *arg1 = (Graph_node *) 0 ;
02655     
02656     if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaGraphNode self ",0) == TCL_ERROR) SWIG_fail;
02657     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02658     free((char *) arg1);
02659     
02660     
02661     return TCL_OK;
02662     fail:
02663     return TCL_ERROR;
02664 }
02665 
02666 
02667 static void swig_delete_tinaGraphNode(void *obj) {
02668 Graph_node *arg1 = (Graph_node *) obj;
02669 free((char *) arg1);
02670 }
02671 static swig_method swig_Graph_node_methods[] = {
02672     {0,0}
02673 };
02674 static swig_attribute swig_Graph_node_attributes[] = {
02675     { "-tinaTsId",_wrap_tinaGraphNode_tinaTsId_get, _wrap_tinaGraphNode_tinaTsId_set},
02676     { "-type",_wrap_tinaGraphNode_type_get, _wrap_tinaGraphNode_type_set},
02677     { "-status",_wrap_tinaGraphNode_status_get, _wrap_tinaGraphNode_status_set},
02678     { "-bounded",_wrap_tinaGraphNode_bounded_get, _wrap_tinaGraphNode_bounded_set},
02679     { "-bound",_wrap_tinaGraphNode_bound_get, _wrap_tinaGraphNode_bound_set},
02680     { "-value",_wrap_tinaGraphNode_value_get, _wrap_tinaGraphNode_value_set},
02681     { "-to",_wrap_tinaGraphNode_to_get, _wrap_tinaGraphNode_to_set},
02682     { "-cons",_wrap_tinaGraphNode_cons_get, _wrap_tinaGraphNode_cons_set},
02683     {0,0,0}
02684 };
02685 static swig_class *swig_Graph_node_bases[] = {0};
02686 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 };
02687 static int
02688 _wrap_tinaTreeNode_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02689     Tree_node *arg1 = (Tree_node *) 0 ;
02690     int arg2 ;
02691     
02692     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaTreeNode_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
02693     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02694     if (arg1) (arg1)->ts_id = (Ts_id )arg2;
02695     
02696     
02697     return TCL_OK;
02698     fail:
02699     return TCL_ERROR;
02700 }
02701 
02702 
02703 static int
02704 _wrap_tinaTreeNode_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02705     Tree_node *arg1 = (Tree_node *) 0 ;
02706     int result;
02707     
02708     if (SWIG_GetArgs(interp, objc, objv,"o:tinaTreeNode_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
02709     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02710     result = (int) ((arg1)->ts_id);
02711     
02712     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
02713     return TCL_OK;
02714     fail:
02715     return TCL_ERROR;
02716 }
02717 
02718 
02719 static int
02720 _wrap_tinaTreeNode_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02721     Tree_node *arg1 = (Tree_node *) 0 ;
02722     int arg2 ;
02723     
02724     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaTreeNode_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
02725     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02726     if (arg1) (arg1)->type = arg2;
02727     
02728     
02729     return TCL_OK;
02730     fail:
02731     return TCL_ERROR;
02732 }
02733 
02734 
02735 static int
02736 _wrap_tinaTreeNode_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02737     Tree_node *arg1 = (Tree_node *) 0 ;
02738     int result;
02739     
02740     if (SWIG_GetArgs(interp, objc, objv,"o:tinaTreeNode_type_get self ",0) == TCL_ERROR) SWIG_fail;
02741     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02742     result = (int) ((arg1)->type);
02743     
02744     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
02745     return TCL_OK;
02746     fail:
02747     return TCL_ERROR;
02748 }
02749 
02750 
02751 static int
02752 _wrap_tinaTreeNode_status_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02753     Tree_node *arg1 = (Tree_node *) 0 ;
02754     int arg2 ;
02755     
02756     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaTreeNode_status_set self status ",0,&arg2) == TCL_ERROR) SWIG_fail;
02757     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02758     if (arg1) (arg1)->status = arg2;
02759     
02760     
02761     return TCL_OK;
02762     fail:
02763     return TCL_ERROR;
02764 }
02765 
02766 
02767 static int
02768 _wrap_tinaTreeNode_status_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02769     Tree_node *arg1 = (Tree_node *) 0 ;
02770     int result;
02771     
02772     if (SWIG_GetArgs(interp, objc, objv,"o:tinaTreeNode_status_get self ",0) == TCL_ERROR) SWIG_fail;
02773     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02774     result = (int) ((arg1)->status);
02775     
02776     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
02777     return TCL_OK;
02778     fail:
02779     return TCL_ERROR;
02780 }
02781 
02782 
02783 static int
02784 _wrap_tinaTreeNode_bounded_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02785     Tree_node *arg1 = (Tree_node *) 0 ;
02786     Bool arg2 ;
02787     
02788     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaTreeNode_bounded_set self bounded ",0,&arg2) == TCL_ERROR) SWIG_fail;
02789     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02790     if (arg1) (arg1)->bounded = arg2;
02791     
02792     
02793     return TCL_OK;
02794     fail:
02795     return TCL_ERROR;
02796 }
02797 
02798 
02799 static int
02800 _wrap_tinaTreeNode_bounded_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02801     Tree_node *arg1 = (Tree_node *) 0 ;
02802     Bool result;
02803     
02804     if (SWIG_GetArgs(interp, objc, objv,"o:tinaTreeNode_bounded_get self ",0) == TCL_ERROR) SWIG_fail;
02805     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02806     result = (Bool) ((arg1)->bounded);
02807     
02808     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
02809     return TCL_OK;
02810     fail:
02811     return TCL_ERROR;
02812 }
02813 
02814 
02815 static int
02816 _wrap_tinaTreeNode_bound_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02817     Tree_node *arg1 = (Tree_node *) 0 ;
02818     float arg2 ;
02819     
02820     if (SWIG_GetArgs(interp, objc, objv,"of:tinaTreeNode_bound_set self bound ",0,&arg2) == TCL_ERROR) SWIG_fail;
02821     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02822     if (arg1) (arg1)->bound = arg2;
02823     
02824     
02825     return TCL_OK;
02826     fail:
02827     return TCL_ERROR;
02828 }
02829 
02830 
02831 static int
02832 _wrap_tinaTreeNode_bound_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02833     Tree_node *arg1 = (Tree_node *) 0 ;
02834     float result;
02835     
02836     if (SWIG_GetArgs(interp, objc, objv,"o:tinaTreeNode_bound_get self ",0) == TCL_ERROR) SWIG_fail;
02837     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02838     result = (float) ((arg1)->bound);
02839     
02840     Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
02841     return TCL_OK;
02842     fail:
02843     return TCL_ERROR;
02844 }
02845 
02846 
02847 static int
02848 _wrap_tinaTreeNode_value_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02849     Tree_node *arg1 = (Tree_node *) 0 ;
02850     float arg2 ;
02851     
02852     if (SWIG_GetArgs(interp, objc, objv,"of:tinaTreeNode_value_set self value ",0,&arg2) == TCL_ERROR) SWIG_fail;
02853     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02854     if (arg1) (arg1)->value = arg2;
02855     
02856     
02857     return TCL_OK;
02858     fail:
02859     return TCL_ERROR;
02860 }
02861 
02862 
02863 static int
02864 _wrap_tinaTreeNode_value_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02865     Tree_node *arg1 = (Tree_node *) 0 ;
02866     float result;
02867     
02868     if (SWIG_GetArgs(interp, objc, objv,"o:tinaTreeNode_value_get self ",0) == TCL_ERROR) SWIG_fail;
02869     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02870     result = (float) ((arg1)->value);
02871     
02872     Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
02873     return TCL_OK;
02874     fail:
02875     return TCL_ERROR;
02876 }
02877 
02878 
02879 static int
02880 _wrap_tinaTreeNode_to_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02881     Tree_node *arg1 = (Tree_node *) 0 ;
02882     void *arg2 = (void *) 0 ;
02883     
02884     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaTreeNode_to_set self to ",0,0) == TCL_ERROR) SWIG_fail;
02885     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02886     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, 0,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
02887     if (arg1) (arg1)->to = arg2;
02888     
02889     
02890     return TCL_OK;
02891     fail:
02892     return TCL_ERROR;
02893 }
02894 
02895 
02896 static int
02897 _wrap_tinaTreeNode_to_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02898     Tree_node *arg1 = (Tree_node *) 0 ;
02899     void *result;
02900     
02901     if (SWIG_GetArgs(interp, objc, objv,"o:tinaTreeNode_to_get self ",0) == TCL_ERROR) SWIG_fail;
02902     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02903     result = (void *) ((arg1)->to);
02904     
02905     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_void,0));
02906     return TCL_OK;
02907     fail:
02908     return TCL_ERROR;
02909 }
02910 
02911 
02912 static int
02913 _wrap_tinaTreeNode_children_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02914     Tree_node *arg1 = (Tree_node *) 0 ;
02915     List *arg2 = (List *) 0 ;
02916     
02917     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaTreeNode_children_set self children ",0,0) == TCL_ERROR) SWIG_fail;
02918     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02919     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
02920     if (arg1) (arg1)->children = arg2;
02921     
02922     
02923     return TCL_OK;
02924     fail:
02925     return TCL_ERROR;
02926 }
02927 
02928 
02929 static int
02930 _wrap_tinaTreeNode_children_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02931     Tree_node *arg1 = (Tree_node *) 0 ;
02932     List *result;
02933     
02934     if (SWIG_GetArgs(interp, objc, objv,"o:tinaTreeNode_children_get self ",0) == TCL_ERROR) SWIG_fail;
02935     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02936     result = (List *) ((arg1)->children);
02937     
02938     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_List,0));
02939     return TCL_OK;
02940     fail:
02941     return TCL_ERROR;
02942 }
02943 
02944 
02945 static int
02946 _wrap_tinaTreeNode_parent_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02947     Tree_node *arg1 = (Tree_node *) 0 ;
02948     struct tree_node *arg2 = (struct tree_node *) 0 ;
02949     
02950     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaTreeNode_parent_set self parent ",0,0) == TCL_ERROR) SWIG_fail;
02951     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02952     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_tree_node,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
02953     if (arg1) (arg1)->parent = arg2;
02954     
02955     
02956     return TCL_OK;
02957     fail:
02958     return TCL_ERROR;
02959 }
02960 
02961 
02962 static int
02963 _wrap_tinaTreeNode_parent_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02964     Tree_node *arg1 = (Tree_node *) 0 ;
02965     struct tree_node *result;
02966     
02967     if (SWIG_GetArgs(interp, objc, objv,"o:tinaTreeNode_parent_get self ",0) == TCL_ERROR) SWIG_fail;
02968     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02969     result = (struct tree_node *) ((arg1)->parent);
02970     
02971     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_tree_node,0));
02972     return TCL_OK;
02973     fail:
02974     return TCL_ERROR;
02975 }
02976 
02977 
02978 static int
02979 _wrap_new_tinaTreeNode(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02980     Tree_node *result;
02981     
02982     if (SWIG_GetArgs(interp, objc, objv,":new_tinaTreeNode ") == TCL_ERROR) SWIG_fail;
02983     result = (Tree_node *)(Tree_node *) calloc(1, sizeof(Tree_node));
02984     
02985     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Tree_node,0));
02986     return TCL_OK;
02987     fail:
02988     return TCL_ERROR;
02989 }
02990 
02991 
02992 static int
02993 _wrap_delete_tinaTreeNode(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
02994     Tree_node *arg1 = (Tree_node *) 0 ;
02995     
02996     if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaTreeNode self ",0) == TCL_ERROR) SWIG_fail;
02997     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
02998     free((char *) arg1);
02999     
03000     
03001     return TCL_OK;
03002     fail:
03003     return TCL_ERROR;
03004 }
03005 
03006 
03007 static void swig_delete_tinaTreeNode(void *obj) {
03008 Tree_node *arg1 = (Tree_node *) obj;
03009 free((char *) arg1);
03010 }
03011 static swig_method swig_Tree_node_methods[] = {
03012     {0,0}
03013 };
03014 static swig_attribute swig_Tree_node_attributes[] = {
03015     { "-tinaTsId",_wrap_tinaTreeNode_tinaTsId_get, _wrap_tinaTreeNode_tinaTsId_set},
03016     { "-type",_wrap_tinaTreeNode_type_get, _wrap_tinaTreeNode_type_set},
03017     { "-status",_wrap_tinaTreeNode_status_get, _wrap_tinaTreeNode_status_set},
03018     { "-bounded",_wrap_tinaTreeNode_bounded_get, _wrap_tinaTreeNode_bounded_set},
03019     { "-bound",_wrap_tinaTreeNode_bound_get, _wrap_tinaTreeNode_bound_set},
03020     { "-value",_wrap_tinaTreeNode_value_get, _wrap_tinaTreeNode_value_set},
03021     { "-to",_wrap_tinaTreeNode_to_get, _wrap_tinaTreeNode_to_set},
03022     { "-children",_wrap_tinaTreeNode_children_get, _wrap_tinaTreeNode_children_set},
03023     { "-parent",_wrap_tinaTreeNode_parent_get, _wrap_tinaTreeNode_parent_set},
03024     {0,0,0}
03025 };
03026 static swig_class *swig_Tree_node_bases[] = {0};
03027 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 };
03028 static int
03029 _wrap_tinaViolsNode_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03030     Viols_node *arg1 = (Viols_node *) 0 ;
03031     int arg2 ;
03032     
03033     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaViolsNode_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
03034     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03035     if (arg1) (arg1)->ts_id = (Ts_id )arg2;
03036     
03037     
03038     return TCL_OK;
03039     fail:
03040     return TCL_ERROR;
03041 }
03042 
03043 
03044 static int
03045 _wrap_tinaViolsNode_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03046     Viols_node *arg1 = (Viols_node *) 0 ;
03047     int result;
03048     
03049     if (SWIG_GetArgs(interp, objc, objv,"o:tinaViolsNode_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
03050     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03051     result = (int) ((arg1)->ts_id);
03052     
03053     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
03054     return TCL_OK;
03055     fail:
03056     return TCL_ERROR;
03057 }
03058 
03059 
03060 static int
03061 _wrap_tinaViolsNode_status_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03062     Viols_node *arg1 = (Viols_node *) 0 ;
03063     int arg2 ;
03064     
03065     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaViolsNode_status_set self status ",0,&arg2) == TCL_ERROR) SWIG_fail;
03066     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03067     if (arg1) (arg1)->status = arg2;
03068     
03069     
03070     return TCL_OK;
03071     fail:
03072     return TCL_ERROR;
03073 }
03074 
03075 
03076 static int
03077 _wrap_tinaViolsNode_status_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03078     Viols_node *arg1 = (Viols_node *) 0 ;
03079     int result;
03080     
03081     if (SWIG_GetArgs(interp, objc, objv,"o:tinaViolsNode_status_get self ",0) == TCL_ERROR) SWIG_fail;
03082     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03083     result = (int) ((arg1)->status);
03084     
03085     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
03086     return TCL_OK;
03087     fail:
03088     return TCL_ERROR;
03089 }
03090 
03091 
03092 static int
03093 _wrap_tinaViolsNode_label_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03094     Viols_node *arg1 = (Viols_node *) 0 ;
03095     int arg2 ;
03096     
03097     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaViolsNode_label_set self label ",0,&arg2) == TCL_ERROR) SWIG_fail;
03098     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03099     if (arg1) (arg1)->label = arg2;
03100     
03101     
03102     return TCL_OK;
03103     fail:
03104     return TCL_ERROR;
03105 }
03106 
03107 
03108 static int
03109 _wrap_tinaViolsNode_label_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03110     Viols_node *arg1 = (Viols_node *) 0 ;
03111     int result;
03112     
03113     if (SWIG_GetArgs(interp, objc, objv,"o:tinaViolsNode_label_get self ",0) == TCL_ERROR) SWIG_fail;
03114     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03115     result = (int) ((arg1)->label);
03116     
03117     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
03118     return TCL_OK;
03119     fail:
03120     return TCL_ERROR;
03121 }
03122 
03123 
03124 static int
03125 _wrap_tinaViolsNode_gn_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03126     Viols_node *arg1 = (Viols_node *) 0 ;
03127     Graph_node *arg2 = (Graph_node *) 0 ;
03128     
03129     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaViolsNode_gn_set self gn ",0,0) == TCL_ERROR) SWIG_fail;
03130     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03131     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
03132     if (arg1) (arg1)->gn = arg2;
03133     
03134     
03135     return TCL_OK;
03136     fail:
03137     return TCL_ERROR;
03138 }
03139 
03140 
03141 static int
03142 _wrap_tinaViolsNode_gn_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03143     Viols_node *arg1 = (Viols_node *) 0 ;
03144     Graph_node *result;
03145     
03146     if (SWIG_GetArgs(interp, objc, objv,"o:tinaViolsNode_gn_get self ",0) == TCL_ERROR) SWIG_fail;
03147     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03148     result = (Graph_node *) ((arg1)->gn);
03149     
03150     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Graph_node,0));
03151     return TCL_OK;
03152     fail:
03153     return TCL_ERROR;
03154 }
03155 
03156 
03157 static int
03158 _wrap_tinaViolsNode_viols_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03159     Viols_node *arg1 = (Viols_node *) 0 ;
03160     List *arg2 = (List *) 0 ;
03161     
03162     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaViolsNode_viols_set self viols ",0,0) == TCL_ERROR) SWIG_fail;
03163     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03164     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
03165     if (arg1) (arg1)->viols = arg2;
03166     
03167     
03168     return TCL_OK;
03169     fail:
03170     return TCL_ERROR;
03171 }
03172 
03173 
03174 static int
03175 _wrap_tinaViolsNode_viols_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03176     Viols_node *arg1 = (Viols_node *) 0 ;
03177     List *result;
03178     
03179     if (SWIG_GetArgs(interp, objc, objv,"o:tinaViolsNode_viols_get self ",0) == TCL_ERROR) SWIG_fail;
03180     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03181     result = (List *) ((arg1)->viols);
03182     
03183     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_List,0));
03184     return TCL_OK;
03185     fail:
03186     return TCL_ERROR;
03187 }
03188 
03189 
03190 static int
03191 _wrap_new_tinaViolsNode(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03192     Viols_node *result;
03193     
03194     if (SWIG_GetArgs(interp, objc, objv,":new_tinaViolsNode ") == TCL_ERROR) SWIG_fail;
03195     result = (Viols_node *)(Viols_node *) calloc(1, sizeof(Viols_node));
03196     
03197     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Viols_node,0));
03198     return TCL_OK;
03199     fail:
03200     return TCL_ERROR;
03201 }
03202 
03203 
03204 static int
03205 _wrap_delete_tinaViolsNode(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03206     Viols_node *arg1 = (Viols_node *) 0 ;
03207     
03208     if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaViolsNode self ",0) == TCL_ERROR) SWIG_fail;
03209     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03210     free((char *) arg1);
03211     
03212     
03213     return TCL_OK;
03214     fail:
03215     return TCL_ERROR;
03216 }
03217 
03218 
03219 static void swig_delete_tinaViolsNode(void *obj) {
03220 Viols_node *arg1 = (Viols_node *) obj;
03221 free((char *) arg1);
03222 }
03223 static swig_method swig_Viols_node_methods[] = {
03224     {0,0}
03225 };
03226 static swig_attribute swig_Viols_node_attributes[] = {
03227     { "-tinaTsId",_wrap_tinaViolsNode_tinaTsId_get, _wrap_tinaViolsNode_tinaTsId_set},
03228     { "-status",_wrap_tinaViolsNode_status_get, _wrap_tinaViolsNode_status_set},
03229     { "-label",_wrap_tinaViolsNode_label_get, _wrap_tinaViolsNode_label_set},
03230     { "-gn",_wrap_tinaViolsNode_gn_get, _wrap_tinaViolsNode_gn_set},
03231     { "-viols",_wrap_tinaViolsNode_viols_get, _wrap_tinaViolsNode_viols_set},
03232     {0,0,0}
03233 };
03234 static swig_class *swig_Viols_node_bases[] = {0};
03235 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 };
03236 static int
03237 _wrap_tinaBinNode_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03238     Bin_node *arg1 = (Bin_node *) 0 ;
03239     int arg2 ;
03240     
03241     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaBinNode_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
03242     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03243     if (arg1) (arg1)->ts_id = (Ts_id )arg2;
03244     
03245     
03246     return TCL_OK;
03247     fail:
03248     return TCL_ERROR;
03249 }
03250 
03251 
03252 static int
03253 _wrap_tinaBinNode_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03254     Bin_node *arg1 = (Bin_node *) 0 ;
03255     int result;
03256     
03257     if (SWIG_GetArgs(interp, objc, objv,"o:tinaBinNode_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
03258     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03259     result = (int) ((arg1)->ts_id);
03260     
03261     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
03262     return TCL_OK;
03263     fail:
03264     return TCL_ERROR;
03265 }
03266 
03267 
03268 static int
03269 _wrap_tinaBinNode_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03270     Bin_node *arg1 = (Bin_node *) 0 ;
03271     int arg2 ;
03272     
03273     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaBinNode_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
03274     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03275     if (arg1) (arg1)->type = arg2;
03276     
03277     
03278     return TCL_OK;
03279     fail:
03280     return TCL_ERROR;
03281 }
03282 
03283 
03284 static int
03285 _wrap_tinaBinNode_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03286     Bin_node *arg1 = (Bin_node *) 0 ;
03287     int result;
03288     
03289     if (SWIG_GetArgs(interp, objc, objv,"o:tinaBinNode_type_get self ",0) == TCL_ERROR) SWIG_fail;
03290     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03291     result = (int) ((arg1)->type);
03292     
03293     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
03294     return TCL_OK;
03295     fail:
03296     return TCL_ERROR;
03297 }
03298 
03299 
03300 static int
03301 _wrap_tinaBinNode_status_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03302     Bin_node *arg1 = (Bin_node *) 0 ;
03303     int arg2 ;
03304     
03305     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaBinNode_status_set self status ",0,&arg2) == TCL_ERROR) SWIG_fail;
03306     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03307     if (arg1) (arg1)->status = arg2;
03308     
03309     
03310     return TCL_OK;
03311     fail:
03312     return TCL_ERROR;
03313 }
03314 
03315 
03316 static int
03317 _wrap_tinaBinNode_status_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03318     Bin_node *arg1 = (Bin_node *) 0 ;
03319     int result;
03320     
03321     if (SWIG_GetArgs(interp, objc, objv,"o:tinaBinNode_status_get self ",0) == TCL_ERROR) SWIG_fail;
03322     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03323     result = (int) ((arg1)->status);
03324     
03325     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
03326     return TCL_OK;
03327     fail:
03328     return TCL_ERROR;
03329 }
03330 
03331 
03332 static int
03333 _wrap_tinaBinNode_bounded_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03334     Bin_node *arg1 = (Bin_node *) 0 ;
03335     Bool arg2 ;
03336     
03337     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaBinNode_bounded_set self bounded ",0,&arg2) == TCL_ERROR) SWIG_fail;
03338     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03339     if (arg1) (arg1)->bounded = arg2;
03340     
03341     
03342     return TCL_OK;
03343     fail:
03344     return TCL_ERROR;
03345 }
03346 
03347 
03348 static int
03349 _wrap_tinaBinNode_bounded_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03350     Bin_node *arg1 = (Bin_node *) 0 ;
03351     Bool result;
03352     
03353     if (SWIG_GetArgs(interp, objc, objv,"o:tinaBinNode_bounded_get self ",0) == TCL_ERROR) SWIG_fail;
03354     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03355     result = (Bool) ((arg1)->bounded);
03356     
03357     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
03358     return TCL_OK;
03359     fail:
03360     return TCL_ERROR;
03361 }
03362 
03363 
03364 static int
03365 _wrap_tinaBinNode_bound_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03366     Bin_node *arg1 = (Bin_node *) 0 ;
03367     float arg2 ;
03368     
03369     if (SWIG_GetArgs(interp, objc, objv,"of:tinaBinNode_bound_set self bound ",0,&arg2) == TCL_ERROR) SWIG_fail;
03370     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03371     if (arg1) (arg1)->bound = arg2;
03372     
03373     
03374     return TCL_OK;
03375     fail:
03376     return TCL_ERROR;
03377 }
03378 
03379 
03380 static int
03381 _wrap_tinaBinNode_bound_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03382     Bin_node *arg1 = (Bin_node *) 0 ;
03383     float result;
03384     
03385     if (SWIG_GetArgs(interp, objc, objv,"o:tinaBinNode_bound_get self ",0) == TCL_ERROR) SWIG_fail;
03386     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03387     result = (float) ((arg1)->bound);
03388     
03389     Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
03390     return TCL_OK;
03391     fail:
03392     return TCL_ERROR;
03393 }
03394 
03395 
03396 static int
03397 _wrap_tinaBinNode_value_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03398     Bin_node *arg1 = (Bin_node *) 0 ;
03399     float arg2 ;
03400     
03401     if (SWIG_GetArgs(interp, objc, objv,"of:tinaBinNode_value_set self value ",0,&arg2) == TCL_ERROR) SWIG_fail;
03402     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03403     if (arg1) (arg1)->value = arg2;
03404     
03405     
03406     return TCL_OK;
03407     fail:
03408     return TCL_ERROR;
03409 }
03410 
03411 
03412 static int
03413 _wrap_tinaBinNode_value_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03414     Bin_node *arg1 = (Bin_node *) 0 ;
03415     float result;
03416     
03417     if (SWIG_GetArgs(interp, objc, objv,"o:tinaBinNode_value_get self ",0) == TCL_ERROR) SWIG_fail;
03418     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03419     result = (float) ((arg1)->value);
03420     
03421     Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
03422     return TCL_OK;
03423     fail:
03424     return TCL_ERROR;
03425 }
03426 
03427 
03428 static int
03429 _wrap_tinaBinNode_to_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03430     Bin_node *arg1 = (Bin_node *) 0 ;
03431     void *arg2 = (void *) 0 ;
03432     
03433     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaBinNode_to_set self to ",0,0) == TCL_ERROR) SWIG_fail;
03434     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03435     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, 0,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
03436     if (arg1) (arg1)->to = arg2;
03437     
03438     
03439     return TCL_OK;
03440     fail:
03441     return TCL_ERROR;
03442 }
03443 
03444 
03445 static int
03446 _wrap_tinaBinNode_to_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03447     Bin_node *arg1 = (Bin_node *) 0 ;
03448     void *result;
03449     
03450     if (SWIG_GetArgs(interp, objc, objv,"o:tinaBinNode_to_get self ",0) == TCL_ERROR) SWIG_fail;
03451     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03452     result = (void *) ((arg1)->to);
03453     
03454     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_void,0));
03455     return TCL_OK;
03456     fail:
03457     return TCL_ERROR;
03458 }
03459 
03460 
03461 static int
03462 _wrap_tinaBinNode_child1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03463     Bin_node *arg1 = (Bin_node *) 0 ;
03464     struct bin_node *arg2 = (struct bin_node *) 0 ;
03465     
03466     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaBinNode_child1_set self child1 ",0,0) == TCL_ERROR) SWIG_fail;
03467     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03468     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_bin_node,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
03469     if (arg1) (arg1)->child1 = arg2;
03470     
03471     
03472     return TCL_OK;
03473     fail:
03474     return TCL_ERROR;
03475 }
03476 
03477 
03478 static int
03479 _wrap_tinaBinNode_child1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03480     Bin_node *arg1 = (Bin_node *) 0 ;
03481     struct bin_node *result;
03482     
03483     if (SWIG_GetArgs(interp, objc, objv,"o:tinaBinNode_child1_get self ",0) == TCL_ERROR) SWIG_fail;
03484     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03485     result = (struct bin_node *) ((arg1)->child1);
03486     
03487     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_bin_node,0));
03488     return TCL_OK;
03489     fail:
03490     return TCL_ERROR;
03491 }
03492 
03493 
03494 static int
03495 _wrap_tinaBinNode_child2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03496     Bin_node *arg1 = (Bin_node *) 0 ;
03497     struct bin_node *arg2 = (struct bin_node *) 0 ;
03498     
03499     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaBinNode_child2_set self child2 ",0,0) == TCL_ERROR) SWIG_fail;
03500     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03501     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_bin_node,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
03502     if (arg1) (arg1)->child2 = arg2;
03503     
03504     
03505     return TCL_OK;
03506     fail:
03507     return TCL_ERROR;
03508 }
03509 
03510 
03511 static int
03512 _wrap_tinaBinNode_child2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03513     Bin_node *arg1 = (Bin_node *) 0 ;
03514     struct bin_node *result;
03515     
03516     if (SWIG_GetArgs(interp, objc, objv,"o:tinaBinNode_child2_get self ",0) == TCL_ERROR) SWIG_fail;
03517     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03518     result = (struct bin_node *) ((arg1)->child2);
03519     
03520     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_bin_node,0));
03521     return TCL_OK;
03522     fail:
03523     return TCL_ERROR;
03524 }
03525 
03526 
03527 static int
03528 _wrap_tinaBinNode_parent_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03529     Bin_node *arg1 = (Bin_node *) 0 ;
03530     struct bin_node *arg2 = (struct bin_node *) 0 ;
03531     
03532     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaBinNode_parent_set self parent ",0,0) == TCL_ERROR) SWIG_fail;
03533     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03534     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_bin_node,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
03535     if (arg1) (arg1)->parent = arg2;
03536     
03537     
03538     return TCL_OK;
03539     fail:
03540     return TCL_ERROR;
03541 }
03542 
03543 
03544 static int
03545 _wrap_tinaBinNode_parent_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03546     Bin_node *arg1 = (Bin_node *) 0 ;
03547     struct bin_node *result;
03548     
03549     if (SWIG_GetArgs(interp, objc, objv,"o:tinaBinNode_parent_get self ",0) == TCL_ERROR) SWIG_fail;
03550     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03551     result = (struct bin_node *) ((arg1)->parent);
03552     
03553     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_bin_node,0));
03554     return TCL_OK;
03555     fail:
03556     return TCL_ERROR;
03557 }
03558 
03559 
03560 static int
03561 _wrap_new_tinaBinNode(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03562     Bin_node *result;
03563     
03564     if (SWIG_GetArgs(interp, objc, objv,":new_tinaBinNode ") == TCL_ERROR) SWIG_fail;
03565     result = (Bin_node *)(Bin_node *) calloc(1, sizeof(Bin_node));
03566     
03567     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Bin_node,0));
03568     return TCL_OK;
03569     fail:
03570     return TCL_ERROR;
03571 }
03572 
03573 
03574 static int
03575 _wrap_delete_tinaBinNode(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03576     Bin_node *arg1 = (Bin_node *) 0 ;
03577     
03578     if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaBinNode self ",0) == TCL_ERROR) SWIG_fail;
03579     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03580     free((char *) arg1);
03581     
03582     
03583     return TCL_OK;
03584     fail:
03585     return TCL_ERROR;
03586 }
03587 
03588 
03589 static void swig_delete_tinaBinNode(void *obj) {
03590 Bin_node *arg1 = (Bin_node *) obj;
03591 free((char *) arg1);
03592 }
03593 static swig_method swig_Bin_node_methods[] = {
03594     {0,0}
03595 };
03596 static swig_attribute swig_Bin_node_attributes[] = {
03597     { "-tinaTsId",_wrap_tinaBinNode_tinaTsId_get, _wrap_tinaBinNode_tinaTsId_set},
03598     { "-type",_wrap_tinaBinNode_type_get, _wrap_tinaBinNode_type_set},
03599     { "-status",_wrap_tinaBinNode_status_get, _wrap_tinaBinNode_status_set},
03600     { "-bounded",_wrap_tinaBinNode_bounded_get, _wrap_tinaBinNode_bounded_set},
03601     { "-bound",_wrap_tinaBinNode_bound_get, _wrap_tinaBinNode_bound_set},
03602     { "-value",_wrap_tinaBinNode_value_get, _wrap_tinaBinNode_value_set},
03603     { "-to",_wrap_tinaBinNode_to_get, _wrap_tinaBinNode_to_set},
03604     { "-child1",_wrap_tinaBinNode_child1_get, _wrap_tinaBinNode_child1_set},
03605     { "-child2",_wrap_tinaBinNode_child2_get, _wrap_tinaBinNode_child2_set},
03606     { "-parent",_wrap_tinaBinNode_parent_get, _wrap_tinaBinNode_parent_set},
03607     {0,0,0}
03608 };
03609 static swig_class *swig_Bin_node_bases[] = {0};
03610 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 };
03611 static int
03612 _wrap_tinaList_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03613     List *arg1 = (List *) 0 ;
03614     int arg2 ;
03615     
03616     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaList_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
03617     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03618     if (arg1) (arg1)->ts_id = (Ts_id )arg2;
03619     
03620     
03621     return TCL_OK;
03622     fail:
03623     return TCL_ERROR;
03624 }
03625 
03626 
03627 static int
03628 _wrap_tinaList_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03629     List *arg1 = (List *) 0 ;
03630     int result;
03631     
03632     if (SWIG_GetArgs(interp, objc, objv,"o:tinaList_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
03633     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03634     result = (int) ((arg1)->ts_id);
03635     
03636     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
03637     return TCL_OK;
03638     fail:
03639     return TCL_ERROR;
03640 }
03641 
03642 
03643 static int
03644 _wrap_tinaList_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03645     List *arg1 = (List *) 0 ;
03646     int arg2 ;
03647     
03648     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaList_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
03649     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03650     if (arg1) (arg1)->type = arg2;
03651     
03652     
03653     return TCL_OK;
03654     fail:
03655     return TCL_ERROR;
03656 }
03657 
03658 
03659 static int
03660 _wrap_tinaList_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03661     List *arg1 = (List *) 0 ;
03662     int result;
03663     
03664     if (SWIG_GetArgs(interp, objc, objv,"o:tinaList_type_get self ",0) == TCL_ERROR) SWIG_fail;
03665     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03666     result = (int) ((arg1)->type);
03667     
03668     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
03669     return TCL_OK;
03670     fail:
03671     return TCL_ERROR;
03672 }
03673 
03674 
03675 static int
03676 _wrap_tinaList_next_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03677     List *arg1 = (List *) 0 ;
03678     struct list *arg2 = (struct list *) 0 ;
03679     
03680     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaList_next_set self next ",0,0) == TCL_ERROR) SWIG_fail;
03681     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03682     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_list,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
03683     if (arg1) (arg1)->next = arg2;
03684     
03685     
03686     return TCL_OK;
03687     fail:
03688     return TCL_ERROR;
03689 }
03690 
03691 
03692 static int
03693 _wrap_tinaList_next_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03694     List *arg1 = (List *) 0 ;
03695     struct list *result;
03696     
03697     if (SWIG_GetArgs(interp, objc, objv,"o:tinaList_next_get self ",0) == TCL_ERROR) SWIG_fail;
03698     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03699     result = (struct list *) ((arg1)->next);
03700     
03701     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_list,0));
03702     return TCL_OK;
03703     fail:
03704     return TCL_ERROR;
03705 }
03706 
03707 
03708 static int
03709 _wrap_tinaList_last_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03710     List *arg1 = (List *) 0 ;
03711     struct list *arg2 = (struct list *) 0 ;
03712     
03713     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaList_last_set self last ",0,0) == TCL_ERROR) SWIG_fail;
03714     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03715     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_list,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
03716     if (arg1) (arg1)->last = arg2;
03717     
03718     
03719     return TCL_OK;
03720     fail:
03721     return TCL_ERROR;
03722 }
03723 
03724 
03725 static int
03726 _wrap_tinaList_last_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03727     List *arg1 = (List *) 0 ;
03728     struct list *result;
03729     
03730     if (SWIG_GetArgs(interp, objc, objv,"o:tinaList_last_get self ",0) == TCL_ERROR) SWIG_fail;
03731     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03732     result = (struct list *) ((arg1)->last);
03733     
03734     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_list,0));
03735     return TCL_OK;
03736     fail:
03737     return TCL_ERROR;
03738 }
03739 
03740 
03741 static int
03742 _wrap_tinaList_to_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03743     List *arg1 = (List *) 0 ;
03744     void *arg2 = (void *) 0 ;
03745     
03746     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaList_to_set self to ",0,0) == TCL_ERROR) SWIG_fail;
03747     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03748     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, 0,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
03749     if (arg1) (arg1)->to = arg2;
03750     
03751     
03752     return TCL_OK;
03753     fail:
03754     return TCL_ERROR;
03755 }
03756 
03757 
03758 static int
03759 _wrap_tinaList_to_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03760     List *arg1 = (List *) 0 ;
03761     void *result;
03762     
03763     if (SWIG_GetArgs(interp, objc, objv,"o:tinaList_to_get self ",0) == TCL_ERROR) SWIG_fail;
03764     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03765     result = (void *) ((arg1)->to);
03766     
03767     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_void,0));
03768     return TCL_OK;
03769     fail:
03770     return TCL_ERROR;
03771 }
03772 
03773 
03774 static int
03775 _wrap_new_tinaList(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03776     List *result;
03777     
03778     if (SWIG_GetArgs(interp, objc, objv,":new_tinaList ") == TCL_ERROR) SWIG_fail;
03779     result = (List *)(List *) calloc(1, sizeof(List));
03780     
03781     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_List,0));
03782     return TCL_OK;
03783     fail:
03784     return TCL_ERROR;
03785 }
03786 
03787 
03788 static int
03789 _wrap_delete_tinaList(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03790     List *arg1 = (List *) 0 ;
03791     
03792     if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaList self ",0) == TCL_ERROR) SWIG_fail;
03793     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03794     free((char *) arg1);
03795     
03796     
03797     return TCL_OK;
03798     fail:
03799     return TCL_ERROR;
03800 }
03801 
03802 
03803 static void swig_delete_tinaList(void *obj) {
03804 List *arg1 = (List *) obj;
03805 free((char *) arg1);
03806 }
03807 static swig_method swig_List_methods[] = {
03808     {0,0}
03809 };
03810 static swig_attribute swig_List_attributes[] = {
03811     { "-tinaTsId",_wrap_tinaList_tinaTsId_get, _wrap_tinaList_tinaTsId_set},
03812     { "-type",_wrap_tinaList_type_get, _wrap_tinaList_type_set},
03813     { "-next",_wrap_tinaList_next_get, _wrap_tinaList_next_set},
03814     { "-last",_wrap_tinaList_last_get, _wrap_tinaList_last_set},
03815     { "-to",_wrap_tinaList_to_get, _wrap_tinaList_to_set},
03816     {0,0,0}
03817 };
03818 static swig_class *swig_List_bases[] = {0};
03819 swig_class _wrap_class_List = { "tinaList", &SWIGTYPE_p_List,_wrap_new_tinaList, swig_delete_tinaList, swig_List_methods, swig_List_attributes, swig_List_bases };
03820 static int
03821 _wrap_tinaTString_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03822     Tstring *arg1 = (Tstring *) 0 ;
03823     int arg2 ;
03824     
03825     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaTString_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
03826     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03827     if (arg1) (arg1)->ts_id = (Ts_id )arg2;
03828     
03829     
03830     return TCL_OK;
03831     fail:
03832     return TCL_ERROR;
03833 }
03834 
03835 
03836 static int
03837 _wrap_tinaTString_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03838     Tstring *arg1 = (Tstring *) 0 ;
03839     int result;
03840     
03841     if (SWIG_GetArgs(interp, objc, objv,"o:tinaTString_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
03842     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03843     result = (int) ((arg1)->ts_id);
03844     
03845     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
03846     return TCL_OK;
03847     fail:
03848     return TCL_ERROR;
03849 }
03850 
03851 
03852 static int
03853 _wrap_tinaTString_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03854     Tstring *arg1 = (Tstring *) 0 ;
03855     int arg2 ;
03856     
03857     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaTString_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
03858     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03859     if (arg1) (arg1)->type = arg2;
03860     
03861     
03862     return TCL_OK;
03863     fail:
03864     return TCL_ERROR;
03865 }
03866 
03867 
03868 static int
03869 _wrap_tinaTString_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03870     Tstring *arg1 = (Tstring *) 0 ;
03871     int result;
03872     
03873     if (SWIG_GetArgs(interp, objc, objv,"o:tinaTString_type_get self ",0) == TCL_ERROR) SWIG_fail;
03874     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03875     result = (int) ((arg1)->type);
03876     
03877     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
03878     return TCL_OK;
03879     fail:
03880     return TCL_ERROR;
03881 }
03882 
03883 
03884 static int
03885 _wrap_tinaTString_start_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03886     Tstring *arg1 = (Tstring *) 0 ;
03887     struct list *arg2 = (struct list *) 0 ;
03888     
03889     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaTString_start_set self start ",0,0) == TCL_ERROR) SWIG_fail;
03890     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03891     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_list,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
03892     if (arg1) (arg1)->start = arg2;
03893     
03894     
03895     return TCL_OK;
03896     fail:
03897     return TCL_ERROR;
03898 }
03899 
03900 
03901 static int
03902 _wrap_tinaTString_start_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03903     Tstring *arg1 = (Tstring *) 0 ;
03904     struct list *result;
03905     
03906     if (SWIG_GetArgs(interp, objc, objv,"o:tinaTString_start_get self ",0) == TCL_ERROR) SWIG_fail;
03907     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03908     result = (struct list *) ((arg1)->start);
03909     
03910     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_list,0));
03911     return TCL_OK;
03912     fail:
03913     return TCL_ERROR;
03914 }
03915 
03916 
03917 static int
03918 _wrap_tinaTString_end_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03919     Tstring *arg1 = (Tstring *) 0 ;
03920     struct list *arg2 = (struct list *) 0 ;
03921     
03922     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaTString_end_set self end ",0,0) == TCL_ERROR) SWIG_fail;
03923     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03924     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_list,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
03925     if (arg1) (arg1)->end = arg2;
03926     
03927     
03928     return TCL_OK;
03929     fail:
03930     return TCL_ERROR;
03931 }
03932 
03933 
03934 static int
03935 _wrap_tinaTString_end_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03936     Tstring *arg1 = (Tstring *) 0 ;
03937     struct list *result;
03938     
03939     if (SWIG_GetArgs(interp, objc, objv,"o:tinaTString_end_get self ",0) == TCL_ERROR) SWIG_fail;
03940     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03941     result = (struct list *) ((arg1)->end);
03942     
03943     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_list,0));
03944     return TCL_OK;
03945     fail:
03946     return TCL_ERROR;
03947 }
03948 
03949 
03950 static int
03951 _wrap_tinaTString_count_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03952     Tstring *arg1 = (Tstring *) 0 ;
03953     int arg2 ;
03954     
03955     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaTString_count_set self count ",0,&arg2) == TCL_ERROR) SWIG_fail;
03956     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03957     if (arg1) (arg1)->count = arg2;
03958     
03959     
03960     return TCL_OK;
03961     fail:
03962     return TCL_ERROR;
03963 }
03964 
03965 
03966 static int
03967 _wrap_tinaTString_count_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03968     Tstring *arg1 = (Tstring *) 0 ;
03969     int result;
03970     
03971     if (SWIG_GetArgs(interp, objc, objv,"o:tinaTString_count_get self ",0) == TCL_ERROR) SWIG_fail;
03972     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03973     result = (int) ((arg1)->count);
03974     
03975     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
03976     return TCL_OK;
03977     fail:
03978     return TCL_ERROR;
03979 }
03980 
03981 
03982 static int
03983 _wrap_tinaTString_props_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
03984     Tstring *arg1 = (Tstring *) 0 ;
03985     struct list *arg2 = (struct list *) 0 ;
03986     
03987     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaTString_props_set self props ",0,0) == TCL_ERROR) SWIG_fail;
03988     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
03989     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_list,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
03990     if (arg1) (arg1)->props = arg2;
03991     
03992     
03993     return TCL_OK;
03994     fail:
03995     return TCL_ERROR;
03996 }
03997 
03998 
03999 static int
04000 _wrap_tinaTString_props_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04001     Tstring *arg1 = (Tstring *) 0 ;
04002     struct list *result;
04003     
04004     if (SWIG_GetArgs(interp, objc, objv,"o:tinaTString_props_get self ",0) == TCL_ERROR) SWIG_fail;
04005     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04006     result = (struct list *) ((arg1)->props);
04007     
04008     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_list,0));
04009     return TCL_OK;
04010     fail:
04011     return TCL_ERROR;
04012 }
04013 
04014 
04015 static int
04016 _wrap_new_tinaTString(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04017     Tstring *result;
04018     
04019     if (SWIG_GetArgs(interp, objc, objv,":new_tinaTString ") == TCL_ERROR) SWIG_fail;
04020     result = (Tstring *)(Tstring *) calloc(1, sizeof(Tstring));
04021     
04022     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Tstring,0));
04023     return TCL_OK;
04024     fail:
04025     return TCL_ERROR;
04026 }
04027 
04028 
04029 static int
04030 _wrap_delete_tinaTString(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04031     Tstring *arg1 = (Tstring *) 0 ;
04032     
04033     if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaTString self ",0) == TCL_ERROR) SWIG_fail;
04034     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04035     free((char *) arg1);
04036     
04037     
04038     return TCL_OK;
04039     fail:
04040     return TCL_ERROR;
04041 }
04042 
04043 
04044 static void swig_delete_tinaTString(void *obj) {
04045 Tstring *arg1 = (Tstring *) obj;
04046 free((char *) arg1);
04047 }
04048 static swig_method swig_Tstring_methods[] = {
04049     {0,0}
04050 };
04051 static swig_attribute swig_Tstring_attributes[] = {
04052     { "-tinaTsId",_wrap_tinaTString_tinaTsId_get, _wrap_tinaTString_tinaTsId_set},
04053     { "-type",_wrap_tinaTString_type_get, _wrap_tinaTString_type_set},
04054     { "-start",_wrap_tinaTString_start_get, _wrap_tinaTString_start_set},
04055     { "-end",_wrap_tinaTString_end_get, _wrap_tinaTString_end_set},
04056     { "-count",_wrap_tinaTString_count_get, _wrap_tinaTString_count_set},
04057     { "-props",_wrap_tinaTString_props_get, _wrap_tinaTString_props_set},
04058     {0,0,0}
04059 };
04060 static swig_class *swig_Tstring_bases[] = {0};
04061 swig_class _wrap_class_Tstring = { "tinaTString", &SWIGTYPE_p_Tstring,_wrap_new_tinaTString, swig_delete_tinaTString, swig_Tstring_methods, swig_Tstring_attributes, swig_Tstring_bases };
04062 static int
04063 _wrap_tinaProp_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04064     Prop *arg1 = (Prop *) 0 ;
04065     int arg2 ;
04066     
04067     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaProp_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
04068     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04069     if (arg1) (arg1)->ts_id = (Ts_id )arg2;
04070     
04071     
04072     return TCL_OK;
04073     fail:
04074     return TCL_ERROR;
04075 }
04076 
04077 
04078 static int
04079 _wrap_tinaProp_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04080     Prop *arg1 = (Prop *) 0 ;
04081     int result;
04082     
04083     if (SWIG_GetArgs(interp, objc, objv,"o:tinaProp_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
04084     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04085     result = (int) ((arg1)->ts_id);
04086     
04087     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
04088     return TCL_OK;
04089     fail:
04090     return TCL_ERROR;
04091 }
04092 
04093 
04094 static int
04095 _wrap_tinaProp_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04096     Prop *arg1 = (Prop *) 0 ;
04097     int arg2 ;
04098     
04099     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaProp_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
04100     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04101     if (arg1) (arg1)->type = arg2;
04102     
04103     
04104     return TCL_OK;
04105     fail:
04106     return TCL_ERROR;
04107 }
04108 
04109 
04110 static int
04111 _wrap_tinaProp_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04112     Prop *arg1 = (Prop *) 0 ;
04113     int result;
04114     
04115     if (SWIG_GetArgs(interp, objc, objv,"o:tinaProp_type_get self ",0) == TCL_ERROR) SWIG_fail;
04116     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04117     result = (int) ((arg1)->type);
04118     
04119     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
04120     return TCL_OK;
04121     fail:
04122     return TCL_ERROR;
04123 }
04124 
04125 
04126 static int
04127 _wrap_tinaProp_count_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04128     Prop *arg1 = (Prop *) 0 ;
04129     int arg2 ;
04130     
04131     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaProp_count_set self count ",0,&arg2) == TCL_ERROR) SWIG_fail;
04132     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04133     if (arg1) (arg1)->count = arg2;
04134     
04135     
04136     return TCL_OK;
04137     fail:
04138     return TCL_ERROR;
04139 }
04140 
04141 
04142 static int
04143 _wrap_tinaProp_count_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04144     Prop *arg1 = (Prop *) 0 ;
04145     int result;
04146     
04147     if (SWIG_GetArgs(interp, objc, objv,"o:tinaProp_count_get self ",0) == TCL_ERROR) SWIG_fail;
04148     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04149     result = (int) ((arg1)->count);
04150     
04151     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
04152     return TCL_OK;
04153     fail:
04154     return TCL_ERROR;
04155 }
04156 
04157 
04158 static int
04159 _wrap_tinaProp_freefunc_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04160     Prop *arg1 = (Prop *) 0 ;
04161     void (*arg2)() = (void (*)()) 0 ;
04162     
04163     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaProp_freefunc_set self freefunc ",0,0) == TCL_ERROR) SWIG_fail;
04164     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04165     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_f___void,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04166     if (arg1) (arg1)->freefunc = arg2;
04167     
04168     
04169     return TCL_OK;
04170     fail:
04171     return TCL_ERROR;
04172 }
04173 
04174 
04175 static int
04176 _wrap_tinaProp_freefunc_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04177     Prop *arg1 = (Prop *) 0 ;
04178     void (*result)();
04179     
04180     if (SWIG_GetArgs(interp, objc, objv,"o:tinaProp_freefunc_get self ",0) == TCL_ERROR) SWIG_fail;
04181     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04182     result = (void (*)()) ((arg1)->freefunc);
04183     
04184     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_f___void,0));
04185     return TCL_OK;
04186     fail:
04187     return TCL_ERROR;
04188 }
04189 
04190 
04191 static int
04192 _wrap_tinaProp_to_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04193     Prop *arg1 = (Prop *) 0 ;
04194     void *arg2 = (void *) 0 ;
04195     
04196     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaProp_to_set self to ",0,0) == TCL_ERROR) SWIG_fail;
04197     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04198     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, 0,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
04199     if (arg1) (arg1)->to = arg2;
04200     
04201     
04202     return TCL_OK;
04203     fail:
04204     return TCL_ERROR;
04205 }
04206 
04207 
04208 static int
04209 _wrap_tinaProp_to_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04210     Prop *arg1 = (Prop *) 0 ;
04211     void *result;
04212     
04213     if (SWIG_GetArgs(interp, objc, objv,"o:tinaProp_to_get self ",0) == TCL_ERROR) SWIG_fail;
04214     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04215     result = (void *) ((arg1)->to);
04216     
04217     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_void,0));
04218     return TCL_OK;
04219     fail:
04220     return TCL_ERROR;
04221 }
04222 
04223 
04224 static int
04225 _wrap_new_tinaProp(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04226     Prop *result;
04227     
04228     if (SWIG_GetArgs(interp, objc, objv,":new_tinaProp ") == TCL_ERROR) SWIG_fail;
04229     result = (Prop *)(Prop *) calloc(1, sizeof(Prop));
04230     
04231     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Prop,0));
04232     return TCL_OK;
04233     fail:
04234     return TCL_ERROR;
04235 }
04236 
04237 
04238 static int
04239 _wrap_delete_tinaProp(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04240     Prop *arg1 = (Prop *) 0 ;
04241     
04242     if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaProp self ",0) == TCL_ERROR) SWIG_fail;
04243     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Prop,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04244     free((char *) arg1);
04245     
04246     
04247     return TCL_OK;
04248     fail:
04249     return TCL_ERROR;
04250 }
04251 
04252 
04253 static void swig_delete_tinaProp(void *obj) {
04254 Prop *arg1 = (Prop *) obj;
04255 free((char *) arg1);
04256 }
04257 static swig_method swig_Prop_methods[] = {
04258     {0,0}
04259 };
04260 static swig_attribute swig_Prop_attributes[] = {
04261     { "-tinaTsId",_wrap_tinaProp_tinaTsId_get, _wrap_tinaProp_tinaTsId_set},
04262     { "-type",_wrap_tinaProp_type_get, _wrap_tinaProp_type_set},
04263     { "-count",_wrap_tinaProp_count_get, _wrap_tinaProp_count_set},
04264     { "-freefunc",_wrap_tinaProp_freefunc_get, _wrap_tinaProp_freefunc_set},
04265     { "-to",_wrap_tinaProp_to_get, _wrap_tinaProp_to_set},
04266     {0,0,0}
04267 };
04268 static swig_class *swig_Prop_bases[] = {0};
04269 swig_class _wrap_class_Prop = { "tinaProp", &SWIGTYPE_p_Prop,_wrap_new_tinaProp, swig_delete_tinaProp, swig_Prop_methods, swig_Prop_attributes, swig_Prop_bases };
04270 static int
04271 _wrap_tinaMatch_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04272     Match *arg1 = (Match *) 0 ;
04273     int arg2 ;
04274     
04275     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaMatch_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
04276     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Match,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04277     if (arg1) (arg1)->ts_id = (Ts_id )arg2;
04278     
04279     
04280     return TCL_OK;
04281     fail:
04282     return TCL_ERROR;
04283 }
04284 
04285 
04286 static int
04287 _wrap_tinaMatch_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04288     Match *arg1 = (Match *) 0 ;
04289     int result;
04290     
04291     if (SWIG_GetArgs(interp, objc, objv,"o:tinaMatch_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
04292     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Match,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04293     result = (int) ((arg1)->ts_id);
04294     
04295     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
04296     return TCL_OK;
04297     fail:
04298     return TCL_ERROR;
04299 }
04300 
04301 
04302 static int
04303 _wrap_tinaMatch_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04304     Match *arg1 = (Match *) 0 ;
04305     int arg2 ;
04306     
04307     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaMatch_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
04308     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Match,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04309     if (arg1) (arg1)->type = arg2;
04310     
04311     
04312     return TCL_OK;
04313     fail:
04314     return TCL_ERROR;
04315 }
04316 
04317 
04318 static int
04319 _wrap_tinaMatch_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04320     Match *arg1 = (Match *) 0 ;
04321     int result;
04322     
04323     if (SWIG_GetArgs(interp, objc, objv,"o:tinaMatch_type_get self ",0) == TCL_ERROR) SWIG_fail;
04324     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Match,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04325     result = (int) ((arg1)->type);
04326     
04327     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
04328     return TCL_OK;
04329     fail:
04330     return TCL_ERROR;
04331 }
04332 
04333 
04334 static int
04335 _wrap_tinaMatch_label_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04336     Match *arg1 = (Match *) 0 ;
04337     int arg2 ;
04338     
04339     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaMatch_label_set self label ",0,&arg2) == TCL_ERROR) SWIG_fail;
04340     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Match,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04341     if (arg1) (arg1)->label = arg2;
04342     
04343     
04344     return TCL_OK;
04345     fail:
04346     return TCL_ERROR;
04347 }
04348 
04349 
04350 static int
04351 _wrap_tinaMatch_label_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04352     Match *arg1 = (Match *) 0 ;
04353     int result;
04354     
04355     if (SWIG_GetArgs(interp, objc, objv,"o:tinaMatch_label_get self ",0) == TCL_ERROR) SWIG_fail;
04356     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Match,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04357     result = (int) ((arg1)->label);
04358     
04359     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
04360     return TCL_OK;
04361     fail:
04362     return TCL_ERROR;
04363 }
04364 
04365 
04366 static int
04367 _wrap_tinaMatch_weight_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04368     Match *arg1 = (Match *) 0 ;
04369     float arg2 ;
04370     
04371     if (SWIG_GetArgs(interp, objc, objv,"of:tinaMatch_weight_set self weight ",0,&arg2) == TCL_ERROR) SWIG_fail;
04372     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Match,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04373     if (arg1) (arg1)->weight = arg2;
04374     
04375     
04376     return TCL_OK;
04377     fail:
04378     return TCL_ERROR;
04379 }
04380 
04381 
04382 static int
04383 _wrap_tinaMatch_weight_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04384     Match *arg1 = (Match *) 0 ;
04385     float result;
04386     
04387     if (SWIG_GetArgs(interp, objc, objv,"o:tinaMatch_weight_get self ",0) == TCL_ERROR) SWIG_fail;
04388     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Match,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04389     result = (float) ((arg1)->weight);
04390     
04391     Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
04392     return TCL_OK;
04393     fail:
04394     return TCL_ERROR;
04395 }
04396 
04397 
04398 static int
04399 _wrap_tinaMatch_to1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04400     Match *arg1 = (Match *) 0 ;
04401     void *arg2 = (void *) 0 ;
04402     
04403     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaMatch_to1_set self to1 ",0,0) == TCL_ERROR) SWIG_fail;
04404     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Match,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04405     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, 0,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
04406     if (arg1) (arg1)->to1 = arg2;
04407     
04408     
04409     return TCL_OK;
04410     fail:
04411     return TCL_ERROR;
04412 }
04413 
04414 
04415 static int
04416 _wrap_tinaMatch_to1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04417     Match *arg1 = (Match *) 0 ;
04418     void *result;
04419     
04420     if (SWIG_GetArgs(interp, objc, objv,"o:tinaMatch_to1_get self ",0) == TCL_ERROR) SWIG_fail;
04421     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Match,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04422     result = (void *) ((arg1)->to1);
04423     
04424     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_void,0));
04425     return TCL_OK;
04426     fail:
04427     return TCL_ERROR;
04428 }
04429 
04430 
04431 static int
04432 _wrap_tinaMatch_to2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04433     Match *arg1 = (Match *) 0 ;
04434     void *arg2 = (void *) 0 ;
04435     
04436     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaMatch_to2_set self to2 ",0,0) == TCL_ERROR) SWIG_fail;
04437     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Match,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04438     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, 0,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
04439     if (arg1) (arg1)->to2 = arg2;
04440     
04441     
04442     return TCL_OK;
04443     fail:
04444     return TCL_ERROR;
04445 }
04446 
04447 
04448 static int
04449 _wrap_tinaMatch_to2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04450     Match *arg1 = (Match *) 0 ;
04451     void *result;
04452     
04453     if (SWIG_GetArgs(interp, objc, objv,"o:tinaMatch_to2_get self ",0) == TCL_ERROR) SWIG_fail;
04454     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Match,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04455     result = (void *) ((arg1)->to2);
04456     
04457     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_void,0));
04458     return TCL_OK;
04459     fail:
04460     return TCL_ERROR;
04461 }
04462 
04463 
04464 static int
04465 _wrap_tinaMatch_props_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04466     Match *arg1 = (Match *) 0 ;
04467     struct list *arg2 = (struct list *) 0 ;
04468     
04469     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaMatch_props_set self props ",0,0) == TCL_ERROR) SWIG_fail;
04470     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Match,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04471     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_list,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
04472     if (arg1) (arg1)->props = arg2;
04473     
04474     
04475     return TCL_OK;
04476     fail:
04477     return TCL_ERROR;
04478 }
04479 
04480 
04481 static int
04482 _wrap_tinaMatch_props_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04483     Match *arg1 = (Match *) 0 ;
04484     struct list *result;
04485     
04486     if (SWIG_GetArgs(interp, objc, objv,"o:tinaMatch_props_get self ",0) == TCL_ERROR) SWIG_fail;
04487     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Match,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04488     result = (struct list *) ((arg1)->props);
04489     
04490     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_list,0));
04491     return TCL_OK;
04492     fail:
04493     return TCL_ERROR;
04494 }
04495 
04496 
04497 static int
04498 _wrap_new_tinaMatch(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04499     Match *result;
04500     
04501     if (SWIG_GetArgs(interp, objc, objv,":new_tinaMatch ") == TCL_ERROR) SWIG_fail;
04502     result = (Match *)(Match *) calloc(1, sizeof(Match));
04503     
04504     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Match,0));
04505     return TCL_OK;
04506     fail:
04507     return TCL_ERROR;
04508 }
04509 
04510 
04511 static int
04512 _wrap_delete_tinaMatch(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04513     Match *arg1 = (Match *) 0 ;
04514     
04515     if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaMatch self ",0) == TCL_ERROR) SWIG_fail;
04516     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Match,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04517     free((char *) arg1);
04518     
04519     
04520     return TCL_OK;
04521     fail:
04522     return TCL_ERROR;
04523 }
04524 
04525 
04526 static void swig_delete_tinaMatch(void *obj) {
04527 Match *arg1 = (Match *) obj;
04528 free((char *) arg1);
04529 }
04530 static swig_method swig_Match_methods[] = {
04531     {0,0}
04532 };
04533 static swig_attribute swig_Match_attributes[] = {
04534     { "-tinaTsId",_wrap_tinaMatch_tinaTsId_get, _wrap_tinaMatch_tinaTsId_set},
04535     { "-type",_wrap_tinaMatch_type_get, _wrap_tinaMatch_type_set},
04536     { "-label",_wrap_tinaMatch_label_get, _wrap_tinaMatch_label_set},
04537     { "-weight",_wrap_tinaMatch_weight_get, _wrap_tinaMatch_weight_set},
04538     { "-to1",_wrap_tinaMatch_to1_get, _wrap_tinaMatch_to1_set},
04539     { "-to2",_wrap_tinaMatch_to2_get, _wrap_tinaMatch_to2_set},
04540     { "-props",_wrap_tinaMatch_props_get, _wrap_tinaMatch_props_set},
04541     {0,0,0}
04542 };
04543 static swig_class *swig_Match_bases[] = {0};
04544 swig_class _wrap_class_Match = { "tinaMatch", &SWIGTYPE_p_Match,_wrap_new_tinaMatch, swig_delete_tinaMatch, swig_Match_methods, swig_Match_attributes, swig_Match_bases };
04545 static int
04546 _wrap_tinaPair_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04547     Pair *arg1 = (Pair *) 0 ;
04548     int arg2 ;
04549     
04550     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaPair_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
04551     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pair,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04552     if (arg1) (arg1)->ts_id = (Ts_id )arg2;
04553     
04554     
04555     return TCL_OK;
04556     fail:
04557     return TCL_ERROR;
04558 }
04559 
04560 
04561 static int
04562 _wrap_tinaPair_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04563     Pair *arg1 = (Pair *) 0 ;
04564     int result;
04565     
04566     if (SWIG_GetArgs(interp, objc, objv,"o:tinaPair_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
04567     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pair,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04568     result = (int) ((arg1)->ts_id);
04569     
04570     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
04571     return TCL_OK;
04572     fail:
04573     return TCL_ERROR;
04574 }
04575 
04576 
04577 static int
04578 _wrap_tinaPair_type1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04579     Pair *arg1 = (Pair *) 0 ;
04580     int arg2 ;
04581     
04582     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaPair_type1_set self type1 ",0,&arg2) == TCL_ERROR) SWIG_fail;
04583     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pair,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04584     if (arg1) (arg1)->type1 = arg2;
04585     
04586     
04587     return TCL_OK;
04588     fail:
04589     return TCL_ERROR;
04590 }
04591 
04592 
04593 static int
04594 _wrap_tinaPair_type1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04595     Pair *arg1 = (Pair *) 0 ;
04596     int result;
04597     
04598     if (SWIG_GetArgs(interp, objc, objv,"o:tinaPair_type1_get self ",0) == TCL_ERROR) SWIG_fail;
04599     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pair,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04600     result = (int) ((arg1)->type1);
04601     
04602     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
04603     return TCL_OK;
04604     fail:
04605     return TCL_ERROR;
04606 }
04607 
04608 
04609 static int
04610 _wrap_tinaPair_type2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04611     Pair *arg1 = (Pair *) 0 ;
04612     int arg2 ;
04613     
04614     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaPair_type2_set self type2 ",0,&arg2) == TCL_ERROR) SWIG_fail;
04615     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pair,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04616     if (arg1) (arg1)->type2 = arg2;
04617     
04618     
04619     return TCL_OK;
04620     fail:
04621     return TCL_ERROR;
04622 }
04623 
04624 
04625 static int
04626 _wrap_tinaPair_type2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04627     Pair *arg1 = (Pair *) 0 ;
04628     int result;
04629     
04630     if (SWIG_GetArgs(interp, objc, objv,"o:tinaPair_type2_get self ",0) == TCL_ERROR) SWIG_fail;
04631     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pair,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04632     result = (int) ((arg1)->type2);
04633     
04634     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
04635     return TCL_OK;
04636     fail:
04637     return TCL_ERROR;
04638 }
04639 
04640 
04641 static int
04642 _wrap_tinaPair_to1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04643     Pair *arg1 = (Pair *) 0 ;
04644     void *arg2 = (void *) 0 ;
04645     
04646     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaPair_to1_set self to1 ",0,0) == TCL_ERROR) SWIG_fail;
04647     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pair,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04648     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, 0,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
04649     if (arg1) (arg1)->to1 = arg2;
04650     
04651     
04652     return TCL_OK;
04653     fail:
04654     return TCL_ERROR;
04655 }
04656 
04657 
04658 static int
04659 _wrap_tinaPair_to1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04660     Pair *arg1 = (Pair *) 0 ;
04661     void *result;
04662     
04663     if (SWIG_GetArgs(interp, objc, objv,"o:tinaPair_to1_get self ",0) == TCL_ERROR) SWIG_fail;
04664     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pair,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04665     result = (void *) ((arg1)->to1);
04666     
04667     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_void,0));
04668     return TCL_OK;
04669     fail:
04670     return TCL_ERROR;
04671 }
04672 
04673 
04674 static int
04675 _wrap_tinaPair_to2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04676     Pair *arg1 = (Pair *) 0 ;
04677     void *arg2 = (void *) 0 ;
04678     
04679     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaPair_to2_set self to2 ",0,0) == TCL_ERROR) SWIG_fail;
04680     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pair,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04681     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, 0,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
04682     if (arg1) (arg1)->to2 = arg2;
04683     
04684     
04685     return TCL_OK;
04686     fail:
04687     return TCL_ERROR;
04688 }
04689 
04690 
04691 static int
04692 _wrap_tinaPair_to2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04693     Pair *arg1 = (Pair *) 0 ;
04694     void *result;
04695     
04696     if (SWIG_GetArgs(interp, objc, objv,"o:tinaPair_to2_get self ",0) == TCL_ERROR) SWIG_fail;
04697     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pair,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04698     result = (void *) ((arg1)->to2);
04699     
04700     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_void,0));
04701     return TCL_OK;
04702     fail:
04703     return TCL_ERROR;
04704 }
04705 
04706 
04707 static int
04708 _wrap_new_tinaPair(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04709     Pair *result;
04710     
04711     if (SWIG_GetArgs(interp, objc, objv,":new_tinaPair ") == TCL_ERROR) SWIG_fail;
04712     result = (Pair *)(Pair *) calloc(1, sizeof(Pair));
04713     
04714     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Pair,0));
04715     return TCL_OK;
04716     fail:
04717     return TCL_ERROR;
04718 }
04719 
04720 
04721 static int
04722 _wrap_delete_tinaPair(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04723     Pair *arg1 = (Pair *) 0 ;
04724     
04725     if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaPair self ",0) == TCL_ERROR) SWIG_fail;
04726     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pair,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04727     free((char *) arg1);
04728     
04729     
04730     return TCL_OK;
04731     fail:
04732     return TCL_ERROR;
04733 }
04734 
04735 
04736 static void swig_delete_tinaPair(void *obj) {
04737 Pair *arg1 = (Pair *) obj;
04738 free((char *) arg1);
04739 }
04740 static swig_method swig_Pair_methods[] = {
04741     {0,0}
04742 };
04743 static swig_attribute swig_Pair_attributes[] = {
04744     { "-tinaTsId",_wrap_tinaPair_tinaTsId_get, _wrap_tinaPair_tinaTsId_set},
04745     { "-type1",_wrap_tinaPair_type1_get, _wrap_tinaPair_type1_set},
04746     { "-type2",_wrap_tinaPair_type2_get, _wrap_tinaPair_type2_set},
04747     { "-to1",_wrap_tinaPair_to1_get, _wrap_tinaPair_to1_set},
04748     { "-to2",_wrap_tinaPair_to2_get, _wrap_tinaPair_to2_set},
04749     {0,0,0}
04750 };
04751 static swig_class *swig_Pair_bases[] = {0};
04752 swig_class _wrap_class_Pair = { "tinaPair", &SWIGTYPE_p_Pair,_wrap_new_tinaPair, swig_delete_tinaPair, swig_Pair_methods, swig_Pair_attributes, swig_Pair_bases };
04753 static int
04754 _wrap_tinaGeneric_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04755     Generic *arg1 = (Generic *) 0 ;
04756     int arg2 ;
04757     
04758     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaGeneric_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
04759     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Generic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04760     if (arg1) (arg1)->ts_id = (Ts_id )arg2;
04761     
04762     
04763     return TCL_OK;
04764     fail:
04765     return TCL_ERROR;
04766 }
04767 
04768 
04769 static int
04770 _wrap_tinaGeneric_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04771     Generic *arg1 = (Generic *) 0 ;
04772     int result;
04773     
04774     if (SWIG_GetArgs(interp, objc, objv,"o:tinaGeneric_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
04775     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Generic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04776     result = (int) ((arg1)->ts_id);
04777     
04778     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
04779     return TCL_OK;
04780     fail:
04781     return TCL_ERROR;
04782 }
04783 
04784 
04785 static int
04786 _wrap_tinaGeneric_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04787     Generic *arg1 = (Generic *) 0 ;
04788     unsigned int arg2 ;
04789     
04790     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaGeneric_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
04791     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Generic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04792     if (arg1) (arg1)->type = arg2;
04793     
04794     
04795     return TCL_OK;
04796     fail:
04797     return TCL_ERROR;
04798 }
04799 
04800 
04801 static int
04802 _wrap_tinaGeneric_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04803     Generic *arg1 = (Generic *) 0 ;
04804     unsigned int result;
04805     
04806     if (SWIG_GetArgs(interp, objc, objv,"o:tinaGeneric_type_get self ",0) == TCL_ERROR) SWIG_fail;
04807     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Generic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04808     result = (unsigned int) ((arg1)->type);
04809     
04810     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
04811     return TCL_OK;
04812     fail:
04813     return TCL_ERROR;
04814 }
04815 
04816 
04817 static int
04818 _wrap_tinaGeneric_label_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04819     Generic *arg1 = (Generic *) 0 ;
04820     unsigned int arg2 ;
04821     
04822     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaGeneric_label_set self label ",0,&arg2) == TCL_ERROR) SWIG_fail;
04823     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Generic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04824     if (arg1) (arg1)->label = arg2;
04825     
04826     
04827     return TCL_OK;
04828     fail:
04829     return TCL_ERROR;
04830 }
04831 
04832 
04833 static int
04834 _wrap_tinaGeneric_label_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04835     Generic *arg1 = (Generic *) 0 ;
04836     unsigned int result;
04837     
04838     if (SWIG_GetArgs(interp, objc, objv,"o:tinaGeneric_label_get self ",0) == TCL_ERROR) SWIG_fail;
04839     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Generic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04840     result = (unsigned int) ((arg1)->label);
04841     
04842     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
04843     return TCL_OK;
04844     fail:
04845     return TCL_ERROR;
04846 }
04847 
04848 
04849 static int
04850 _wrap_tinaGeneric_to_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04851     Generic *arg1 = (Generic *) 0 ;
04852     void *arg2 = (void *) 0 ;
04853     
04854     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaGeneric_to_set self to ",0,0) == TCL_ERROR) SWIG_fail;
04855     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Generic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04856     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, 0,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
04857     if (arg1) (arg1)->to = arg2;
04858     
04859     
04860     return TCL_OK;
04861     fail:
04862     return TCL_ERROR;
04863 }
04864 
04865 
04866 static int
04867 _wrap_tinaGeneric_to_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04868     Generic *arg1 = (Generic *) 0 ;
04869     void *result;
04870     
04871     if (SWIG_GetArgs(interp, objc, objv,"o:tinaGeneric_to_get self ",0) == TCL_ERROR) SWIG_fail;
04872     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Generic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04873     result = (void *) ((arg1)->to);
04874     
04875     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_void,0));
04876     return TCL_OK;
04877     fail:
04878     return TCL_ERROR;
04879 }
04880 
04881 
04882 static int
04883 _wrap_tinaGeneric_props_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04884     Generic *arg1 = (Generic *) 0 ;
04885     struct list *arg2 = (struct list *) 0 ;
04886     
04887     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaGeneric_props_set self props ",0,0) == TCL_ERROR) SWIG_fail;
04888     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Generic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04889     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_list,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
04890     if (arg1) (arg1)->props = arg2;
04891     
04892     
04893     return TCL_OK;
04894     fail:
04895     return TCL_ERROR;
04896 }
04897 
04898 
04899 static int
04900 _wrap_tinaGeneric_props_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04901     Generic *arg1 = (Generic *) 0 ;
04902     struct list *result;
04903     
04904     if (SWIG_GetArgs(interp, objc, objv,"o:tinaGeneric_props_get self ",0) == TCL_ERROR) SWIG_fail;
04905     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Generic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04906     result = (struct list *) ((arg1)->props);
04907     
04908     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_list,0));
04909     return TCL_OK;
04910     fail:
04911     return TCL_ERROR;
04912 }
04913 
04914 
04915 static int
04916 _wrap_new_tinaGeneric(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04917     Generic *result;
04918     
04919     if (SWIG_GetArgs(interp, objc, objv,":new_tinaGeneric ") == TCL_ERROR) SWIG_fail;
04920     result = (Generic *)(Generic *) calloc(1, sizeof(Generic));
04921     
04922     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Generic,0));
04923     return TCL_OK;
04924     fail:
04925     return TCL_ERROR;
04926 }
04927 
04928 
04929 static int
04930 _wrap_delete_tinaGeneric(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04931     Generic *arg1 = (Generic *) 0 ;
04932     
04933     if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaGeneric self ",0) == TCL_ERROR) SWIG_fail;
04934     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Generic,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04935     free((char *) arg1);
04936     
04937     
04938     return TCL_OK;
04939     fail:
04940     return TCL_ERROR;
04941 }
04942 
04943 
04944 static void swig_delete_tinaGeneric(void *obj) {
04945 Generic *arg1 = (Generic *) obj;
04946 free((char *) arg1);
04947 }
04948 static swig_method swig_Generic_methods[] = {
04949     {0,0}
04950 };
04951 static swig_attribute swig_Generic_attributes[] = {
04952     { "-tinaTsId",_wrap_tinaGeneric_tinaTsId_get, _wrap_tinaGeneric_tinaTsId_set},
04953     { "-type",_wrap_tinaGeneric_type_get, _wrap_tinaGeneric_type_set},
04954     { "-label",_wrap_tinaGeneric_label_get, _wrap_tinaGeneric_label_set},
04955     { "-to",_wrap_tinaGeneric_to_get, _wrap_tinaGeneric_to_set},
04956     { "-props",_wrap_tinaGeneric_props_get, _wrap_tinaGeneric_props_set},
04957     {0,0,0}
04958 };
04959 static swig_class *swig_Generic_bases[] = {0};
04960 swig_class _wrap_class_Generic = { "tinaGeneric", &SWIGTYPE_p_Generic,_wrap_new_tinaGeneric, swig_delete_tinaGeneric, swig_Generic_methods, swig_Generic_attributes, swig_Generic_bases };
04961 static int
04962 _wrap_tinaCovar_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04963     Covar *arg1 = (Covar *) 0 ;
04964     int arg2 ;
04965     
04966     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaCovar_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
04967     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Covar,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04968     if (arg1) (arg1)->ts_id = (Ts_id )arg2;
04969     
04970     
04971     return TCL_OK;
04972     fail:
04973     return TCL_ERROR;
04974 }
04975 
04976 
04977 static int
04978 _wrap_tinaCovar_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04979     Covar *arg1 = (Covar *) 0 ;
04980     int result;
04981     
04982     if (SWIG_GetArgs(interp, objc, objv,"o:tinaCovar_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
04983     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Covar,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
04984     result = (int) ((arg1)->ts_id);
04985     
04986     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
04987     return TCL_OK;
04988     fail:
04989     return TCL_ERROR;
04990 }
04991 
04992 
04993 static int
04994 _wrap_tinaCovar_n_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
04995     Covar *arg1 = (Covar *) 0 ;
04996     int arg2 ;
04997     
04998     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaCovar_n_set self n ",0,&arg2) == TCL_ERROR) SWIG_fail;
04999     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Covar,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05000     if (arg1) (arg1)->n = arg2;
05001     
05002     
05003     return TCL_OK;
05004     fail:
05005     return TCL_ERROR;
05006 }
05007 
05008 
05009 static int
05010 _wrap_tinaCovar_n_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05011     Covar *arg1 = (Covar *) 0 ;
05012     int result;
05013     
05014     if (SWIG_GetArgs(interp, objc, objv,"o:tinaCovar_n_get self ",0) == TCL_ERROR) SWIG_fail;
05015     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Covar,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05016     result = (int) ((arg1)->n);
05017     
05018     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
05019     return TCL_OK;
05020     fail:
05021     return TCL_ERROR;
05022 }
05023 
05024 
05025 static int
05026 _wrap_tinaCovar_label_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05027     Covar *arg1 = (Covar *) 0 ;
05028     int arg2 ;
05029     
05030     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaCovar_label_set self label ",0,&arg2) == TCL_ERROR) SWIG_fail;
05031     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Covar,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05032     if (arg1) (arg1)->label = arg2;
05033     
05034     
05035     return TCL_OK;
05036     fail:
05037     return TCL_ERROR;
05038 }
05039 
05040 
05041 static int
05042 _wrap_tinaCovar_label_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05043     Covar *arg1 = (Covar *) 0 ;
05044     int result;
05045     
05046     if (SWIG_GetArgs(interp, objc, objv,"o:tinaCovar_label_get self ",0) == TCL_ERROR) SWIG_fail;
05047     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Covar,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05048     result = (int) ((arg1)->label);
05049     
05050     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
05051     return TCL_OK;
05052     fail:
05053     return TCL_ERROR;
05054 }
05055 
05056 
05057 static int
05058 _wrap_tinaCovar_tinaMat_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05059     Covar *arg1 = (Covar *) 0 ;
05060     struct matrix *arg2 = (struct matrix *) 0 ;
05061     
05062     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaCovar_tinaMat_set self mat ",0,0) == TCL_ERROR) SWIG_fail;
05063     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Covar,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05064     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_matrix,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
05065     if (arg1) (arg1)->mat = arg2;
05066     
05067     
05068     return TCL_OK;
05069     fail:
05070     return TCL_ERROR;
05071 }
05072 
05073 
05074 static int
05075 _wrap_tinaCovar_tinaMat_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05076     Covar *arg1 = (Covar *) 0 ;
05077     struct matrix *result;
05078     
05079     if (SWIG_GetArgs(interp, objc, objv,"o:tinaCovar_tinaMat_get self ",0) == TCL_ERROR) SWIG_fail;
05080     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Covar,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05081     result = (struct matrix *) ((arg1)->mat);
05082     
05083     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_matrix,0));
05084     return TCL_OK;
05085     fail:
05086     return TCL_ERROR;
05087 }
05088 
05089 
05090 static int
05091 _wrap_tinaCovar_tinaVec_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05092     Covar *arg1 = (Covar *) 0 ;
05093     struct vector *arg2 = (struct vector *) 0 ;
05094     
05095     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaCovar_tinaVec_set self vec ",0,0) == TCL_ERROR) SWIG_fail;
05096     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Covar,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05097     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_vector,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
05098     if (arg1) (arg1)->vec = arg2;
05099     
05100     
05101     return TCL_OK;
05102     fail:
05103     return TCL_ERROR;
05104 }
05105 
05106 
05107 static int
05108 _wrap_tinaCovar_tinaVec_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05109     Covar *arg1 = (Covar *) 0 ;
05110     struct vector *result;
05111     
05112     if (SWIG_GetArgs(interp, objc, objv,"o:tinaCovar_tinaVec_get self ",0) == TCL_ERROR) SWIG_fail;
05113     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Covar,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05114     result = (struct vector *) ((arg1)->vec);
05115     
05116     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_vector,0));
05117     return TCL_OK;
05118     fail:
05119     return TCL_ERROR;
05120 }
05121 
05122 
05123 static int
05124 _wrap_new_tinaCovar(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05125     Covar *result;
05126     
05127     if (SWIG_GetArgs(interp, objc, objv,":new_tinaCovar ") == TCL_ERROR) SWIG_fail;
05128     result = (Covar *)(Covar *) calloc(1, sizeof(Covar));
05129     
05130     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Covar,0));
05131     return TCL_OK;
05132     fail:
05133     return TCL_ERROR;
05134 }
05135 
05136 
05137 static int
05138 _wrap_delete_tinaCovar(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05139     Covar *arg1 = (Covar *) 0 ;
05140     
05141     if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaCovar self ",0) == TCL_ERROR) SWIG_fail;
05142     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Covar,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05143     free((char *) arg1);
05144     
05145     
05146     return TCL_OK;
05147     fail:
05148     return TCL_ERROR;
05149 }
05150 
05151 
05152 static void swig_delete_tinaCovar(void *obj) {
05153 Covar *arg1 = (Covar *) obj;
05154 free((char *) arg1);
05155 }
05156 static swig_method swig_Covar_methods[] = {
05157     {0,0}
05158 };
05159 static swig_attribute swig_Covar_attributes[] = {
05160     { "-tinaTsId",_wrap_tinaCovar_tinaTsId_get, _wrap_tinaCovar_tinaTsId_set},
05161     { "-n",_wrap_tinaCovar_n_get, _wrap_tinaCovar_n_set},
05162     { "-label",_wrap_tinaCovar_label_get, _wrap_tinaCovar_label_set},
05163     { "-tinaMat",_wrap_tinaCovar_tinaMat_get, _wrap_tinaCovar_tinaMat_set},
05164     { "-tinaVec",_wrap_tinaCovar_tinaVec_get, _wrap_tinaCovar_tinaVec_set},
05165     {0,0,0}
05166 };
05167 static swig_class *swig_Covar_bases[] = {0};
05168 swig_class _wrap_class_Covar = { "tinaCovar", &SWIGTYPE_p_Covar,_wrap_new_tinaCovar, swig_delete_tinaCovar, swig_Covar_methods, swig_Covar_attributes, swig_Covar_bases };
05169 static int
05170 _wrap_tinaPos2_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05171     Pos2 *arg1 = (Pos2 *) 0 ;
05172     int arg2 ;
05173     
05174     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaPos2_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
05175     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05176     if (arg1) (arg1)->ts_id = (Ts_id )arg2;
05177     
05178     
05179     return TCL_OK;
05180     fail:
05181     return TCL_ERROR;
05182 }
05183 
05184 
05185 static int
05186 _wrap_tinaPos2_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05187     Pos2 *arg1 = (Pos2 *) 0 ;
05188     int result;
05189     
05190     if (SWIG_GetArgs(interp, objc, objv,"o:tinaPos2_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
05191     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05192     result = (int) ((arg1)->ts_id);
05193     
05194     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
05195     return TCL_OK;
05196     fail:
05197     return TCL_ERROR;
05198 }
05199 
05200 
05201 static int
05202 _wrap_tinaPos2_x_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05203     Pos2 *arg1 = (Pos2 *) 0 ;
05204     float arg2 ;
05205     
05206     if (SWIG_GetArgs(interp, objc, objv,"of:tinaPos2_x_set self x ",0,&arg2) == TCL_ERROR) SWIG_fail;
05207     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05208     if (arg1) (arg1)->x = arg2;
05209     
05210     
05211     return TCL_OK;
05212     fail:
05213     return TCL_ERROR;
05214 }
05215 
05216 
05217 static int
05218 _wrap_tinaPos2_x_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05219     Pos2 *arg1 = (Pos2 *) 0 ;
05220     float result;
05221     
05222     if (SWIG_GetArgs(interp, objc, objv,"o:tinaPos2_x_get self ",0) == TCL_ERROR) SWIG_fail;
05223     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05224     result = (float) ((arg1)->x);
05225     
05226     Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
05227     return TCL_OK;
05228     fail:
05229     return TCL_ERROR;
05230 }
05231 
05232 
05233 static int
05234 _wrap_tinaPos2_y_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05235     Pos2 *arg1 = (Pos2 *) 0 ;
05236     float arg2 ;
05237     
05238     if (SWIG_GetArgs(interp, objc, objv,"of:tinaPos2_y_set self y ",0,&arg2) == TCL_ERROR) SWIG_fail;
05239     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05240     if (arg1) (arg1)->y = arg2;
05241     
05242     
05243     return TCL_OK;
05244     fail:
05245     return TCL_ERROR;
05246 }
05247 
05248 
05249 static int
05250 _wrap_tinaPos2_y_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05251     Pos2 *arg1 = (Pos2 *) 0 ;
05252     float result;
05253     
05254     if (SWIG_GetArgs(interp, objc, objv,"o:tinaPos2_y_get self ",0) == TCL_ERROR) SWIG_fail;
05255     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05256     result = (float) ((arg1)->y);
05257     
05258     Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
05259     return TCL_OK;
05260     fail:
05261     return TCL_ERROR;
05262 }
05263 
05264 
05265 static int
05266 _wrap_new_tinaPos2(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05267     Pos2 *result;
05268     
05269     if (SWIG_GetArgs(interp, objc, objv,":new_tinaPos2 ") == TCL_ERROR) SWIG_fail;
05270     result = (Pos2 *)(Pos2 *) calloc(1, sizeof(Pos2));
05271     
05272     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Pos2,0));
05273     return TCL_OK;
05274     fail:
05275     return TCL_ERROR;
05276 }
05277 
05278 
05279 static int
05280 _wrap_delete_tinaPos2(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05281     Pos2 *arg1 = (Pos2 *) 0 ;
05282     
05283     if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaPos2 self ",0) == TCL_ERROR) SWIG_fail;
05284     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05285     free((char *) arg1);
05286     
05287     
05288     return TCL_OK;
05289     fail:
05290     return TCL_ERROR;
05291 }
05292 
05293 
05294 static void swig_delete_tinaPos2(void *obj) {
05295 Pos2 *arg1 = (Pos2 *) obj;
05296 free((char *) arg1);
05297 }
05298 static swig_method swig_Pos2_methods[] = {
05299     {0,0}
05300 };
05301 static swig_attribute swig_Pos2_attributes[] = {
05302     { "-tinaTsId",_wrap_tinaPos2_tinaTsId_get, _wrap_tinaPos2_tinaTsId_set},
05303     { "-x",_wrap_tinaPos2_x_get, _wrap_tinaPos2_x_set},
05304     { "-y",_wrap_tinaPos2_y_get, _wrap_tinaPos2_y_set},
05305     {0,0,0}
05306 };
05307 static swig_class *swig_Pos2_bases[] = {0};
05308 swig_class _wrap_class_Pos2 = { "tinaPos2", &SWIGTYPE_p_Pos2,_wrap_new_tinaPos2, swig_delete_tinaPos2, swig_Pos2_methods, swig_Pos2_attributes, swig_Pos2_bases };
05309 static int
05310 _wrap_tinaIpos_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05311     Ipos *arg1 = (Ipos *) 0 ;
05312     int arg2 ;
05313     
05314     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaIpos_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
05315     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Ipos,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05316     if (arg1) (arg1)->ts_id = (Ts_id )arg2;
05317     
05318     
05319     return TCL_OK;
05320     fail:
05321     return TCL_ERROR;
05322 }
05323 
05324 
05325 static int
05326 _wrap_tinaIpos_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05327     Ipos *arg1 = (Ipos *) 0 ;
05328     int result;
05329     
05330     if (SWIG_GetArgs(interp, objc, objv,"o:tinaIpos_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
05331     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Ipos,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05332     result = (int) ((arg1)->ts_id);
05333     
05334     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
05335     return TCL_OK;
05336     fail:
05337     return TCL_ERROR;
05338 }
05339 
05340 
05341 static int
05342 _wrap_tinaIpos_x_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05343     Ipos *arg1 = (Ipos *) 0 ;
05344     int arg2 ;
05345     
05346     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaIpos_x_set self x ",0,&arg2) == TCL_ERROR) SWIG_fail;
05347     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Ipos,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05348     if (arg1) (arg1)->x = arg2;
05349     
05350     
05351     return TCL_OK;
05352     fail:
05353     return TCL_ERROR;
05354 }
05355 
05356 
05357 static int
05358 _wrap_tinaIpos_x_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05359     Ipos *arg1 = (Ipos *) 0 ;
05360     int result;
05361     
05362     if (SWIG_GetArgs(interp, objc, objv,"o:tinaIpos_x_get self ",0) == TCL_ERROR) SWIG_fail;
05363     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Ipos,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05364     result = (int) ((arg1)->x);
05365     
05366     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
05367     return TCL_OK;
05368     fail:
05369     return TCL_ERROR;
05370 }
05371 
05372 
05373 static int
05374 _wrap_tinaIpos_y_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05375     Ipos *arg1 = (Ipos *) 0 ;
05376     int arg2 ;
05377     
05378     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaIpos_y_set self y ",0,&arg2) == TCL_ERROR) SWIG_fail;
05379     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Ipos,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05380     if (arg1) (arg1)->y = arg2;
05381     
05382     
05383     return TCL_OK;
05384     fail:
05385     return TCL_ERROR;
05386 }
05387 
05388 
05389 static int
05390 _wrap_tinaIpos_y_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05391     Ipos *arg1 = (Ipos *) 0 ;
05392     int result;
05393     
05394     if (SWIG_GetArgs(interp, objc, objv,"o:tinaIpos_y_get self ",0) == TCL_ERROR) SWIG_fail;
05395     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Ipos,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05396     result = (int) ((arg1)->y);
05397     
05398     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
05399     return TCL_OK;
05400     fail:
05401     return TCL_ERROR;
05402 }
05403 
05404 
05405 static int
05406 _wrap_new_tinaIpos(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05407     Ipos *result;
05408     
05409     if (SWIG_GetArgs(interp, objc, objv,":new_tinaIpos ") == TCL_ERROR) SWIG_fail;
05410     result = (Ipos *)(Ipos *) calloc(1, sizeof(Ipos));
05411     
05412     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Ipos,0));
05413     return TCL_OK;
05414     fail:
05415     return TCL_ERROR;
05416 }
05417 
05418 
05419 static int
05420 _wrap_delete_tinaIpos(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05421     Ipos *arg1 = (Ipos *) 0 ;
05422     
05423     if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaIpos self ",0) == TCL_ERROR) SWIG_fail;
05424     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Ipos,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05425     free((char *) arg1);
05426     
05427     
05428     return TCL_OK;
05429     fail:
05430     return TCL_ERROR;
05431 }
05432 
05433 
05434 static void swig_delete_tinaIpos(void *obj) {
05435 Ipos *arg1 = (Ipos *) obj;
05436 free((char *) arg1);
05437 }
05438 static swig_method swig_Ipos_methods[] = {
05439     {0,0}
05440 };
05441 static swig_attribute swig_Ipos_attributes[] = {
05442     { "-tinaTsId",_wrap_tinaIpos_tinaTsId_get, _wrap_tinaIpos_tinaTsId_set},
05443     { "-x",_wrap_tinaIpos_x_get, _wrap_tinaIpos_x_set},
05444     { "-y",_wrap_tinaIpos_y_get, _wrap_tinaIpos_y_set},
05445     {0,0,0}
05446 };
05447 static swig_class *swig_Ipos_bases[] = {0};
05448 swig_class _wrap_class_Ipos = { "tinaIpos", &SWIGTYPE_p_Ipos,_wrap_new_tinaIpos, swig_delete_tinaIpos, swig_Ipos_methods, swig_Ipos_attributes, swig_Ipos_bases };
05449 static int
05450 _wrap_tinaPos3_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05451     Pos3 *arg1 = (Pos3 *) 0 ;
05452     int arg2 ;
05453     
05454     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaPos3_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
05455     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05456     if (arg1) (arg1)->ts_id = (Ts_id )arg2;
05457     
05458     
05459     return TCL_OK;
05460     fail:
05461     return TCL_ERROR;
05462 }
05463 
05464 
05465 static int
05466 _wrap_tinaPos3_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05467     Pos3 *arg1 = (Pos3 *) 0 ;
05468     int result;
05469     
05470     if (SWIG_GetArgs(interp, objc, objv,"o:tinaPos3_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
05471     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05472     result = (int) ((arg1)->ts_id);
05473     
05474     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
05475     return TCL_OK;
05476     fail:
05477     return TCL_ERROR;
05478 }
05479 
05480 
05481 static int
05482 _wrap_tinaPos3_x_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05483     Pos3 *arg1 = (Pos3 *) 0 ;
05484     float arg2 ;
05485     
05486     if (SWIG_GetArgs(interp, objc, objv,"of:tinaPos3_x_set self x ",0,&arg2) == TCL_ERROR) SWIG_fail;
05487     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05488     if (arg1) (arg1)->x = arg2;
05489     
05490     
05491     return TCL_OK;
05492     fail:
05493     return TCL_ERROR;
05494 }
05495 
05496 
05497 static int
05498 _wrap_tinaPos3_x_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05499     Pos3 *arg1 = (Pos3 *) 0 ;
05500     float result;
05501     
05502     if (SWIG_GetArgs(interp, objc, objv,"o:tinaPos3_x_get self ",0) == TCL_ERROR) SWIG_fail;
05503     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05504     result = (float) ((arg1)->x);
05505     
05506     Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
05507     return TCL_OK;
05508     fail:
05509     return TCL_ERROR;
05510 }
05511 
05512 
05513 static int
05514 _wrap_tinaPos3_y_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05515     Pos3 *arg1 = (Pos3 *) 0 ;
05516     float arg2 ;
05517     
05518     if (SWIG_GetArgs(interp, objc, objv,"of:tinaPos3_y_set self y ",0,&arg2) == TCL_ERROR) SWIG_fail;
05519     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05520     if (arg1) (arg1)->y = arg2;
05521     
05522     
05523     return TCL_OK;
05524     fail:
05525     return TCL_ERROR;
05526 }
05527 
05528 
05529 static int
05530 _wrap_tinaPos3_y_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05531     Pos3 *arg1 = (Pos3 *) 0 ;
05532     float result;
05533     
05534     if (SWIG_GetArgs(interp, objc, objv,"o:tinaPos3_y_get self ",0) == TCL_ERROR) SWIG_fail;
05535     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05536     result = (float) ((arg1)->y);
05537     
05538     Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
05539     return TCL_OK;
05540     fail:
05541     return TCL_ERROR;
05542 }
05543 
05544 
05545 static int
05546 _wrap_tinaPos3_z_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05547     Pos3 *arg1 = (Pos3 *) 0 ;
05548     float arg2 ;
05549     
05550     if (SWIG_GetArgs(interp, objc, objv,"of:tinaPos3_z_set self z ",0,&arg2) == TCL_ERROR) SWIG_fail;
05551     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05552     if (arg1) (arg1)->z = arg2;
05553     
05554     
05555     return TCL_OK;
05556     fail:
05557     return TCL_ERROR;
05558 }
05559 
05560 
05561 static int
05562 _wrap_tinaPos3_z_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05563     Pos3 *arg1 = (Pos3 *) 0 ;
05564     float result;
05565     
05566     if (SWIG_GetArgs(interp, objc, objv,"o:tinaPos3_z_get self ",0) == TCL_ERROR) SWIG_fail;
05567     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05568     result = (float) ((arg1)->z);
05569     
05570     Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
05571     return TCL_OK;
05572     fail:
05573     return TCL_ERROR;
05574 }
05575 
05576 
05577 static int
05578 _wrap_new_tinaPos3(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05579     Pos3 *result;
05580     
05581     if (SWIG_GetArgs(interp, objc, objv,":new_tinaPos3 ") == TCL_ERROR) SWIG_fail;
05582     result = (Pos3 *)(Pos3 *) calloc(1, sizeof(Pos3));
05583     
05584     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Pos3,0));
05585     return TCL_OK;
05586     fail:
05587     return TCL_ERROR;
05588 }
05589 
05590 
05591 static int
05592 _wrap_delete_tinaPos3(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05593     Pos3 *arg1 = (Pos3 *) 0 ;
05594     
05595     if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaPos3 self ",0) == TCL_ERROR) SWIG_fail;
05596     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Pos3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05597     free((char *) arg1);
05598     
05599     
05600     return TCL_OK;
05601     fail:
05602     return TCL_ERROR;
05603 }
05604 
05605 
05606 static void swig_delete_tinaPos3(void *obj) {
05607 Pos3 *arg1 = (Pos3 *) obj;
05608 free((char *) arg1);
05609 }
05610 static swig_method swig_Pos3_methods[] = {
05611     {0,0}
05612 };
05613 static swig_attribute swig_Pos3_attributes[] = {
05614     { "-tinaTsId",_wrap_tinaPos3_tinaTsId_get, _wrap_tinaPos3_tinaTsId_set},
05615     { "-x",_wrap_tinaPos3_x_get, _wrap_tinaPos3_x_set},
05616     { "-y",_wrap_tinaPos3_y_get, _wrap_tinaPos3_y_set},
05617     { "-z",_wrap_tinaPos3_z_get, _wrap_tinaPos3_z_set},
05618     {0,0,0}
05619 };
05620 static swig_class *swig_Pos3_bases[] = {0};
05621 swig_class _wrap_class_Pos3 = { "tinaPos3", &SWIGTYPE_p_Pos3,_wrap_new_tinaPos3, swig_delete_tinaPos3, swig_Pos3_methods, swig_Pos3_attributes, swig_Pos3_bases };
05622 static int
05623 _wrap_tinaVec2_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05624     Vec2 *arg1 = (Vec2 *) 0 ;
05625     int arg2 ;
05626     
05627     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaVec2_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
05628     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05629     if (arg1) (arg1)->ts_id = (Ts_id )arg2;
05630     
05631     
05632     return TCL_OK;
05633     fail:
05634     return TCL_ERROR;
05635 }
05636 
05637 
05638 static int
05639 _wrap_tinaVec2_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05640     Vec2 *arg1 = (Vec2 *) 0 ;
05641     int result;
05642     
05643     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVec2_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
05644     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05645     result = (int) ((arg1)->ts_id);
05646     
05647     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
05648     return TCL_OK;
05649     fail:
05650     return TCL_ERROR;
05651 }
05652 
05653 
05654 static int
05655 _wrap_tinaVec2_el_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05656     Vec2 *arg1 = (Vec2 *) 0 ;
05657     float *arg2 ;
05658     
05659     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVec2_el_set self el ",0,0) == TCL_ERROR) SWIG_fail;
05660     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05661     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_float,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05662     {
05663         int ii;
05664         float *b = (float *) arg1->el;
05665         for (ii = 0; ii < 2; ii++) b[ii] = *((float *) arg2 + ii);
05666     }
05667     
05668     return TCL_OK;
05669     fail:
05670     return TCL_ERROR;
05671 }
05672 
05673 
05674 static int
05675 _wrap_tinaVec2_el_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05676     Vec2 *arg1 = (Vec2 *) 0 ;
05677     float *result;
05678     
05679     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVec2_el_get self ",0) == TCL_ERROR) SWIG_fail;
05680     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05681     result = (float *)(float *) ((arg1)->el);
05682     
05683     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_float,0));
05684     return TCL_OK;
05685     fail:
05686     return TCL_ERROR;
05687 }
05688 
05689 
05690 static int
05691 _wrap_new_tinaVec2(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05692     Vec2 *result;
05693     
05694     if (SWIG_GetArgs(interp, objc, objv,":new_tinaVec2 ") == TCL_ERROR) SWIG_fail;
05695     result = (Vec2 *)(Vec2 *) calloc(1, sizeof(Vec2));
05696     
05697     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Vec2,0));
05698     return TCL_OK;
05699     fail:
05700     return TCL_ERROR;
05701 }
05702 
05703 
05704 static int
05705 _wrap_delete_tinaVec2(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05706     Vec2 *arg1 = (Vec2 *) 0 ;
05707     
05708     if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaVec2 self ",0) == TCL_ERROR) SWIG_fail;
05709     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05710     free((char *) arg1);
05711     
05712     
05713     return TCL_OK;
05714     fail:
05715     return TCL_ERROR;
05716 }
05717 
05718 
05719 static void swig_delete_tinaVec2(void *obj) {
05720 Vec2 *arg1 = (Vec2 *) obj;
05721 free((char *) arg1);
05722 }
05723 static swig_method swig_Vec2_methods[] = {
05724     {0,0}
05725 };
05726 static swig_attribute swig_Vec2_attributes[] = {
05727     { "-tinaTsId",_wrap_tinaVec2_tinaTsId_get, _wrap_tinaVec2_tinaTsId_set},
05728     { "-el",_wrap_tinaVec2_el_get, _wrap_tinaVec2_el_set},
05729     {0,0,0}
05730 };
05731 static swig_class *swig_Vec2_bases[] = {0};
05732 swig_class _wrap_class_Vec2 = { "tinaVec2", &SWIGTYPE_p_Vec2,_wrap_new_tinaVec2, swig_delete_tinaVec2, swig_Vec2_methods, swig_Vec2_attributes, swig_Vec2_bases };
05733 static int
05734 _wrap_tinaVec3_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05735     Vec3 *arg1 = (Vec3 *) 0 ;
05736     int arg2 ;
05737     
05738     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaVec3_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
05739     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05740     if (arg1) (arg1)->ts_id = (Ts_id )arg2;
05741     
05742     
05743     return TCL_OK;
05744     fail:
05745     return TCL_ERROR;
05746 }
05747 
05748 
05749 static int
05750 _wrap_tinaVec3_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05751     Vec3 *arg1 = (Vec3 *) 0 ;
05752     int result;
05753     
05754     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVec3_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
05755     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05756     result = (int) ((arg1)->ts_id);
05757     
05758     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
05759     return TCL_OK;
05760     fail:
05761     return TCL_ERROR;
05762 }
05763 
05764 
05765 static int
05766 _wrap_tinaVec3_el_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05767     Vec3 *arg1 = (Vec3 *) 0 ;
05768     float *arg2 ;
05769     
05770     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVec3_el_set self el ",0,0) == TCL_ERROR) SWIG_fail;
05771     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05772     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_float,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05773     {
05774         int ii;
05775         float *b = (float *) arg1->el;
05776         for (ii = 0; ii < 3; ii++) b[ii] = *((float *) arg2 + ii);
05777     }
05778     
05779     return TCL_OK;
05780     fail:
05781     return TCL_ERROR;
05782 }
05783 
05784 
05785 static int
05786 _wrap_tinaVec3_el_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05787     Vec3 *arg1 = (Vec3 *) 0 ;
05788     float *result;
05789     
05790     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVec3_el_get self ",0) == TCL_ERROR) SWIG_fail;
05791     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05792     result = (float *)(float *) ((arg1)->el);
05793     
05794     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_float,0));
05795     return TCL_OK;
05796     fail:
05797     return TCL_ERROR;
05798 }
05799 
05800 
05801 static int
05802 _wrap_new_tinaVec3(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05803     Vec3 *result;
05804     
05805     if (SWIG_GetArgs(interp, objc, objv,":new_tinaVec3 ") == TCL_ERROR) SWIG_fail;
05806     result = (Vec3 *)(Vec3 *) calloc(1, sizeof(Vec3));
05807     
05808     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Vec3,0));
05809     return TCL_OK;
05810     fail:
05811     return TCL_ERROR;
05812 }
05813 
05814 
05815 static int
05816 _wrap_delete_tinaVec3(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05817     Vec3 *arg1 = (Vec3 *) 0 ;
05818     
05819     if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaVec3 self ",0) == TCL_ERROR) SWIG_fail;
05820     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05821     free((char *) arg1);
05822     
05823     
05824     return TCL_OK;
05825     fail:
05826     return TCL_ERROR;
05827 }
05828 
05829 
05830 static void swig_delete_tinaVec3(void *obj) {
05831 Vec3 *arg1 = (Vec3 *) obj;
05832 free((char *) arg1);
05833 }
05834 static swig_method swig_Vec3_methods[] = {
05835     {0,0}
05836 };
05837 static swig_attribute swig_Vec3_attributes[] = {
05838     { "-tinaTsId",_wrap_tinaVec3_tinaTsId_get, _wrap_tinaVec3_tinaTsId_set},
05839     { "-el",_wrap_tinaVec3_el_get, _wrap_tinaVec3_el_set},
05840     {0,0,0}
05841 };
05842 static swig_class *swig_Vec3_bases[] = {0};
05843 swig_class _wrap_class_Vec3 = { "tinaVec3", &SWIGTYPE_p_Vec3,_wrap_new_tinaVec3, swig_delete_tinaVec3, swig_Vec3_methods, swig_Vec3_attributes, swig_Vec3_bases };
05844 static int
05845 _wrap_tinaVec4_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05846     Vec4 *arg1 = (Vec4 *) 0 ;
05847     int arg2 ;
05848     
05849     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaVec4_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
05850     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec4,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05851     if (arg1) (arg1)->ts_id = (Ts_id )arg2;
05852     
05853     
05854     return TCL_OK;
05855     fail:
05856     return TCL_ERROR;
05857 }
05858 
05859 
05860 static int
05861 _wrap_tinaVec4_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05862     Vec4 *arg1 = (Vec4 *) 0 ;
05863     int result;
05864     
05865     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVec4_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
05866     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec4,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05867     result = (int) ((arg1)->ts_id);
05868     
05869     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
05870     return TCL_OK;
05871     fail:
05872     return TCL_ERROR;
05873 }
05874 
05875 
05876 static int
05877 _wrap_tinaVec4_el_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05878     Vec4 *arg1 = (Vec4 *) 0 ;
05879     float *arg2 ;
05880     
05881     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVec4_el_set self el ",0,0) == TCL_ERROR) SWIG_fail;
05882     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec4,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05883     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_float,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05884     {
05885         int ii;
05886         float *b = (float *) arg1->el;
05887         for (ii = 0; ii < 4; ii++) b[ii] = *((float *) arg2 + ii);
05888     }
05889     
05890     return TCL_OK;
05891     fail:
05892     return TCL_ERROR;
05893 }
05894 
05895 
05896 static int
05897 _wrap_tinaVec4_el_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05898     Vec4 *arg1 = (Vec4 *) 0 ;
05899     float *result;
05900     
05901     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVec4_el_get self ",0) == TCL_ERROR) SWIG_fail;
05902     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec4,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05903     result = (float *)(float *) ((arg1)->el);
05904     
05905     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_float,0));
05906     return TCL_OK;
05907     fail:
05908     return TCL_ERROR;
05909 }
05910 
05911 
05912 static int
05913 _wrap_new_tinaVec4(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05914     Vec4 *result;
05915     
05916     if (SWIG_GetArgs(interp, objc, objv,":new_tinaVec4 ") == TCL_ERROR) SWIG_fail;
05917     result = (Vec4 *)(Vec4 *) calloc(1, sizeof(Vec4));
05918     
05919     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Vec4,0));
05920     return TCL_OK;
05921     fail:
05922     return TCL_ERROR;
05923 }
05924 
05925 
05926 static int
05927 _wrap_delete_tinaVec4(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05928     Vec4 *arg1 = (Vec4 *) 0 ;
05929     
05930     if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaVec4 self ",0) == TCL_ERROR) SWIG_fail;
05931     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec4,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05932     free((char *) arg1);
05933     
05934     
05935     return TCL_OK;
05936     fail:
05937     return TCL_ERROR;
05938 }
05939 
05940 
05941 static void swig_delete_tinaVec4(void *obj) {
05942 Vec4 *arg1 = (Vec4 *) obj;
05943 free((char *) arg1);
05944 }
05945 static swig_method swig_Vec4_methods[] = {
05946     {0,0}
05947 };
05948 static swig_attribute swig_Vec4_attributes[] = {
05949     { "-tinaTsId",_wrap_tinaVec4_tinaTsId_get, _wrap_tinaVec4_tinaTsId_set},
05950     { "-el",_wrap_tinaVec4_el_get, _wrap_tinaVec4_el_set},
05951     {0,0,0}
05952 };
05953 static swig_class *swig_Vec4_bases[] = {0};
05954 swig_class _wrap_class_Vec4 = { "tinaVec4", &SWIGTYPE_p_Vec4,_wrap_new_tinaVec4, swig_delete_tinaVec4, swig_Vec4_methods, swig_Vec4_attributes, swig_Vec4_bases };
05955 static int
05956 _wrap_tinaMat2_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05957     Mat2 *arg1 = (Mat2 *) 0 ;
05958     int arg2 ;
05959     
05960     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaMat2_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
05961     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05962     if (arg1) (arg1)->ts_id = (Ts_id )arg2;
05963     
05964     
05965     return TCL_OK;
05966     fail:
05967     return TCL_ERROR;
05968 }
05969 
05970 
05971 static int
05972 _wrap_tinaMat2_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05973     Mat2 *arg1 = (Mat2 *) 0 ;
05974     int result;
05975     
05976     if (SWIG_GetArgs(interp, objc, objv,"o:tinaMat2_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
05977     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05978     result = (int) ((arg1)->ts_id);
05979     
05980     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
05981     return TCL_OK;
05982     fail:
05983     return TCL_ERROR;
05984 }
05985 
05986 
05987 static int
05988 _wrap_tinaMat2_el_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
05989     Mat2 *arg1 = (Mat2 *) 0 ;
05990     float (*arg2)[2] ;
05991     
05992     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaMat2_el_set self el ",0,0) == TCL_ERROR) SWIG_fail;
05993     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05994     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_a_2__float,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
05995     {
05996         int ii;
05997         float *b = (float *) arg1->el;
05998         for (ii = 0; ii < 2*2; ii++) b[ii] = *((float *) arg2 + ii);
05999     }
06000     
06001     return TCL_OK;
06002     fail:
06003     return TCL_ERROR;
06004 }
06005 
06006 
06007 static int
06008 _wrap_tinaMat2_el_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06009     Mat2 *arg1 = (Mat2 *) 0 ;
06010     float (*result)[2];
06011     
06012     if (SWIG_GetArgs(interp, objc, objv,"o:tinaMat2_el_get self ",0) == TCL_ERROR) SWIG_fail;
06013     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06014     result = (float (*)[2])(float (*)[2]) ((arg1)->el);
06015     
06016     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_a_2__float,0));
06017     return TCL_OK;
06018     fail:
06019     return TCL_ERROR;
06020 }
06021 
06022 
06023 static int
06024 _wrap_new_tinaMat2(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06025     Mat2 *result;
06026     
06027     if (SWIG_GetArgs(interp, objc, objv,":new_tinaMat2 ") == TCL_ERROR) SWIG_fail;
06028     result = (Mat2 *)(Mat2 *) calloc(1, sizeof(Mat2));
06029     
06030     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Mat2,0));
06031     return TCL_OK;
06032     fail:
06033     return TCL_ERROR;
06034 }
06035 
06036 
06037 static int
06038 _wrap_delete_tinaMat2(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06039     Mat2 *arg1 = (Mat2 *) 0 ;
06040     
06041     if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaMat2 self ",0) == TCL_ERROR) SWIG_fail;
06042     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat2,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06043     free((char *) arg1);
06044     
06045     
06046     return TCL_OK;
06047     fail:
06048     return TCL_ERROR;
06049 }
06050 
06051 
06052 static void swig_delete_tinaMat2(void *obj) {
06053 Mat2 *arg1 = (Mat2 *) obj;
06054 free((char *) arg1);
06055 }
06056 static swig_method swig_Mat2_methods[] = {
06057     {0,0}
06058 };
06059 static swig_attribute swig_Mat2_attributes[] = {
06060     { "-tinaTsId",_wrap_tinaMat2_tinaTsId_get, _wrap_tinaMat2_tinaTsId_set},
06061     { "-el",_wrap_tinaMat2_el_get, _wrap_tinaMat2_el_set},
06062     {0,0,0}
06063 };
06064 static swig_class *swig_Mat2_bases[] = {0};
06065 swig_class _wrap_class_Mat2 = { "tinaMat2", &SWIGTYPE_p_Mat2,_wrap_new_tinaMat2, swig_delete_tinaMat2, swig_Mat2_methods, swig_Mat2_attributes, swig_Mat2_bases };
06066 static int
06067 _wrap_tinaMat3_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06068     Mat3 *arg1 = (Mat3 *) 0 ;
06069     int arg2 ;
06070     
06071     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaMat3_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
06072     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06073     if (arg1) (arg1)->ts_id = (Ts_id )arg2;
06074     
06075     
06076     return TCL_OK;
06077     fail:
06078     return TCL_ERROR;
06079 }
06080 
06081 
06082 static int
06083 _wrap_tinaMat3_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06084     Mat3 *arg1 = (Mat3 *) 0 ;
06085     int result;
06086     
06087     if (SWIG_GetArgs(interp, objc, objv,"o:tinaMat3_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
06088     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06089     result = (int) ((arg1)->ts_id);
06090     
06091     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
06092     return TCL_OK;
06093     fail:
06094     return TCL_ERROR;
06095 }
06096 
06097 
06098 static int
06099 _wrap_tinaMat3_el_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06100     Mat3 *arg1 = (Mat3 *) 0 ;
06101     float (*arg2)[3] ;
06102     
06103     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaMat3_el_set self el ",0,0) == TCL_ERROR) SWIG_fail;
06104     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06105     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_a_3__float,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06106     {
06107         int ii;
06108         float *b = (float *) arg1->el;
06109         for (ii = 0; ii < 3*3; ii++) b[ii] = *((float *) arg2 + ii);
06110     }
06111     
06112     return TCL_OK;
06113     fail:
06114     return TCL_ERROR;
06115 }
06116 
06117 
06118 static int
06119 _wrap_tinaMat3_el_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06120     Mat3 *arg1 = (Mat3 *) 0 ;
06121     float (*result)[3];
06122     
06123     if (SWIG_GetArgs(interp, objc, objv,"o:tinaMat3_el_get self ",0) == TCL_ERROR) SWIG_fail;
06124     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06125     result = (float (*)[3])(float (*)[3]) ((arg1)->el);
06126     
06127     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_a_3__float,0));
06128     return TCL_OK;
06129     fail:
06130     return TCL_ERROR;
06131 }
06132 
06133 
06134 static int
06135 _wrap_new_tinaMat3(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06136     Mat3 *result;
06137     
06138     if (SWIG_GetArgs(interp, objc, objv,":new_tinaMat3 ") == TCL_ERROR) SWIG_fail;
06139     result = (Mat3 *)(Mat3 *) calloc(1, sizeof(Mat3));
06140     
06141     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Mat3,0));
06142     return TCL_OK;
06143     fail:
06144     return TCL_ERROR;
06145 }
06146 
06147 
06148 static int
06149 _wrap_delete_tinaMat3(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06150     Mat3 *arg1 = (Mat3 *) 0 ;
06151     
06152     if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaMat3 self ",0) == TCL_ERROR) SWIG_fail;
06153     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat3,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06154     free((char *) arg1);
06155     
06156     
06157     return TCL_OK;
06158     fail:
06159     return TCL_ERROR;
06160 }
06161 
06162 
06163 static void swig_delete_tinaMat3(void *obj) {
06164 Mat3 *arg1 = (Mat3 *) obj;
06165 free((char *) arg1);
06166 }
06167 static swig_method swig_Mat3_methods[] = {
06168     {0,0}
06169 };
06170 static swig_attribute swig_Mat3_attributes[] = {
06171     { "-tinaTsId",_wrap_tinaMat3_tinaTsId_get, _wrap_tinaMat3_tinaTsId_set},
06172     { "-el",_wrap_tinaMat3_el_get, _wrap_tinaMat3_el_set},
06173     {0,0,0}
06174 };
06175 static swig_class *swig_Mat3_bases[] = {0};
06176 swig_class _wrap_class_Mat3 = { "tinaMat3", &SWIGTYPE_p_Mat3,_wrap_new_tinaMat3, swig_delete_tinaMat3, swig_Mat3_methods, swig_Mat3_attributes, swig_Mat3_bases };
06177 static int
06178 _wrap_tinaMat4_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06179     Mat4 *arg1 = (Mat4 *) 0 ;
06180     int arg2 ;
06181     
06182     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaMat4_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
06183     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat4,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06184     if (arg1) (arg1)->ts_id = (Ts_id )arg2;
06185     
06186     
06187     return TCL_OK;
06188     fail:
06189     return TCL_ERROR;
06190 }
06191 
06192 
06193 static int
06194 _wrap_tinaMat4_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06195     Mat4 *arg1 = (Mat4 *) 0 ;
06196     int result;
06197     
06198     if (SWIG_GetArgs(interp, objc, objv,"o:tinaMat4_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
06199     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat4,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06200     result = (int) ((arg1)->ts_id);
06201     
06202     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
06203     return TCL_OK;
06204     fail:
06205     return TCL_ERROR;
06206 }
06207 
06208 
06209 static int
06210 _wrap_tinaMat4_el_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06211     Mat4 *arg1 = (Mat4 *) 0 ;
06212     float (*arg2)[4] ;
06213     
06214     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaMat4_el_set self el ",0,0) == TCL_ERROR) SWIG_fail;
06215     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat4,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06216     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_a_4__float,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06217     {
06218         int ii;
06219         float *b = (float *) arg1->el;
06220         for (ii = 0; ii < 4*4; ii++) b[ii] = *((float *) arg2 + ii);
06221     }
06222     
06223     return TCL_OK;
06224     fail:
06225     return TCL_ERROR;
06226 }
06227 
06228 
06229 static int
06230 _wrap_tinaMat4_el_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06231     Mat4 *arg1 = (Mat4 *) 0 ;
06232     float (*result)[4];
06233     
06234     if (SWIG_GetArgs(interp, objc, objv,"o:tinaMat4_el_get self ",0) == TCL_ERROR) SWIG_fail;
06235     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat4,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06236     result = (float (*)[4])(float (*)[4]) ((arg1)->el);
06237     
06238     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_a_4__float,0));
06239     return TCL_OK;
06240     fail:
06241     return TCL_ERROR;
06242 }
06243 
06244 
06245 static int
06246 _wrap_new_tinaMat4(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06247     Mat4 *result;
06248     
06249     if (SWIG_GetArgs(interp, objc, objv,":new_tinaMat4 ") == TCL_ERROR) SWIG_fail;
06250     result = (Mat4 *)(Mat4 *) calloc(1, sizeof(Mat4));
06251     
06252     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Mat4,0));
06253     return TCL_OK;
06254     fail:
06255     return TCL_ERROR;
06256 }
06257 
06258 
06259 static int
06260 _wrap_delete_tinaMat4(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06261     Mat4 *arg1 = (Mat4 *) 0 ;
06262     
06263     if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaMat4 self ",0) == TCL_ERROR) SWIG_fail;
06264     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat4,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06265     free((char *) arg1);
06266     
06267     
06268     return TCL_OK;
06269     fail:
06270     return TCL_ERROR;
06271 }
06272 
06273 
06274 static void swig_delete_tinaMat4(void *obj) {
06275 Mat4 *arg1 = (Mat4 *) obj;
06276 free((char *) arg1);
06277 }
06278 static swig_method swig_Mat4_methods[] = {
06279     {0,0}
06280 };
06281 static swig_attribute swig_Mat4_attributes[] = {
06282     { "-tinaTsId",_wrap_tinaMat4_tinaTsId_get, _wrap_tinaMat4_tinaTsId_set},
06283     { "-el",_wrap_tinaMat4_el_get, _wrap_tinaMat4_el_set},
06284     {0,0,0}
06285 };
06286 static swig_class *swig_Mat4_bases[] = {0};
06287 swig_class _wrap_class_Mat4 = { "tinaMat4", &SWIGTYPE_p_Mat4,_wrap_new_tinaMat4, swig_delete_tinaMat4, swig_Mat4_methods, swig_Mat4_attributes, swig_Mat4_bases };
06288 static int
06289 _wrap_tinaMatrix_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06290     Matrix *arg1 = (Matrix *) 0 ;
06291     int arg2 ;
06292     
06293     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaMatrix_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
06294     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Matrix,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06295     if (arg1) (arg1)->ts_id = (Ts_id )arg2;
06296     
06297     
06298     return TCL_OK;
06299     fail:
06300     return TCL_ERROR;
06301 }
06302 
06303 
06304 static int
06305 _wrap_tinaMatrix_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06306     Matrix *arg1 = (Matrix *) 0 ;
06307     int result;
06308     
06309     if (SWIG_GetArgs(interp, objc, objv,"o:tinaMatrix_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
06310     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Matrix,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06311     result = (int) ((arg1)->ts_id);
06312     
06313     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
06314     return TCL_OK;
06315     fail:
06316     return TCL_ERROR;
06317 }
06318 
06319 
06320 static int
06321 _wrap_tinaMatrix_vtype_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06322     Matrix *arg1 = (Matrix *) 0 ;
06323     int arg2 ;
06324     
06325     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaMatrix_vtype_set self vtype ",0,&arg2) == TCL_ERROR) SWIG_fail;
06326     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Matrix,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06327     if (arg1) (arg1)->vtype = (Vartype )arg2;
06328     
06329     
06330     return TCL_OK;
06331     fail:
06332     return TCL_ERROR;
06333 }
06334 
06335 
06336 static int
06337 _wrap_tinaMatrix_vtype_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06338     Matrix *arg1 = (Matrix *) 0 ;
06339     int result;
06340     
06341     if (SWIG_GetArgs(interp, objc, objv,"o:tinaMatrix_vtype_get self ",0) == TCL_ERROR) SWIG_fail;
06342     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Matrix,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06343     result = (int) ((arg1)->vtype);
06344     
06345     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
06346     return TCL_OK;
06347     fail:
06348     return TCL_ERROR;
06349 }
06350 
06351 
06352 static int
06353 _wrap_tinaMatrix_shape_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06354     Matrix *arg1 = (Matrix *) 0 ;
06355     int arg2 ;
06356     
06357     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaMatrix_shape_set self shape ",0,&arg2) == TCL_ERROR) SWIG_fail;
06358     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Matrix,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06359     if (arg1) (arg1)->shape = (Matrix_shape )arg2;
06360     
06361     
06362     return TCL_OK;
06363     fail:
06364     return TCL_ERROR;
06365 }
06366 
06367 
06368 static int
06369 _wrap_tinaMatrix_shape_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06370     Matrix *arg1 = (Matrix *) 0 ;
06371     int result;
06372     
06373     if (SWIG_GetArgs(interp, objc, objv,"o:tinaMatrix_shape_get self ",0) == TCL_ERROR) SWIG_fail;
06374     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Matrix,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06375     result = (int) ((arg1)->shape);
06376     
06377     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
06378     return TCL_OK;
06379     fail:
06380     return TCL_ERROR;
06381 }
06382 
06383 
06384 static int
06385 _wrap_tinaMatrix_m_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06386     Matrix *arg1 = (Matrix *) 0 ;
06387     int arg2 ;
06388     
06389     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaMatrix_m_set self m ",0,&arg2) == TCL_ERROR) SWIG_fail;
06390     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Matrix,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06391     if (arg1) (arg1)->m = arg2;
06392     
06393     
06394     return TCL_OK;
06395     fail:
06396     return TCL_ERROR;
06397 }
06398 
06399 
06400 static int
06401 _wrap_tinaMatrix_m_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06402     Matrix *arg1 = (Matrix *) 0 ;
06403     int result;
06404     
06405     if (SWIG_GetArgs(interp, objc, objv,"o:tinaMatrix_m_get self ",0) == TCL_ERROR) SWIG_fail;
06406     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Matrix,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06407     result = (int) ((arg1)->m);
06408     
06409     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
06410     return TCL_OK;
06411     fail:
06412     return TCL_ERROR;
06413 }
06414 
06415 
06416 static int
06417 _wrap_tinaMatrix_n_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06418     Matrix *arg1 = (Matrix *) 0 ;
06419     int arg2 ;
06420     
06421     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaMatrix_n_set self n ",0,&arg2) == TCL_ERROR) SWIG_fail;
06422     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Matrix,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06423     if (arg1) (arg1)->n = arg2;
06424     
06425     
06426     return TCL_OK;
06427     fail:
06428     return TCL_ERROR;
06429 }
06430 
06431 
06432 static int
06433 _wrap_tinaMatrix_n_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06434     Matrix *arg1 = (Matrix *) 0 ;
06435     int result;
06436     
06437     if (SWIG_GetArgs(interp, objc, objv,"o:tinaMatrix_n_get self ",0) == TCL_ERROR) SWIG_fail;
06438     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Matrix,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06439     result = (int) ((arg1)->n);
06440     
06441     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
06442     return TCL_OK;
06443     fail:
06444     return TCL_ERROR;
06445 }
06446 
06447 
06448 static int
06449 _wrap_tinaMatrix_el_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06450     Matrix *arg1 = (Matrix *) 0 ;
06451     union varptrptr *arg2 = (union varptrptr *) 0 ;
06452     
06453     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaMatrix_el_set self el ",0,0) == TCL_ERROR) SWIG_fail;
06454     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Matrix,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06455     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06456     if (arg1) (arg1)->el = *arg2;
06457     
06458     
06459     return TCL_OK;
06460     fail:
06461     return TCL_ERROR;
06462 }
06463 
06464 
06465 static int
06466 _wrap_tinaMatrix_el_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06467     Matrix *arg1 = (Matrix *) 0 ;
06468     union varptrptr *result;
06469     
06470     if (SWIG_GetArgs(interp, objc, objv,"o:tinaMatrix_el_get self ",0) == TCL_ERROR) SWIG_fail;
06471     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Matrix,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06472     result = (union varptrptr *)& ((arg1)->el);
06473     
06474     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_varptrptr,0));
06475     return TCL_OK;
06476     fail:
06477     return TCL_ERROR;
06478 }
06479 
06480 
06481 static int
06482 _wrap_new_tinaMatrix(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06483     Matrix *result;
06484     
06485     if (SWIG_GetArgs(interp, objc, objv,":new_tinaMatrix ") == TCL_ERROR) SWIG_fail;
06486     result = (Matrix *)(Matrix *) calloc(1, sizeof(Matrix));
06487     
06488     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Matrix,0));
06489     return TCL_OK;
06490     fail:
06491     return TCL_ERROR;
06492 }
06493 
06494 
06495 static int
06496 _wrap_delete_tinaMatrix(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06497     Matrix *arg1 = (Matrix *) 0 ;
06498     
06499     if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaMatrix self ",0) == TCL_ERROR) SWIG_fail;
06500     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Matrix,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06501     free((char *) arg1);
06502     
06503     
06504     return TCL_OK;
06505     fail:
06506     return TCL_ERROR;
06507 }
06508 
06509 
06510 static void swig_delete_tinaMatrix(void *obj) {
06511 Matrix *arg1 = (Matrix *) obj;
06512 free((char *) arg1);
06513 }
06514 static swig_method swig_Matrix_methods[] = {
06515     {0,0}
06516 };
06517 static swig_attribute swig_Matrix_attributes[] = {
06518     { "-tinaTsId",_wrap_tinaMatrix_tinaTsId_get, _wrap_tinaMatrix_tinaTsId_set},
06519     { "-vtype",_wrap_tinaMatrix_vtype_get, _wrap_tinaMatrix_vtype_set},
06520     { "-shape",_wrap_tinaMatrix_shape_get, _wrap_tinaMatrix_shape_set},
06521     { "-m",_wrap_tinaMatrix_m_get, _wrap_tinaMatrix_m_set},
06522     { "-n",_wrap_tinaMatrix_n_get, _wrap_tinaMatrix_n_set},
06523     { "-el",_wrap_tinaMatrix_el_get, _wrap_tinaMatrix_el_set},
06524     {0,0,0}
06525 };
06526 static swig_class *swig_Matrix_bases[] = {0};
06527 swig_class _wrap_class_Matrix = { "tinaMatrix", &SWIGTYPE_p_Matrix,_wrap_new_tinaMatrix, swig_delete_tinaMatrix, swig_Matrix_methods, swig_Matrix_attributes, swig_Matrix_bases };
06528 static int
06529 _wrap_tinaIvec_n_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06530     Ivec *arg1 = (Ivec *) 0 ;
06531     int arg2 ;
06532     
06533     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaIvec_n_set self n ",0,&arg2) == TCL_ERROR) SWIG_fail;
06534     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Ivec,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06535     if (arg1) (arg1)->n = arg2;
06536     
06537     
06538     return TCL_OK;
06539     fail:
06540     return TCL_ERROR;
06541 }
06542 
06543 
06544 static int
06545 _wrap_tinaIvec_n_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06546     Ivec *arg1 = (Ivec *) 0 ;
06547     int result;
06548     
06549     if (SWIG_GetArgs(interp, objc, objv,"o:tinaIvec_n_get self ",0) == TCL_ERROR) SWIG_fail;
06550     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Ivec,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06551     result = (int) ((arg1)->n);
06552     
06553     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
06554     return TCL_OK;
06555     fail:
06556     return TCL_ERROR;
06557 }
06558 
06559 
06560 static int
06561 _wrap_tinaIvec_el_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06562     Ivec *arg1 = (Ivec *) 0 ;
06563     int *arg2 = (int *) 0 ;
06564     
06565     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaIvec_el_set self el ",0,0) == TCL_ERROR) SWIG_fail;
06566     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Ivec,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06567     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_int,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
06568     if (arg1) (arg1)->el = arg2;
06569     
06570     
06571     return TCL_OK;
06572     fail:
06573     return TCL_ERROR;
06574 }
06575 
06576 
06577 static int
06578 _wrap_tinaIvec_el_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06579     Ivec *arg1 = (Ivec *) 0 ;
06580     int *result;
06581     
06582     if (SWIG_GetArgs(interp, objc, objv,"o:tinaIvec_el_get self ",0) == TCL_ERROR) SWIG_fail;
06583     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Ivec,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06584     result = (int *) ((arg1)->el);
06585     
06586     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_int,0));
06587     return TCL_OK;
06588     fail:
06589     return TCL_ERROR;
06590 }
06591 
06592 
06593 static int
06594 _wrap_new_tinaIvec(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06595     Ivec *result;
06596     
06597     if (SWIG_GetArgs(interp, objc, objv,":new_tinaIvec ") == TCL_ERROR) SWIG_fail;
06598     result = (Ivec *)(Ivec *) calloc(1, sizeof(Ivec));
06599     
06600     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Ivec,0));
06601     return TCL_OK;
06602     fail:
06603     return TCL_ERROR;
06604 }
06605 
06606 
06607 static int
06608 _wrap_delete_tinaIvec(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06609     Ivec *arg1 = (Ivec *) 0 ;
06610     
06611     if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaIvec self ",0) == TCL_ERROR) SWIG_fail;
06612     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Ivec,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06613     free((char *) arg1);
06614     
06615     
06616     return TCL_OK;
06617     fail:
06618     return TCL_ERROR;
06619 }
06620 
06621 
06622 static void swig_delete_tinaIvec(void *obj) {
06623 Ivec *arg1 = (Ivec *) obj;
06624 free((char *) arg1);
06625 }
06626 static swig_method swig_Ivec_methods[] = {
06627     {0,0}
06628 };
06629 static swig_attribute swig_Ivec_attributes[] = {
06630     { "-n",_wrap_tinaIvec_n_get, _wrap_tinaIvec_n_set},
06631     { "-el",_wrap_tinaIvec_el_get, _wrap_tinaIvec_el_set},
06632     {0,0,0}
06633 };
06634 static swig_class *swig_Ivec_bases[] = {0};
06635 swig_class _wrap_class_Ivec = { "tinaIvec", &SWIGTYPE_p_Ivec,_wrap_new_tinaIvec, swig_delete_tinaIvec, swig_Ivec_methods, swig_Ivec_attributes, swig_Ivec_bases };
06636 static int
06637 _wrap_tinaVec_n_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06638     Vec *arg1 = (Vec *) 0 ;
06639     int arg2 ;
06640     
06641     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaVec_n_set self n ",0,&arg2) == TCL_ERROR) SWIG_fail;
06642     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06643     if (arg1) (arg1)->n = arg2;
06644     
06645     
06646     return TCL_OK;
06647     fail:
06648     return TCL_ERROR;
06649 }
06650 
06651 
06652 static int
06653 _wrap_tinaVec_n_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06654     Vec *arg1 = (Vec *) 0 ;
06655     int result;
06656     
06657     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVec_n_get self ",0) == TCL_ERROR) SWIG_fail;
06658     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06659     result = (int) ((arg1)->n);
06660     
06661     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
06662     return TCL_OK;
06663     fail:
06664     return TCL_ERROR;
06665 }
06666 
06667 
06668 static int
06669 _wrap_tinaVec_el_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06670     Vec *arg1 = (Vec *) 0 ;
06671     double *arg2 = (double *) 0 ;
06672     
06673     if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVec_el_set self el ",0,0) == TCL_ERROR) SWIG_fail;
06674     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06675     if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_double,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
06676     if (arg1) (arg1)->el = arg2;
06677     
06678     
06679     return TCL_OK;
06680     fail:
06681     return TCL_ERROR;
06682 }
06683 
06684 
06685 static int
06686 _wrap_tinaVec_el_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06687     Vec *arg1 = (Vec *) 0 ;
06688     double *result;
06689     
06690     if (SWIG_GetArgs(interp, objc, objv,"o:tinaVec_el_get self ",0) == TCL_ERROR) SWIG_fail;
06691     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06692     result = (double *) ((arg1)->el);
06693     
06694     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_double,0));
06695     return TCL_OK;
06696     fail:
06697     return TCL_ERROR;
06698 }
06699 
06700 
06701 static int
06702 _wrap_new_tinaVec(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06703     Vec *result;
06704     
06705     if (SWIG_GetArgs(interp, objc, objv,":new_tinaVec ") == TCL_ERROR) SWIG_fail;
06706     result = (Vec *)(Vec *) calloc(1, sizeof(Vec));
06707     
06708     Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Vec,0));
06709     return TCL_OK;
06710     fail:
06711     return TCL_ERROR;
06712 }
06713 
06714 
06715 static int
06716 _wrap_delete_tinaVec(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06717     Vec *arg1 = (Vec *) 0 ;
06718     
06719     if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaVec self ",0) == TCL_ERROR) SWIG_fail;
06720     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vec,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06721     free((char *) arg1);
06722     
06723     
06724     return TCL_OK;
06725     fail:
06726     return TCL_ERROR;
06727 }
06728 
06729 
06730 static void swig_delete_tinaVec(void *obj) {
06731 Vec *arg1 = (Vec *) obj;
06732 free((char *) arg1);
06733 }
06734 static swig_method swig_Vec_methods[] = {
06735     {0,0}
06736 };
06737 static swig_attribute swig_Vec_attributes[] = {
06738     { "-n",_wrap_tinaVec_n_get, _wrap_tinaVec_n_set},
06739     { "-el",_wrap_tinaVec_el_get, _wrap_tinaVec_el_set},
06740     {0,0,0}
06741 };
06742 static swig_class *swig_Vec_bases[] = {0};
06743 swig_class _wrap_class_Vec = { "tinaVec", &SWIGTYPE_p_Vec,_wrap_new_tinaVec, swig_delete_tinaVec, swig_Vec_methods, swig_Vec_attributes, swig_Vec_bases };
06744 static int
06745 _wrap_tinaMat_m_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06746     Mat *arg1 = (Mat *) 0 ;
06747     int arg2 ;
06748     
06749     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaMat_m_set self m ",0,&arg2) == TCL_ERROR) SWIG_fail;
06750     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06751     if (arg1) (arg1)->m = arg2;
06752     
06753     
06754     return TCL_OK;
06755     fail:
06756     return TCL_ERROR;
06757 }
06758 
06759 
06760 static int
06761 _wrap_tinaMat_m_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06762     Mat *arg1 = (Mat *) 0 ;
06763     int result;
06764     
06765     if (SWIG_GetArgs(interp, objc, objv,"o:tinaMat_m_get self ",0) == TCL_ERROR) SWIG_fail;
06766     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06767     result = (int) ((arg1)->m);
06768     
06769     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
06770     return TCL_OK;
06771     fail:
06772     return TCL_ERROR;
06773 }
06774 
06775 
06776 static int
06777 _wrap_tinaMat_n_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06778     Mat *arg1 = (Mat *) 0 ;
06779     int arg2 ;
06780     
06781     if (SWIG_GetArgs(interp, objc, objv,"oi:tinaMat_n_set self n ",0,&arg2) == TCL_ERROR) SWIG_fail;
06782     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06783     if (arg1) (arg1)->n = arg2;
06784     
06785     
06786     return TCL_OK;
06787     fail:
06788     return TCL_ERROR;
06789 }
06790 
06791 
06792 static int
06793 _wrap_tinaMat_n_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
06794     Mat *arg1 = (Mat *) 0 ;
06795     int result;
06796     
06797     if (SWIG_GetArgs(interp, objc, objv,"o:tinaMat_n_get self ",0) == TCL_ERROR) SWIG_fail;
06798     if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Mat,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
06799     result = (int) ((arg1)->n);
06800     
06801     Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
06802     return TCL_OK;
06803     fail:
06804     return TCL_ERROR;
06805 }
06806 
06807 
06808 static int
06809 _wrap_tinaMat_el_set(Clie