19 template<
typename T>
class SwigValueWrapper {
20 struct SwigMovePointer {
22 SwigMovePointer(T *p) : ptr(p) { }
23 ~SwigMovePointer() {
delete ptr; }
24 SwigMovePointer& operator=(SwigMovePointer& rhs) { T* oldptr = ptr; ptr = 0;
delete oldptr; ptr = rhs.ptr; rhs.ptr = 0;
return *
this; }
26 SwigValueWrapper& operator=(
const SwigValueWrapper<T>& rhs);
27 SwigValueWrapper(
const SwigValueWrapper<T>& rhs);
29 SwigValueWrapper() : pointer(0) { }
30 SwigValueWrapper& operator=(
const T& t) { SwigMovePointer tmp(
new T(t)); pointer = tmp;
return *
this; }
31 operator T&()
const {
return *pointer.ptr; }
32 T *operator&() {
return pointer.ptr; }
35 template <
typename T> T SwigValueInit() {
46 #ifndef SWIGTEMPLATEDISAMBIGUATOR
47 # if defined(__SUNPRO_CC) && (__SUNPRO_CC <= 0x560)
48 # define SWIGTEMPLATEDISAMBIGUATOR template
49 # elif defined(__HP_aCC)
52 # define SWIGTEMPLATEDISAMBIGUATOR template
54 # define SWIGTEMPLATEDISAMBIGUATOR
60 # if defined(__cplusplus) || (defined(__GNUC__) && !defined(__STRICT_ANSI__))
61 # define SWIGINLINE inline
69 # if defined(__GNUC__)
70 # if !(defined(__cplusplus)) || (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4))
71 # define SWIGUNUSED __attribute__ ((__unused__))
76 # define SWIGUNUSED __attribute__ ((__unused__))
82 #ifndef SWIG_MSC_UNSUPPRESS_4505
83 # if defined(_MSC_VER)
84 # pragma warning(disable : 4505)
88 #ifndef SWIGUNUSEDPARM
90 # define SWIGUNUSEDPARM(p)
92 # define SWIGUNUSEDPARM(p) p SWIGUNUSED
98 # define SWIGINTERN static SWIGUNUSED
102 #ifndef SWIGINTERNINLINE
103 # define SWIGINTERNINLINE SWIGINTERN SWIGINLINE
107 #if defined(__GNUC__)
108 # if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)
109 # ifndef GCC_HASCLASSVISIBILITY
110 # define GCC_HASCLASSVISIBILITY
116 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
117 # if defined(STATIC_LINKED)
120 # define SWIGEXPORT __declspec(dllexport)
123 # if defined(__GNUC__) && defined(GCC_HASCLASSVISIBILITY)
124 # define SWIGEXPORT __attribute__ ((visibility("default")))
133 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
134 # define SWIGSTDCALL __stdcall
141 #if !defined(SWIG_NO_CRT_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_CRT_SECURE_NO_DEPRECATE)
142 # define _CRT_SECURE_NO_DEPRECATE
146 #if !defined(SWIG_NO_SCL_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_SCL_SECURE_NO_DEPRECATE)
147 # define _SCL_SECURE_NO_DEPRECATE
151 #if defined(__APPLE__) && !defined(__ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES)
152 # define __ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES 0
160 #ifdef __INTEL_COMPILER
161 # pragma warning disable 592
181 #define SWIG_RUNTIME_VERSION "4"
184 #ifdef SWIG_TYPE_TABLE
185 # define SWIG_QUOTE_STRING(x) #x
186 # define SWIG_EXPAND_AND_QUOTE_STRING(x) SWIG_QUOTE_STRING(x)
187 # define SWIG_TYPE_TABLE_NAME SWIG_EXPAND_AND_QUOTE_STRING(SWIG_TYPE_TABLE)
189 # define SWIG_TYPE_TABLE_NAME
202 # define SWIGRUNTIME SWIGINTERN
205 #ifndef SWIGRUNTIMEINLINE
206 # define SWIGRUNTIMEINLINE SWIGRUNTIME SWIGINLINE
210 #ifndef SWIG_BUFFER_SIZE
211 # define SWIG_BUFFER_SIZE 1024
215 #define SWIG_POINTER_DISOWN 0x1
216 #define SWIG_CAST_NEW_MEMORY 0x2
217 #define SWIG_POINTER_NO_NULL 0x4
220 #define SWIG_POINTER_OWN 0x1
303 #define SWIG_ERROR (-1)
304 #define SWIG_IsOK(r) (r >= 0)
305 #define SWIG_ArgError(r) ((r != SWIG_ERROR) ? r : SWIG_TypeError)
308 #define SWIG_CASTRANKLIMIT (1 << 8)
310 #define SWIG_NEWOBJMASK (SWIG_CASTRANKLIMIT << 1)
312 #define SWIG_TMPOBJMASK (SWIG_NEWOBJMASK << 1)
314 #define SWIG_BADOBJ (SWIG_ERROR)
315 #define SWIG_OLDOBJ (SWIG_OK)
316 #define SWIG_NEWOBJ (SWIG_OK | SWIG_NEWOBJMASK)
317 #define SWIG_TMPOBJ (SWIG_OK | SWIG_TMPOBJMASK)
319 #define SWIG_AddNewMask(r) (SWIG_IsOK(r) ? (r | SWIG_NEWOBJMASK) : r)
320 #define SWIG_DelNewMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_NEWOBJMASK) : r)
321 #define SWIG_IsNewObj(r) (SWIG_IsOK(r) && (r & SWIG_NEWOBJMASK))
322 #define SWIG_AddTmpMask(r) (SWIG_IsOK(r) ? (r | SWIG_TMPOBJMASK) : r)
323 #define SWIG_DelTmpMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_TMPOBJMASK) : r)
324 #define SWIG_IsTmpObj(r) (SWIG_IsOK(r) && (r & SWIG_TMPOBJMASK))
327 #if defined(SWIG_CASTRANK_MODE)
328 # ifndef SWIG_TypeRank
329 # define SWIG_TypeRank unsigned long
331 # ifndef SWIG_MAXCASTRANK
332 # define SWIG_MAXCASTRANK (2)
334 # define SWIG_CASTRANKMASK ((SWIG_CASTRANKLIMIT) -1)
335 # define SWIG_CastRank(r) (r & SWIG_CASTRANKMASK)
340 return SWIG_IsOK(r) ? SWIG_CastRank(r) + 1 : 0;
343 # define SWIG_AddCast(r) (r)
344 # define SWIG_CheckState(r) (SWIG_IsOK(r) ? 1 : 0)
354 typedef void *(*swig_converter_func)(
void *,
int *);
396 const char *f2,
const char *l2) {
397 for (;(f1 != l1) && (f2 != l2); ++f1, ++f2) {
398 while ((*f1 ==
' ') && (f1 != l1)) ++f1;
399 while ((*f2 ==
' ') && (f2 != l2)) ++f2;
400 if (*f1 != *f2)
return (*f1 > *f2) ? 1 : -1;
402 return (
int)((l1 - f1) - (l2 - f2));
412 const char* te = tb + strlen(tb);
414 while (equiv != 0 && *ne) {
415 for (nb = ne; *ne; ++ne) {
416 if (*ne ==
'|')
break;
441 if (strcmp(iter->
type->
name, c) == 0) {
442 if (iter == ty->
cast)
468 if (iter->
type == from) {
469 if (iter == ty->
cast)
501 if (!ty || !ty->
dcast)
return ty;
502 while (ty && (ty->
dcast)) {
503 ty = (*ty->
dcast)(ptr);
527 if (!type)
return NULL;
528 if (type->
str != NULL) {
529 const char *last_name = type->
str;
531 for (s = type->
str; *s; s++)
532 if (*s ==
'|') last_name = s+1;
580 size_t r = iter->
size - 1;
583 size_t i = (l + r) >> 1;
584 const char *iname = iter->
types[i]->
name;
586 int compare = strcmp(
name, iname);
588 return iter->
types[i];
589 }
else if (compare < 0) {
595 }
else if (compare > 0) {
604 }
while (iter != end);
631 for (; i < iter->
size; ++i) {
633 return iter->
types[i];
636 }
while (iter != end);
648 static const char hex[17] =
"0123456789abcdef";
649 const unsigned char *u = (
unsigned char *) ptr;
650 const unsigned char *eu = u + sz;
651 for (; u != eu; ++u) {
652 unsigned char uu = *u;
653 *(c++) = hex[(uu & 0xf0) >> 4];
654 *(c++) = hex[uu & 0xf];
664 unsigned char *u = (
unsigned char *) ptr;
665 const unsigned char *eu = u + sz;
666 for (; u != eu; ++u) {
669 if ((d >=
'0') && (d <=
'9'))
670 uu = (
unsigned char)((d -
'0') << 4);
671 else if ((d >=
'a') && (d <=
'f'))
672 uu = (
unsigned char)((d - (
'a'-10)) << 4);
676 if ((d >=
'0') && (d <=
'9'))
677 uu |= (
unsigned char)(d -
'0');
678 else if ((d >=
'a') && (d <=
'f'))
679 uu |= (
unsigned char)(d - (
'a'-10));
693 if ((2*
sizeof(
void *) + 2) > bsz)
return 0;
696 if (strlen(
name) + 1 > (bsz - (r - buff)))
return 0;
704 if (strcmp(c,
"NULL") == 0) {
717 size_t lname = (
name ? strlen(
name) : 0);
718 if ((2*sz + 2 + lname) > bsz)
return 0;
722 strncpy(r,
name,lname+1);
732 if (strcmp(c,
"NULL") == 0) {
747 #define SWIG_UnknownError -1
748 #define SWIG_IOError -2
749 #define SWIG_RuntimeError -3
750 #define SWIG_IndexError -4
751 #define SWIG_TypeError -5
752 #define SWIG_DivisionByZero -6
753 #define SWIG_OverflowError -7
754 #define SWIG_SyntaxError -8
755 #define SWIG_ValueError -9
756 #define SWIG_SystemError -10
757 #define SWIG_AttributeError -11
758 #define SWIG_MemoryError -12
759 #define SWIG_NullReferenceError -13
769 const char* type = 0;
772 type =
"MemoryError";
778 type =
"RuntimeError";
787 type =
"ZeroDivisionError";
790 type =
"OverflowError";
793 type =
"SyntaxError";
799 type =
"SystemError";
802 type =
"AttributeError";
805 type =
"RuntimeError";
814 Tcl_ResetResult(interp);
815 Tcl_SetObjResult(interp, obj);
816 Tcl_SetErrorCode(interp,
"SWIG", ctype, NULL);
822 Tcl_ResetResult(interp);
823 Tcl_SetErrorCode(interp,
"SWIG", ctype, NULL);
824 Tcl_AppendResult(interp, ctype,
" ", mesg, NULL);
835 Tcl_AddErrorInfo(interp, mesg);
852 #define SWIG_TCL_POINTER 4
853 #define SWIG_TCL_BINARY 5
865 typedef int (*
swig_wrapper)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST []);
867 typedef char *(*swig_variable_func)(ClientData, Tcl_Interp *,
char *,
char *, int);
905 int (*wrapper)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST []);
906 ClientData clientdata;
913 char * (*get)(ClientData, Tcl_Interp *,
char *,
char *, int);
914 char * (*set)(ClientData, Tcl_Interp *,
char *,
char *, int);
928 Tcl_ObjSetVar2(interp,Tcl_NewStringObj(
name,-1), NULL, obj, TCL_GLOBAL_ONLY);
929 Tcl_SetHashValue(Tcl_CreateHashEntry(&
swigconstTable,
name, &newobj), (ClientData) obj);
934 Tcl_HashEntry *entryPtr;
938 return (Tcl_Obj *) Tcl_GetHashValue(entryPtr);
959 #define SWIG_ConvertPtr(oc, ptr, ty, flags) SWIG_Tcl_ConvertPtr(interp, oc, ptr, ty, flags)
960 #define SWIG_NewPointerObj(ptr, type, flags) SWIG_Tcl_NewPointerObj(ptr, type, flags)
963 #define SWIG_ConvertPacked(obj, ptr, sz, ty) SWIG_Tcl_ConvertPacked(interp, obj, ptr, sz, ty)
964 #define SWIG_NewPackedObj(ptr, sz, type) SWIG_Tcl_NewPackedObj(ptr, sz, type)
967 #define SWIG_ConvertInstance(obj, pptr, type, flags) SWIG_Tcl_ConvertPtr(interp, obj, pptr, type, flags)
968 #define SWIG_NewInstanceObj(thisvalue, type, flags) SWIG_Tcl_NewInstanceObj(interp, thisvalue, type, flags)
971 #define SWIG_ConvertFunctionPtr(obj, pptr, type) SWIG_Tcl_ConvertPtr(interp, obj, pptr, type, 0)
972 #define SWIG_NewFunctionPtrObj(ptr, type) SWIG_Tcl_NewPointerObj(ptr, type, 0)
975 #define SWIG_ConvertMember(obj, ptr, sz, ty) SWIG_Tcl_ConvertPacked(interp,obj, ptr, sz, ty)
976 #define SWIG_NewMemberObj(ptr, sz, type) SWIG_Tcl_NewPackedObj(ptr, sz, type)
981 #define SWIG_GetModule(clientdata) SWIG_Tcl_GetModule((Tcl_Interp *) (clientdata))
982 #define SWIG_SetModule(clientdata, pointer) SWIG_Tcl_SetModule((Tcl_Interp *) (clientdata), pointer)
987 #define SWIG_ErrorType(code) SWIG_Tcl_ErrorType(code)
988 #define SWIG_Error(code, msg) SWIG_Tcl_SetErrorMsg(interp, SWIG_Tcl_ErrorType(code), msg)
989 #define SWIG_fail goto fail
994 #define SWIG_Acquire(ptr) SWIG_Tcl_Acquire(ptr)
995 #define SWIG_MethodCommand SWIG_Tcl_MethodCommand
996 #define SWIG_Disown(ptr) SWIG_Tcl_Disown(ptr)
997 #define SWIG_ConvertPtrFromString(c, ptr, ty, flags) SWIG_Tcl_ConvertPtrFromString(interp, c, ptr, ty, flags)
998 #define SWIG_MakePtr(c, ptr, ty, flags) SWIG_Tcl_MakePtr(c, ptr, ty, flags)
999 #define SWIG_PointerTypeFromString(c) SWIG_Tcl_PointerTypeFromString(c)
1000 #define SWIG_GetArgs SWIG_Tcl_GetArgs
1001 #define SWIG_GetConstantObj(key) SWIG_Tcl_GetConstantObj(key)
1002 #define SWIG_ObjectConstructor SWIG_Tcl_ObjectConstructor
1003 #define SWIG_Thisown(ptr) SWIG_Tcl_Thisown(ptr)
1004 #define SWIG_ObjectDelete SWIG_Tcl_ObjectDelete
1007 #define SWIG_TCL_DECL_ARGS_2(arg1, arg2) (Tcl_Interp *interp SWIGUNUSED, arg1, arg2)
1008 #define SWIG_TCL_CALL_ARGS_2(arg1, arg2) (interp, arg1, arg2)
1014 #define SWIG_POINTER_EXCEPTION 0
1015 #define SWIG_GetConstant SWIG_GetConstantObj
1016 #define SWIG_Tcl_GetConstant SWIG_Tcl_GetConstantObj
1018 #if TCL_MAJOR_VERSION >= 8 && TCL_MINOR_VERSION >= 5
1019 #define SWIG_TCL_HASHTABLE_INIT {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
1021 #define SWIG_TCL_HASHTABLE_INIT {0}
1034 static Tcl_HashTable swigobjectTable;
1035 static int swigobjectTableinit = 0;
1036 if (!swigobjectTableinit) {
1037 Tcl_InitHashTable(&swigobjectTable, TCL_ONE_WORD_KEYS);
1038 swigobjectTableinit = 1;
1040 return &swigobjectTable;
1063 Tcl_DeleteHashEntry(entryPtr);
1076 if (strcmp(c,
"NULL") == 0)
1086 if (Tcl_VarEval(interp,
"info commands ", c, (
char *) NULL) == TCL_OK) {
1087 Tcl_Obj *result = Tcl_GetObjResult(interp);
1088 if (*(Tcl_GetStringFromObj(result, NULL)) == 0) {
1090 Tcl_ResetResult(interp);
1096 Tcl_ResetResult(interp);
1101 if (Tcl_VarEval(interp,c,
" cget -this", (
char *) NULL) != TCL_OK) {
1102 Tcl_ResetResult(interp);
1106 c = Tcl_GetStringFromObj(Tcl_GetObjResult(interp), NULL);
1145 if (!(((d >=
'0') && (d <=
'9')) || ((d >=
'a') && (d <=
'f'))))
break;
1157 if (!obj)
goto type_error;
1158 c = Tcl_GetStringFromObj(obj,NULL);
1160 if (*c !=
'_')
goto type_error;
1165 if (!tc)
goto type_error;
1193 robj = Tcl_NewStringObj(result,-1);
1201 if ((2*sz + 1 + strlen(type->
name)) > 1000)
return 0;
1204 strcpy(r,type->
name);
1205 return Tcl_NewStringObj(result,-1);
1251 Tcl_DecrRefCount(si->
thisptr);
1258 char *method, *attrname;
1267 int cls_stack_bi[64];
1268 int cls_stack_top = 0;
1272 objv = (Tcl_Obj **) _objv;
1274 Tcl_SetResult(interp, (
char *)
"wrong # args.", TCL_STATIC);
1277 method = Tcl_GetStringFromObj(objv[1],NULL);
1278 if (strcmp(method,
"-acquire") == 0) {
1283 if (strcmp(method,
"-disown") == 0) {
1290 if (strcmp(method,
"-delete") == 0) {
1291 Tcl_DeleteCommandFromToken(interp,inst->
cmdtok);
1294 cls_stack[cls_stack_top] = inst->
classptr;
1295 cls_stack_bi[cls_stack_top] = -1;
1297 Tcl_HashEntry* hashentry;
1298 bi = cls_stack_bi[cls_stack_top];
1299 cls = cls_stack[cls_stack_top];
1306 cls = cls->
bases[bi];
1308 cls_stack_bi[cls_stack_top]++;
1310 cls_stack[cls_stack_top] = cls;
1311 cls_stack_bi[cls_stack_top] = -1;
1317 if (cls_stack_top < 0)
break;
1320 cls_stack_bi[cls_stack_top]++;
1322 hashentry = Tcl_FindHashEntry(&(cls->
hashtable), method);
1324 ClientData cd = Tcl_GetHashValue(hashentry);
1328 Tcl_IncrRefCount(inst->
thisptr);
1329 rcode = (method_wrapper)(clientData,interp,objc,objv);
1331 Tcl_DecrRefCount(inst->
thisptr);
1335 if (strcmp(method,
"cget") == 0) {
1337 Tcl_SetResult(interp, (
char *)
"wrong # args.", TCL_STATIC);
1340 attrname = Tcl_GetStringFromObj(objv[2],NULL);
1342 while (attr && attr->
name) {
1343 if ((strcmp(attr->
name, attrname) == 0) && (attr->
getmethod)) {
1346 Tcl_IncrRefCount(inst->
thisptr);
1347 rcode = (*attr->
getmethod)(clientData,interp,2, objv);
1349 Tcl_DecrRefCount(inst->
thisptr);
1354 if (strcmp(attrname,
"-this") == 0) {
1355 Tcl_SetObjResult(interp, Tcl_DuplicateObj(inst->
thisptr));
1358 if (strcmp(attrname,
"-thisown") == 0) {
1360 Tcl_SetResult(interp,(
char*)
"1",TCL_STATIC);
1362 Tcl_SetResult(interp,(
char*)
"0",TCL_STATIC);
1366 }
else if (strcmp(method,
"configure") == 0) {
1369 Tcl_SetResult(interp, (
char *)
"wrong # args.", TCL_STATIC);
1374 attrname = Tcl_GetStringFromObj(objv[i],NULL);
1376 while (attr && attr->
name) {
1377 if ((strcmp(attr->
name, attrname) == 0) && (attr->
setmethod)) {
1380 Tcl_IncrRefCount(inst->
thisptr);
1381 rcode = (*attr->
setmethod)(clientData,interp,3, &objv[i-1]);
1383 Tcl_DecrRefCount(inst->
thisptr);
1384 if (rcode != TCL_OK)
return rcode;
1393 if (strcmp(method,
"configure") == 0) {
1394 if (numconf >= objc) {
1397 Tcl_SetResult(interp,(
char *)
"Invalid attribute name.", TCL_STATIC);
1401 if (strcmp(method,
"cget") == 0) {
1402 Tcl_SetResult(interp,(
char *)
"Invalid attribute name.", TCL_STATIC);
1405 Tcl_SetResult(interp, (
char *)
"Invalid method. Must be one of: configure cget -acquire -disown -delete", TCL_STATIC);
1410 while (meth && meth->
name) {
1411 char *cr = (
char *) Tcl_GetStringResult(interp);
1412 size_t meth_len = strlen(meth->
name);
1413 char* where = strchr(cr,
':');
1415 where = strstr(where, meth->
name);
1417 if(where[-1] ==
' ' && (where[meth_len] ==
' ' || where[meth_len]==0)) {
1426 Tcl_AppendElement(interp, (
char *) meth->
name);
1439 if (thisvalue && (type->
clientdata) && (interp)) {
1442 name = Tcl_GetStringFromObj(robj,NULL);
1443 if (!Tcl_GetCommandInfo(interp,
name, &ci) || (flags)) {
1445 newinst->
thisptr = Tcl_DuplicateObj(robj);
1446 Tcl_IncrRefCount(newinst->
thisptr);
1462 Tcl_Obj *newObj = 0;
1463 void *thisvalue = 0;
1473 Tcl_SetResult(interp, (
char *)
"swig: internal runtime error. No class object defined.", TCL_STATIC);
1478 char *s = Tcl_GetStringFromObj(objv[1],NULL);
1479 if (strcmp(s,
"-this") == 0) {
1482 }
else if (strcmp(s,
"-args") == 0) {
1484 }
else if (objc == 2) {
1487 }
else if (objc >= 3) {
1490 s1 = Tcl_GetStringFromObj(objv[2],NULL);
1491 if (strcmp(s1,
"-this") == 0) {
1501 result = (*cons)(0, interp, objc-firstarg, &objv[firstarg]);
1502 if (result != TCL_OK) {
1505 newObj = Tcl_DuplicateObj(Tcl_GetObjResult(interp));
1506 if (!
name)
name = Tcl_GetStringFromObj(newObj,NULL);
1507 }
else if (thisarg > 0) {
1508 if (thisarg < objc) {
1510 newObj = Tcl_DuplicateObj(objv[thisarg]);
1511 if (!
name)
name = Tcl_GetStringFromObj(newObj,NULL);
1513 Tcl_SetResult(interp, (
char *)
"wrong # args.", TCL_STATIC);
1517 Tcl_SetResult(interp, (
char *)
"No constructor available.", TCL_STATIC);
1521 Tcl_DecrRefCount(newObj);
1526 Tcl_IncrRefCount(newObj);
1542 int argno = 0, opt = 0;
1552 for (c = fmt; (*c && (*c !=
':') && (*c !=
';')); c++,argno++) {
1557 if (argno >= (objc-1)) {
1559 Tcl_SetResult(interp, (
char *)
"Wrong number of arguments ", TCL_STATIC);
1567 vptr = va_arg(ap,
void *);
1571 if (!obj) obj = objv[argno+1];
1573 obj = objv[argno+1];
1580 if (Tcl_GetLongFromObj(interp,obj,&tempi) != TCL_OK)
goto argerror;
1581 if ((*c ==
'i') || (*c ==
'I')) *((
int *)vptr) = (int)tempi;
1582 else if ((*c ==
'l') || (*c ==
'L')) *((
long *)vptr) = (long)tempi;
1583 else if ((*c ==
'h') || (*c ==
'H')) *((
short*)vptr) = (short)tempi;
1584 else if ((*c ==
'b') || (*c ==
'B')) *((
unsigned char *)vptr) = (
unsigned char)tempi;
1588 if (Tcl_GetDoubleFromObj(interp,obj,&tempd) != TCL_OK)
goto argerror;
1589 if ((*c ==
'f') || (*c ==
'F')) *((
float *) vptr) = (float)tempd;
1590 else if ((*c ==
'd') || (*c ==
'D')) *((
double*) vptr) = tempd;
1593 if (*(c+1) ==
'#') {
1594 int *vlptr = (
int *) va_arg(ap,
void *);
1595 *((
char **) vptr) = Tcl_GetStringFromObj(obj, vlptr);
1598 *((
char **)vptr) = Tcl_GetStringFromObj(obj,NULL);
1602 *((
char *)vptr) = *(Tcl_GetStringFromObj(obj,NULL));
1609 *((Tcl_Obj **)vptr) = objv[argno+1];
1617 if ((*c !=
';') && ((objc-1) > argno)) {
1618 Tcl_SetResult(interp, (
char *)
"Wrong # args.", TCL_STATIC);
1627 sprintf(temp,
"%d", argno+1);
1628 c = strchr(fmt,
':');
1629 if (!c) c = strchr(fmt,
';');
1630 if (!c) c = (
char *)
"";
1631 Tcl_AppendResult(interp,c,
" argument ", temp, NULL);
1643 #define SWIG_exception_fail(code, msg) do { SWIG_Error(code, msg); SWIG_fail; } while(0)
1645 #define SWIG_contract_assert(expr, msg) if (!(expr)) { SWIG_Error(SWIG_RuntimeError, msg); SWIG_fail; } else
1651 #define SWIGTYPE_p_a_point swig_types[0]
1652 #define SWIGTYPE_p_a_screen swig_types[1]
1653 #define SWIGTYPE_p_a_text swig_types[2]
1654 #define SWIGTYPE_p_char swig_types[3]
1655 #define SWIGTYPE_p_p_a_screenlayer swig_types[4]
1658 #define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
1659 #define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
1663 #define SWIG_init A_screen_Init
1664 #define SWIG_name "a_screen"
1665 #define SWIG_prefix ""
1666 #define SWIG_version "0.0"
1668 #define SWIGVERSION 0x040002
1669 #define SWIG_VERSION SWIGVERSION
1672 #define SWIG_as_voidptr(a) const_cast< void * >(static_cast< const void * >(a))
1673 #define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a),reinterpret_cast< void** >(a))
1676 #include <stdexcept>
1695 #ifndef SWIG_TCL_STUBS_VERSION
1696 #define SWIG_TCL_STUBS_VERSION "8.1"
1710 #if !defined(SWIG_NO_LLONG_MAX)
1711 # if !defined(LLONG_MAX) && defined(__GNUC__) && defined (__LONG_LONG_MAX__)
1712 # define LLONG_MAX __LONG_LONG_MAX__
1713 # define LLONG_MIN (-LLONG_MAX - 1LL)
1714 # define ULLONG_MAX (LLONG_MAX * 2ULL + 1ULL)
1722 return (size < INT_MAX) ? Tcl_NewStringObj(carray,
static_cast< int >(size)) : NULL;
1737 char *cstr = Tcl_GetStringFromObj(obj, &len);
1739 if (cptr) *cptr = cstr;
1740 if (psize) *psize = len + 1;
1751 char* buf = 0 ;
size_t size = 0;
int alloc =
SWIG_OLDOBJ;
1754 if (val) *val =
new std::string(buf, size - 1);
1762 static int init = 0;
1779 #define SWIG_From_bool Tcl_NewBooleanObj
1789 #ifndef SWIG_isfinite
1791 # if defined(isfinite)
1792 # define SWIG_isfinite(X) (isfinite(X))
1793 # elif defined(__cplusplus) && __cplusplus >= 201103L
1803 extern "C++" template<
typename T>
1804 inline int SWIG_isfinite_func(T x) {
1805 using namespace std;
1808 # define SWIG_isfinite(X) (SWIG_isfinite_func(X))
1809 # elif defined(__GNUC__) && (__GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ >= 2))
1810 # define SWIG_isfinite(X) (__builtin_isfinite(X))
1811 # elif defined(__clang__) && defined(__has_builtin)
1812 # if __has_builtin(__builtin_isfinite)
1813 # define SWIG_isfinite(X) (__builtin_isfinite(X))
1815 # elif defined(_MSC_VER)
1816 # define SWIG_isfinite(X) (_finite(X))
1817 # elif defined(__sun) && defined(__SVR4)
1818 # include <ieeefp.h>
1819 # define SWIG_isfinite(X) (finite(X))
1825 #ifdef SWIG_isfinite
1826 # define SWIG_Float_Overflow_Check(X) ((X < -FLT_MAX || X > FLT_MAX) && SWIG_isfinite(X))
1828 # define SWIG_Float_Overflow_Check(X) ((X < -FLT_MAX || X > FLT_MAX))
1836 if (Tcl_GetDoubleFromObj(0, obj, &
v) == TCL_OK) {
1853 if (val) *val =
static_cast< float >(
v);
1860 #define SWIG_From_double Tcl_NewDoubleObj
1867 if (Tcl_GetLongFromObj(0,obj, &
v) == TCL_OK) {
1868 if (val) *val = (long)
v;
1881 if ((v < INT_MIN || v > INT_MAX)) {
1884 if (val) *val =
static_cast< int >(
v);
1894 if (((
long) INT_MIN <= value) && (value <= (
long) INT_MAX)) {
1895 return Tcl_NewIntObj(
static_cast< int >(value));
1897 return Tcl_NewLongObj(value);
1913 if (Tcl_GetBooleanFromObj(0, obj, &
v) == TCL_OK) {
1914 if (val) *val =
v ? true :
false;
1925 if (code==
"list")
return self->listlayers();
1926 else if (code==
"ls")
return self->listlayers();
1927 else if (code==
"current")
return self->getlayer();
1928 else return "Wrong arg. window_name layer [list ls current]";
1931 if (code==
"new")
self->newlayer(
name);
1932 else if (code==
"on")
self->setonlayer(
name);
1933 else if (code==
"off")
self->setofflayer(
name);
1934 else if (code==
"set")
self->setlayer(
name);
1935 else if (code==
"erase")
self->eraselayer(
name);
1936 else if (code==
"rm")
self->eraselayer(
name);
1937 else if (code==
"exist")
self->printout(self->existlayer(
name));
1938 else self->printout(
"Wrong arg. window_name layer (new on off set erase) name");
1941 if (code==
"point")
self->eraselastpoint();
1942 else if (code==
"line")
self->eraselastline();
1943 else if (code==
"polyline")
self->eraselastpolyline();
1944 else self->printout(
"Wrong arg. window_name erase (point line polyline)");
1947 if (code==
"on")
self->fullscreenon();
1948 else if (code==
"off")
self->fullscreenoff();
1949 else self->printout(
"Wrong arg. window_name fullscreen code (on off)");
1952 if (code==
"on")
self->perspectia_view();
1953 else if (code==
"off")
self->parallel_view();
1954 else self->printout(
"Wrong arg. window_name perspective code (on off)");
1957 if (code==
"on")
self->cursor_show();
1958 else if (code==
"off")
self->cursor_hide();
1959 else self->printout(
"Wrong arg. window_name cursor code (on off)");
1962 if (code==
"spot")
self->spotlight();
1963 else if (code==
"sun")
self->sunlight();
1964 else self->printout(
"Wrong arg. window_name light code (spot sun)");
1967 if (code==
"pt")
self->ptin(file);
1968 else if (code==
"dxf")
self->dxfin(file);
1969 else if (code==
"vec")
self->open(file);
1970 else self->printout(
"Wrong code. window_name import code (dxf pt vec)");
1973 if (code==
"pt")
self->ptout(file);
1974 else if (code==
"dxf")
self->dxfout(file);
1975 else if (code==
"jpeg")
self->jpgout(file);
1976 else if (code==
"rib")
self->ribout(file);
1977 else if (code==
"png")
self->pngout(file);
1978 else if (code==
"vec")
self->save(file);
1979 else if (code==
"vrml")
self->vrmlout(file);
1980 else if (code==
"vtk")
self->vtkout(file);
1981 else self->printout(
"Wrong code. window_name export code (jpeg png pt rib tif vec vrml vtk)");
1985 pt[0] = x;
pt[1] = y;
pt[2] = z;
1986 self->viewpoint(
pt);
1990 pt[0] = x;
pt[1] = y;
pt[2] = z;
1991 self->focalpoint(
pt);
1994 a_point vp =
self->viewpoint();
1995 std::ostringstream out;
2000 a_point fp =
self->focalpoint();
2001 std::ostringstream out;
2007 pt[0] = x;
pt[1] = y;
pt[2] = z;
2041 arg1 =
reinterpret_cast< a_screen *
>(argp1);
2079 arg1 =
reinterpret_cast< a_screen *
>(argp1);
2095 std::string *arg2 = 0 ;
2101 if (
SWIG_GetArgs(interp, objc, objv,
"oo:a_screen_existlayer self s ",(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
2106 arg1 =
reinterpret_cast< a_screen *
>(argp1);
2108 std::string *ptr = (std::string *)0;
2119 result = (bool)((
a_screen const *)arg1)->existlayer((std::string
const &)*arg2);
2123 Tcl_SetObjResult(interp,
SWIG_From_bool(
static_cast< bool >(result)));
2135 std::string *arg2 = 0 ;
2144 if (
SWIG_GetArgs(interp, objc, objv,
"ooo:a_screen_existlayer self s a_screenlayer *& ",(
void *)0,(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
2149 arg1 =
reinterpret_cast< a_screen *
>(argp1);
2151 std::string *ptr = (std::string *)0;
2170 result = (bool)((
a_screen const *)arg1)->existlayer((std::string
const &)*arg2,*arg3);
2174 Tcl_SetObjResult(interp,
SWIG_From_bool(
static_cast< bool >(result)));
2185 Tcl_Obj *CONST *argv = objv+1;
2219 Tcl_SetResult(interp,(
char *)
"Wrong number or type of arguments for overloaded function 'a_screen_existlayer'.\n"
2220 " Possible C/C++ prototypes are:\n"
2221 " a_screen::existlayer(std::string const &) const\n"
2222 " a_screen::existlayer(std::string const &,a_screenlayer *&) const\n", TCL_STATIC);
2242 if (
SWIG_GetArgs(interp, objc, objv,
"oooo:a_screen_color self r g b ",(
void *)0,(
void *)0,(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
2247 arg1 =
reinterpret_cast< a_screen *
>(argp1);
2252 arg2 =
static_cast< float >(val2);
2257 arg3 =
static_cast< float >(val3);
2262 arg4 =
static_cast< float >(val4);
2264 (arg1)->color(arg2,arg3,arg4);
2284 if (
SWIG_GetArgs(interp, objc, objv,
"oo:a_screen_R self v ",(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
2289 arg1 =
reinterpret_cast< a_screen *
>(argp1);
2294 arg2 =
static_cast< double >(val2);
2316 if (
SWIG_GetArgs(interp, objc, objv,
"oo:a_screen_G self v ",(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
2321 arg1 =
reinterpret_cast< a_screen *
>(argp1);
2326 arg2 =
static_cast< double >(val2);
2348 if (
SWIG_GetArgs(interp, objc, objv,
"oo:a_screen_B self v ",(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
2353 arg1 =
reinterpret_cast< a_screen *
>(argp1);
2358 arg2 =
static_cast< double >(val2);
2383 arg1 =
reinterpret_cast< a_screen *
>(argp1);
2385 result = (double)((
a_screen const *)arg1)->R();
2398 Tcl_Obj *CONST *argv = objv+1;
2425 Tcl_SetResult(interp,(
char *)
"Wrong number or type of arguments for overloaded function 'a_screen_R'.\n"
2426 " Possible C/C++ prototypes are:\n"
2427 " a_screen::R(double)\n"
2428 " a_screen::R() const\n", TCL_STATIC);
2445 arg1 =
reinterpret_cast< a_screen *
>(argp1);
2447 result = (double)((
a_screen const *)arg1)->G();
2460 Tcl_Obj *CONST *argv = objv+1;
2487 Tcl_SetResult(interp,(
char *)
"Wrong number or type of arguments for overloaded function 'a_screen_G'.\n"
2488 " Possible C/C++ prototypes are:\n"
2489 " a_screen::G(double)\n"
2490 " a_screen::G() const\n", TCL_STATIC);
2507 arg1 =
reinterpret_cast< a_screen *
>(argp1);
2509 result = (double)((
a_screen const *)arg1)->B();
2522 Tcl_Obj *CONST *argv = objv+1;
2549 Tcl_SetResult(interp,(
char *)
"Wrong number or type of arguments for overloaded function 'a_screen_B'.\n"
2550 " Possible C/C++ prototypes are:\n"
2551 " a_screen::B(double)\n"
2552 " a_screen::B() const\n", TCL_STATIC);
2566 if (
SWIG_GetArgs(interp, objc, objv,
"oo:a_screen_thickness self v ",(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
2571 arg1 =
reinterpret_cast< a_screen *
>(argp1);
2576 arg2 =
static_cast< int >(val2);
2578 (arg1)->thickness(arg2);
2596 if (
SWIG_GetArgs(interp, objc, objv,
"o:a_screen_thickness self ",(
void *)0) == TCL_ERROR)
SWIG_fail;
2601 arg1 =
reinterpret_cast< a_screen *
>(argp1);
2603 result = (int)((
a_screen const *)arg1)->thickness();
2607 Tcl_SetObjResult(interp,
SWIG_From_int(
static_cast< int >(result)));
2616 Tcl_Obj *CONST *argv = objv+1;
2643 Tcl_SetResult(interp,(
char *)
"Wrong number or type of arguments for overloaded function 'a_screen_thickness'.\n"
2644 " Possible C/C++ prototypes are:\n"
2645 " a_screen::thickness(int const)\n"
2646 " a_screen::thickness() const\n", TCL_STATIC);
2663 arg1 =
reinterpret_cast< a_screen *
>(argp1);
2665 result = (bool)((
a_screen const *)arg1)->empty();
2669 Tcl_SetObjResult(interp,
SWIG_From_bool(
static_cast< bool >(result)));
2685 if (
SWIG_GetArgs(interp, objc, objv,
"oo:a_screen_empty self code ",(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
2690 arg1 =
reinterpret_cast< a_screen *
>(argp1);
2695 arg2 =
static_cast< bool >(val2);
2697 (arg1)->empty(arg2);
2710 Tcl_Obj *CONST *argv = objv+1;
2737 Tcl_SetResult(interp,(
char *)
"Wrong number or type of arguments for overloaded function 'a_screen_empty'.\n"
2738 " Possible C/C++ prototypes are:\n"
2739 " a_screen::empty() const\n"
2740 " a_screen::empty(bool)\n", TCL_STATIC);
2756 arg1 =
reinterpret_cast< a_screen *
>(argp1);
2775 if (
SWIG_GetArgs(interp, objc, objv,
"o:a_screen_getinteract self ",(
void *)0) == TCL_ERROR)
SWIG_fail;
2780 arg1 =
reinterpret_cast< a_screen *
>(argp1);
2782 (arg1)->getinteract();
2802 if (
SWIG_GetArgs(interp, objc, objv,
"oo:a_screen_point self p ",(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
2807 arg1 =
reinterpret_cast< a_screen *
>(argp1);
2815 arg2 =
reinterpret_cast< a_point *
>(argp2);
2817 (arg1)->point((a_point
const &)*arg2);
2843 if (
SWIG_GetArgs(interp, objc, objv,
"oooo:a_screen_point self x y z ",(
void *)0,(
void *)0,(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
2848 arg1 =
reinterpret_cast< a_screen *
>(argp1);
2853 arg2 =
static_cast< double >(val2);
2858 arg3 =
static_cast< double >(val3);
2863 arg4 =
static_cast< double >(val4);
2865 (arg1)->point(arg2,arg3,arg4);
2878 Tcl_Obj *CONST *argv = objv+1;
2922 Tcl_SetResult(interp,(
char *)
"Wrong number or type of arguments for overloaded function 'a_screen_point'.\n"
2923 " Possible C/C++ prototypes are:\n"
2924 " a_screen::point(a_point const &)\n"
2925 " a_screen::point(double,double,double)\n", TCL_STATIC);
2942 if (
SWIG_GetArgs(interp, objc, objv,
"ooo:a_screen_line self p1 p2 ",(
void *)0,(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
2947 arg1 =
reinterpret_cast< a_screen *
>(argp1);
2955 arg2 =
reinterpret_cast< a_point *
>(argp2);
2963 arg3 =
reinterpret_cast< a_point *
>(argp3);
2965 (arg1)->line((a_point
const &)*arg2,(a_point
const &)*arg3);
3000 if (
SWIG_GetArgs(interp, objc, objv,
"ooooooo:a_screen_line self x1 y1 z1 x2 y2 z2 ",(
void *)0,(
void *)0,(
void *)0,(
void *)0,(
void *)0,(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
3005 arg1 =
reinterpret_cast< a_screen *
>(argp1);
3010 arg2 =
static_cast< double >(val2);
3015 arg3 =
static_cast< double >(val3);
3020 arg4 =
static_cast< double >(val4);
3025 arg5 =
static_cast< double >(val5);
3030 arg6 =
static_cast< double >(val6);
3035 arg7 =
static_cast< double >(val7);
3037 (arg1)->line(arg2,arg3,arg4,arg5,arg6,arg7);
3050 Tcl_Obj *CONST *argv = objv+1;
3117 Tcl_SetResult(interp,(
char *)
"Wrong number or type of arguments for overloaded function 'a_screen_line'.\n"
3118 " Possible C/C++ prototypes are:\n"
3119 " a_screen::line(a_point const &,a_point const &)\n"
3120 " a_screen::line(double,double,double,double,double,double)\n", TCL_STATIC);
3134 if (
SWIG_GetArgs(interp, objc, objv,
"oo:a_screen_vertex self p ",(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
3139 arg1 =
reinterpret_cast< a_screen *
>(argp1);
3147 arg2 =
reinterpret_cast< a_point *
>(argp2);
3149 (arg1)->vertex((a_point
const &)*arg2);
3175 if (
SWIG_GetArgs(interp, objc, objv,
"oooo:a_screen_vertex self x y z ",(
void *)0,(
void *)0,(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
3180 arg1 =
reinterpret_cast< a_screen *
>(argp1);
3185 arg2 =
static_cast< double >(val2);
3190 arg3 =
static_cast< double >(val3);
3195 arg4 =
static_cast< double >(val4);
3197 (arg1)->vertex(arg2,arg3,arg4);
3210 Tcl_Obj *CONST *argv = objv+1;
3254 Tcl_SetResult(interp,(
char *)
"Wrong number or type of arguments for overloaded function 'a_screen_vertex'.\n"
3255 " Possible C/C++ prototypes are:\n"
3256 " a_screen::vertex(a_point const &)\n"
3257 " a_screen::vertex(double,double,double)\n", TCL_STATIC);
3268 if (
SWIG_GetArgs(interp, objc, objv,
"o:a_screen_endpolyline self ",(
void *)0) == TCL_ERROR)
SWIG_fail;
3273 arg1 =
reinterpret_cast< a_screen *
>(argp1);
3275 (arg1)->endpolyline();
3292 if (
SWIG_GetArgs(interp, objc, objv,
"o:a_screen_closepolyline self ",(
void *)0) == TCL_ERROR)
SWIG_fail;
3297 arg1 =
reinterpret_cast< a_screen *
>(argp1);
3299 (arg1)->closepolyline();
3325 if (
SWIG_GetArgs(interp, objc, objv,
"oooo:a_screen_vertex0 self x y z ",(
void *)0,(
void *)0,(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
3330 arg1 =
reinterpret_cast< a_screen *
>(argp1);
3335 arg2 =
static_cast< double >(val2);
3340 arg3 =
static_cast< double >(val3);
3345 arg4 =
static_cast< double >(val4);
3347 (arg1)->vertex0(arg2,arg3,arg4);
3364 if (
SWIG_GetArgs(interp, objc, objv,
"o:a_screen_endpolyline0 self ",(
void *)0) == TCL_ERROR)
SWIG_fail;
3369 arg1 =
reinterpret_cast< a_screen *
>(argp1);
3371 (arg1)->endpolyline0();
3388 if (
SWIG_GetArgs(interp, objc, objv,
"o:a_screen_closepolyline0 self ",(
void *)0) == TCL_ERROR)
SWIG_fail;
3393 arg1 =
reinterpret_cast< a_screen *
>(argp1);
3395 (arg1)->closepolyline0();
3415 if (
SWIG_GetArgs(interp, objc, objv,
"oo:a_screen_surfacepoint self p ",(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
3420 arg1 =
reinterpret_cast< a_screen *
>(argp1);
3428 arg2 =
reinterpret_cast< a_point *
>(argp2);
3430 (arg1)->surfacepoint((a_point
const &)*arg2);
3456 if (
SWIG_GetArgs(interp, objc, objv,
"oooo:a_screen_surfacepoint self x y z ",(
void *)0,(
void *)0,(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
3461 arg1 =
reinterpret_cast< a_screen *
>(argp1);
3466 arg2 =
static_cast< double >(val2);
3471 arg3 =
static_cast< double >(val3);
3476 arg4 =
static_cast< double >(val4);
3478 (arg1)->surfacepoint(arg2,arg3,arg4);
3491 Tcl_Obj *CONST *argv = objv+1;
3535 Tcl_SetResult(interp,(
char *)
"Wrong number or type of arguments for overloaded function 'a_screen_surfacepoint'.\n"
3536 " Possible C/C++ prototypes are:\n"
3537 " a_screen::surfacepoint(a_point const &)\n"
3538 " a_screen::surfacepoint(double,double,double)\n", TCL_STATIC);
3558 if (
SWIG_GetArgs(interp, objc, objv,
"oooo:a_screen_background self R G B ",(
void *)0,(
void *)0,(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
3563 arg1 =
reinterpret_cast< a_screen *
>(argp1);
3568 arg2 =
static_cast< double >(val2);
3573 arg3 =
static_cast< double >(val3);
3578 arg4 =
static_cast< double >(val4);
3580 (arg1)->background(arg2,arg3,arg4);
3600 if (
SWIG_GetArgs(interp, objc, objv,
"oo:a_screen_azimuth self v ",(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
3605 arg1 =
reinterpret_cast< a_screen *
>(argp1);
3610 arg2 =
static_cast< double >(val2);
3612 (arg1)->azimuth(arg2);
3632 if (
SWIG_GetArgs(interp, objc, objv,
"oo:a_screen_elevation self v ",(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
3637 arg1 =
reinterpret_cast< a_screen *
>(argp1);
3642 arg2 =
static_cast< double >(val2);
3644 (arg1)->elevation(arg2);
3664 if (
SWIG_GetArgs(interp, objc, objv,
"oo:a_screen_roll self v ",(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
3669 arg1 =
reinterpret_cast< a_screen *
>(argp1);
3674 arg2 =
static_cast< double >(val2);
3696 if (
SWIG_GetArgs(interp, objc, objv,
"oo:a_screen_pitch self v ",(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
3701 arg1 =
reinterpret_cast< a_screen *
>(argp1);
3706 arg2 =
static_cast< double >(val2);
3708 (arg1)->pitch(arg2);
3728 if (
SWIG_GetArgs(interp, objc, objv,
"oo:a_screen_yaw self v ",(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
3733 arg1 =
reinterpret_cast< a_screen *
>(argp1);
3738 arg2 =
static_cast< double >(val2);
3760 if (
SWIG_GetArgs(interp, objc, objv,
"oo:a_screen_distance self d ",(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
3765 arg1 =
reinterpret_cast< a_screen *
>(argp1);
3770 arg2 =
static_cast< double >(val2);
3772 (arg1)->distance(arg2);
3792 if (
SWIG_GetArgs(interp, objc, objv,
"oo:a_screen_distance0 self v ",(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
3797 arg1 =
reinterpret_cast< a_screen *
>(argp1);
3802 arg2 =
static_cast< double >(val2);
3804 (arg1)->distance0(arg2);
3827 arg1 =
reinterpret_cast< a_screen *
>(argp1);
3829 result = (double)(arg1)->
azimuth();
3842 Tcl_Obj *CONST *argv = objv+1;
3869 Tcl_SetResult(interp,(
char *)
"Wrong number or type of arguments for overloaded function 'a_screen_azimuth'.\n"
3870 " Possible C/C++ prototypes are:\n"
3871 " a_screen::azimuth(double)\n"
3872 " a_screen::azimuth()\n", TCL_STATIC);
3884 if (
SWIG_GetArgs(interp, objc, objv,
"o:a_screen_elevation self ",(
void *)0) == TCL_ERROR)
SWIG_fail;
3889 arg1 =
reinterpret_cast< a_screen *
>(argp1);
3904 Tcl_Obj *CONST *argv = objv+1;
3931 Tcl_SetResult(interp,(
char *)
"Wrong number or type of arguments for overloaded function 'a_screen_elevation'.\n"
3932 " Possible C/C++ prototypes are:\n"
3933 " a_screen::elevation(double)\n"
3934 " a_screen::elevation()\n", TCL_STATIC);
3951 arg1 =
reinterpret_cast< a_screen *
>(argp1);
3953 result = (double)(arg1)->
roll();
3966 Tcl_Obj *CONST *argv = objv+1;
3993 Tcl_SetResult(interp,(
char *)
"Wrong number or type of arguments for overloaded function 'a_screen_roll'.\n"
3994 " Possible C/C++ prototypes are:\n"
3995 " a_screen::roll(double)\n"
3996 " a_screen::roll()\n", TCL_STATIC);
4013 arg1 =
reinterpret_cast< a_screen *
>(argp1);
4015 result = (double)(arg1)->
distance();
4028 Tcl_Obj *CONST *argv = objv+1;
4055 Tcl_SetResult(interp,(
char *)
"Wrong number or type of arguments for overloaded function 'a_screen_distance'.\n"
4056 " Possible C/C++ prototypes are:\n"
4057 " a_screen::distance(double)\n"
4058 " a_screen::distance()\n", TCL_STATIC);
4069 if (
SWIG_GetArgs(interp, objc, objv,
"o:a_screen_render_clip self ",(
void *)0) == TCL_ERROR)
SWIG_fail;
4074 arg1 =
reinterpret_cast< a_screen *
>(argp1);
4076 (arg1)->render_clip();
4098 arg1 =
reinterpret_cast< a_screen *
>(argp1);
4122 arg1 =
reinterpret_cast< a_screen *
>(argp1);
4144 if (
SWIG_GetArgs(interp, objc, objv,
"oo:a_screen_outputfile self text ",(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
4149 arg1 =
reinterpret_cast< a_screen *
>(argp1);
4157 arg2 =
reinterpret_cast< a_text *
>(argp2);
4179 if (
SWIG_GetArgs(interp, objc, objv,
"oo:a_screen_logfile self text ",(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
4184 arg1 =
reinterpret_cast< a_screen *
>(argp1);
4192 arg2 =
reinterpret_cast< a_text *
>(argp2);
4208 std::string *arg2 = 0 ;
4214 if (
SWIG_GetArgs(interp, objc, objv,
"oo:a_screen_layer self code ",(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
4219 arg1 =
reinterpret_cast< a_screen *
>(argp1);
4221 std::string *ptr = (std::string *)0;
4248 std::string *arg2 = 0 ;
4249 std::string *arg3 = 0 ;
4255 if (
SWIG_GetArgs(interp, objc, objv,
"ooo:a_screen_layer self code name ",(
void *)0,(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
4260 arg1 =
reinterpret_cast< a_screen *
>(argp1);
4262 std::string *ptr = (std::string *)0;
4273 std::string *ptr = (std::string *)0;
4301 Tcl_Obj *CONST *argv = objv+1;
4334 Tcl_SetResult(interp,(
char *)
"Wrong number or type of arguments for overloaded function 'a_screen_layer'.\n"
4335 " Possible C/C++ prototypes are:\n"
4336 " a_screen::layer(std::string const &)\n"
4337 " a_screen::layer(std::string const &,std::string const &)\n", TCL_STATIC);
4345 std::string *arg2 = 0 ;
4350 if (
SWIG_GetArgs(interp, objc, objv,
"oo:a_screen_erase self code ",(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
4355 arg1 =
reinterpret_cast< a_screen *
>(argp1);
4357 std::string *ptr = (std::string *)0;
4384 std::string *arg2 = 0 ;
4389 if (
SWIG_GetArgs(interp, objc, objv,
"oo:a_screen_fullscreen self code ",(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
4394 arg1 =
reinterpret_cast< a_screen *
>(argp1);
4396 std::string *ptr = (std::string *)0;
4423 std::string *arg2 = 0 ;
4428 if (
SWIG_GetArgs(interp, objc, objv,
"oo:a_screen_perspective self code ",(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
4433 arg1 =
reinterpret_cast< a_screen *
>(argp1);
4435 std::string *ptr = (std::string *)0;
4462 std::string *arg2 = 0 ;
4467 if (
SWIG_GetArgs(interp, objc, objv,
"oo:a_screen_cursor self code ",(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
4472 arg1 =
reinterpret_cast< a_screen *
>(argp1);
4474 std::string *ptr = (std::string *)0;
4501 std::string *arg2 = 0 ;
4506 if (
SWIG_GetArgs(interp, objc, objv,
"oo:a_screen_light self code ",(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
4511 arg1 =
reinterpret_cast< a_screen *
>(argp1);
4513 std::string *ptr = (std::string *)0;
4540 std::string *arg2 = 0 ;
4541 std::string *arg3 = 0 ;
4547 if (
SWIG_GetArgs(interp, objc, objv,
"ooo:a_screen_import self code file ",(
void *)0,(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
4552 arg1 =
reinterpret_cast< a_screen *
>(argp1);
4554 std::string *ptr = (std::string *)0;
4565 std::string *ptr = (std::string *)0;
4576 a_screen_import(arg1,(std::string
const &)*arg2,(std::string
const &)*arg3);
4594 std::string *arg2 = 0 ;
4595 std::string *arg3 = 0 ;
4601 if (
SWIG_GetArgs(interp, objc, objv,
"ooo:a_screen_save self code file ",(
void *)0,(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
4606 arg1 =
reinterpret_cast< a_screen *
>(argp1);
4608 std::string *ptr = (std::string *)0;
4619 std::string *ptr = (std::string *)0;
4630 a_screen_save(arg1,(std::string
const &)*arg2,(std::string
const &)*arg3);
4660 if (
SWIG_GetArgs(interp, objc, objv,
"oooo:a_screen_viewpoint self x y z ",(
void *)0,(
void *)0,(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
4665 arg1 =
reinterpret_cast< a_screen *
>(argp1);
4670 arg2 =
static_cast< double >(val2);
4675 arg3 =
static_cast< double >(val3);
4680 arg4 =
static_cast< double >(val4);
4708 if (
SWIG_GetArgs(interp, objc, objv,
"oooo:a_screen_focalpoint self x y z ",(
void *)0,(
void *)0,(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
4713 arg1 =
reinterpret_cast< a_screen *
>(argp1);
4718 arg2 =
static_cast< double >(val2);
4723 arg3 =
static_cast< double >(val3);
4728 arg4 =
static_cast< double >(val4);
4748 if (
SWIG_GetArgs(interp, objc, objv,
"o:a_screen_viewpoint self ",(
void *)0) == TCL_ERROR)
SWIG_fail;
4753 arg1 =
reinterpret_cast< a_screen *
>(argp1);
4768 Tcl_Obj *CONST *argv = objv+1;
4807 Tcl_SetResult(interp,(
char *)
"Wrong number or type of arguments for overloaded function 'a_screen_viewpoint'.\n"
4808 " Possible C/C++ prototypes are:\n"
4809 " a_screen::viewpoint(double,double,double)\n"
4810 " a_screen::viewpoint()\n", TCL_STATIC);
4822 if (
SWIG_GetArgs(interp, objc, objv,
"o:a_screen_focalpoint self ",(
void *)0) == TCL_ERROR)
SWIG_fail;
4827 arg1 =
reinterpret_cast< a_screen *
>(argp1);
4842 Tcl_Obj *CONST *argv = objv+1;
4881 Tcl_SetResult(interp,(
char *)
"Wrong number or type of arguments for overloaded function 'a_screen_focalpoint'.\n"
4882 " Possible C/C++ prototypes are:\n"
4883 " a_screen::focalpoint(double,double,double)\n"
4884 " a_screen::focalpoint()\n", TCL_STATIC);
4904 if (
SWIG_GetArgs(interp, objc, objv,
"oooo:a_screen_pan self x y z ",(
void *)0,(
void *)0,(
void *)0,(
void *)0) == TCL_ERROR)
SWIG_fail;
4909 arg1 =
reinterpret_cast< a_screen *
>(argp1);
4914 arg2 =
static_cast< double >(val2);
4919 arg3 =
static_cast< double >(val3);
4924 arg4 =
static_cast< double >(val4);
5138 #define SWIGRUNTIME_DEBUG
5174 }
while (iter!= module_head);
5185 if (init == 0)
return;
5188 #ifdef SWIGRUNTIME_DEBUG
5189 printf(
"SWIG_InitializeModule: size %lu\n", (
unsigned long)
swig_module.
size);
5196 #ifdef SWIGRUNTIME_DEBUG
5206 #ifdef SWIGRUNTIME_DEBUG
5207 printf(
"SWIG_InitializeModule: found type %s\n", type->
name);
5211 #ifdef SWIGRUNTIME_DEBUG
5212 printf(
"SWIG_InitializeModule: found and overwrite type %s \n", type->
name);
5221 while (cast->
type) {
5224 #ifdef SWIGRUNTIME_DEBUG
5225 printf(
"SWIG_InitializeModule: look cast %s\n", cast->
type->
name);
5229 #ifdef SWIGRUNTIME_DEBUG
5230 if (ret) printf(
"SWIG_InitializeModule: found cast %s\n", ret->
name);
5235 #ifdef SWIGRUNTIME_DEBUG
5236 printf(
"SWIG_InitializeModule: skip old type %s\n", ret->
name);
5243 #ifdef SWIGRUNTIME_DEBUG
5244 if (ocast) printf(
"SWIG_InitializeModule: skip old cast %s\n", ret->
name);
5246 if (!ocast) ret = 0;
5251 #ifdef SWIGRUNTIME_DEBUG
5252 printf(
"SWIG_InitializeModule: adding cast %s\n", cast->
type->
name);
5267 #ifdef SWIGRUNTIME_DEBUG
5268 printf(
"**** SWIG_InitializeModule: Cast List ******\n");
5273 while (cast->
type) {
5274 printf(
"SWIG_InitializeModule: cast type %s\n", cast->
type->
name);
5278 printf(
"---- Total casts: %d\n",j);
5280 printf(
"**** SWIG_InitializeModule: Cast List ******\n");
5293 static int init_run = 0;
5295 if (init_run)
return;
5306 equiv = equiv->
next;
5340 for (i = 0; constants[i].
type; i++) {
5341 switch(constants[i].type) {
5346 obj =
SWIG_NewPackedObj(constants[i].pvalue, constants[i].lvalue, *(constants[i].ptype));
5369 Tcl_InitHashTable(&(klass->
hashtable), TCL_STRING_KEYS);
5370 for (meth = klass->
methods; meth && meth->
name; ++meth) {
5372 Tcl_HashEntry* hashentry = Tcl_CreateHashEntry(&(klass->
hashtable), meth->name, &newEntry);
5373 Tcl_SetHashValue(hashentry, (ClientData)meth->method);
5389 if (interp == 0)
return TCL_ERROR;
5390 #ifdef USE_TCL_STUBS
5405 #ifdef SWIG_namespace
5406 Tcl_Eval(interp,
"namespace eval " SWIG_namespace
" { }");
5418 Tcl_TraceVar(interp, (
char *)
swig_variables[i].
name, TCL_TRACE_READS | TCL_GLOBAL_ONLY,
5420 Tcl_TraceVar(interp, (
char *)
swig_variables[i].
name, TCL_TRACE_WRITES | TCL_GLOBAL_ONLY,
5429 printf(
"Points&forces a_screen module.\n");
5430 printf(
"Type a_screen_help for an introduction.\n");
SWIGINTERN void a_screen_outputfile(a_screen *self, a_text &text)
SWIGRUNTIME char * SWIG_PackData(char *c, void *ptr, size_t sz)
static swig_var_info swig_variables[]
SWIGINTERN void a_screen_viewpoint__SWIG_0(a_screen *self, double x, double y, double z)
SWIGINTERNINLINE Tcl_Obj * SWIG_From_std_string(const std::string &s)
SWIGINTERN int _wrap_a_screen_G__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
static swig_cast_info * swig_cast_initial[]
SWIGINTERN void a_screen_redraw(a_screen *self)
SWIGINTERN int _wrap_a_screen_surfacepoint__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGRUNTIME int SWIG_Tcl_ObjectConstructor(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_existlayer__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_R(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_delete_a_screen(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_elevation(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_layer(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGRUNTIME char * SWIG_PackVoidPtr(char *buff, void *ptr, const char *name, size_t bsz)
SWIGINTERN int _wrap_a_screen_layer__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_R__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
static swig_class _wrap_class_a_screen
#define SWIG_MakePtr(c, ptr, ty, flags)
SWIGINTERN void a_screen_perspective(a_screen *self, std::string const &code)
SWIGINTERN int _wrap_a_screen_line__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_R__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN void SWIG_Tcl_InstallConstants(Tcl_Interp *interp, swig_const_info constants[])
#define SWIG_TypeQuery(name)
SWIGINTERN void a_screen_erase(a_screen *self, std::string const &code)
static swig_const_info swig_constants[]
#define SWIG_ConvertPtr(oc, ptr, ty, flags)
SWIGINTERN std::string const a_screen_layer__SWIG_0(a_screen *self, std::string const &code)
#define SWIG_CheckState(r)
SWIGINTERN int _wrap_a_screen_pan(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGRUNTIME void SWIG_Tcl_Acquire(void *ptr)
SWIGINTERN int _wrap_a_screen_type(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGRUNTIME int SWIG_TypeEquiv(const char *nb, const char *tb)
SWIGINTERN int _wrap_a_screen_fullscreen(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_roll(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_existlayer(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_point__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_B__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
struct swig_instance swig_instance
SWIGINTERN int _wrap_a_screen_background(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_color(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN std::string a_screen_focalpoint__SWIG_1(a_screen *self)
SWIGINTERNINLINE void SWIG_Tcl_AddErrorMsg(Tcl_Interp *interp, const char *mesg)
static swig_attribute swig_a_screen_attributes[]
SWIGINTERN void SWIG_Tcl_SetErrorMsg(Tcl_Interp *interp, const char *ctype, const char *mesg)
struct swig_cast_info swig_cast_info
SWIGRUNTIME Tcl_Obj * SWIG_Tcl_NewPackedObj(void *ptr, int sz, swig_type_info *type)
SWIGRUNTIME int SWIG_Tcl_MethodCommand(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[])
SWIGINTERN int _wrap_a_screen_cursor(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_azimuth__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_existlayer__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGRUNTIME int SWIG_TypeNameComp(const char *f1, const char *l1, const char *f2, const char *l2)
SWIGRUNTIMEINLINE void * SWIG_TypeCast(swig_cast_info *ty, void *ptr, int *newmemory)
SWIGINTERN int _wrap_a_screen_B(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_erase(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
#define SWIG_RuntimeError
SWIGINTERN int _wrap_a_screen_endpolyline0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_roll__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
static swig_command_info swig_commands[]
SWIGINTERN int _wrap_a_screen_light(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_distance__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
int(* swig_wrapper_func)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST[])
SWIGINTERN const char * SWIG_Tcl_ErrorType(int code)
SWIGRUNTIME const char * SWIG_TypePrettyName(const swig_type_info *type)
SWIGINTERN int _wrap_a_screen_yaw(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int SWIG_AsCharPtrAndSize(Tcl_Obj *obj, char **cptr, size_t *psize, int *alloc)
SWIGINTERN int _wrap_a_screen_elevation__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
#define SWIG_RUNTIME_VERSION
SWIGINTERN void SWIG_Tcl_SetErrorObj(Tcl_Interp *interp, const char *ctype, Tcl_Obj *obj)
SWIGINTERN int _wrap_a_screen_import(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGRUNTIME void SWIG_TypeClientData(swig_type_info *ti, void *clientdata)
static Tcl_HashTable swigconstTable
#define SWIG_MethodCommand
SWIGRUNTIME int SWIG_Tcl_GetArgs(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], const char *fmt,...)
SWIGINTERNINLINE Tcl_Obj * SWIG_From_int(int value)
SWIGINTERN int _wrap_a_screen_getinteract(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_thickness(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_outputfile(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_distance(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
#define SWIG_exception_fail(code, msg)
SWIGINTERN int _wrap_a_screen_interact(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_vertex(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_endpolyline(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_focalpoint__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_thickness__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGRUNTIME swig_type_info * SWIG_TypeQueryModule(swig_module_info *start, swig_module_info *end, const char *name)
#define SWIG_AttributeError
#define SWIGTYPE_p_p_a_screenlayer
static swig_module_info swig_module
SWIGINTERN void a_screen_logfile(a_screen *self, a_text &text)
SWIGINTERN void swig_delete_a_screen(void *obj)
#define SWIG_SetModule(clientdata, pointer)
SWIGRUNTIMEINLINE const char * SWIG_TypeName(const swig_type_info *ty)
SWIGINTERN int _wrap_a_screen_azimuth(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
#define SWIGUNUSEDPARM(p)
SWIGINTERN void a_screen_import(a_screen *self, std::string const &code, std::string const &file)
struct swig_class swig_class
#define SWIG_as_voidptr(a)
SWIGRUNTIME void SWIG_TypeNewClientData(swig_type_info *ti, void *clientdata)
SWIGINTERN int _wrap_a_screen_redraw(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGRUNTIME void SWIG_Tcl_SetModule(Tcl_Interp *interp, swig_module_info *module)
SWIGRUNTIME int SWIG_TypeCmp(const char *nb, const char *tb)
SWIGRUNTIMEINLINE int SWIG_Tcl_ConvertPtr(Tcl_Interp *interp, Tcl_Obj *oc, void **ptr, swig_type_info *ty, int flags)
struct swig_const_info swig_const_info
SWIGINTERN int _wrap_a_screen_viewpoint__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
static swig_cast_info _swigc__p_p_a_screenlayer[]
SWIGRUNTIME int SWIG_Tcl_Thisown(void *ptr)
SWIGINTERN void a_screen_fullscreen(a_screen *self, std::string const &code)
static swig_type_info _swigt__p_a_screen
SWIGRUNTIME void SWIG_InitializeModule(void *clientdata)
SWIGRUNTIME const char * SWIG_UnpackData(const char *c, void *ptr, size_t sz)
static swig_type_info _swigt__p_a_point
SWIGINTERN void SWIG_Tcl_SetConstantObj(Tcl_Interp *interp, const char *name, Tcl_Obj *obj)
SWIGINTERN void a_screen_focalpoint__SWIG_0(a_screen *self, double x, double y, double z)
SWIGRUNTIMEINLINE Tcl_Obj * SWIG_Tcl_NewPointerObj(void *ptr, swig_type_info *type, int flags)
SWIGINTERN int _wrap_a_screen_closepolyline(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
static swig_type_info _swigt__p_a_text
static swig_cast_info _swigc__p_char[]
static swig_cast_info _swigc__p_a_screen[]
SWIGINTERN int _wrap_a_screen_vertex__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGRUNTIME swig_cast_info * SWIG_TypeCheckStruct(swig_type_info *from, swig_type_info *ty)
static swig_cast_info _swigc__p_a_text[]
SWIGINTERN int _wrap_a_screen_focalpoint__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN void a_screen_light(a_screen *self, std::string const &code)
SWIGINTERN void a_screen_layer__SWIG_1(a_screen *self, std::string const &code, std::string const &name)
SWIGINTERN int _wrap_a_screen_distance0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_pitch(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_new_a_screen(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_save(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
#define SWIG_NewPointerObj(ptr, type, flags)
#define SWIG_Thisown(ptr)
SWIGRUNTIME const char * SWIG_UnpackDataName(const char *c, void *ptr, size_t sz, const char *name)
#define SWIG_Float_Overflow_Check(X)
void *(* swig_converter_func)(void *, int *)
#define SWIG_POINTER_NO_NULL
SWIGINTERN int _wrap_a_screen_G__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_B__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_line__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGRUNTIME Tcl_Obj * SWIG_Tcl_NewInstanceObj(Tcl_Interp *interp, void *thisvalue, swig_type_info *type, int flags)
SWIGINTERN int _wrap_a_screen_fit(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
#define SWIG_NullReferenceError
SWIGINTERN int _wrap_a_screen_elevation__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
static swig_method swig_a_screen_methods[]
#define SWIG_POINTER_DISOWN
struct swig_type_info swig_type_info
SWIGRUNTIME char * SWIG_Tcl_PointerTypeFromString(char *c)
SWIGINTERN void a_screen_fit(a_screen *self)
SWIGINTERN void a_screen_pan(a_screen *self, double x, double y, double z)
SWIGINTERN int _wrap_a_screen_render_clip(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGRUNTIME int SWIG_Tcl_Disown(void *ptr)
static swig_type_info _swigt__p_p_a_screenlayer
#define SWIG_ObjectDelete
SWIGINTERN int _wrap_a_screen_closepolyline0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
static const char * swig_a_screen_base_names[]
#define SWIG_NewPackedObj(ptr, sz, type)
SWIGINTERN int _wrap_a_screen_G(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_distance__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
#define SWIG_GetModule(clientdata)
SWIGRUNTIME void SWIG_PropagateClientData(void)
SWIGRUNTIME swig_cast_info * SWIG_TypeCheck(const char *c, swig_type_info *ty)
static swig_cast_info _swigc__p_a_point[]
SWIGINTERN Tcl_Obj * SWIG_Tcl_GetConstantObj(const char *key)
#define SWIGTYPE_p_a_point
SWIGINTERNINLINE Tcl_Obj * SWIG_FromCharPtrAndSize(const char *carray, size_t size)
SWIGINTERN int _wrap_a_screen_vertex__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN void a_screen_save(a_screen *self, std::string const &code, std::string const &file)
#define SWIG_TYPE_TABLE_NAME
SWIGINTERN int _wrap_a_screen_viewpoint__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGRUNTIME swig_type_info * SWIG_MangledTypeQueryModule(swig_module_info *start, swig_module_info *end, const char *name)
SWIGRUNTIME swig_module_info * SWIG_Tcl_GetModule(Tcl_Interp *interp)
SWIGINTERN int _wrap_a_screen_viewpoint(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
struct swig_module_info swig_module_info
SWIGINTERN int _wrap_a_screen_empty__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
#define SWIG_Acquire(ptr)
SWIGINTERN int _wrap_a_screen_logfile(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_layer__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_azimuth__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGRUNTIME void SWIG_Tcl_ObjectDelete(ClientData clientData)
#define SWIG_TCL_HASHTABLE_INIT
SWIGRUNTIME int SWIG_Tcl_ConvertPacked(Tcl_Interp *SWIGUNUSEDPARM(interp), Tcl_Obj *obj, void *ptr, int sz, swig_type_info *ty)
SWIGEXPORT int A_screen_SafeInit(Tcl_Interp *interp)
#define SWIG_ObjectConstructor
#define SWIG_NewInstanceObj(thisvalue, type, flags)
static swig_type_info * swig_type_initial[]
SWIGINTERN int _wrap_a_screen_thickness__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN std::string a_screen_viewpoint__SWIG_1(a_screen *self)
static int swigconstTableinit
SWIGINTERN int _wrap_a_screen_focalpoint(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
struct swig_attribute swig_attribute
SWIGINTERN int _wrap_a_screen_surfacepoint__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_help(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
void(* swig_delete_func)(ClientData)
SWIGINTERN int _wrap_a_screen_point(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGRUNTIME Tcl_HashTable * SWIG_Tcl_ObjectTable(void)
SWIGRUNTIME int SWIG_Tcl_ConvertPtrFromString(Tcl_Interp *interp, const char *c, void **ptr, swig_type_info *ty, int flags)
SWIGRUNTIME swig_type_info * SWIG_TypeDynamicCast(swig_type_info *ty, void **ptr)
#define SWIGTYPE_p_a_text
SWIGINTERN int _wrap_a_screen_line(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_roll__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGRUNTIME const char * SWIG_UnpackVoidPtr(const char *c, void **ptr, const char *name)
#define SWIGTYPE_p_a_screen
#define SWIG_DivisionByZero
static swig_type_info _swigt__p_char
struct swig_method swig_method
#define SWIG_TCL_DECL_ARGS_2(arg1, arg2)
#define SWIG_OverflowError
SWIGINTERN int _wrap_a_screen_vertex0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
int(* swig_wrapper)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST[])
SWIGINTERNINLINE Tcl_Obj * SWIG_From_long(long value)
static swig_class * swig_a_screen_bases[]
SWIGRUNTIME void SWIG_Tcl_MakePtr(char *c, void *ptr, swig_type_info *ty, int SWIGUNUSEDPARM(flags))
struct swig_type_info *(* swig_dycast_func)(void **)
#define SWIG_TCL_CALL_ARGS_2(arg1, arg2)
SWIGINTERN void a_screen_cursor(a_screen *self, std::string const &code)
SWIGINTERN int _wrap_a_screen_empty__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_perspective(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN int _wrap_a_screen_point__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
SWIGINTERN void SWIG_Tcl_InstallMethodLookupTables(void)
#define SWIG_TCL_STUBS_VERSION
SWIGINTERN int _wrap_a_screen_surfacepoint(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
static swig_type_info * swig_types[6]
SWIGRUNTIME char * SWIG_PackDataName(char *buff, void *ptr, size_t sz, const char *name, size_t bsz)
SWIGINTERN int _wrap_a_screen_empty(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
#define SWIGRUNTIMEINLINE
static const std::string help()
virtual std::string type() const
layer used by screen to draw vector graphics
double v(const uint32_t step, const uint32_t n)
struct swig_cast_info * prev
struct swig_cast_info * next
swig_converter_func converter
struct swig_class ** bases
swig_module_info * module
void(* destructor)(void *)
swig_attribute * attributes
swig_cast_info ** cast_initial
swig_type_info ** type_initial
struct swig_module_info * next
struct swig_cast_info * cast