907 int (*wrapper)(ClientData, Tcl_Interp *, int, Tcl_Obj *
const []);
1280 char *method, *attrname;
1289 int cls_stack_bi[64];
1290 int cls_stack_top = 0;
1294 objv = (Tcl_Obj **) _objv;
1296 Tcl_SetResult(interp, (
char *)
"wrong # args.", TCL_STATIC);
1299 method = Tcl_GetString(objv[1]);
1300 if (strcmp(method,
"-acquire") == 0) {
1305 if (strcmp(method,
"-disown") == 0) {
1312 if (strcmp(method,
"-delete") == 0) {
1313 Tcl_DeleteCommandFromToken(interp,inst->
cmdtok);
1316 cls_stack[cls_stack_top] = inst->
classptr;
1317 cls_stack_bi[cls_stack_top] = -1;
1319 Tcl_HashEntry* hashentry;
1320 bi = cls_stack_bi[cls_stack_top];
1321 cls = cls_stack[cls_stack_top];
1328 cls = cls->
bases[bi];
1330 cls_stack_bi[cls_stack_top]++;
1332 cls_stack[cls_stack_top] = cls;
1333 cls_stack_bi[cls_stack_top] = -1;
1339 if (cls_stack_top < 0)
break;
1342 cls_stack_bi[cls_stack_top]++;
1344 hashentry = Tcl_FindHashEntry(&(cls->
hashtable), method);
1346 ClientData cd = Tcl_GetHashValue(hashentry);
1350 Tcl_IncrRefCount(inst->
thisptr);
1351 rcode = (method_wrapper)(clientData,interp,objc,objv);
1353 Tcl_DecrRefCount(inst->
thisptr);
1357 if (strcmp(method,
"cget") == 0) {
1359 Tcl_SetResult(interp, (
char *)
"wrong # args.", TCL_STATIC);
1362 attrname = Tcl_GetString(objv[2]);
1364 while (attr && attr->
name) {
1365 if ((strcmp(attr->
name, attrname) == 0) && (attr->
getmethod)) {
1368 Tcl_IncrRefCount(inst->
thisptr);
1369 rcode = (*attr->
getmethod)(clientData,interp,2, objv);
1371 Tcl_DecrRefCount(inst->
thisptr);
1376 if (strcmp(attrname,
"-this") == 0) {
1377 Tcl_SetObjResult(interp, Tcl_DuplicateObj(inst->
thisptr));
1380 if (strcmp(attrname,
"-thisown") == 0) {
1382 Tcl_SetResult(interp,(
char*)
"1",TCL_STATIC);
1384 Tcl_SetResult(interp,(
char*)
"0",TCL_STATIC);
1388 }
else if (strcmp(method,
"configure") == 0) {
1391 Tcl_SetResult(interp, (
char *)
"wrong # args.", TCL_STATIC);
1396 attrname = Tcl_GetString(objv[i]);
1398 while (attr && attr->
name) {
1399 if ((strcmp(attr->
name, attrname) == 0) && (attr->
setmethod)) {
1402 Tcl_IncrRefCount(inst->
thisptr);
1403 rcode = (*attr->
setmethod)(clientData,interp,3, &objv[i-1]);
1405 Tcl_DecrRefCount(inst->
thisptr);
1406 if (rcode != TCL_OK)
return rcode;
1415 if (strcmp(method,
"configure") == 0) {
1416 if (numconf >= objc) {
1419 Tcl_SetResult(interp,(
char *)
"Invalid attribute name.", TCL_STATIC);
1423 if (strcmp(method,
"cget") == 0) {
1424 Tcl_SetResult(interp,(
char *)
"Invalid attribute name.", TCL_STATIC);
1427 Tcl_SetResult(interp, (
char *)
"Invalid method. Must be one of: configure cget -acquire -disown -delete", TCL_STATIC);
1432 while (meth && meth->
name) {
1434 size_t meth_len = strlen(meth->
name);
1435 char* where = strchr(cr,
':');
1437 where = strstr(where, meth->
name);
1439 if(where[-1] ==
' ' && (where[meth_len] ==
' ' || where[meth_len]==0)) {
1448 Tcl_AppendElement(interp, (
char *) meth->
name);
1461 if (thisvalue && (
type->clientdata) && (interp)) {
1465 name = Tcl_GetString(robj);
1466 has_command = Tcl_GetCommandInfo(interp, name, &ci);
1467 if (!has_command ||
flags) {
1469 newinst->
thisptr = Tcl_DuplicateObj(robj);
1470 Tcl_IncrRefCount(newinst->
thisptr);
1495 Tcl_Obj *newObj = 0;
1496 void *thisvalue = 0;
1506 Tcl_SetResult(interp, (
char *)
"swig: internal runtime error. No class object defined.", TCL_STATIC);
1511 char *
s = Tcl_GetString(objv[1]);
1512 if (strcmp(
s,
"-this") == 0) {
1515 }
else if (strcmp(
s,
"-args") == 0) {
1517 }
else if (objc == 2) {
1520 }
else if (objc >= 3) {
1523 s1 = Tcl_GetString(objv[2]);
1524 if (strcmp(
s1,
"-this") == 0) {
1534 result = (*cons)(0, interp, objc-firstarg, &objv[firstarg]);
1535 if (result != TCL_OK) {
1538 newObj = Tcl_DuplicateObj(Tcl_GetObjResult(interp));
1539 if (!name) name = Tcl_GetString(newObj);
1540 }
else if (thisarg > 0) {
1541 if (thisarg < objc) {
1543 newObj = Tcl_DuplicateObj(objv[thisarg]);
1544 if (!name) name = Tcl_GetString(newObj);
1546 Tcl_SetResult(interp, (
char *)
"wrong # args.", TCL_STATIC);
1550 Tcl_SetResult(interp, (
char *)
"No constructor available.", TCL_STATIC);
1554 Tcl_DecrRefCount(newObj);
1559 Tcl_IncrRefCount(newObj);
1575 int argno = 0, opt = 0;
1585 for (c = fmt; (*c && (*c !=
':') && (*c !=
';')); c++,argno++) {
1590 if (argno >= (objc-1)) {
1592 Tcl_SetResult(interp, (
char *)
"Wrong number of arguments ", TCL_STATIC);
1600 vptr = va_arg(ap,
void *);
1604 if (!obj) obj = objv[argno+1];
1606 obj = objv[argno+1];
1613 if (Tcl_GetLongFromObj(interp,obj,&tempi) != TCL_OK)
goto argerror;
1614 if ((*c ==
'i') || (*c ==
'I')) *((
int *)vptr) = (int)tempi;
1615 else if ((*c ==
'l') || (*c ==
'L')) *((
long *)vptr) = (long)tempi;
1616 else if ((*c ==
'h') || (*c ==
'H')) *((
short*)vptr) = (short)tempi;
1617 else if ((*c ==
'b') || (*c ==
'B')) *((
unsigned char *)vptr) = (
unsigned char)tempi;
1621 if (Tcl_GetDoubleFromObj(interp,obj,&tempd) != TCL_OK)
goto argerror;
1622 if ((*c ==
'f') || (*c ==
'F')) *((
float *) vptr) = (float)tempd;
1623 else if ((*c ==
'd') || (*c ==
'D')) *((
double*) vptr) = tempd;
1626 if (*(c+1) ==
'#') {
1627 int *vlptr = (
int *) va_arg(ap,
void *);
1628 *((
char **) vptr) = Tcl_GetStringFromObj(obj, vlptr);
1631 *((
char **)vptr) = Tcl_GetString(obj);
1635 *((
char *)vptr) = *(Tcl_GetString(obj));
1642 *((Tcl_Obj **)vptr) = objv[argno+1];
1650 if ((*c !=
';') && ((objc-1) > argno)) {
1651 Tcl_SetResult(interp, (
char *)
"Wrong # args.", TCL_STATIC);
1661 c = strchr(fmt,
':');
1662 if (!c) c = strchr(fmt,
';');
1663 if (!c) c = (
char *)
"";
1664 Tcl_AppendResult(interp,c,
" argument ", temp, (
char *)
NULL);
1721 SwigValueWrapper& operator=(
T&& t) { SwigSmartPointer tmp(
new T(std::move(t))); pointer = tmp;
return *
this; }
2444 Tcl_Obj *
const *argv = objv+1;
2504 Tcl_SetResult(interp,(
char *)
"Wrong number or type of arguments for overloaded function 'edge'.\n"
2505 " Possible C/C++ prototypes are:\n"
2506 " edge(Agnode_t *,Agnode_t *)\n"
2507 " edge(Agnode_t *,char *)\n"
2508 " edge(char *,Agnode_t *)\n"
2509 " edge(Agraph_t *,char *,char *)\n", TCL_STATIC);
2765 Tcl_Obj *
const *argv = objv+1;
2873 Tcl_SetResult(interp,(
char *)
"Wrong number or type of arguments for overloaded function 'setv'.\n"
2874 " Possible C/C++ prototypes are:\n"
2875 " setv(Agraph_t *,char *,char *)\n"
2876 " setv(Agnode_t *,char *,char *)\n"
2877 " setv(Agedge_t *,char *,char *)\n"
2878 " setv(Agraph_t *,Agsym_t *,char *)\n"
2879 " setv(Agnode_t *,Agsym_t *,char *)\n"
2880 " setv(Agedge_t *,Agsym_t *,char *)\n", TCL_STATIC);
3070 Tcl_Obj *
const *argv = objv+1;
3154 Tcl_SetResult(interp,(
char *)
"Wrong number or type of arguments for overloaded function 'getv'.\n"
3155 " Possible C/C++ prototypes are:\n"
3156 " getv(Agraph_t *,char *)\n"
3157 " getv(Agnode_t *,char *)\n"
3158 " getv(Agedge_t *,char *)\n"
3159 " getv(Agraph_t *,Agsym_t *)\n"
3160 " getv(Agnode_t *,Agsym_t *)\n"
3161 " getv(Agedge_t *,Agsym_t *)\n", TCL_STATIC);
3231 Tcl_Obj *
const *argv = objv+1;
3261 Tcl_SetResult(interp,(
char *)
"Wrong number or type of arguments for overloaded function 'nameof'.\n"
3262 " Possible C/C++ prototypes are:\n"
3263 " nameof(Agraph_t *)\n"
3264 " nameof(Agnode_t *)\n"
3265 " nameof(Agsym_t *)\n", TCL_STATIC);
3461 Tcl_Obj *
const *argv = objv+1;
3503 Tcl_SetResult(interp,(
char *)
"Wrong number or type of arguments for overloaded function 'findattr'.\n"
3504 " Possible C/C++ prototypes are:\n"
3505 " findattr(Agraph_t *,char *)\n"
3506 " findattr(Agnode_t *,char *)\n"
3507 " findattr(Agedge_t *,char *)\n", TCL_STATIC);
3619 Tcl_Obj *
const *argv = objv+1;
3649 Tcl_SetResult(interp,(
char *)
"Wrong number or type of arguments for overloaded function 'graphof'.\n"
3650 " Possible C/C++ prototypes are:\n"
3651 " graphof(Agraph_t *)\n"
3652 " graphof(Agedge_t *)\n"
3653 " graphof(Agnode_t *)\n", TCL_STATIC);
3807 Tcl_Obj *
const *argv = objv+1;
3846 Tcl_SetResult(interp,(
char *)
"Wrong number or type of arguments for overloaded function 'ok'.\n"
3847 " Possible C/C++ prototypes are:\n"
3851 " ok(Agsym_t *)\n", TCL_STATIC);