1 /* ----------------------------------------------------------------------------
2 * This file was automatically generated by SWIG (http://www.swig.org).
3 * Version 1.3.19
4 *
5 * This file is not intended to be easily readable and contains a number of
6 * coding conventions designed to improve portability and efficiency. Do not make
7 * changes to this file unless you know what you are doing--modify the SWIG
8 * interface file instead.
9 * ----------------------------------------------------------------------------- */
10
11 /***********************************************************************
12 * common.swg
13 *
14 * This file contains generic SWIG runtime support for pointer
15 * type checking as well as a few commonly used macros to control
16 * external linkage.
17 *
18 * Author : David Beazley (beazley@cs.uchicago.edu)
19 *
20 * Copyright (c) 1999-2000, The University of Chicago
21 *
22 * This file may be freely redistributed without license or fee provided
23 * this copyright message remains intact.
24 ************************************************************************/
25
26 #include <string.h>
27
28 #if defined(_WIN32) || defined(__WIN32__)
29 # if defined(_MSC_VER)
30 # if defined(STATIC_LINKED)
31 # define SWIGEXPORT(a) a
32 # define SWIGIMPORT(a) extern a
33 # else
34 # define SWIGEXPORT(a) __declspec(dllexport) a
35 # define SWIGIMPORT(a) extern a
36 # endif
37 # else
38 # if defined(__BORLANDC__)
39 # define SWIGEXPORT(a) a _export
40 # define SWIGIMPORT(a) a _export
41 # else
42 # define SWIGEXPORT(a) a
43 # define SWIGIMPORT(a) a
44 # endif
45 # endif
46 #else
47 # define SWIGEXPORT(a) a
48 # define SWIGIMPORT(a) a
49 #endif
50
51 #ifdef SWIG_GLOBAL
52 #define SWIGRUNTIME(a) SWIGEXPORT(a)
53 #else
54 #define SWIGRUNTIME(a) static a
55 #endif
56
57 #ifdef __cplusplus
58 extern "C" {
59 #endif
60
61 typedef void *(*swig_converter_func)(void *);
62 typedef struct swig_type_info *(*swig_dycast_func)(void **);
63
64 typedef struct swig_type_info {
65 const char *name;
66 swig_converter_func converter;
67 const char *str;
68 void *clientdata;
69 swig_dycast_func dcast;
70 struct swig_type_info *next;
71 struct swig_type_info *prev;
72 } swig_type_info;
73
74 #ifdef SWIG_NOINCLUDE
75
76 SWIGIMPORT(swig_type_info *) SWIG_TypeRegister(swig_type_info *);
77 SWIGIMPORT(swig_type_info *) SWIG_TypeCheck(char *c, swig_type_info *);
78 SWIGIMPORT(void *) SWIG_TypeCast(swig_type_info *, void *);
79 SWIGIMPORT(swig_type_info *) SWIG_TypeDynamicCast(swig_type_info *, void **);
80 SWIGIMPORT(const char *) SWIG_TypeName(const swig_type_info *);
81 SWIGIMPORT(swig_type_info *) SWIG_TypeQuery(const char *);
82 SWIGIMPORT(void) SWIG_TypeClientData(swig_type_info *, void *);
83
84 #else
85
86 static swig_type_info *swig_type_list = 0;
87
88 /* Register a type mapping with the type-checking */
89 SWIGRUNTIME(swig_type_info *)
90 SWIG_TypeRegister(swig_type_info *ti)
91 {
92 swig_type_info *tc, *head, *ret, *next;
93 /* Check to see if this type has already been registered */
94 tc = swig_type_list;
95 while (tc) {
96 if (strcmp(tc->name, ti->name) == 0) {
97 /* Already exists in the table. Just add additional types to the list */
98 if (tc->clientdata) ti->clientdata = tc->clientdata;
99 head = tc;
100 next = tc->next;
101 goto l1;
102 }
103 tc = tc->prev;
104 }
105 head = ti;
106 next = 0;
107
108 /* Place in list */
109 ti->prev = swig_type_list;
110 swig_type_list = ti;
111
112 /* Build linked lists */
113 l1:
114 ret = head;
115 tc = ti + 1;
116 /* Patch up the rest of the links */
117 while (tc->name) {
118 head->next = tc;
119 tc->prev = head;
120 head = tc;
121 tc++;
122 }
123 if (next) next->prev = head; /**/
124 head->next = next;
125 return ret;
126 }
127
128 /* Check the typename */
129 SWIGRUNTIME(swig_type_info *)
130 SWIG_TypeCheck(char *c, swig_type_info *ty)
131 {
132 swig_type_info *s;
133 if (!ty) return 0; /* Void pointer */
134 s = ty->next; /* First element always just a name */
135 do {
136 if (strcmp(s->name,c) == 0) {
137 if (s == ty->next) return s;
138 /* Move s to the top of the linked list */
139 s->prev->next = s->next;
140 if (s->next) {
141 s->next->prev = s->prev;
142 }
143 /* Insert s as second element in the list */
144 s->next = ty->next;
145 if (ty->next) ty->next->prev = s;
146 ty->next = s;
147 s->prev = ty; /**/
148 return s;
149 }
150 s = s->next;
151 } while (s && (s != ty->next));
152 return 0;
153 }
154
155 /* Cast a pointer up an inheritance hierarchy */
156 SWIGRUNTIME(void *)
157 SWIG_TypeCast(swig_type_info *ty, void *ptr)
158 {
159 if ((!ty) || (!ty->converter)) return ptr;
160 return (*ty->converter)(ptr);
161 }
162
163 /* Dynamic pointer casting. Down an inheritance hierarchy */
164 SWIGRUNTIME(swig_type_info *)
165 SWIG_TypeDynamicCast(swig_type_info *ty, void **ptr)
166 {
167 swig_type_info *lastty = ty;
168 if (!ty || !ty->dcast) return ty;
169 while (ty && (ty->dcast)) {
170 ty = (*ty->dcast)(ptr);
171 if (ty) lastty = ty;
172 }
173 return lastty;
174 }
175
176 /* Return the name associated with this type */
177 SWIGRUNTIME(const char *)
178 SWIG_TypeName(const swig_type_info *ty) {
179 return ty->name;
180 }
181
182 /* Search for a swig_type_info structure */
183 SWIGRUNTIME(swig_type_info *)
184 SWIG_TypeQuery(const char *name) {
185 swig_type_info *ty = swig_type_list;
186 while (ty) {
187 if (ty->str && (strcmp(name,ty->str) == 0)) return ty;
188 if (ty->name && (strcmp(name,ty->name) == 0)) return ty;
189 ty = ty->prev;
190 }
191 return 0;
192 }
193
194 /* Set the clientdata field for a type */
195 SWIGRUNTIME(void)
196 SWIG_TypeClientData(swig_type_info *ti, void *clientdata) {
197 swig_type_info *tc, *equiv;
198 if (ti->clientdata == clientdata) return;
199 ti->clientdata = clientdata;
200 equiv = ti->next;
201 while (equiv) {
202 if (!equiv->converter) {
203 tc = swig_type_list;
204 while (tc) {
205 if ((strcmp(tc->name, equiv->name) == 0))
206 SWIG_TypeClientData(tc,clientdata);
207 tc = tc->prev;
208 }
209 }
210 equiv = equiv->next;
211 }
212 }
213 #endif
214
215 #ifdef __cplusplus
216 }
217
218 #endif
219
220 /*
221 * $Header: /home/tina/cvs/tina-libs/swig/tcl/tinaTcl.c,v 1.2 2003/09/12 10:29:36 tony Exp $
222 *
223 * swigtcl8.swg
224 */
225
226 #include <tcl.h>
227 #include <stdlib.h>
228 #include <stdarg.h>
229 #include <ctype.h>
230
231 #ifdef __cplusplus
232 extern "C" {
233 #endif
234
235 /* Constant table */
236
237 #define SWIG_TCL_INT 1
238 #define SWIG_TCL_FLOAT 2
239 #define SWIG_TCL_STRING 3
240 #define SWIG_TCL_POINTER 4
241 #define SWIG_TCL_BINARY 5
242
243 /* Flags for pointer conversion */
244 #define SWIG_POINTER_EXCEPTION 0x1
245 #define SWIG_POINTER_DISOWN 0x2
246
247 /* Swig fail macro */
248
249 #define SWIG_fail goto fail
250
251 /* Constant information structure */
252 typedef struct swig_const_info {
253 int type;
254 char *name;
255 long lvalue;
256 double dvalue;
257 void *pvalue;
258 swig_type_info **ptype;
259 } swig_const_info;
260
261 typedef int (*swig_wrapper)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST []);
262 typedef int (*swig_wrapper_func)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST []);
263 typedef char *(*swig_variable_func)(ClientData, Tcl_Interp *, char *, char *, int);
264 typedef void (*swig_delete_func)(ClientData);
265
266 typedef struct swig_method {
267 const char *name;
268 swig_wrapper method;
269 } swig_method;
270
271 typedef struct swig_attribute {
272 const char *name;
273 swig_wrapper getmethod;
274 swig_wrapper setmethod;
275 } swig_attribute;
276
277 typedef struct swig_class {
278 const char *name;
279 swig_type_info **type;
280 swig_wrapper constructor;
281 void (*destructor)(void *);
282 swig_method *methods;
283 swig_attribute *attributes;
284 struct swig_class **bases;
285 } swig_class;
286
287 typedef struct swig_instance {
288 Tcl_Obj *thisptr;
289 void *thisvalue;
290 swig_class *classptr;
291 int destroy;
292 Tcl_Command cmdtok;
293 } swig_instance;
294
295 #ifdef SWIG_NOINCLUDE
296 SWIGEXPORT(char *) SWIG_PackData(char *c, void *ptr, int sz);
297 SWIGEXPORT(char *) SWIG_UnpackData(char *c, void *ptr, int sz);
298 SWIGEXPORT(int) SWIG_ConvertPtrFromString(Tcl_Interp *, char *, void **, swig_type_info *,int flags);
299 SWIGEXPORT(int) SWIG_ConvertPtr(Tcl_Interp *, Tcl_Obj *, void **, swig_type_info *, int flags);
300 SWIGEXPORT(int) SWIG_ConvertPacked(Tcl_Interp *, Tcl_Obj *, void *, int sz, swig_type_info *, int flags);
301 SWIGEXPORT(void) SWIG_MakePtr(char *, void *, swig_type_info *, int flags);
302 SWIGEXPORT(Tcl_Obj *) SWIG_NewPointerObj(void *, swig_type_info *, int flags);
303 SWIGEXPORT(Tcl_Obj *) SWIG_NewPackedObj(void *, int sz, swig_type_info *, int flags);
304 SWIGEXPORT(int) SWIG_GetArgs(Tcl_Interp *, int, Tcl_Obj *CONST [], const char *, ...);
305 SWIGEXPORT(char *) SWIG_PointerTypeFromString(char *c);
306 SWIGEXPORT(void) SWIG_Acquire(void *ptr);
307 SWIGEXPORT(int) SWIG_Disown(void *ptr);
308 SWIGEXPORT(int) SWIG_Thisown(void *ptr);
309 SWIGEXPORT(void) SWIG_InstallConstants(Tcl_Interp *interp, struct swig_const_info constants[]);
310 SWIGEXPORT(Tcl_Obj *) SWIG_GetConstant(const char *key);
311 SWIGEXPORT(Tcl_Obj *) SWIG_NewInstanceObj(Tcl_Interp *interp, void *, swig_type_info *, int flags);
312 SWIGEXPORT(int) SWIG_ObjectConstructor(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]);
313 SWIGEXPORT(int) SWIG_MethodCommand(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]);
314 SWIGEXPORT(void) SWIG_ObjectDelete(ClientData);
315 #else
316
317 /* Object support */
318 static Tcl_HashTable swigobjectTable;
319 static int swigobjectTableinit = 0;
320
321 /* Acquire ownership of a pointer */
322 SWIGRUNTIME(void)
323 SWIG_Acquire(void *ptr)
324 {
325 Tcl_HashEntry *entryPtr;
326 int newobj;
327 if (!swigobjectTableinit) {
328 Tcl_InitHashTable(&swigobjectTable, TCL_ONE_WORD_KEYS);
329 swigobjectTableinit = 1;
330 }
331 entryPtr = Tcl_CreateHashEntry(&swigobjectTable, (char *) ptr, &newobj);
332 }
333
334 /* Disown a pointer. Returns 1 if we owned it to begin with */
335 SWIGRUNTIME(int)
336 SWIG_Disown(void *ptr)
337 {
338 Tcl_HashEntry *entryPtr;
339 if (!swigobjectTableinit) return 0;
340 entryPtr = Tcl_FindHashEntry(&swigobjectTable, (char *) ptr);
341 if (entryPtr) {
342 Tcl_DeleteHashEntry(entryPtr);
343 return 1;
344 }
345 return 0;
346 }
347
348 SWIGRUNTIME(int)
349 SWIG_Thisown(void *ptr) {
350 if (!swigobjectTableinit) return 0;
351 if (Tcl_FindHashEntry(&swigobjectTable, (char *) ptr)) {
352 return 1;
353 }
354 return 0;
355 }
356
357 /* Pack binary data into a string */
358 SWIGRUNTIME(char *)
359 SWIG_PackData(char *c, void *ptr, int sz) {
360 static char hex[17] = "0123456789abcdef";
361 int i;
362 unsigned char *u = (unsigned char *) ptr;
363 register unsigned char uu;
364 for (i = 0; i < sz; i++,u++) {
365 uu = *u;
366 *(c++) = hex[(uu & 0xf0) >> 4];
367 *(c++) = hex[uu & 0xf];
368 }
369 return c;
370 }
371
372 /* Unpack binary data from a string */
373 SWIGRUNTIME(char *)
374 SWIG_UnpackData(char *c, void *ptr, int sz) {
375 register unsigned char uu = 0;
376 register int d;
377 unsigned char *u = (unsigned char *) ptr;
378 int i;
379 if ((int)strlen(c) < (2*sz)) return c;
380 for (i = 0; i < sz; i++, u++) {
381 d = *(c++);
382 if ((d >= '') && (d <= '9'))
383 uu = ((d - '') << 4);
384 else if ((d >= 'a') && (d <= 'f'))
385 uu = ((d - ('a'-10)) << 4);
386 d = *(c++);
387 if ((d >= '') && (d <= '9'))
388 uu |= (d - '');
389 else if ((d >= 'a') && (d <= 'f'))
390 uu |= (d - ('a'-10));
391 *u = uu;
392 }
393 return c;
394 }
395
396 /* Convert a pointer value */
397 SWIGRUNTIME(int)
398 SWIG_ConvertPtrFromString(Tcl_Interp *interp, char *c, void **ptr, swig_type_info *ty, int flags)
399 {
400 swig_type_info *tc;
401 /* Pointer values must start with leading underscore */
402 while (*c != '_') {
403 *ptr = (void *) 0;
404 if (strcmp(c,"NULL") == 0) return TCL_OK;
405 /* Hmmm. It could be an object name. */
406 if (Tcl_VarEval(interp,c," cget -this", (char *) NULL) == TCL_OK) {
407 Tcl_Obj *result = Tcl_GetObjResult(interp);
408 c = Tcl_GetStringFromObj(result, NULL);
409 continue;
410 }
411 if (flags & SWIG_POINTER_EXCEPTION)
412 Tcl_SetResult(interp, (char *) "Type error. Expected a pointer", TCL_STATIC);
413 return TCL_ERROR;
414 }
415 c++;
416 c = SWIG_UnpackData(c,ptr,sizeof(void *));
417 if (ty) {
418 tc = SWIG_TypeCheck(c,ty);
419 if ((!tc) && (flags & SWIG_POINTER_EXCEPTION)) {
420 Tcl_SetResult(interp, (char *) "Type error. Expected ", TCL_STATIC);
421 Tcl_AppendElement(interp, (char *) ty->name);
422 return TCL_ERROR;
423 } else if (!tc) {
424 return TCL_ERROR;
425 }
426 if (flags & SWIG_POINTER_DISOWN) {
427 SWIG_Disown((void *) *ptr);
428 }
429 *ptr = SWIG_TypeCast(tc,(void *) *ptr);
430 }
431 return TCL_OK;
432 }
433
434 /* Convert a pointer value */
435 SWIGRUNTIME(int)
436 SWIG_ConvertPtr(Tcl_Interp *interp, Tcl_Obj *oc, void **ptr, swig_type_info *ty, int flags)
437 {
438 return SWIG_ConvertPtrFromString(interp, Tcl_GetStringFromObj(oc,NULL), ptr, ty, flags);
439 }
440
441 /* Convert a pointer value */
442 SWIGRUNTIME(char *)
443 SWIG_PointerTypeFromString(char *c) {
444 char d;
445 /* Pointer values must start with leading underscore. NULL has no type */
446 if (*c != '_') {
447 return 0;
448 }
449 c++;
450 /* Extract hex value from pointer */
451 while ((d = *c)) {
452 if (!(((d >= '') && (d <= '9')) || ((d >= 'a') && (d <= 'f')))) break;
453 c++;
454 }
455 return c;
456 }
457
458 /* Convert a packed value value */
459 SWIGRUNTIME(int)
460 SWIG_ConvertPacked(Tcl_Interp *interp, Tcl_Obj *obj, void *ptr, int sz, swig_type_info *ty, int flags) {
461 swig_type_info *tc;
462 char *c;
463
464 if (!obj) goto type_error;
465 c = Tcl_GetStringFromObj(obj,NULL);
466 /* Pointer values must start with leading underscore */
467 if (*c != '_') goto type_error;
468 c++;
469 c = SWIG_UnpackData(c,ptr,sz);
470 if (ty) {
471 tc = SWIG_TypeCheck(c,ty);
472 if (!tc) goto type_error;
473 }
474 return TCL_OK;
475
476 type_error:
477
478 if (flags) {
479 if (ty) {
480 Tcl_SetResult(interp, (char *) "Type error. Expected ", TCL_STATIC);
481 Tcl_AppendElement(interp, (char *) ty->name);
482 return TCL_ERROR;
483 } else {
484 Tcl_SetResult(interp, (char *) "Expected packed data.", TCL_STATIC);
485 return TCL_ERROR;
486 }
487 }
488 return TCL_ERROR;
489 }
490
491
492 /* Take a pointer and convert it to a string */
493 SWIGRUNTIME(void)
494 SWIG_MakePtr(char *c, void *ptr, swig_type_info *ty, int flags) {
495 if (ptr) {
496 *(c++) = '_';
497 c = SWIG_PackData(c,&ptr,sizeof(void *));
498 strcpy(c,ty->name);
499 } else {
500 strcpy(c,(char *)"NULL");
501 }
502 flags = 0;
503 }
504
505 /* Create a new pointer object */
506 SWIGRUNTIME(Tcl_Obj *)
507 SWIG_NewPointerObj(void *ptr, swig_type_info *type, int flags) {
508 Tcl_Obj *robj;
509 char result[512];
510 SWIG_MakePtr(result,ptr,type,flags);
511 robj = Tcl_NewStringObj(result,-1);
512 return robj;
513 }
514
515 SWIGRUNTIME(Tcl_Obj *)
516 SWIG_NewPackedObj(void *ptr, int sz, swig_type_info *type, int flags) {
517 char result[1024];
518 char *r = result;
519 if ((2*sz + 1 + strlen(type->name)) > 1000) return 0;
520 *(r++) = '_';
521 r = SWIG_PackData(r,ptr,sz);
522 strcpy(r,type->name);
523 flags = 0;
524 return Tcl_NewStringObj(result,-1);
525 }
526
527 static Tcl_HashTable swigconstTable;
528 static int swigconstTableinit = 0;
529
530 /* Install Constants */
531 SWIGRUNTIME(void)
532 SWIG_InstallConstants(Tcl_Interp *interp, swig_const_info constants[]) {
533 int i;
534 Tcl_Obj *obj;
535 Tcl_HashEntry *entryPtr;
536 int newobj;
537
538 if (!swigconstTableinit) {
539 Tcl_InitHashTable(&swigconstTable, TCL_STRING_KEYS);
540 swigconstTableinit = 1;
541 }
542 for (i = 0; constants[i].type; i++) {
543 switch(constants[i].type) {
544 case SWIG_TCL_INT:
545 obj = Tcl_NewIntObj(constants[i].lvalue);
546 break;
547 case SWIG_TCL_FLOAT:
548 obj = Tcl_NewDoubleObj(constants[i].dvalue);
549 break;
550 case SWIG_TCL_STRING:
551 obj = Tcl_NewStringObj((char *) constants[i].pvalue,-1);
552 break;
553 case SWIG_TCL_POINTER:
554 obj = SWIG_NewPointerObj(constants[i].pvalue, *(constants[i]).ptype,0);
555 break;
556 case SWIG_TCL_BINARY:
557 obj = SWIG_NewPackedObj(constants[i].pvalue, constants[i].lvalue, *(constants[i].ptype),0);
558 break;
559 default:
560 obj = 0;
561 break;
562 }
563 if (obj) {
564 Tcl_ObjSetVar2(interp,Tcl_NewStringObj(constants[i].name,-1), NULL, obj, TCL_GLOBAL_ONLY);
565 entryPtr = Tcl_CreateHashEntry(&swigconstTable, constants[i].name, &newobj);
566 Tcl_SetHashValue(entryPtr, (ClientData) obj);
567 }
568 }
569 }
570
571 SWIGRUNTIME(Tcl_Obj *)
572 SWIG_GetConstant(const char *key) {
573 Tcl_HashEntry *entryPtr;
574 if (!swigconstTableinit) return 0;
575 entryPtr = Tcl_FindHashEntry(&swigconstTable, key);
576 if (entryPtr) {
577 return (Tcl_Obj *) Tcl_GetHashValue(entryPtr);
578 }
579 printf("Searching %s\n", key);
580 return 0;
581 }
582
583 /* Get arguments */
584 SWIGRUNTIME(int)
585 SWIG_GetArgs(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], const char *fmt, ...)
586 {
587 int argno = 0, opt = 0, tempi;
588 double tempd;
589 const char *c;
590 va_list ap;
591 void *vptr;
592 Tcl_Obj *obj = 0;
593 swig_type_info *ty;
594
595 va_start(ap,fmt);
596 for (c = fmt; (*c && (*c != ':') && (*c != ';')); c++,argno++) {
597 if (*c == '|') {
598 opt = 1;
599 c++;
600 }
601 if (argno >= (objc-1)) {
602 if (!opt) {
603 Tcl_SetResult(interp, (char *) "Wrong # args. ", TCL_STATIC);
604 goto argerror;
605 } else {
606 va_end(ap);
607 return TCL_OK;
608 }
609 }
610
611 vptr = va_arg(ap,void *);
612 if (vptr) {
613 if (isupper(*c)) {
614 obj = SWIG_GetConstant(Tcl_GetStringFromObj(objv[argno+1],0));
615 if (!obj) obj = objv[argno+1];
616 } else {
617 obj = objv[argno+1];
618 }
619 switch(*c) {
620 case 'i': case 'I':
621 case 'l': case 'L':
622 case 'h': case 'H':
623 case 'b': case 'B':
624 if (Tcl_GetIntFromObj(interp,obj,&tempi) != TCL_OK) goto argerror;
625 if ((*c == 'i') || (*c == 'I')) *((int *)vptr) = tempi;
626 else if ((*c == 'l') || (*c == 'L')) *((long *)vptr) = tempi;
627 else if ((*c == 'h') || (*c == 'H')) *((short*)vptr) = tempi;
628 else if ((*c == 'b') || (*c == 'B')) *((unsigned char *)vptr) = tempi;
629 break;
630 case 'f': case 'F':
631 case 'd': case 'D':
632 if (Tcl_GetDoubleFromObj(interp,obj,&tempd) != TCL_OK) goto argerror;
633 if ((*c == 'f') || (*c == 'F')) *((float *) vptr) = (float)tempd;
634 else if ((*c == 'd') || (*c == 'D')) *((double*) vptr) = tempd;
635 break;
636 case 's': case 'S':
637 if (*(c+1) == '#') {
638 int *vlptr = (int *) va_arg(ap, void *);
639 *((char **) vptr) = Tcl_GetStringFromObj(obj, vlptr);
640 c++;
641 } else {
642 *((char **)vptr) = Tcl_GetStringFromObj(obj,NULL);
643 }
644 break;
645 case 'c': case 'C':
646 *((char *)vptr) = *(Tcl_GetStringFromObj(obj,NULL));
647 break;
648 case 'p': case 'P':
649 ty = (swig_type_info *) va_arg(ap, void *);
650 if (SWIG_ConvertPtr(interp, obj, (void **) vptr, ty, SWIG_POINTER_EXCEPTION) == TCL_ERROR) goto argerror;
651 break;
652 case 'o': case 'O':
653 *((Tcl_Obj **)vptr) = objv[argno+1];
654 break;
655 default:
656 break;
657 }
658 }
659 }
660
661 if ((*c != ';') && ((objc-1) > argno)) {
662 Tcl_SetResult(interp, (char *) "Wrong # args.", TCL_STATIC);
663 goto argerror;
664 }
665 va_end(ap);
666 return TCL_OK;
667
668 argerror:
669 {
670 char temp[32];
671 sprintf(temp,"%d", argno+1);
672 c = strchr(fmt,':');
673 if (!c) c = strchr(fmt,';');
674 if (!c) c = (char *)"";
675 Tcl_AppendResult(interp,c," argument ", temp, NULL);
676 va_end(ap);
677 return TCL_ERROR;
678 }
679 }
680
681 SWIGRUNTIME(void)
682 SWIG_ObjectDelete(ClientData clientData) {
683 swig_instance *si = (swig_instance *) clientData;
684 if ((si) && (si->destroy) && (SWIG_Disown(si->thisvalue))) {
685 if (si->classptr->destructor) {
686 (si->classptr->destructor)(si->thisvalue);
687 }
688 }
689 Tcl_DecrRefCount(si->thisptr);
690 free(si);
691 }
692
693 /* Function to invoke object methods given an instance */
694 SWIGRUNTIME(int)
695 SWIG_MethodCommand(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[])
696 {
697 char *method, *attrname;
698 swig_instance *inst = (swig_instance *) clientData;
699 swig_method *meth;
700 swig_attribute *attr;
701 Tcl_Obj *oldarg;
702 Tcl_Obj **objv;
703 int rcode;
704 swig_class *cls;
705 swig_class *cls_stack[64];
706 int cls_stack_bi[64];
707 int cls_stack_top = 0;
708 int numconf = 2;
709 int bi;
710
711 objv = (Tcl_Obj **) _objv;
712 if (objc < 2) {
713 Tcl_SetResult(interp, (char *) "wrong # args.", TCL_STATIC);
714 return TCL_ERROR;
715 }
716 method = Tcl_GetStringFromObj(objv[1],NULL);
717 if (strcmp(method,"-acquire") == 0) {
718 inst->destroy = 1;
719 SWIG_Acquire(inst->thisvalue);
720 return TCL_OK;
721 }
722 if (strcmp(method,"-disown") == 0) {
723 if (inst->destroy) {
724 SWIG_Disown(inst->thisvalue);
725 }
726 inst->destroy = 0;
727 return TCL_OK;
728 }
729 if (strcmp(method,"-delete") == 0) {
730 Tcl_DeleteCommandFromToken(interp,inst->cmdtok);
731 return TCL_OK;
732 }
733 cls_stack[cls_stack_top] = inst->classptr;
734 cls_stack_bi[cls_stack_top] = -1;
735 cls = inst->classptr;
736 while (1) {
737 bi = cls_stack_bi[cls_stack_top];
738 cls = cls_stack[cls_stack_top];
739 if (bi != -1) {
740 cls = cls->bases[bi];
741 if (cls) {
742 cls_stack_bi[cls_stack_top]++;
743 cls_stack_top++;
744 cls_stack[cls_stack_top] = cls;
745 cls_stack_bi[cls_stack_top] = -1;
746 continue;
747 }
748 }
749 if (!cls) {
750 cls_stack_top--;
751 if (cls_stack_top < 0) break;
752 else continue;
753 }
754 cls_stack_bi[cls_stack_top]++;
755
756 meth = cls->methods;
757 /* Check for methods */
758 while (meth && meth->name) {
759 if (strcmp(meth->name,method) == 0) {
760 oldarg = objv[1];
761 objv[1] = inst->thisptr;
762 Tcl_IncrRefCount(inst->thisptr);
763 rcode = (*meth->method)(clientData,interp,objc,objv);
764 objv[1] = oldarg;
765 Tcl_DecrRefCount(inst->thisptr);
766 return rcode;
767 }
768 meth++;
769 }
770 /* Check class methods for a match */
771 if (strcmp(method,"cget") == 0) {
772 if (objc < 3) {
773 Tcl_SetResult(interp, (char *) "wrong # args.", TCL_STATIC);
774 return TCL_ERROR;
775 }
776 attrname = Tcl_GetStringFromObj(objv[2],NULL);
777 attr = cls->attributes;
778 while (attr && attr->name) {
779 if ((strcmp(attr->name, attrname) == 0) && (attr->getmethod)) {
780 oldarg = objv[1];
781 objv[1] = inst->thisptr;
782 Tcl_IncrRefCount(inst->thisptr);
783 rcode = (*attr->getmethod)(clientData,interp,2, objv);
784 objv[1] = oldarg;
785 Tcl_DecrRefCount(inst->thisptr);
786 return rcode;
787 }
788 attr++;
789 }
790 if (strcmp(attrname, "-this") == 0) {
791 Tcl_SetObjResult(interp, Tcl_DuplicateObj(inst->thisptr));
792 return TCL_OK;
793 }
794 if (strcmp(attrname, "-thisown") == 0) {
795 if (SWIG_Thisown(inst->thisvalue)) {
796 Tcl_SetResult(interp,(char*)"1",TCL_STATIC);
797 } else {
798 Tcl_SetResult(interp,(char*)"",TCL_STATIC);
799 }
800 return TCL_OK;
801 }
802 } else if (strcmp(method, "configure") == 0) {
803 int i;
804 if (objc < 4) {
805 Tcl_SetResult(interp, (char *) "wrong # args.", TCL_STATIC);
806 return TCL_ERROR;
807 }
808 i = 2;
809 while (i < objc) {
810 attrname = Tcl_GetStringFromObj(objv[i],NULL);
811 attr = cls->attributes;
812 while (attr && attr->name) {
813 if ((strcmp(attr->name, attrname) == 0) && (attr->setmethod)) {
814 oldarg = objv[i];
815 objv[i] = inst->thisptr;
816 Tcl_IncrRefCount(inst->thisptr);
817 rcode = (*attr->setmethod)(clientData,interp,3, &objv[i-1]);
818 objv[i] = oldarg;
819 Tcl_DecrRefCount(inst->thisptr);
820 if (rcode != TCL_OK) return rcode;
821 numconf += 2;
822 }
823 attr++;
824 }
825 i+=2;
826 }
827 }
828 }
829 if (strcmp(method,"configure") == 0) {
830 if (numconf >= objc) {
831 return TCL_OK;
832 } else {
833 Tcl_SetResult(interp,(char *) "Invalid attribute name.", TCL_STATIC);
834 return TCL_ERROR;
835 }
836 }
837 if (strcmp(method,"cget") == 0) {
838 Tcl_SetResult(interp,(char *) "Invalid attribute name.", TCL_STATIC);
839 return TCL_ERROR;
840 }
841
842 Tcl_SetResult(interp, (char *) "Invalid method. Must be one of: configure cget -acquire -disown -delete", TCL_STATIC);
843 cls = inst->classptr;
844 bi = 0;
845 while (cls) {
846 meth = cls->methods;
847 while (meth && meth->name) {
848 char *cr = (char *) Tcl_GetStringResult(interp);
849 if (!strstr(strchr(cr,':'), meth->name))
850 Tcl_AppendElement(interp, (char *) meth->name);
851 meth++;
852 }
853 cls = inst->classptr->bases[bi++];
854 }
855 return TCL_ERROR;
856 }
857
858 /* Function to create objects */
859 SWIGRUNTIME(int)
860 SWIG_ObjectConstructor(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
861 {
862 Tcl_Obj *newObj = 0;
863 void *thisvalue = 0;
864 swig_instance *newinst = 0;
865 swig_class *classptr = (swig_class *) clientData;
866 swig_wrapper cons = 0;
867 char *name = 0;
868 int firstarg = 0;
869 int thisarg = 0;
870 int destroy = 1;
871
872 if (!classptr) {
873 Tcl_SetResult(interp, (char *) "swig: internal runtime error. No class object defined.", TCL_STATIC);
874 return TCL_ERROR;
875 }
876 cons = classptr->constructor;
877 if (objc > 1) {
878 char *s = Tcl_GetStringFromObj(objv[1],NULL);
879 if (strcmp(s,"-this") == 0) {
880 thisarg = 2;
881 cons = 0;
882 } else if (strcmp(s,"-args") == 0) {
883 firstarg = 1;
884 } else if (objc == 2) {
885 firstarg = 1;
886 name = s;
887 } else if (objc >= 3) {
888 char *s1;
889 name = s;
890 s1 = Tcl_GetStringFromObj(objv[2],NULL);
891 if (strcmp(s1,"-this") == 0) {
892 thisarg = 3;
893 cons = 0;
894 } else {
895 firstarg = 1;
896 }
897 }
898 }
899 if (cons) {
900 int result;
901 result = (*cons)(0, interp, objc-firstarg, &objv[firstarg]);
902 if (result != TCL_OK) {
903 return result;
904 }
905 newObj = Tcl_DuplicateObj(Tcl_GetObjResult(interp));
906 if (!name) name = Tcl_GetStringFromObj(newObj,NULL);
907 } else if (thisarg > 0) {
908 if (thisarg < objc) {
909 destroy = 0;
910 newObj = Tcl_DuplicateObj(objv[thisarg]);
911 if (!name) name = Tcl_GetStringFromObj(newObj,NULL);
912 } else {
913 Tcl_SetResult(interp, (char *) "wrong # args.", TCL_STATIC);
914 return TCL_ERROR;
915 }
916 } else {
917 Tcl_SetResult(interp, (char *) "No constructor available.", TCL_STATIC);
918 return TCL_ERROR;
919 }
920 if (SWIG_ConvertPtr(interp,newObj, (void **) &thisvalue, *(classptr->type), SWIG_POINTER_EXCEPTION) == TCL_ERROR) {
921 Tcl_DecrRefCount(newObj);
922 return TCL_ERROR;
923 }
924 newinst = (swig_instance *) malloc(sizeof(swig_instance));
925 newinst->thisptr = newObj;
926 Tcl_IncrRefCount(newObj);
927 newinst->thisvalue = thisvalue;
928 newinst->classptr = classptr;
929 newinst->destroy = destroy;
930 if (destroy) {
931 SWIG_Acquire(thisvalue);
932 }
933 newinst->cmdtok = Tcl_CreateObjCommand(interp,name, (swig_wrapper) SWIG_MethodCommand, (ClientData) newinst, (swig_delete_func) SWIG_ObjectDelete);
934 return TCL_OK;
935 }
936
937
938 /* This function takes the current result and turns it into an object command */
939 SWIGRUNTIME(Tcl_Obj *)
940 SWIG_NewInstanceObj(Tcl_Interp *interp, void *thisvalue, swig_type_info *type, int flags) {
941 Tcl_Obj *robj = SWIG_NewPointerObj(thisvalue, type,0);
942 /* Check to see if this pointer belongs to a class or not */
943 if ((type->clientdata) && (interp)) {
944 Tcl_CmdInfo ci;
945 char *name;
946 name = Tcl_GetStringFromObj(robj,NULL);
947 if (!Tcl_GetCommandInfo(interp,name, &ci) || (flags)) {
948 swig_instance *newinst = (swig_instance *) malloc(sizeof(swig_instance));
949 newinst->thisptr = Tcl_DuplicateObj(robj);
950 Tcl_IncrRefCount(newinst->thisptr);
951 newinst->thisvalue = thisvalue;
952 newinst->classptr = (swig_class *) type->clientdata;
953 newinst->destroy = flags;
954 newinst->cmdtok = Tcl_CreateObjCommand(interp, Tcl_GetStringFromObj(robj,NULL), (swig_wrapper_func) SWIG_MethodCommand, (ClientData) newinst, (swig_delete_func) SWIG_ObjectDelete);
955 if (flags) {
956 SWIG_Acquire(thisvalue);
957 }
958 }
959 }
960 return robj;
961 }
962
963 #endif
964
965 /* Structure for command table */
966 typedef struct {
967 const char *name;
968 int (*wrapper)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST []);
969 ClientData clientdata;
970 } swig_command_info;
971
972 /* Structure for variable linking table */
973 typedef struct {
974 const char *name;
975 void *addr;
976 char * (*get)(ClientData, Tcl_Interp *, char *, char *, int);
977 char * (*set)(ClientData, Tcl_Interp *, char *, char *, int);
978 } swig_var_info;
979
980 #ifdef __cplusplus
981 }
982 #endif
983
984
985
986
987
988
989 /* -------- TYPES TABLE (BEGIN) -------- */
990
991 #define SWIGTYPE_p_f___p_void swig_types[0]
992 #define SWIGTYPE_p_void swig_types[1]
993 #define SWIGTYPE_p_p_p_void swig_types[2]
994 #define SWIGTYPE_p_p_void swig_types[3]
995 #define SWIGTYPE_p_pwrte_gen swig_types[4]
996 #define SWIGTYPE_p_Pwrte_gen swig_types[5]
997 #define SWIGTYPE_p_f___void swig_types[6]
998 #define SWIGTYPE_p_p_unsigned_char swig_types[7]
999 #define SWIGTYPE_p_unsigned_char swig_types[8]
1000 #define SWIGTYPE_p_Sequence swig_types[9]
1001 #define SWIGTYPE_p_Point2 swig_types[10]
1002 #define SWIGTYPE_p_Hough1_peak swig_types[11]
1003 #define SWIGTYPE_p_Point3 swig_types[12]
1004 #define SWIGTYPE_p_list swig_types[13]
1005 #define SWIGTYPE_p_p_Spline swig_types[14]
1006 #define SWIGTYPE_p_Spline swig_types[15]
1007 #define SWIGTYPE_p_p_List swig_types[16]
1008 #define SWIGTYPE_p_List swig_types[17]
1009 #define SWIGTYPE_p_Mat swig_types[18]
1010 #define SWIGTYPE_p_Perfusion swig_types[19]
1011 #define SWIGTYPE_p_Parcam swig_types[20]
1012 #define SWIGTYPE_p_Edgel swig_types[21]
1013 #define SWIGTYPE_p_Conic3 swig_types[22]
1014 #define SWIGTYPE_p_a_2__float swig_types[23]
1015 #define SWIGTYPE_p_a_3__float swig_types[24]
1016 #define SWIGTYPE_p_a_4__float swig_types[25]
1017 #define SWIGTYPE_p_Match swig_types[26]
1018 #define SWIGTYPE_p_Viols_node swig_types[27]
1019 #define SWIGTYPE_p_Varptrptr swig_types[28]
1020 #define SWIGTYPE_p_varptrptr swig_types[29]
1021 #define SWIGTYPE_p_Ipos swig_types[30]
1022 #define SWIGTYPE_p_Plane swig_types[31]
1023 #define SWIGTYPE_p_Conic swig_types[32]
1024 #define SWIGTYPE_p_Tstring swig_types[33]
1025 #define SWIGTYPE_p_p_unsigned_int swig_types[34]
1026 #define SWIGTYPE_p_unsigned_int swig_types[35]
1027 #define SWIGTYPE_p_shistogram swig_types[36]
1028 #define SWIGTYPE_p_p_shistogram swig_types[37]
1029 #define SWIGTYPE_p_p_unsigned_short swig_types[38]
1030 #define SWIGTYPE_p_p_short swig_types[39]
1031 #define SWIGTYPE_p_short swig_types[40]
1032 #define SWIGTYPE_p_unsigned_short swig_types[41]
1033 #define SWIGTYPE_p_Br_imstack swig_types[42]
1034 #define SWIGTYPE_p_tree_node swig_types[43]
1035 #define SWIGTYPE_p_Tree_node swig_types[44]
1036 #define SWIGTYPE_p_p_float swig_types[45]
1037 #define SWIGTYPE_p_float swig_types[46]
1038 #define SWIGTYPE_p_camera swig_types[47]
1039 #define SWIGTYPE_p_p_Vec swig_types[48]
1040 #define SWIGTYPE_p_Vec swig_types[49]
1041 #define SWIGTYPE_p_p_Seqvoi swig_types[50]
1042 #define SWIGTYPE_p_Seqvoi swig_types[51]
1043 #define SWIGTYPE_p_Ucbs swig_types[52]
1044 #define SWIGTYPE_p_p_vram swig_types[53]
1045 #define SWIGTYPE_p_Scalar swig_types[54]
1046 #define SWIGTYPE_p_Vram swig_types[55]
1047 #define SWIGTYPE_p_Permiability swig_types[56]
1048 #define SWIGTYPE_p_String_match swig_types[57]
1049 #define SWIGTYPE_p_Transform2 swig_types[58]
1050 #define SWIGTYPE_p_Transform3 swig_types[59]
1051 #define SWIGTYPE_p_Prof1 swig_types[60]
1052 #define SWIGTYPE_p_Camera swig_types[61]
1053 #define SWIGTYPE_p_Support swig_types[62]
1054 #define SWIGTYPE_p_Cone swig_types[63]
1055 #define SWIGTYPE_p_Hough2_peak swig_types[64]
1056 #define SWIGTYPE_p_Match_cliche swig_types[65]
1057 #define SWIGTYPE_p_vector swig_types[66]
1058 #define SWIGTYPE_p_Pl_flow swig_types[67]
1059 #define SWIGTYPE_p_Pwrte swig_types[68]
1060 #define SWIGTYPE_p_Pos2 swig_types[69]
1061 #define SWIGTYPE_p_Pos3 swig_types[70]
1062 #define SWIGTYPE_p_Conic_stat swig_types[71]
1063 #define SWIGTYPE_p_edgel swig_types[72]
1064 #define SWIGTYPE_p_match swig_types[73]
1065 #define SWIGTYPE_p_Generic swig_types[74]
1066 #define SWIGTYPE_p_p_int swig_types[75]
1067 #define SWIGTYPE_p_int swig_types[76]
1068 #define SWIGTYPE_p_conic swig_types[77]
1069 #define SWIGTYPE_p_Vector swig_types[78]
1070 #define SWIGTYPE_p_mat2 swig_types[79]
1071 #define SWIGTYPE_p_mat3 swig_types[80]
1072 #define SWIGTYPE_p_p_tcomplex swig_types[81]
1073 #define SWIGTYPE_p_Complex swig_types[82]
1074 #define SWIGTYPE_p_tcomplex swig_types[83]
1075 #define SWIGTYPE_p_matrix swig_types[84]
1076 #define SWIGTYPE_p_Graph_node swig_types[85]
1077 #define SWIGTYPE_p_Mat2 swig_types[86]
1078 #define SWIGTYPE_p_Circ2 swig_types[87]
1079 #define SWIGTYPE_p_f___Bool swig_types[88]
1080 #define SWIGTYPE_p_Mat3 swig_types[89]
1081 #define SWIGTYPE_p_Mat4 swig_types[90]
1082 #define SWIGTYPE_p_f_void__double swig_types[91]
1083 #define SWIGTYPE_p_f_p_double_float_int__double swig_types[92]
1084 #define SWIGTYPE_p_f_p_shistogram_float__double swig_types[93]
1085 #define SWIGTYPE_p_f___double swig_types[94]
1086 #define SWIGTYPE_p_a_5__double swig_types[95]
1087 #define SWIGTYPE_p_p_p_double swig_types[96]
1088 #define SWIGTYPE_p_p_double swig_types[97]
1089 #define SWIGTYPE_p_double swig_types[98]
1090 #define SWIGTYPE_p_f_int_p_double_float__double swig_types[99]
1091 #define SWIGTYPE_p_p_Dpnode swig_types[100]
1092 #define SWIGTYPE_p_Dpnode swig_types[101]
1093 #define SWIGTYPE_p_vec2 swig_types[102]
1094 #define SWIGTYPE_p_vec3 swig_types[103]
1095 #define SWIGTYPE_p_f___p_Vec2 swig_types[104]
1096 #define SWIGTYPE_p_Vec2 swig_types[105]
1097 #define SWIGTYPE_p_Kwsnake swig_types[106]
1098 #define SWIGTYPE_p_f___p_Vec3 swig_types[107]
1099 #define SWIGTYPE_p_p_Vec3 swig_types[108]
1100 #define SWIGTYPE_p_Vec3 swig_types[109]
1101 #define SWIGTYPE_p_f___Vec2 swig_types[110]
1102 #define SWIGTYPE_p_Vec4 swig_types[111]
1103 #define SWIGTYPE_p_f___Vec3 swig_types[112]
1104 #define SWIGTYPE_p_p_Line2 swig_types[113]
1105 #define SWIGTYPE_p_Line2 swig_types[114]
1106 #define SWIGTYPE_p_Line3 swig_types[115]
1107 #define SWIGTYPE_p_Ucbs2 swig_types[116]
1108 #define SWIGTYPE_p_Ucbs3 swig_types[117]
1109 #define SWIGTYPE_p_unsigned_long swig_types[118]
1110 #define SWIGTYPE_p_Rindex swig_types[119]
1111 #define SWIGTYPE_p_p_Matrix swig_types[120]
1112 #define SWIGTYPE_p_Matrix swig_types[121]
1113 #define SWIGTYPE_p_f___Imregion swig_types[122]
1114 #define SWIGTYPE_p_Hough2_region swig_types[123]
1115 #define SWIGTYPE_p_Hough_region swig_types[124]
1116 #define SWIGTYPE_p_imregion swig_types[125]
1117 #define SWIGTYPE_p_Imregion swig_types[126]
1118 #define SWIGTYPE_p_Ivec swig_types[127]
1119 #define SWIGTYPE_p_Terrain_data swig_types[128]
1120 #define SWIGTYPE_p_pwrte_vec_to_vec swig_types[129]
1121 #define SWIGTYPE_p_pwrte_point_to_vec swig_types[130]
1122 #define SWIGTYPE_p_Pwrte_vec_to_vec swig_types[131]
1123 #define SWIGTYPE_p_Pwrte_point_to_vec swig_types[132]
1124 #define SWIGTYPE_p_Windex swig_types[133]
1125 #define SWIGTYPE_p_Prop_def swig_types[134]
1126 #define SWIGTYPE_p_f___int swig_types[135]
1127 #define SWIGTYPE_p_pwrte_point_to_point swig_types[136]
1128 #define SWIGTYPE_p_Pwrte_point_to_point swig_types[137]
1129 #define SWIGTYPE_p_p_Seqslice swig_types[138]
1130 #define SWIGTYPE_p_Seqslice swig_types[139]
1131 #define SWIGTYPE_p_Ics2 swig_types[140]
1132 #define SWIGTYPE_p_Iso_error swig_types[141]
1133 #define SWIGTYPE_p_FILE swig_types[142]
1134 #define SWIGTYPE_p_Prop swig_types[143]
1135 #define SWIGTYPE_p_Transf3 swig_types[144]
1136 #define SWIGTYPE_p_Edge_conn swig_types[145]
1137 #define SWIGTYPE_p_conic3 swig_types[146]
1138 #define SWIGTYPE_p_Match_clique swig_types[147]
1139 #define SWIGTYPE_p_bin_node swig_types[148]
1140 #define SWIGTYPE_p_Bin_node swig_types[149]
1141 #define SWIGTYPE_p_p_char swig_types[150]
1142 #define SWIGTYPE_p_Covar swig_types[151]
1143 #define SWIGTYPE_p_Pair swig_types[152]
1144 #define SWIGTYPE_p_Mixmodel swig_types[153]
1145 #define SWIGTYPE_p_Varptr swig_types[154]
1146 #define SWIGTYPE_p_p_Spline2 swig_types[155]
1147 #define SWIGTYPE_p_Spline2 swig_types[156]
1148 #define SWIGTYPE_p_p_Imrect swig_types[157]
1149 #define SWIGTYPE_p_Imrect swig_types[158]
1150 static swig_type_info *swig_types[160];
1151
1152 /* -------- TYPES TABLE (END) -------- */
1153
1154 #define SWIG_init Tina_Init
1155 #define SWIG_name "tina"
1156 #define SWIG_prefix ""
1157 #define SWIG_version "0.0"
1158
1159
1160 #ifdef __cplusplus
1161 extern "C" {
1162 #endif
1163 #ifdef MAC_TCL
1164 #pragma export on
1165 #endif
1166 SWIGEXPORT(int) SWIG_init(Tcl_Interp *);
1167 #ifdef MAC_TCL
1168 #pragma export off
1169 #endif
1170 #ifdef __cplusplus
1171 }
1172 #endif
1173
1174
1175
1176 #include <tina/image/imgDef.h>
1177 #include <tina/image/imgPro.h>
1178
1179
1180 #include <tina/math/mathDef.h>
1181 #include <tina/math/mathPro.h>
1182
1183
1184 #include <tina/geometry/geomDef.h>
1185 #include <tina/geometry/geomPro.h>
1186
1187
1188 #include <tina/file/fileDef.h>
1189 #include <tina/file/filePro.h>
1190
1191
1192 #include <tina/vision/visDef.h>
1193 #include <tina/vision/visPro.h>
1194
1195
1196 #include <tina/medical/medDef.h>
1197 #include <tina/medical/medPro.h>
1198
1199
1200
1201 /* A TCL_AppInit() function that lets you build a new copy
1202 * of tclsh.
1203 *
1204 * The macro SWIG_init contains the name of the initialization
1205 * function in the wrapper file.
1206 */
1207
1208 #ifndef SWIG_RcFileName
1209 char *SWIG_RcFileName = "~/.myapprc";
1210 #endif
1211
1212
1213 #ifdef MAC_TCL
1214 extern int MacintoshInit _ANSI_ARGS_((void));
1215 #endif
1216
1217 int Tcl_AppInit(Tcl_Interp *interp){
1218
1219 if (Tcl_Init(interp) == TCL_ERROR)
1220 return TCL_ERROR;
1221
1222 /* Now initialize our functions */
1223
1224 if (SWIG_init(interp) == TCL_ERROR)
1225 return TCL_ERROR;
1226 #if TCL_MAJOR_VERSION > 7 || TCL_MAJOR_VERSION == 7 && TCL_MINOR_VERSION >= 5
1227 Tcl_SetVar(interp, (char *) "tcl_rcFileName",SWIG_RcFileName,TCL_GLOBAL_ONLY);
1228 #else
1229 tcl_RcFileName = SWIG_RcFileName;
1230 #endif
1231 #ifdef SWIG_RcRsrcName
1232 Tcl_SetVar(interp, (char *) "tcl_rcRsrcName",SWIG_RcRsrcName,TCL_GLOBAL);
1233 #endif
1234
1235 return TCL_OK;
1236 }
1237
1238 #if TCL_MAJOR_VERSION > 7 || TCL_MAJOR_VERSION == 7 && TCL_MINOR_VERSION >= 4
1239 int main(int argc, char **argv) {
1240 #ifdef MAC_TCL
1241 char *newArgv[2];
1242
1243 if (MacintoshInit() != TCL_OK) {
1244 Tcl_Exit(1);
1245 }
1246
1247 argc = 1;
1248 newArgv[0] = "tclsh";
1249 newArgv[1] = NULL;
1250 argv = newArgv;
1251 #endif
1252
1253 Tcl_Main(argc, argv, Tcl_AppInit);
1254 return(0);
1255
1256 }
1257 #else
1258 extern int main();
1259 #endif
1260
1261
1262 #ifdef __cplusplus
1263 extern "C" {
1264 #endif
1265 static int
1266 _wrap_tinaComplex_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1267 Complex *arg1 = (Complex *) 0 ;
1268 int arg2 ;
1269
1270 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaComplex_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
1271 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Complex,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1272 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
1273
1274
1275 return TCL_OK;
1276 fail:
1277 return TCL_ERROR;
1278 }
1279
1280
1281 static int
1282 _wrap_tinaComplex_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1283 Complex *arg1 = (Complex *) 0 ;
1284 int result;
1285
1286 if (SWIG_GetArgs(interp, objc, objv,"o:tinaComplex_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
1287 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Complex,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1288 result = (int) ((arg1)->ts_id);
1289
1290 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
1291 return TCL_OK;
1292 fail:
1293 return TCL_ERROR;
1294 }
1295
1296
1297 static int
1298 _wrap_tinaComplex_x_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1299 Complex *arg1 = (Complex *) 0 ;
1300 double arg2 ;
1301
1302 if (SWIG_GetArgs(interp, objc, objv,"od:tinaComplex_x_set self x ",0,&arg2) == TCL_ERROR) SWIG_fail;
1303 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Complex,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1304 if (arg1) (arg1)->x = arg2;
1305
1306
1307 return TCL_OK;
1308 fail:
1309 return TCL_ERROR;
1310 }
1311
1312
1313 static int
1314 _wrap_tinaComplex_x_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1315 Complex *arg1 = (Complex *) 0 ;
1316 double result;
1317
1318 if (SWIG_GetArgs(interp, objc, objv,"o:tinaComplex_x_get self ",0) == TCL_ERROR) SWIG_fail;
1319 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Complex,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1320 result = (double) ((arg1)->x);
1321
1322 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
1323 return TCL_OK;
1324 fail:
1325 return TCL_ERROR;
1326 }
1327
1328
1329 static int
1330 _wrap_tinaComplex_y_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1331 Complex *arg1 = (Complex *) 0 ;
1332 double arg2 ;
1333
1334 if (SWIG_GetArgs(interp, objc, objv,"od:tinaComplex_y_set self y ",0,&arg2) == TCL_ERROR) SWIG_fail;
1335 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Complex,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1336 if (arg1) (arg1)->y = arg2;
1337
1338
1339 return TCL_OK;
1340 fail:
1341 return TCL_ERROR;
1342 }
1343
1344
1345 static int
1346 _wrap_tinaComplex_y_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1347 Complex *arg1 = (Complex *) 0 ;
1348 double result;
1349
1350 if (SWIG_GetArgs(interp, objc, objv,"o:tinaComplex_y_get self ",0) == TCL_ERROR) SWIG_fail;
1351 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Complex,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1352 result = (double) ((arg1)->y);
1353
1354 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
1355 return TCL_OK;
1356 fail:
1357 return TCL_ERROR;
1358 }
1359
1360
1361 static int
1362 _wrap_new_tinaComplex(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1363 Complex *result;
1364
1365 if (SWIG_GetArgs(interp, objc, objv,":new_tinaComplex ") == TCL_ERROR) SWIG_fail;
1366 result = (Complex *)(Complex *) calloc(1, sizeof(Complex));
1367
1368 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Complex,0));
1369 return TCL_OK;
1370 fail:
1371 return TCL_ERROR;
1372 }
1373
1374
1375 static int
1376 _wrap_delete_tinaComplex(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1377 Complex *arg1 = (Complex *) 0 ;
1378
1379 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaComplex self ",0) == TCL_ERROR) SWIG_fail;
1380 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Complex,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1381 free((char *) arg1);
1382
1383
1384 return TCL_OK;
1385 fail:
1386 return TCL_ERROR;
1387 }
1388
1389
1390 static void swig_delete_tinaComplex(void *obj) {
1391 Complex *arg1 = (Complex *) obj;
1392 free((char *) arg1);
1393 }
1394 static swig_method swig_Complex_methods[] = {
1395 {0,0}
1396 };
1397 static swig_attribute swig_Complex_attributes[] = {
1398 { "-tinaTsId",_wrap_tinaComplex_tinaTsId_get, _wrap_tinaComplex_tinaTsId_set},
1399 { "-x",_wrap_tinaComplex_x_get, _wrap_tinaComplex_x_set},
1400 { "-y",_wrap_tinaComplex_y_get, _wrap_tinaComplex_y_set},
1401 {0,0,0}
1402 };
1403 static swig_class *swig_Complex_bases[] = {0};
1404 swig_class _wrap_class_Complex = { "tinaComplex", &SWIGTYPE_p_Complex,_wrap_new_tinaComplex, swig_delete_tinaComplex, swig_Complex_methods, swig_Complex_attributes, swig_Complex_bases };
1405 static int
1406 _wrap_tinaVram_vram0_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1407 Vram *arg1 = (Vram *) 0 ;
1408 unsigned char arg2 ;
1409
1410 if (SWIG_GetArgs(interp, objc, objv,"ob:tinaVram_vram0_set self vram0 ",0,&arg2) == TCL_ERROR) SWIG_fail;
1411 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1412 if (arg1) (arg1)->vram0 = arg2;
1413
1414
1415 return TCL_OK;
1416 fail:
1417 return TCL_ERROR;
1418 }
1419
1420
1421 static int
1422 _wrap_tinaVram_vram0_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1423 Vram *arg1 = (Vram *) 0 ;
1424 unsigned char result;
1425
1426 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVram_vram0_get self ",0) == TCL_ERROR) SWIG_fail;
1427 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1428 result = (unsigned char) ((arg1)->vram0);
1429
1430 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
1431 return TCL_OK;
1432 fail:
1433 return TCL_ERROR;
1434 }
1435
1436
1437 static int
1438 _wrap_tinaVram_vram1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1439 Vram *arg1 = (Vram *) 0 ;
1440 unsigned char arg2 ;
1441
1442 if (SWIG_GetArgs(interp, objc, objv,"ob:tinaVram_vram1_set self vram1 ",0,&arg2) == TCL_ERROR) SWIG_fail;
1443 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1444 if (arg1) (arg1)->vram1 = arg2;
1445
1446
1447 return TCL_OK;
1448 fail:
1449 return TCL_ERROR;
1450 }
1451
1452
1453 static int
1454 _wrap_tinaVram_vram1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1455 Vram *arg1 = (Vram *) 0 ;
1456 unsigned char result;
1457
1458 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVram_vram1_get self ",0) == TCL_ERROR) SWIG_fail;
1459 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1460 result = (unsigned char) ((arg1)->vram1);
1461
1462 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
1463 return TCL_OK;
1464 fail:
1465 return TCL_ERROR;
1466 }
1467
1468
1469 static int
1470 _wrap_tinaVram_vram2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1471 Vram *arg1 = (Vram *) 0 ;
1472 unsigned char arg2 ;
1473
1474 if (SWIG_GetArgs(interp, objc, objv,"ob:tinaVram_vram2_set self vram2 ",0,&arg2) == TCL_ERROR) SWIG_fail;
1475 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1476 if (arg1) (arg1)->vram2 = arg2;
1477
1478
1479 return TCL_OK;
1480 fail:
1481 return TCL_ERROR;
1482 }
1483
1484
1485 static int
1486 _wrap_tinaVram_vram2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1487 Vram *arg1 = (Vram *) 0 ;
1488 unsigned char result;
1489
1490 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVram_vram2_get self ",0) == TCL_ERROR) SWIG_fail;
1491 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1492 result = (unsigned char) ((arg1)->vram2);
1493
1494 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
1495 return TCL_OK;
1496 fail:
1497 return TCL_ERROR;
1498 }
1499
1500
1501 static int
1502 _wrap_tinaVram_vram3_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1503 Vram *arg1 = (Vram *) 0 ;
1504 unsigned char arg2 ;
1505
1506 if (SWIG_GetArgs(interp, objc, objv,"ob:tinaVram_vram3_set self vram3 ",0,&arg2) == TCL_ERROR) SWIG_fail;
1507 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1508 if (arg1) (arg1)->vram3 = arg2;
1509
1510
1511 return TCL_OK;
1512 fail:
1513 return TCL_ERROR;
1514 }
1515
1516
1517 static int
1518 _wrap_tinaVram_vram3_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1519 Vram *arg1 = (Vram *) 0 ;
1520 unsigned char result;
1521
1522 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVram_vram3_get self ",0) == TCL_ERROR) SWIG_fail;
1523 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1524 result = (unsigned char) ((arg1)->vram3);
1525
1526 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
1527 return TCL_OK;
1528 fail:
1529 return TCL_ERROR;
1530 }
1531
1532
1533 static int
1534 _wrap_new_tinaVram(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1535 Vram *result;
1536
1537 if (SWIG_GetArgs(interp, objc, objv,":new_tinaVram ") == TCL_ERROR) SWIG_fail;
1538 result = (Vram *)(Vram *) calloc(1, sizeof(Vram));
1539
1540 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Vram,0));
1541 return TCL_OK;
1542 fail:
1543 return TCL_ERROR;
1544 }
1545
1546
1547 static int
1548 _wrap_delete_tinaVram(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1549 Vram *arg1 = (Vram *) 0 ;
1550
1551 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaVram self ",0) == TCL_ERROR) SWIG_fail;
1552 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Vram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1553 free((char *) arg1);
1554
1555
1556 return TCL_OK;
1557 fail:
1558 return TCL_ERROR;
1559 }
1560
1561
1562 static void swig_delete_tinaVram(void *obj) {
1563 Vram *arg1 = (Vram *) obj;
1564 free((char *) arg1);
1565 }
1566 static swig_method swig_Vram_methods[] = {
1567 {0,0}
1568 };
1569 static swig_attribute swig_Vram_attributes[] = {
1570 { "-vram0",_wrap_tinaVram_vram0_get, _wrap_tinaVram_vram0_set},
1571 { "-vram1",_wrap_tinaVram_vram1_get, _wrap_tinaVram_vram1_set},
1572 { "-vram2",_wrap_tinaVram_vram2_get, _wrap_tinaVram_vram2_set},
1573 { "-vram3",_wrap_tinaVram_vram3_get, _wrap_tinaVram_vram3_set},
1574 {0,0,0}
1575 };
1576 static swig_class *swig_Vram_bases[] = {0};
1577 swig_class _wrap_class_Vram = { "tinaVram", &SWIGTYPE_p_Vram,_wrap_new_tinaVram, swig_delete_tinaVram, swig_Vram_methods, swig_Vram_attributes, swig_Vram_bases };
1578 static int
1579 _wrap_tinaVarptr_char_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1580 Varptr *arg1 = (Varptr *) 0 ;
1581 char *arg2 ;
1582
1583 if (SWIG_GetArgs(interp, objc, objv,"os:tinaVarptr_char_v_set self char_v ",0,&arg2) == TCL_ERROR) SWIG_fail;
1584 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1585 {
1586 if (arg1->char_v) free((char*)arg1->char_v);
1587 if (arg2) {
1588 arg1->char_v = (char *) malloc(strlen(arg2)+1);
1589 strcpy((char*)arg1->char_v,arg2);
1590 }else {
1591 arg1->char_v = 0;
1592 }
1593 }
1594
1595 return TCL_OK;
1596 fail:
1597 return TCL_ERROR;
1598 }
1599
1600
1601 static int
1602 _wrap_tinaVarptr_char_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1603 Varptr *arg1 = (Varptr *) 0 ;
1604 char *result;
1605
1606 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptr_char_v_get self ",0) == TCL_ERROR) SWIG_fail;
1607 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1608 result = (char *) ((arg1)->char_v);
1609
1610 Tcl_SetObjResult(interp,Tcl_NewStringObj(result,-1));
1611 return TCL_OK;
1612 fail:
1613 return TCL_ERROR;
1614 }
1615
1616
1617 static int
1618 _wrap_tinaVarptr_uchar_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1619 Varptr *arg1 = (Varptr *) 0 ;
1620 unsigned char *arg2 = (unsigned char *) 0 ;
1621
1622 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptr_uchar_v_set self uchar_v ",0,0) == TCL_ERROR) SWIG_fail;
1623 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1624 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_unsigned_char,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
1625 if (arg1) (arg1)->uchar_v = arg2;
1626
1627
1628 return TCL_OK;
1629 fail:
1630 return TCL_ERROR;
1631 }
1632
1633
1634 static int
1635 _wrap_tinaVarptr_uchar_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1636 Varptr *arg1 = (Varptr *) 0 ;
1637 unsigned char *result;
1638
1639 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptr_uchar_v_get self ",0) == TCL_ERROR) SWIG_fail;
1640 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1641 result = (unsigned char *) ((arg1)->uchar_v);
1642
1643 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_unsigned_char,0));
1644 return TCL_OK;
1645 fail:
1646 return TCL_ERROR;
1647 }
1648
1649
1650 static int
1651 _wrap_tinaVarptr_short_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1652 Varptr *arg1 = (Varptr *) 0 ;
1653 short *arg2 = (short *) 0 ;
1654
1655 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptr_short_v_set self short_v ",0,0) == TCL_ERROR) SWIG_fail;
1656 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1657 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_short,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
1658 if (arg1) (arg1)->short_v = arg2;
1659
1660
1661 return TCL_OK;
1662 fail:
1663 return TCL_ERROR;
1664 }
1665
1666
1667 static int
1668 _wrap_tinaVarptr_short_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1669 Varptr *arg1 = (Varptr *) 0 ;
1670 short *result;
1671
1672 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptr_short_v_get self ",0) == TCL_ERROR) SWIG_fail;
1673 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1674 result = (short *) ((arg1)->short_v);
1675
1676 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_short,0));
1677 return TCL_OK;
1678 fail:
1679 return TCL_ERROR;
1680 }
1681
1682
1683 static int
1684 _wrap_tinaVarptr_ushort_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1685 Varptr *arg1 = (Varptr *) 0 ;
1686 unsigned short *arg2 = (unsigned short *) 0 ;
1687
1688 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptr_ushort_v_set self ushort_v ",0,0) == TCL_ERROR) SWIG_fail;
1689 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1690 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_unsigned_short,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
1691 if (arg1) (arg1)->ushort_v = arg2;
1692
1693
1694 return TCL_OK;
1695 fail:
1696 return TCL_ERROR;
1697 }
1698
1699
1700 static int
1701 _wrap_tinaVarptr_ushort_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1702 Varptr *arg1 = (Varptr *) 0 ;
1703 unsigned short *result;
1704
1705 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptr_ushort_v_get self ",0) == TCL_ERROR) SWIG_fail;
1706 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1707 result = (unsigned short *) ((arg1)->ushort_v);
1708
1709 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_unsigned_short,0));
1710 return TCL_OK;
1711 fail:
1712 return TCL_ERROR;
1713 }
1714
1715
1716 static int
1717 _wrap_tinaVarptr_int_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1718 Varptr *arg1 = (Varptr *) 0 ;
1719 int *arg2 = (int *) 0 ;
1720
1721 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptr_int_v_set self int_v ",0,0) == TCL_ERROR) SWIG_fail;
1722 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1723 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_int,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
1724 if (arg1) (arg1)->int_v = arg2;
1725
1726
1727 return TCL_OK;
1728 fail:
1729 return TCL_ERROR;
1730 }
1731
1732
1733 static int
1734 _wrap_tinaVarptr_int_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1735 Varptr *arg1 = (Varptr *) 0 ;
1736 int *result;
1737
1738 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptr_int_v_get self ",0) == TCL_ERROR) SWIG_fail;
1739 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1740 result = (int *) ((arg1)->int_v);
1741
1742 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_int,0));
1743 return TCL_OK;
1744 fail:
1745 return TCL_ERROR;
1746 }
1747
1748
1749 static int
1750 _wrap_tinaVarptr_uint_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1751 Varptr *arg1 = (Varptr *) 0 ;
1752 unsigned int *arg2 = (unsigned int *) 0 ;
1753
1754 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptr_uint_v_set self uint_v ",0,0) == TCL_ERROR) SWIG_fail;
1755 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1756 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_unsigned_int,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
1757 if (arg1) (arg1)->uint_v = arg2;
1758
1759
1760 return TCL_OK;
1761 fail:
1762 return TCL_ERROR;
1763 }
1764
1765
1766 static int
1767 _wrap_tinaVarptr_uint_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1768 Varptr *arg1 = (Varptr *) 0 ;
1769 unsigned int *result;
1770
1771 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptr_uint_v_get self ",0) == TCL_ERROR) SWIG_fail;
1772 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1773 result = (unsigned int *) ((arg1)->uint_v);
1774
1775 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_unsigned_int,0));
1776 return TCL_OK;
1777 fail:
1778 return TCL_ERROR;
1779 }
1780
1781
1782 static int
1783 _wrap_tinaVarptr_float_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1784 Varptr *arg1 = (Varptr *) 0 ;
1785 float *arg2 = (float *) 0 ;
1786
1787 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptr_float_v_set self float_v ",0,0) == TCL_ERROR) SWIG_fail;
1788 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1789 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_float,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
1790 if (arg1) (arg1)->float_v = arg2;
1791
1792
1793 return TCL_OK;
1794 fail:
1795 return TCL_ERROR;
1796 }
1797
1798
1799 static int
1800 _wrap_tinaVarptr_float_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1801 Varptr *arg1 = (Varptr *) 0 ;
1802 float *result;
1803
1804 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptr_float_v_get self ",0) == TCL_ERROR) SWIG_fail;
1805 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1806 result = (float *) ((arg1)->float_v);
1807
1808 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_float,0));
1809 return TCL_OK;
1810 fail:
1811 return TCL_ERROR;
1812 }
1813
1814
1815 static int
1816 _wrap_tinaVarptr_double_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1817 Varptr *arg1 = (Varptr *) 0 ;
1818 double *arg2 = (double *) 0 ;
1819
1820 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptr_double_v_set self double_v ",0,0) == TCL_ERROR) SWIG_fail;
1821 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1822 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_double,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
1823 if (arg1) (arg1)->double_v = arg2;
1824
1825
1826 return TCL_OK;
1827 fail:
1828 return TCL_ERROR;
1829 }
1830
1831
1832 static int
1833 _wrap_tinaVarptr_double_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1834 Varptr *arg1 = (Varptr *) 0 ;
1835 double *result;
1836
1837 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptr_double_v_get self ",0) == TCL_ERROR) SWIG_fail;
1838 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1839 result = (double *) ((arg1)->double_v);
1840
1841 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_double,0));
1842 return TCL_OK;
1843 fail:
1844 return TCL_ERROR;
1845 }
1846
1847
1848 static int
1849 _wrap_tinaVarptr_complex_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1850 Varptr *arg1 = (Varptr *) 0 ;
1851 struct tcomplex *arg2 = (struct tcomplex *) 0 ;
1852
1853 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptr_complex_v_set self complex_v ",0,0) == TCL_ERROR) SWIG_fail;
1854 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1855 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_tcomplex,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
1856 if (arg1) (arg1)->complex_v = arg2;
1857
1858
1859 return TCL_OK;
1860 fail:
1861 return TCL_ERROR;
1862 }
1863
1864
1865 static int
1866 _wrap_tinaVarptr_complex_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1867 Varptr *arg1 = (Varptr *) 0 ;
1868 struct tcomplex *result;
1869
1870 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptr_complex_v_get self ",0) == TCL_ERROR) SWIG_fail;
1871 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1872 result = (struct tcomplex *) ((arg1)->complex_v);
1873
1874 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_tcomplex,0));
1875 return TCL_OK;
1876 fail:
1877 return TCL_ERROR;
1878 }
1879
1880
1881 static int
1882 _wrap_tinaVarptr_ptr_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1883 Varptr *arg1 = (Varptr *) 0 ;
1884 void **arg2 = (void **) 0 ;
1885
1886 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptr_ptr_v_set self ptr_v ",0,0) == TCL_ERROR) SWIG_fail;
1887 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1888 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_void,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1889 if (arg1) (arg1)->ptr_v = arg2;
1890
1891
1892 return TCL_OK;
1893 fail:
1894 return TCL_ERROR;
1895 }
1896
1897
1898 static int
1899 _wrap_tinaVarptr_ptr_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1900 Varptr *arg1 = (Varptr *) 0 ;
1901 void **result;
1902
1903 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptr_ptr_v_get self ",0) == TCL_ERROR) SWIG_fail;
1904 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1905 result = (void **) ((arg1)->ptr_v);
1906
1907 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_void,0));
1908 return TCL_OK;
1909 fail:
1910 return TCL_ERROR;
1911 }
1912
1913
1914 static int
1915 _wrap_new_tinaVarptr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1916 Varptr *result;
1917
1918 if (SWIG_GetArgs(interp, objc, objv,":new_tinaVarptr ") == TCL_ERROR) SWIG_fail;
1919 result = (Varptr *)(Varptr *) calloc(1, sizeof(Varptr));
1920
1921 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Varptr,0));
1922 return TCL_OK;
1923 fail:
1924 return TCL_ERROR;
1925 }
1926
1927
1928 static int
1929 _wrap_delete_tinaVarptr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1930 Varptr *arg1 = (Varptr *) 0 ;
1931
1932 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaVarptr self ",0) == TCL_ERROR) SWIG_fail;
1933 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1934 free((char *) arg1);
1935
1936
1937 return TCL_OK;
1938 fail:
1939 return TCL_ERROR;
1940 }
1941
1942
1943 static void swig_delete_tinaVarptr(void *obj) {
1944 Varptr *arg1 = (Varptr *) obj;
1945 free((char *) arg1);
1946 }
1947 static swig_method swig_Varptr_methods[] = {
1948 {0,0}
1949 };
1950 static swig_attribute swig_Varptr_attributes[] = {
1951 { "-char_v",_wrap_tinaVarptr_char_v_get, _wrap_tinaVarptr_char_v_set},
1952 { "-uchar_v",_wrap_tinaVarptr_uchar_v_get, _wrap_tinaVarptr_uchar_v_set},
1953 { "-short_v",_wrap_tinaVarptr_short_v_get, _wrap_tinaVarptr_short_v_set},
1954 { "-ushort_v",_wrap_tinaVarptr_ushort_v_get, _wrap_tinaVarptr_ushort_v_set},
1955 { "-int_v",_wrap_tinaVarptr_int_v_get, _wrap_tinaVarptr_int_v_set},
1956 { "-uint_v",_wrap_tinaVarptr_uint_v_get, _wrap_tinaVarptr_uint_v_set},
1957 { "-float_v",_wrap_tinaVarptr_float_v_get, _wrap_tinaVarptr_float_v_set},
1958 { "-double_v",_wrap_tinaVarptr_double_v_get, _wrap_tinaVarptr_double_v_set},
1959 { "-complex_v",_wrap_tinaVarptr_complex_v_get, _wrap_tinaVarptr_complex_v_set},
1960 { "-ptr_v",_wrap_tinaVarptr_ptr_v_get, _wrap_tinaVarptr_ptr_v_set},
1961 {0,0,0}
1962 };
1963 static swig_class *swig_Varptr_bases[] = {0};
1964 swig_class _wrap_class_Varptr = { "tinaVarptr", &SWIGTYPE_p_Varptr,_wrap_new_tinaVarptr, swig_delete_tinaVarptr, swig_Varptr_methods, swig_Varptr_attributes, swig_Varptr_bases };
1965 static int
1966 _wrap_tinaVarptrptr_char_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1967 Varptrptr *arg1 = (Varptrptr *) 0 ;
1968 char **arg2 = (char **) 0 ;
1969
1970 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_char_v_set self char_v ",0,0) == TCL_ERROR) SWIG_fail;
1971 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1972 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_char,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1973 if (arg1) (arg1)->char_v = arg2;
1974
1975
1976 return TCL_OK;
1977 fail:
1978 return TCL_ERROR;
1979 }
1980
1981
1982 static int
1983 _wrap_tinaVarptrptr_char_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
1984 Varptrptr *arg1 = (Varptrptr *) 0 ;
1985 char **result;
1986
1987 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_char_v_get self ",0) == TCL_ERROR) SWIG_fail;
1988 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
1989 result = (char **) ((arg1)->char_v);
1990
1991 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_char,0));
1992 return TCL_OK;
1993 fail:
1994 return TCL_ERROR;
1995 }
1996
1997
1998 static int
1999 _wrap_tinaVarptrptr_uchar_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2000 Varptrptr *arg1 = (Varptrptr *) 0 ;
2001 unsigned char **arg2 = (unsigned char **) 0 ;
2002
2003 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_uchar_v_set self uchar_v ",0,0) == TCL_ERROR) SWIG_fail;
2004 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2005 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_unsigned_char,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2006 if (arg1) (arg1)->uchar_v = arg2;
2007
2008
2009 return TCL_OK;
2010 fail:
2011 return TCL_ERROR;
2012 }
2013
2014
2015 static int
2016 _wrap_tinaVarptrptr_uchar_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2017 Varptrptr *arg1 = (Varptrptr *) 0 ;
2018 unsigned char **result;
2019
2020 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_uchar_v_get self ",0) == TCL_ERROR) SWIG_fail;
2021 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2022 result = (unsigned char **) ((arg1)->uchar_v);
2023
2024 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_unsigned_char,0));
2025 return TCL_OK;
2026 fail:
2027 return TCL_ERROR;
2028 }
2029
2030
2031 static int
2032 _wrap_tinaVarptrptr_short_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2033 Varptrptr *arg1 = (Varptrptr *) 0 ;
2034 short **arg2 = (short **) 0 ;
2035
2036 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_short_v_set self short_v ",0,0) == TCL_ERROR) SWIG_fail;
2037 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2038 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_short,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2039 if (arg1) (arg1)->short_v = arg2;
2040
2041
2042 return TCL_OK;
2043 fail:
2044 return TCL_ERROR;
2045 }
2046
2047
2048 static int
2049 _wrap_tinaVarptrptr_short_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2050 Varptrptr *arg1 = (Varptrptr *) 0 ;
2051 short **result;
2052
2053 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_short_v_get self ",0) == TCL_ERROR) SWIG_fail;
2054 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2055 result = (short **) ((arg1)->short_v);
2056
2057 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_short,0));
2058 return TCL_OK;
2059 fail:
2060 return TCL_ERROR;
2061 }
2062
2063
2064 static int
2065 _wrap_tinaVarptrptr_ushort_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2066 Varptrptr *arg1 = (Varptrptr *) 0 ;
2067 unsigned short **arg2 = (unsigned short **) 0 ;
2068
2069 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_ushort_v_set self ushort_v ",0,0) == TCL_ERROR) SWIG_fail;
2070 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2071 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_unsigned_short,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2072 if (arg1) (arg1)->ushort_v = arg2;
2073
2074
2075 return TCL_OK;
2076 fail:
2077 return TCL_ERROR;
2078 }
2079
2080
2081 static int
2082 _wrap_tinaVarptrptr_ushort_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2083 Varptrptr *arg1 = (Varptrptr *) 0 ;
2084 unsigned short **result;
2085
2086 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_ushort_v_get self ",0) == TCL_ERROR) SWIG_fail;
2087 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2088 result = (unsigned short **) ((arg1)->ushort_v);
2089
2090 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_unsigned_short,0));
2091 return TCL_OK;
2092 fail:
2093 return TCL_ERROR;
2094 }
2095
2096
2097 static int
2098 _wrap_tinaVarptrptr_int_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2099 Varptrptr *arg1 = (Varptrptr *) 0 ;
2100 int **arg2 = (int **) 0 ;
2101
2102 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_int_v_set self int_v ",0,0) == TCL_ERROR) SWIG_fail;
2103 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2104 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_int,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2105 if (arg1) (arg1)->int_v = arg2;
2106
2107
2108 return TCL_OK;
2109 fail:
2110 return TCL_ERROR;
2111 }
2112
2113
2114 static int
2115 _wrap_tinaVarptrptr_int_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2116 Varptrptr *arg1 = (Varptrptr *) 0 ;
2117 int **result;
2118
2119 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_int_v_get self ",0) == TCL_ERROR) SWIG_fail;
2120 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2121 result = (int **) ((arg1)->int_v);
2122
2123 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_int,0));
2124 return TCL_OK;
2125 fail:
2126 return TCL_ERROR;
2127 }
2128
2129
2130 static int
2131 _wrap_tinaVarptrptr_uint_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2132 Varptrptr *arg1 = (Varptrptr *) 0 ;
2133 unsigned int **arg2 = (unsigned int **) 0 ;
2134
2135 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_uint_v_set self uint_v ",0,0) == TCL_ERROR) SWIG_fail;
2136 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2137 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_unsigned_int,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2138 if (arg1) (arg1)->uint_v = arg2;
2139
2140
2141 return TCL_OK;
2142 fail:
2143 return TCL_ERROR;
2144 }
2145
2146
2147 static int
2148 _wrap_tinaVarptrptr_uint_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2149 Varptrptr *arg1 = (Varptrptr *) 0 ;
2150 unsigned int **result;
2151
2152 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_uint_v_get self ",0) == TCL_ERROR) SWIG_fail;
2153 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2154 result = (unsigned int **) ((arg1)->uint_v);
2155
2156 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_unsigned_int,0));
2157 return TCL_OK;
2158 fail:
2159 return TCL_ERROR;
2160 }
2161
2162
2163 static int
2164 _wrap_tinaVarptrptr_float_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2165 Varptrptr *arg1 = (Varptrptr *) 0 ;
2166 float **arg2 = (float **) 0 ;
2167
2168 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_float_v_set self float_v ",0,0) == TCL_ERROR) SWIG_fail;
2169 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2170 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_float,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2171 if (arg1) (arg1)->float_v = arg2;
2172
2173
2174 return TCL_OK;
2175 fail:
2176 return TCL_ERROR;
2177 }
2178
2179
2180 static int
2181 _wrap_tinaVarptrptr_float_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2182 Varptrptr *arg1 = (Varptrptr *) 0 ;
2183 float **result;
2184
2185 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_float_v_get self ",0) == TCL_ERROR) SWIG_fail;
2186 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2187 result = (float **) ((arg1)->float_v);
2188
2189 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_float,0));
2190 return TCL_OK;
2191 fail:
2192 return TCL_ERROR;
2193 }
2194
2195
2196 static int
2197 _wrap_tinaVarptrptr_double_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2198 Varptrptr *arg1 = (Varptrptr *) 0 ;
2199 double **arg2 = (double **) 0 ;
2200
2201 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_double_v_set self double_v ",0,0) == TCL_ERROR) SWIG_fail;
2202 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2203 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_double,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2204 if (arg1) (arg1)->double_v = arg2;
2205
2206
2207 return TCL_OK;
2208 fail:
2209 return TCL_ERROR;
2210 }
2211
2212
2213 static int
2214 _wrap_tinaVarptrptr_double_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2215 Varptrptr *arg1 = (Varptrptr *) 0 ;
2216 double **result;
2217
2218 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_double_v_get self ",0) == TCL_ERROR) SWIG_fail;
2219 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2220 result = (double **) ((arg1)->double_v);
2221
2222 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_double,0));
2223 return TCL_OK;
2224 fail:
2225 return TCL_ERROR;
2226 }
2227
2228
2229 static int
2230 _wrap_tinaVarptrptr_complex_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2231 Varptrptr *arg1 = (Varptrptr *) 0 ;
2232 struct tcomplex **arg2 = (struct tcomplex **) 0 ;
2233
2234 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_complex_v_set self complex_v ",0,0) == TCL_ERROR) SWIG_fail;
2235 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2236 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_tcomplex,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2237 if (arg1) (arg1)->complex_v = arg2;
2238
2239
2240 return TCL_OK;
2241 fail:
2242 return TCL_ERROR;
2243 }
2244
2245
2246 static int
2247 _wrap_tinaVarptrptr_complex_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2248 Varptrptr *arg1 = (Varptrptr *) 0 ;
2249 struct tcomplex **result;
2250
2251 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_complex_v_get self ",0) == TCL_ERROR) SWIG_fail;
2252 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2253 result = (struct tcomplex **) ((arg1)->complex_v);
2254
2255 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_tcomplex,0));
2256 return TCL_OK;
2257 fail:
2258 return TCL_ERROR;
2259 }
2260
2261
2262 static int
2263 _wrap_tinaVarptrptr_ptr_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2264 Varptrptr *arg1 = (Varptrptr *) 0 ;
2265 void ***arg2 = (void ***) 0 ;
2266
2267 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_ptr_v_set self ptr_v ",0,0) == TCL_ERROR) SWIG_fail;
2268 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2269 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_p_void,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2270 if (arg1) (arg1)->ptr_v = arg2;
2271
2272
2273 return TCL_OK;
2274 fail:
2275 return TCL_ERROR;
2276 }
2277
2278
2279 static int
2280 _wrap_tinaVarptrptr_ptr_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2281 Varptrptr *arg1 = (Varptrptr *) 0 ;
2282 void ***result;
2283
2284 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_ptr_v_get self ",0) == TCL_ERROR) SWIG_fail;
2285 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2286 result = (void ***) ((arg1)->ptr_v);
2287
2288 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_p_void,0));
2289 return TCL_OK;
2290 fail:
2291 return TCL_ERROR;
2292 }
2293
2294
2295 static int
2296 _wrap_tinaVarptrptr_vram_v_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2297 Varptrptr *arg1 = (Varptrptr *) 0 ;
2298 struct vram **arg2 = (struct vram **) 0 ;
2299
2300 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaVarptrptr_vram_v_set self vram_v ",0,0) == TCL_ERROR) SWIG_fail;
2301 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2302 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_p_vram,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2303 if (arg1) (arg1)->vram_v = arg2;
2304
2305
2306 return TCL_OK;
2307 fail:
2308 return TCL_ERROR;
2309 }
2310
2311
2312 static int
2313 _wrap_tinaVarptrptr_vram_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2314 Varptrptr *arg1 = (Varptrptr *) 0 ;
2315 struct vram **result;
2316
2317 if (SWIG_GetArgs(interp, objc, objv,"o:tinaVarptrptr_vram_v_get self ",0) == TCL_ERROR) SWIG_fail;
2318 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2319 result = (struct vram **) ((arg1)->vram_v);
2320
2321 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_p_vram,0));
2322 return TCL_OK;
2323 fail:
2324 return TCL_ERROR;
2325 }
2326
2327
2328 static int
2329 _wrap_new_tinaVarptrptr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2330 Varptrptr *result;
2331
2332 if (SWIG_GetArgs(interp, objc, objv,":new_tinaVarptrptr ") == TCL_ERROR) SWIG_fail;
2333 result = (Varptrptr *)(Varptrptr *) calloc(1, sizeof(Varptrptr));
2334
2335 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Varptrptr,0));
2336 return TCL_OK;
2337 fail:
2338 return TCL_ERROR;
2339 }
2340
2341
2342 static int
2343 _wrap_delete_tinaVarptrptr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2344 Varptrptr *arg1 = (Varptrptr *) 0 ;
2345
2346 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaVarptrptr self ",0) == TCL_ERROR) SWIG_fail;
2347 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Varptrptr,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2348 free((char *) arg1);
2349
2350
2351 return TCL_OK;
2352 fail:
2353 return TCL_ERROR;
2354 }
2355
2356
2357 static void swig_delete_tinaVarptrptr(void *obj) {
2358 Varptrptr *arg1 = (Varptrptr *) obj;
2359 free((char *) arg1);
2360 }
2361 static swig_method swig_Varptrptr_methods[] = {
2362 {0,0}
2363 };
2364 static swig_attribute swig_Varptrptr_attributes[] = {
2365 { "-char_v",_wrap_tinaVarptrptr_char_v_get, _wrap_tinaVarptrptr_char_v_set},
2366 { "-uchar_v",_wrap_tinaVarptrptr_uchar_v_get, _wrap_tinaVarptrptr_uchar_v_set},
2367 { "-short_v",_wrap_tinaVarptrptr_short_v_get, _wrap_tinaVarptrptr_short_v_set},
2368 { "-ushort_v",_wrap_tinaVarptrptr_ushort_v_get, _wrap_tinaVarptrptr_ushort_v_set},
2369 { "-int_v",_wrap_tinaVarptrptr_int_v_get, _wrap_tinaVarptrptr_int_v_set},
2370 { "-uint_v",_wrap_tinaVarptrptr_uint_v_get, _wrap_tinaVarptrptr_uint_v_set},
2371 { "-float_v",_wrap_tinaVarptrptr_float_v_get, _wrap_tinaVarptrptr_float_v_set},
2372 { "-double_v",_wrap_tinaVarptrptr_double_v_get, _wrap_tinaVarptrptr_double_v_set},
2373 { "-complex_v",_wrap_tinaVarptrptr_complex_v_get, _wrap_tinaVarptrptr_complex_v_set},
2374 { "-ptr_v",_wrap_tinaVarptrptr_ptr_v_get, _wrap_tinaVarptrptr_ptr_v_set},
2375 { "-vram_v",_wrap_tinaVarptrptr_vram_v_get, _wrap_tinaVarptrptr_vram_v_set},
2376 {0,0,0}
2377 };
2378 static swig_class *swig_Varptrptr_bases[] = {0};
2379 swig_class _wrap_class_Varptrptr = { "tinaVarptrptr", &SWIGTYPE_p_Varptrptr,_wrap_new_tinaVarptrptr, swig_delete_tinaVarptrptr, swig_Varptrptr_methods, swig_Varptrptr_attributes, swig_Varptrptr_bases };
2380 static int
2381 _wrap_tinaGraphNode_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2382 Graph_node *arg1 = (Graph_node *) 0 ;
2383 int arg2 ;
2384
2385 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaGraphNode_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
2386 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2387 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
2388
2389
2390 return TCL_OK;
2391 fail:
2392 return TCL_ERROR;
2393 }
2394
2395
2396 static int
2397 _wrap_tinaGraphNode_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2398 Graph_node *arg1 = (Graph_node *) 0 ;
2399 int result;
2400
2401 if (SWIG_GetArgs(interp, objc, objv,"o:tinaGraphNode_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
2402 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2403 result = (int) ((arg1)->ts_id);
2404
2405 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
2406 return TCL_OK;
2407 fail:
2408 return TCL_ERROR;
2409 }
2410
2411
2412 static int
2413 _wrap_tinaGraphNode_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2414 Graph_node *arg1 = (Graph_node *) 0 ;
2415 int arg2 ;
2416
2417 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaGraphNode_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
2418 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2419 if (arg1) (arg1)->type = arg2;
2420
2421
2422 return TCL_OK;
2423 fail:
2424 return TCL_ERROR;
2425 }
2426
2427
2428 static int
2429 _wrap_tinaGraphNode_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2430 Graph_node *arg1 = (Graph_node *) 0 ;
2431 int result;
2432
2433 if (SWIG_GetArgs(interp, objc, objv,"o:tinaGraphNode_type_get self ",0) == TCL_ERROR) SWIG_fail;
2434 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2435 result = (int) ((arg1)->type);
2436
2437 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
2438 return TCL_OK;
2439 fail:
2440 return TCL_ERROR;
2441 }
2442
2443
2444 static int
2445 _wrap_tinaGraphNode_status_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2446 Graph_node *arg1 = (Graph_node *) 0 ;
2447 int arg2 ;
2448
2449 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaGraphNode_status_set self status ",0,&arg2) == TCL_ERROR) SWIG_fail;
2450 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2451 if (arg1) (arg1)->status = arg2;
2452
2453
2454 return TCL_OK;
2455 fail:
2456 return TCL_ERROR;
2457 }
2458
2459
2460 static int
2461 _wrap_tinaGraphNode_status_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2462 Graph_node *arg1 = (Graph_node *) 0 ;
2463 int result;
2464
2465 if (SWIG_GetArgs(interp, objc, objv,"o:tinaGraphNode_status_get self ",0) == TCL_ERROR) SWIG_fail;
2466 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2467 result = (int) ((arg1)->status);
2468
2469 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
2470 return TCL_OK;
2471 fail:
2472 return TCL_ERROR;
2473 }
2474
2475
2476 static int
2477 _wrap_tinaGraphNode_bounded_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2478 Graph_node *arg1 = (Graph_node *) 0 ;
2479 Bool arg2 ;
2480
2481 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaGraphNode_bounded_set self bounded ",0,&arg2) == TCL_ERROR) SWIG_fail;
2482 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2483 if (arg1) (arg1)->bounded = arg2;
2484
2485
2486 return TCL_OK;
2487 fail:
2488 return TCL_ERROR;
2489 }
2490
2491
2492 static int
2493 _wrap_tinaGraphNode_bounded_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2494 Graph_node *arg1 = (Graph_node *) 0 ;
2495 Bool result;
2496
2497 if (SWIG_GetArgs(interp, objc, objv,"o:tinaGraphNode_bounded_get self ",0) == TCL_ERROR) SWIG_fail;
2498 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2499 result = (Bool) ((arg1)->bounded);
2500
2501 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
2502 return TCL_OK;
2503 fail:
2504 return TCL_ERROR;
2505 }
2506
2507
2508 static int
2509 _wrap_tinaGraphNode_bound_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2510 Graph_node *arg1 = (Graph_node *) 0 ;
2511 float arg2 ;
2512
2513 if (SWIG_GetArgs(interp, objc, objv,"of:tinaGraphNode_bound_set self bound ",0,&arg2) == TCL_ERROR) SWIG_fail;
2514 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2515 if (arg1) (arg1)->bound = arg2;
2516
2517
2518 return TCL_OK;
2519 fail:
2520 return TCL_ERROR;
2521 }
2522
2523
2524 static int
2525 _wrap_tinaGraphNode_bound_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2526 Graph_node *arg1 = (Graph_node *) 0 ;
2527 float result;
2528
2529 if (SWIG_GetArgs(interp, objc, objv,"o:tinaGraphNode_bound_get self ",0) == TCL_ERROR) SWIG_fail;
2530 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2531 result = (float) ((arg1)->bound);
2532
2533 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
2534 return TCL_OK;
2535 fail:
2536 return TCL_ERROR;
2537 }
2538
2539
2540 static int
2541 _wrap_tinaGraphNode_value_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2542 Graph_node *arg1 = (Graph_node *) 0 ;
2543 float arg2 ;
2544
2545 if (SWIG_GetArgs(interp, objc, objv,"of:tinaGraphNode_value_set self value ",0,&arg2) == TCL_ERROR) SWIG_fail;
2546 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2547 if (arg1) (arg1)->value = arg2;
2548
2549
2550 return TCL_OK;
2551 fail:
2552 return TCL_ERROR;
2553 }
2554
2555
2556 static int
2557 _wrap_tinaGraphNode_value_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2558 Graph_node *arg1 = (Graph_node *) 0 ;
2559 float result;
2560
2561 if (SWIG_GetArgs(interp, objc, objv,"o:tinaGraphNode_value_get self ",0) == TCL_ERROR) SWIG_fail;
2562 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2563 result = (float) ((arg1)->value);
2564
2565 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
2566 return TCL_OK;
2567 fail:
2568 return TCL_ERROR;
2569 }
2570
2571
2572 static int
2573 _wrap_tinaGraphNode_to_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2574 Graph_node *arg1 = (Graph_node *) 0 ;
2575 void *arg2 = (void *) 0 ;
2576
2577 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaGraphNode_to_set self to ",0,0) == TCL_ERROR) SWIG_fail;
2578 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2579 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, 0,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
2580 if (arg1) (arg1)->to = arg2;
2581
2582
2583 return TCL_OK;
2584 fail:
2585 return TCL_ERROR;
2586 }
2587
2588
2589 static int
2590 _wrap_tinaGraphNode_to_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2591 Graph_node *arg1 = (Graph_node *) 0 ;
2592 void *result;
2593
2594 if (SWIG_GetArgs(interp, objc, objv,"o:tinaGraphNode_to_get self ",0) == TCL_ERROR) SWIG_fail;
2595 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2596 result = (void *) ((arg1)->to);
2597
2598 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_void,0));
2599 return TCL_OK;
2600 fail:
2601 return TCL_ERROR;
2602 }
2603
2604
2605 static int
2606 _wrap_tinaGraphNode_cons_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2607 Graph_node *arg1 = (Graph_node *) 0 ;
2608 List *arg2 = (List *) 0 ;
2609
2610 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaGraphNode_cons_set self cons ",0,0) == TCL_ERROR) SWIG_fail;
2611 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2612 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
2613 if (arg1) (arg1)->cons = arg2;
2614
2615
2616 return TCL_OK;
2617 fail:
2618 return TCL_ERROR;
2619 }
2620
2621
2622 static int
2623 _wrap_tinaGraphNode_cons_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2624 Graph_node *arg1 = (Graph_node *) 0 ;
2625 List *result;
2626
2627 if (SWIG_GetArgs(interp, objc, objv,"o:tinaGraphNode_cons_get self ",0) == TCL_ERROR) SWIG_fail;
2628 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2629 result = (List *) ((arg1)->cons);
2630
2631 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_List,0));
2632 return TCL_OK;
2633 fail:
2634 return TCL_ERROR;
2635 }
2636
2637
2638 static int
2639 _wrap_new_tinaGraphNode(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2640 Graph_node *result;
2641
2642 if (SWIG_GetArgs(interp, objc, objv,":new_tinaGraphNode ") == TCL_ERROR) SWIG_fail;
2643 result = (Graph_node *)(Graph_node *) calloc(1, sizeof(Graph_node));
2644
2645 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Graph_node,0));
2646 return TCL_OK;
2647 fail:
2648 return TCL_ERROR;
2649 }
2650
2651
2652 static int
2653 _wrap_delete_tinaGraphNode(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2654 Graph_node *arg1 = (Graph_node *) 0 ;
2655
2656 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaGraphNode self ",0) == TCL_ERROR) SWIG_fail;
2657 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2658 free((char *) arg1);
2659
2660
2661 return TCL_OK;
2662 fail:
2663 return TCL_ERROR;
2664 }
2665
2666
2667 static void swig_delete_tinaGraphNode(void *obj) {
2668 Graph_node *arg1 = (Graph_node *) obj;
2669 free((char *) arg1);
2670 }
2671 static swig_method swig_Graph_node_methods[] = {
2672 {0,0}
2673 };
2674 static swig_attribute swig_Graph_node_attributes[] = {
2675 { "-tinaTsId",_wrap_tinaGraphNode_tinaTsId_get, _wrap_tinaGraphNode_tinaTsId_set},
2676 { "-type",_wrap_tinaGraphNode_type_get, _wrap_tinaGraphNode_type_set},
2677 { "-status",_wrap_tinaGraphNode_status_get, _wrap_tinaGraphNode_status_set},
2678 { "-bounded",_wrap_tinaGraphNode_bounded_get, _wrap_tinaGraphNode_bounded_set},
2679 { "-bound",_wrap_tinaGraphNode_bound_get, _wrap_tinaGraphNode_bound_set},
2680 { "-value",_wrap_tinaGraphNode_value_get, _wrap_tinaGraphNode_value_set},
2681 { "-to",_wrap_tinaGraphNode_to_get, _wrap_tinaGraphNode_to_set},
2682 { "-cons",_wrap_tinaGraphNode_cons_get, _wrap_tinaGraphNode_cons_set},
2683 {0,0,0}
2684 };
2685 static swig_class *swig_Graph_node_bases[] = {0};
2686 swig_class _wrap_class_Graph_node = { "tinaGraphNode", &SWIGTYPE_p_Graph_node,_wrap_new_tinaGraphNode, swig_delete_tinaGraphNode, swig_Graph_node_methods, swig_Graph_node_attributes, swig_Graph_node_bases };
2687 static int
2688 _wrap_tinaTreeNode_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2689 Tree_node *arg1 = (Tree_node *) 0 ;
2690 int arg2 ;
2691
2692 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaTreeNode_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
2693 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2694 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
2695
2696
2697 return TCL_OK;
2698 fail:
2699 return TCL_ERROR;
2700 }
2701
2702
2703 static int
2704 _wrap_tinaTreeNode_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2705 Tree_node *arg1 = (Tree_node *) 0 ;
2706 int result;
2707
2708 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTreeNode_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
2709 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2710 result = (int) ((arg1)->ts_id);
2711
2712 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
2713 return TCL_OK;
2714 fail:
2715 return TCL_ERROR;
2716 }
2717
2718
2719 static int
2720 _wrap_tinaTreeNode_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2721 Tree_node *arg1 = (Tree_node *) 0 ;
2722 int arg2 ;
2723
2724 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaTreeNode_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
2725 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2726 if (arg1) (arg1)->type = arg2;
2727
2728
2729 return TCL_OK;
2730 fail:
2731 return TCL_ERROR;
2732 }
2733
2734
2735 static int
2736 _wrap_tinaTreeNode_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2737 Tree_node *arg1 = (Tree_node *) 0 ;
2738 int result;
2739
2740 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTreeNode_type_get self ",0) == TCL_ERROR) SWIG_fail;
2741 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2742 result = (int) ((arg1)->type);
2743
2744 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
2745 return TCL_OK;
2746 fail:
2747 return TCL_ERROR;
2748 }
2749
2750
2751 static int
2752 _wrap_tinaTreeNode_status_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2753 Tree_node *arg1 = (Tree_node *) 0 ;
2754 int arg2 ;
2755
2756 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaTreeNode_status_set self status ",0,&arg2) == TCL_ERROR) SWIG_fail;
2757 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2758 if (arg1) (arg1)->status = arg2;
2759
2760
2761 return TCL_OK;
2762 fail:
2763 return TCL_ERROR;
2764 }
2765
2766
2767 static int
2768 _wrap_tinaTreeNode_status_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2769 Tree_node *arg1 = (Tree_node *) 0 ;
2770 int result;
2771
2772 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTreeNode_status_get self ",0) == TCL_ERROR) SWIG_fail;
2773 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2774 result = (int) ((arg1)->status);
2775
2776 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
2777 return TCL_OK;
2778 fail:
2779 return TCL_ERROR;
2780 }
2781
2782
2783 static int
2784 _wrap_tinaTreeNode_bounded_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2785 Tree_node *arg1 = (Tree_node *) 0 ;
2786 Bool arg2 ;
2787
2788 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaTreeNode_bounded_set self bounded ",0,&arg2) == TCL_ERROR) SWIG_fail;
2789 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2790 if (arg1) (arg1)->bounded = arg2;
2791
2792
2793 return TCL_OK;
2794 fail:
2795 return TCL_ERROR;
2796 }
2797
2798
2799 static int
2800 _wrap_tinaTreeNode_bounded_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2801 Tree_node *arg1 = (Tree_node *) 0 ;
2802 Bool result;
2803
2804 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTreeNode_bounded_get self ",0) == TCL_ERROR) SWIG_fail;
2805 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2806 result = (Bool) ((arg1)->bounded);
2807
2808 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
2809 return TCL_OK;
2810 fail:
2811 return TCL_ERROR;
2812 }
2813
2814
2815 static int
2816 _wrap_tinaTreeNode_bound_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2817 Tree_node *arg1 = (Tree_node *) 0 ;
2818 float arg2 ;
2819
2820 if (SWIG_GetArgs(interp, objc, objv,"of:tinaTreeNode_bound_set self bound ",0,&arg2) == TCL_ERROR) SWIG_fail;
2821 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2822 if (arg1) (arg1)->bound = arg2;
2823
2824
2825 return TCL_OK;
2826 fail:
2827 return TCL_ERROR;
2828 }
2829
2830
2831 static int
2832 _wrap_tinaTreeNode_bound_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2833 Tree_node *arg1 = (Tree_node *) 0 ;
2834 float result;
2835
2836 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTreeNode_bound_get self ",0) == TCL_ERROR) SWIG_fail;
2837 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2838 result = (float) ((arg1)->bound);
2839
2840 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
2841 return TCL_OK;
2842 fail:
2843 return TCL_ERROR;
2844 }
2845
2846
2847 static int
2848 _wrap_tinaTreeNode_value_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2849 Tree_node *arg1 = (Tree_node *) 0 ;
2850 float arg2 ;
2851
2852 if (SWIG_GetArgs(interp, objc, objv,"of:tinaTreeNode_value_set self value ",0,&arg2) == TCL_ERROR) SWIG_fail;
2853 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2854 if (arg1) (arg1)->value = arg2;
2855
2856
2857 return TCL_OK;
2858 fail:
2859 return TCL_ERROR;
2860 }
2861
2862
2863 static int
2864 _wrap_tinaTreeNode_value_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2865 Tree_node *arg1 = (Tree_node *) 0 ;
2866 float result;
2867
2868 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTreeNode_value_get self ",0) == TCL_ERROR) SWIG_fail;
2869 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2870 result = (float) ((arg1)->value);
2871
2872 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
2873 return TCL_OK;
2874 fail:
2875 return TCL_ERROR;
2876 }
2877
2878
2879 static int
2880 _wrap_tinaTreeNode_to_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2881 Tree_node *arg1 = (Tree_node *) 0 ;
2882 void *arg2 = (void *) 0 ;
2883
2884 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaTreeNode_to_set self to ",0,0) == TCL_ERROR) SWIG_fail;
2885 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2886 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, 0,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
2887 if (arg1) (arg1)->to = arg2;
2888
2889
2890 return TCL_OK;
2891 fail:
2892 return TCL_ERROR;
2893 }
2894
2895
2896 static int
2897 _wrap_tinaTreeNode_to_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2898 Tree_node *arg1 = (Tree_node *) 0 ;
2899 void *result;
2900
2901 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTreeNode_to_get self ",0) == TCL_ERROR) SWIG_fail;
2902 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2903 result = (void *) ((arg1)->to);
2904
2905 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_void,0));
2906 return TCL_OK;
2907 fail:
2908 return TCL_ERROR;
2909 }
2910
2911
2912 static int
2913 _wrap_tinaTreeNode_children_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2914 Tree_node *arg1 = (Tree_node *) 0 ;
2915 List *arg2 = (List *) 0 ;
2916
2917 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaTreeNode_children_set self children ",0,0) == TCL_ERROR) SWIG_fail;
2918 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2919 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
2920 if (arg1) (arg1)->children = arg2;
2921
2922
2923 return TCL_OK;
2924 fail:
2925 return TCL_ERROR;
2926 }
2927
2928
2929 static int
2930 _wrap_tinaTreeNode_children_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2931 Tree_node *arg1 = (Tree_node *) 0 ;
2932 List *result;
2933
2934 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTreeNode_children_get self ",0) == TCL_ERROR) SWIG_fail;
2935 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2936 result = (List *) ((arg1)->children);
2937
2938 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_List,0));
2939 return TCL_OK;
2940 fail:
2941 return TCL_ERROR;
2942 }
2943
2944
2945 static int
2946 _wrap_tinaTreeNode_parent_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2947 Tree_node *arg1 = (Tree_node *) 0 ;
2948 struct tree_node *arg2 = (struct tree_node *) 0 ;
2949
2950 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaTreeNode_parent_set self parent ",0,0) == TCL_ERROR) SWIG_fail;
2951 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2952 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_tree_node,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
2953 if (arg1) (arg1)->parent = arg2;
2954
2955
2956 return TCL_OK;
2957 fail:
2958 return TCL_ERROR;
2959 }
2960
2961
2962 static int
2963 _wrap_tinaTreeNode_parent_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2964 Tree_node *arg1 = (Tree_node *) 0 ;
2965 struct tree_node *result;
2966
2967 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTreeNode_parent_get self ",0) == TCL_ERROR) SWIG_fail;
2968 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2969 result = (struct tree_node *) ((arg1)->parent);
2970
2971 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_tree_node,0));
2972 return TCL_OK;
2973 fail:
2974 return TCL_ERROR;
2975 }
2976
2977
2978 static int
2979 _wrap_new_tinaTreeNode(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2980 Tree_node *result;
2981
2982 if (SWIG_GetArgs(interp, objc, objv,":new_tinaTreeNode ") == TCL_ERROR) SWIG_fail;
2983 result = (Tree_node *)(Tree_node *) calloc(1, sizeof(Tree_node));
2984
2985 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Tree_node,0));
2986 return TCL_OK;
2987 fail:
2988 return TCL_ERROR;
2989 }
2990
2991
2992 static int
2993 _wrap_delete_tinaTreeNode(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
2994 Tree_node *arg1 = (Tree_node *) 0 ;
2995
2996 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaTreeNode self ",0) == TCL_ERROR) SWIG_fail;
2997 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tree_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
2998 free((char *) arg1);
2999
3000
3001 return TCL_OK;
3002 fail:
3003 return TCL_ERROR;
3004 }
3005
3006
3007 static void swig_delete_tinaTreeNode(void *obj) {
3008 Tree_node *arg1 = (Tree_node *) obj;
3009 free((char *) arg1);
3010 }
3011 static swig_method swig_Tree_node_methods[] = {
3012 {0,0}
3013 };
3014 static swig_attribute swig_Tree_node_attributes[] = {
3015 { "-tinaTsId",_wrap_tinaTreeNode_tinaTsId_get, _wrap_tinaTreeNode_tinaTsId_set},
3016 { "-type",_wrap_tinaTreeNode_type_get, _wrap_tinaTreeNode_type_set},
3017 { "-status",_wrap_tinaTreeNode_status_get, _wrap_tinaTreeNode_status_set},
3018 { "-bounded",_wrap_tinaTreeNode_bounded_get, _wrap_tinaTreeNode_bounded_set},
3019 { "-bound",_wrap_tinaTreeNode_bound_get, _wrap_tinaTreeNode_bound_set},
3020 { "-value",_wrap_tinaTreeNode_value_get, _wrap_tinaTreeNode_value_set},
3021 { "-to",_wrap_tinaTreeNode_to_get, _wrap_tinaTreeNode_to_set},
3022 { "-children",_wrap_tinaTreeNode_children_get, _wrap_tinaTreeNode_children_set},
3023 { "-parent",_wrap_tinaTreeNode_parent_get, _wrap_tinaTreeNode_parent_set},
3024 {0,0,0}
3025 };
3026 static swig_class *swig_Tree_node_bases[] = {0};
3027 swig_class _wrap_class_Tree_node = { "tinaTreeNode", &SWIGTYPE_p_Tree_node,_wrap_new_tinaTreeNode, swig_delete_tinaTreeNode, swig_Tree_node_methods, swig_Tree_node_attributes, swig_Tree_node_bases };
3028 static int
3029 _wrap_tinaViolsNode_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3030 Viols_node *arg1 = (Viols_node *) 0 ;
3031 int arg2 ;
3032
3033 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaViolsNode_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
3034 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3035 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
3036
3037
3038 return TCL_OK;
3039 fail:
3040 return TCL_ERROR;
3041 }
3042
3043
3044 static int
3045 _wrap_tinaViolsNode_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3046 Viols_node *arg1 = (Viols_node *) 0 ;
3047 int result;
3048
3049 if (SWIG_GetArgs(interp, objc, objv,"o:tinaViolsNode_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
3050 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3051 result = (int) ((arg1)->ts_id);
3052
3053 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
3054 return TCL_OK;
3055 fail:
3056 return TCL_ERROR;
3057 }
3058
3059
3060 static int
3061 _wrap_tinaViolsNode_status_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3062 Viols_node *arg1 = (Viols_node *) 0 ;
3063 int arg2 ;
3064
3065 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaViolsNode_status_set self status ",0,&arg2) == TCL_ERROR) SWIG_fail;
3066 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3067 if (arg1) (arg1)->status = arg2;
3068
3069
3070 return TCL_OK;
3071 fail:
3072 return TCL_ERROR;
3073 }
3074
3075
3076 static int
3077 _wrap_tinaViolsNode_status_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3078 Viols_node *arg1 = (Viols_node *) 0 ;
3079 int result;
3080
3081 if (SWIG_GetArgs(interp, objc, objv,"o:tinaViolsNode_status_get self ",0) == TCL_ERROR) SWIG_fail;
3082 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3083 result = (int) ((arg1)->status);
3084
3085 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
3086 return TCL_OK;
3087 fail:
3088 return TCL_ERROR;
3089 }
3090
3091
3092 static int
3093 _wrap_tinaViolsNode_label_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3094 Viols_node *arg1 = (Viols_node *) 0 ;
3095 int arg2 ;
3096
3097 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaViolsNode_label_set self label ",0,&arg2) == TCL_ERROR) SWIG_fail;
3098 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3099 if (arg1) (arg1)->label = arg2;
3100
3101
3102 return TCL_OK;
3103 fail:
3104 return TCL_ERROR;
3105 }
3106
3107
3108 static int
3109 _wrap_tinaViolsNode_label_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3110 Viols_node *arg1 = (Viols_node *) 0 ;
3111 int result;
3112
3113 if (SWIG_GetArgs(interp, objc, objv,"o:tinaViolsNode_label_get self ",0) == TCL_ERROR) SWIG_fail;
3114 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3115 result = (int) ((arg1)->label);
3116
3117 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
3118 return TCL_OK;
3119 fail:
3120 return TCL_ERROR;
3121 }
3122
3123
3124 static int
3125 _wrap_tinaViolsNode_gn_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3126 Viols_node *arg1 = (Viols_node *) 0 ;
3127 Graph_node *arg2 = (Graph_node *) 0 ;
3128
3129 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaViolsNode_gn_set self gn ",0,0) == TCL_ERROR) SWIG_fail;
3130 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3131 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_Graph_node,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
3132 if (arg1) (arg1)->gn = arg2;
3133
3134
3135 return TCL_OK;
3136 fail:
3137 return TCL_ERROR;
3138 }
3139
3140
3141 static int
3142 _wrap_tinaViolsNode_gn_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3143 Viols_node *arg1 = (Viols_node *) 0 ;
3144 Graph_node *result;
3145
3146 if (SWIG_GetArgs(interp, objc, objv,"o:tinaViolsNode_gn_get self ",0) == TCL_ERROR) SWIG_fail;
3147 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3148 result = (Graph_node *) ((arg1)->gn);
3149
3150 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Graph_node,0));
3151 return TCL_OK;
3152 fail:
3153 return TCL_ERROR;
3154 }
3155
3156
3157 static int
3158 _wrap_tinaViolsNode_viols_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3159 Viols_node *arg1 = (Viols_node *) 0 ;
3160 List *arg2 = (List *) 0 ;
3161
3162 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaViolsNode_viols_set self viols ",0,0) == TCL_ERROR) SWIG_fail;
3163 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3164 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
3165 if (arg1) (arg1)->viols = arg2;
3166
3167
3168 return TCL_OK;
3169 fail:
3170 return TCL_ERROR;
3171 }
3172
3173
3174 static int
3175 _wrap_tinaViolsNode_viols_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3176 Viols_node *arg1 = (Viols_node *) 0 ;
3177 List *result;
3178
3179 if (SWIG_GetArgs(interp, objc, objv,"o:tinaViolsNode_viols_get self ",0) == TCL_ERROR) SWIG_fail;
3180 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3181 result = (List *) ((arg1)->viols);
3182
3183 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_List,0));
3184 return TCL_OK;
3185 fail:
3186 return TCL_ERROR;
3187 }
3188
3189
3190 static int
3191 _wrap_new_tinaViolsNode(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3192 Viols_node *result;
3193
3194 if (SWIG_GetArgs(interp, objc, objv,":new_tinaViolsNode ") == TCL_ERROR) SWIG_fail;
3195 result = (Viols_node *)(Viols_node *) calloc(1, sizeof(Viols_node));
3196
3197 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Viols_node,0));
3198 return TCL_OK;
3199 fail:
3200 return TCL_ERROR;
3201 }
3202
3203
3204 static int
3205 _wrap_delete_tinaViolsNode(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3206 Viols_node *arg1 = (Viols_node *) 0 ;
3207
3208 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaViolsNode self ",0) == TCL_ERROR) SWIG_fail;
3209 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Viols_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3210 free((char *) arg1);
3211
3212
3213 return TCL_OK;
3214 fail:
3215 return TCL_ERROR;
3216 }
3217
3218
3219 static void swig_delete_tinaViolsNode(void *obj) {
3220 Viols_node *arg1 = (Viols_node *) obj;
3221 free((char *) arg1);
3222 }
3223 static swig_method swig_Viols_node_methods[] = {
3224 {0,0}
3225 };
3226 static swig_attribute swig_Viols_node_attributes[] = {
3227 { "-tinaTsId",_wrap_tinaViolsNode_tinaTsId_get, _wrap_tinaViolsNode_tinaTsId_set},
3228 { "-status",_wrap_tinaViolsNode_status_get, _wrap_tinaViolsNode_status_set},
3229 { "-label",_wrap_tinaViolsNode_label_get, _wrap_tinaViolsNode_label_set},
3230 { "-gn",_wrap_tinaViolsNode_gn_get, _wrap_tinaViolsNode_gn_set},
3231 { "-viols",_wrap_tinaViolsNode_viols_get, _wrap_tinaViolsNode_viols_set},
3232 {0,0,0}
3233 };
3234 static swig_class *swig_Viols_node_bases[] = {0};
3235 swig_class _wrap_class_Viols_node = { "tinaViolsNode", &SWIGTYPE_p_Viols_node,_wrap_new_tinaViolsNode, swig_delete_tinaViolsNode, swig_Viols_node_methods, swig_Viols_node_attributes, swig_Viols_node_bases };
3236 static int
3237 _wrap_tinaBinNode_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3238 Bin_node *arg1 = (Bin_node *) 0 ;
3239 int arg2 ;
3240
3241 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaBinNode_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
3242 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3243 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
3244
3245
3246 return TCL_OK;
3247 fail:
3248 return TCL_ERROR;
3249 }
3250
3251
3252 static int
3253 _wrap_tinaBinNode_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3254 Bin_node *arg1 = (Bin_node *) 0 ;
3255 int result;
3256
3257 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBinNode_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
3258 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3259 result = (int) ((arg1)->ts_id);
3260
3261 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
3262 return TCL_OK;
3263 fail:
3264 return TCL_ERROR;
3265 }
3266
3267
3268 static int
3269 _wrap_tinaBinNode_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3270 Bin_node *arg1 = (Bin_node *) 0 ;
3271 int arg2 ;
3272
3273 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaBinNode_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
3274 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3275 if (arg1) (arg1)->type = arg2;
3276
3277
3278 return TCL_OK;
3279 fail:
3280 return TCL_ERROR;
3281 }
3282
3283
3284 static int
3285 _wrap_tinaBinNode_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3286 Bin_node *arg1 = (Bin_node *) 0 ;
3287 int result;
3288
3289 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBinNode_type_get self ",0) == TCL_ERROR) SWIG_fail;
3290 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3291 result = (int) ((arg1)->type);
3292
3293 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
3294 return TCL_OK;
3295 fail:
3296 return TCL_ERROR;
3297 }
3298
3299
3300 static int
3301 _wrap_tinaBinNode_status_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3302 Bin_node *arg1 = (Bin_node *) 0 ;
3303 int arg2 ;
3304
3305 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaBinNode_status_set self status ",0,&arg2) == TCL_ERROR) SWIG_fail;
3306 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3307 if (arg1) (arg1)->status = arg2;
3308
3309
3310 return TCL_OK;
3311 fail:
3312 return TCL_ERROR;
3313 }
3314
3315
3316 static int
3317 _wrap_tinaBinNode_status_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3318 Bin_node *arg1 = (Bin_node *) 0 ;
3319 int result;
3320
3321 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBinNode_status_get self ",0) == TCL_ERROR) SWIG_fail;
3322 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3323 result = (int) ((arg1)->status);
3324
3325 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
3326 return TCL_OK;
3327 fail:
3328 return TCL_ERROR;
3329 }
3330
3331
3332 static int
3333 _wrap_tinaBinNode_bounded_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3334 Bin_node *arg1 = (Bin_node *) 0 ;
3335 Bool arg2 ;
3336
3337 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaBinNode_bounded_set self bounded ",0,&arg2) == TCL_ERROR) SWIG_fail;
3338 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3339 if (arg1) (arg1)->bounded = arg2;
3340
3341
3342 return TCL_OK;
3343 fail:
3344 return TCL_ERROR;
3345 }
3346
3347
3348 static int
3349 _wrap_tinaBinNode_bounded_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3350 Bin_node *arg1 = (Bin_node *) 0 ;
3351 Bool result;
3352
3353 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBinNode_bounded_get self ",0) == TCL_ERROR) SWIG_fail;
3354 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3355 result = (Bool) ((arg1)->bounded);
3356
3357 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
3358 return TCL_OK;
3359 fail:
3360 return TCL_ERROR;
3361 }
3362
3363
3364 static int
3365 _wrap_tinaBinNode_bound_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3366 Bin_node *arg1 = (Bin_node *) 0 ;
3367 float arg2 ;
3368
3369 if (SWIG_GetArgs(interp, objc, objv,"of:tinaBinNode_bound_set self bound ",0,&arg2) == TCL_ERROR) SWIG_fail;
3370 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3371 if (arg1) (arg1)->bound = arg2;
3372
3373
3374 return TCL_OK;
3375 fail:
3376 return TCL_ERROR;
3377 }
3378
3379
3380 static int
3381 _wrap_tinaBinNode_bound_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3382 Bin_node *arg1 = (Bin_node *) 0 ;
3383 float result;
3384
3385 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBinNode_bound_get self ",0) == TCL_ERROR) SWIG_fail;
3386 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3387 result = (float) ((arg1)->bound);
3388
3389 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
3390 return TCL_OK;
3391 fail:
3392 return TCL_ERROR;
3393 }
3394
3395
3396 static int
3397 _wrap_tinaBinNode_value_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3398 Bin_node *arg1 = (Bin_node *) 0 ;
3399 float arg2 ;
3400
3401 if (SWIG_GetArgs(interp, objc, objv,"of:tinaBinNode_value_set self value ",0,&arg2) == TCL_ERROR) SWIG_fail;
3402 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3403 if (arg1) (arg1)->value = arg2;
3404
3405
3406 return TCL_OK;
3407 fail:
3408 return TCL_ERROR;
3409 }
3410
3411
3412 static int
3413 _wrap_tinaBinNode_value_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3414 Bin_node *arg1 = (Bin_node *) 0 ;
3415 float result;
3416
3417 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBinNode_value_get self ",0) == TCL_ERROR) SWIG_fail;
3418 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3419 result = (float) ((arg1)->value);
3420
3421 Tcl_SetObjResult(interp,Tcl_NewDoubleObj((double) result));
3422 return TCL_OK;
3423 fail:
3424 return TCL_ERROR;
3425 }
3426
3427
3428 static int
3429 _wrap_tinaBinNode_to_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3430 Bin_node *arg1 = (Bin_node *) 0 ;
3431 void *arg2 = (void *) 0 ;
3432
3433 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaBinNode_to_set self to ",0,0) == TCL_ERROR) SWIG_fail;
3434 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3435 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, 0,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
3436 if (arg1) (arg1)->to = arg2;
3437
3438
3439 return TCL_OK;
3440 fail:
3441 return TCL_ERROR;
3442 }
3443
3444
3445 static int
3446 _wrap_tinaBinNode_to_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3447 Bin_node *arg1 = (Bin_node *) 0 ;
3448 void *result;
3449
3450 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBinNode_to_get self ",0) == TCL_ERROR) SWIG_fail;
3451 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3452 result = (void *) ((arg1)->to);
3453
3454 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_void,0));
3455 return TCL_OK;
3456 fail:
3457 return TCL_ERROR;
3458 }
3459
3460
3461 static int
3462 _wrap_tinaBinNode_child1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3463 Bin_node *arg1 = (Bin_node *) 0 ;
3464 struct bin_node *arg2 = (struct bin_node *) 0 ;
3465
3466 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaBinNode_child1_set self child1 ",0,0) == TCL_ERROR) SWIG_fail;
3467 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3468 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_bin_node,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
3469 if (arg1) (arg1)->child1 = arg2;
3470
3471
3472 return TCL_OK;
3473 fail:
3474 return TCL_ERROR;
3475 }
3476
3477
3478 static int
3479 _wrap_tinaBinNode_child1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3480 Bin_node *arg1 = (Bin_node *) 0 ;
3481 struct bin_node *result;
3482
3483 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBinNode_child1_get self ",0) == TCL_ERROR) SWIG_fail;
3484 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3485 result = (struct bin_node *) ((arg1)->child1);
3486
3487 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_bin_node,0));
3488 return TCL_OK;
3489 fail:
3490 return TCL_ERROR;
3491 }
3492
3493
3494 static int
3495 _wrap_tinaBinNode_child2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3496 Bin_node *arg1 = (Bin_node *) 0 ;
3497 struct bin_node *arg2 = (struct bin_node *) 0 ;
3498
3499 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaBinNode_child2_set self child2 ",0,0) == TCL_ERROR) SWIG_fail;
3500 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3501 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_bin_node,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
3502 if (arg1) (arg1)->child2 = arg2;
3503
3504
3505 return TCL_OK;
3506 fail:
3507 return TCL_ERROR;
3508 }
3509
3510
3511 static int
3512 _wrap_tinaBinNode_child2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3513 Bin_node *arg1 = (Bin_node *) 0 ;
3514 struct bin_node *result;
3515
3516 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBinNode_child2_get self ",0) == TCL_ERROR) SWIG_fail;
3517 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3518 result = (struct bin_node *) ((arg1)->child2);
3519
3520 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_bin_node,0));
3521 return TCL_OK;
3522 fail:
3523 return TCL_ERROR;
3524 }
3525
3526
3527 static int
3528 _wrap_tinaBinNode_parent_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3529 Bin_node *arg1 = (Bin_node *) 0 ;
3530 struct bin_node *arg2 = (struct bin_node *) 0 ;
3531
3532 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaBinNode_parent_set self parent ",0,0) == TCL_ERROR) SWIG_fail;
3533 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3534 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_bin_node,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
3535 if (arg1) (arg1)->parent = arg2;
3536
3537
3538 return TCL_OK;
3539 fail:
3540 return TCL_ERROR;
3541 }
3542
3543
3544 static int
3545 _wrap_tinaBinNode_parent_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3546 Bin_node *arg1 = (Bin_node *) 0 ;
3547 struct bin_node *result;
3548
3549 if (SWIG_GetArgs(interp, objc, objv,"o:tinaBinNode_parent_get self ",0) == TCL_ERROR) SWIG_fail;
3550 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3551 result = (struct bin_node *) ((arg1)->parent);
3552
3553 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_bin_node,0));
3554 return TCL_OK;
3555 fail:
3556 return TCL_ERROR;
3557 }
3558
3559
3560 static int
3561 _wrap_new_tinaBinNode(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3562 Bin_node *result;
3563
3564 if (SWIG_GetArgs(interp, objc, objv,":new_tinaBinNode ") == TCL_ERROR) SWIG_fail;
3565 result = (Bin_node *)(Bin_node *) calloc(1, sizeof(Bin_node));
3566
3567 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_Bin_node,0));
3568 return TCL_OK;
3569 fail:
3570 return TCL_ERROR;
3571 }
3572
3573
3574 static int
3575 _wrap_delete_tinaBinNode(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3576 Bin_node *arg1 = (Bin_node *) 0 ;
3577
3578 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaBinNode self ",0) == TCL_ERROR) SWIG_fail;
3579 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Bin_node,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3580 free((char *) arg1);
3581
3582
3583 return TCL_OK;
3584 fail:
3585 return TCL_ERROR;
3586 }
3587
3588
3589 static void swig_delete_tinaBinNode(void *obj) {
3590 Bin_node *arg1 = (Bin_node *) obj;
3591 free((char *) arg1);
3592 }
3593 static swig_method swig_Bin_node_methods[] = {
3594 {0,0}
3595 };
3596 static swig_attribute swig_Bin_node_attributes[] = {
3597 { "-tinaTsId",_wrap_tinaBinNode_tinaTsId_get, _wrap_tinaBinNode_tinaTsId_set},
3598 { "-type",_wrap_tinaBinNode_type_get, _wrap_tinaBinNode_type_set},
3599 { "-status",_wrap_tinaBinNode_status_get, _wrap_tinaBinNode_status_set},
3600 { "-bounded",_wrap_tinaBinNode_bounded_get, _wrap_tinaBinNode_bounded_set},
3601 { "-bound",_wrap_tinaBinNode_bound_get, _wrap_tinaBinNode_bound_set},
3602 { "-value",_wrap_tinaBinNode_value_get, _wrap_tinaBinNode_value_set},
3603 { "-to",_wrap_tinaBinNode_to_get, _wrap_tinaBinNode_to_set},
3604 { "-child1",_wrap_tinaBinNode_child1_get, _wrap_tinaBinNode_child1_set},
3605 { "-child2",_wrap_tinaBinNode_child2_get, _wrap_tinaBinNode_child2_set},
3606 { "-parent",_wrap_tinaBinNode_parent_get, _wrap_tinaBinNode_parent_set},
3607 {0,0,0}
3608 };
3609 static swig_class *swig_Bin_node_bases[] = {0};
3610 swig_class _wrap_class_Bin_node = { "tinaBinNode", &SWIGTYPE_p_Bin_node,_wrap_new_tinaBinNode, swig_delete_tinaBinNode, swig_Bin_node_methods, swig_Bin_node_attributes, swig_Bin_node_bases };
3611 static int
3612 _wrap_tinaList_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3613 List *arg1 = (List *) 0 ;
3614 int arg2 ;
3615
3616 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaList_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
3617 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3618 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
3619
3620
3621 return TCL_OK;
3622 fail:
3623 return TCL_ERROR;
3624 }
3625
3626
3627 static int
3628 _wrap_tinaList_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3629 List *arg1 = (List *) 0 ;
3630 int result;
3631
3632 if (SWIG_GetArgs(interp, objc, objv,"o:tinaList_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
3633 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3634 result = (int) ((arg1)->ts_id);
3635
3636 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
3637 return TCL_OK;
3638 fail:
3639 return TCL_ERROR;
3640 }
3641
3642
3643 static int
3644 _wrap_tinaList_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3645 List *arg1 = (List *) 0 ;
3646 int arg2 ;
3647
3648 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaList_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
3649 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3650 if (arg1) (arg1)->type = arg2;
3651
3652
3653 return TCL_OK;
3654 fail:
3655 return TCL_ERROR;
3656 }
3657
3658
3659 static int
3660 _wrap_tinaList_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3661 List *arg1 = (List *) 0 ;
3662 int result;
3663
3664 if (SWIG_GetArgs(interp, objc, objv,"o:tinaList_type_get self ",0) == TCL_ERROR) SWIG_fail;
3665 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3666 result = (int) ((arg1)->type);
3667
3668 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
3669 return TCL_OK;
3670 fail:
3671 return TCL_ERROR;
3672 }
3673
3674
3675 static int
3676 _wrap_tinaList_next_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3677 List *arg1 = (List *) 0 ;
3678 struct list *arg2 = (struct list *) 0 ;
3679
3680 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaList_next_set self next ",0,0) == TCL_ERROR) SWIG_fail;
3681 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3682 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_list,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
3683 if (arg1) (arg1)->next = arg2;
3684
3685
3686 return TCL_OK;
3687 fail:
3688 return TCL_ERROR;
3689 }
3690
3691
3692 static int
3693 _wrap_tinaList_next_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3694 List *arg1 = (List *) 0 ;
3695 struct list *result;
3696
3697 if (SWIG_GetArgs(interp, objc, objv,"o:tinaList_next_get self ",0) == TCL_ERROR) SWIG_fail;
3698 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3699 result = (struct list *) ((arg1)->next);
3700
3701 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_list,0));
3702 return TCL_OK;
3703 fail:
3704 return TCL_ERROR;
3705 }
3706
3707
3708 static int
3709 _wrap_tinaList_last_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3710 List *arg1 = (List *) 0 ;
3711 struct list *arg2 = (struct list *) 0 ;
3712
3713 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaList_last_set self last ",0,0) == TCL_ERROR) SWIG_fail;
3714 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3715 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_list,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
3716 if (arg1) (arg1)->last = arg2;
3717
3718
3719 return TCL_OK;
3720 fail:
3721 return TCL_ERROR;
3722 }
3723
3724
3725 static int
3726 _wrap_tinaList_last_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3727 List *arg1 = (List *) 0 ;
3728 struct list *result;
3729
3730 if (SWIG_GetArgs(interp, objc, objv,"o:tinaList_last_get self ",0) == TCL_ERROR) SWIG_fail;
3731 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3732 result = (struct list *) ((arg1)->last);
3733
3734 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_list,0));
3735 return TCL_OK;
3736 fail:
3737 return TCL_ERROR;
3738 }
3739
3740
3741 static int
3742 _wrap_tinaList_to_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3743 List *arg1 = (List *) 0 ;
3744 void *arg2 = (void *) 0 ;
3745
3746 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaList_to_set self to ",0,0) == TCL_ERROR) SWIG_fail;
3747 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3748 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, 0,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
3749 if (arg1) (arg1)->to = arg2;
3750
3751
3752 return TCL_OK;
3753 fail:
3754 return TCL_ERROR;
3755 }
3756
3757
3758 static int
3759 _wrap_tinaList_to_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3760 List *arg1 = (List *) 0 ;
3761 void *result;
3762
3763 if (SWIG_GetArgs(interp, objc, objv,"o:tinaList_to_get self ",0) == TCL_ERROR) SWIG_fail;
3764 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3765 result = (void *) ((arg1)->to);
3766
3767 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_void,0));
3768 return TCL_OK;
3769 fail:
3770 return TCL_ERROR;
3771 }
3772
3773
3774 static int
3775 _wrap_new_tinaList(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3776 List *result;
3777
3778 if (SWIG_GetArgs(interp, objc, objv,":new_tinaList ") == TCL_ERROR) SWIG_fail;
3779 result = (List *)(List *) calloc(1, sizeof(List));
3780
3781 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_List,0));
3782 return TCL_OK;
3783 fail:
3784 return TCL_ERROR;
3785 }
3786
3787
3788 static int
3789 _wrap_delete_tinaList(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3790 List *arg1 = (List *) 0 ;
3791
3792 if (SWIG_GetArgs(interp, objc, objv,"o:delete_tinaList self ",0) == TCL_ERROR) SWIG_fail;
3793 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_List,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3794 free((char *) arg1);
3795
3796
3797 return TCL_OK;
3798 fail:
3799 return TCL_ERROR;
3800 }
3801
3802
3803 static void swig_delete_tinaList(void *obj) {
3804 List *arg1 = (List *) obj;
3805 free((char *) arg1);
3806 }
3807 static swig_method swig_List_methods[] = {
3808 {0,0}
3809 };
3810 static swig_attribute swig_List_attributes[] = {
3811 { "-tinaTsId",_wrap_tinaList_tinaTsId_get, _wrap_tinaList_tinaTsId_set},
3812 { "-type",_wrap_tinaList_type_get, _wrap_tinaList_type_set},
3813 { "-next",_wrap_tinaList_next_get, _wrap_tinaList_next_set},
3814 { "-last",_wrap_tinaList_last_get, _wrap_tinaList_last_set},
3815 { "-to",_wrap_tinaList_to_get, _wrap_tinaList_to_set},
3816 {0,0,0}
3817 };
3818 static swig_class *swig_List_bases[] = {0};
3819 swig_class _wrap_class_List = { "tinaList", &SWIGTYPE_p_List,_wrap_new_tinaList, swig_delete_tinaList, swig_List_methods, swig_List_attributes, swig_List_bases };
3820 static int
3821 _wrap_tinaTString_tinaTsId_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3822 Tstring *arg1 = (Tstring *) 0 ;
3823 int arg2 ;
3824
3825 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaTString_tinaTsId_set self ts_id ",0,&arg2) == TCL_ERROR) SWIG_fail;
3826 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3827 if (arg1) (arg1)->ts_id = (Ts_id )arg2;
3828
3829
3830 return TCL_OK;
3831 fail:
3832 return TCL_ERROR;
3833 }
3834
3835
3836 static int
3837 _wrap_tinaTString_tinaTsId_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3838 Tstring *arg1 = (Tstring *) 0 ;
3839 int result;
3840
3841 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTString_tinaTsId_get self ",0) == TCL_ERROR) SWIG_fail;
3842 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3843 result = (int) ((arg1)->ts_id);
3844
3845 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
3846 return TCL_OK;
3847 fail:
3848 return TCL_ERROR;
3849 }
3850
3851
3852 static int
3853 _wrap_tinaTString_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3854 Tstring *arg1 = (Tstring *) 0 ;
3855 int arg2 ;
3856
3857 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaTString_type_set self type ",0,&arg2) == TCL_ERROR) SWIG_fail;
3858 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3859 if (arg1) (arg1)->type = arg2;
3860
3861
3862 return TCL_OK;
3863 fail:
3864 return TCL_ERROR;
3865 }
3866
3867
3868 static int
3869 _wrap_tinaTString_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3870 Tstring *arg1 = (Tstring *) 0 ;
3871 int result;
3872
3873 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTString_type_get self ",0) == TCL_ERROR) SWIG_fail;
3874 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3875 result = (int) ((arg1)->type);
3876
3877 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
3878 return TCL_OK;
3879 fail:
3880 return TCL_ERROR;
3881 }
3882
3883
3884 static int
3885 _wrap_tinaTString_start_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3886 Tstring *arg1 = (Tstring *) 0 ;
3887 struct list *arg2 = (struct list *) 0 ;
3888
3889 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaTString_start_set self start ",0,0) == TCL_ERROR) SWIG_fail;
3890 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3891 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_list,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
3892 if (arg1) (arg1)->start = arg2;
3893
3894
3895 return TCL_OK;
3896 fail:
3897 return TCL_ERROR;
3898 }
3899
3900
3901 static int
3902 _wrap_tinaTString_start_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3903 Tstring *arg1 = (Tstring *) 0 ;
3904 struct list *result;
3905
3906 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTString_start_get self ",0) == TCL_ERROR) SWIG_fail;
3907 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3908 result = (struct list *) ((arg1)->start);
3909
3910 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_list,0));
3911 return TCL_OK;
3912 fail:
3913 return TCL_ERROR;
3914 }
3915
3916
3917 static int
3918 _wrap_tinaTString_end_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3919 Tstring *arg1 = (Tstring *) 0 ;
3920 struct list *arg2 = (struct list *) 0 ;
3921
3922 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaTString_end_set self end ",0,0) == TCL_ERROR) SWIG_fail;
3923 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3924 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_list,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
3925 if (arg1) (arg1)->end = arg2;
3926
3927
3928 return TCL_OK;
3929 fail:
3930 return TCL_ERROR;
3931 }
3932
3933
3934 static int
3935 _wrap_tinaTString_end_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3936 Tstring *arg1 = (Tstring *) 0 ;
3937 struct list *result;
3938
3939 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTString_end_get self ",0) == TCL_ERROR) SWIG_fail;
3940 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3941 result = (struct list *) ((arg1)->end);
3942
3943 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_list,0));
3944 return TCL_OK;
3945 fail:
3946 return TCL_ERROR;
3947 }
3948
3949
3950 static int
3951 _wrap_tinaTString_count_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3952 Tstring *arg1 = (Tstring *) 0 ;
3953 int arg2 ;
3954
3955 if (SWIG_GetArgs(interp, objc, objv,"oi:tinaTString_count_set self count ",0,&arg2) == TCL_ERROR) SWIG_fail;
3956 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3957 if (arg1) (arg1)->count = arg2;
3958
3959
3960 return TCL_OK;
3961 fail:
3962 return TCL_ERROR;
3963 }
3964
3965
3966 static int
3967 _wrap_tinaTString_count_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3968 Tstring *arg1 = (Tstring *) 0 ;
3969 int result;
3970
3971 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTString_count_get self ",0) == TCL_ERROR) SWIG_fail;
3972 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3973 result = (int) ((arg1)->count);
3974
3975 Tcl_SetObjResult(interp,Tcl_NewIntObj((long) result));
3976 return TCL_OK;
3977 fail:
3978 return TCL_ERROR;
3979 }
3980
3981
3982 static int
3983 _wrap_tinaTString_props_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
3984 Tstring *arg1 = (Tstring *) 0 ;
3985 struct list *arg2 = (struct list *) 0 ;
3986
3987 if (SWIG_GetArgs(interp, objc, objv,"oo:tinaTString_props_set self props ",0,0) == TCL_ERROR) SWIG_fail;
3988 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
3989 if ((SWIG_ConvertPtr(interp, objv[2], (void **) &arg2, SWIGTYPE_p_list,SWIG_POINTER_EXCEPTION | SWIG_POINTER_DISOWN) != TCL_OK)) SWIG_fail;
3990 if (arg1) (arg1)->props = arg2;
3991
3992
3993 return TCL_OK;
3994 fail:
3995 return TCL_ERROR;
3996 }
3997
3998
3999 static int
4000 _wrap_tinaTString_props_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
4001 Tstring *arg1 = (Tstring *) 0 ;
4002 struct list *result;
4003
4004 if (SWIG_GetArgs(interp, objc, objv,"o:tinaTString_props_get self ",0) == TCL_ERROR) SWIG_fail;
4005 if ((SWIG_ConvertPtr(interp, objv[1], (void **) &arg1, SWIGTYPE_p_Tstring,SWIG_POINTER_EXCEPTION | 0) != TCL_OK)) SWIG_fail;
4006 result = (struct list *) ((arg1)->props);
4007
4008 Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) result, SWIGTYPE_p_list,0));
4009 return TCL_OK;
4010 fail:
4011 return TCL_ERROR;
4012 }
4013
4014
4015 static int
4016 _wrap_new_tinaTString(ClientData clientData, Tcl_Interp *