--- graphviz-2.20.3/tclpkg/gv/gv_tcl.n 2008-10-08 01:59:01.000000000 +0200 +++ graphviz-2.20.3/tclpkg/gv/gv_tcl.cpp 2009-08-12 01:39:41.000000000 +0200 @@ -1,340 +1,5898 @@ -.TH GV_TCL N "07 October 2008" +/* ---------------------------------------------------------------------------- + * This file was automatically generated by SWIG (http://www.swig.org). + * Version 1.3.39 + * + * This file is not intended to be easily readable and contains a number of + * coding conventions designed to improve portability and efficiency. Do not make + * changes to this file unless you know what you are doing--modify the SWIG + * interface file instead. + * ----------------------------------------------------------------------------- */ -.SH NAME +#define SWIGTCL -gv_tcl - graph manipulation in tcl -.SH SYNOPSIS +#ifdef __cplusplus +/* SwigValueWrapper is described in swig.swg */ +template class SwigValueWrapper { + struct SwigMovePointer { + T *ptr; + SwigMovePointer(T *p) : ptr(p) { } + ~SwigMovePointer() { delete ptr; } + SwigMovePointer& operator=(SwigMovePointer& rhs) { T* oldptr = ptr; ptr = 0; delete oldptr; ptr = rhs.ptr; rhs.ptr = 0; return *this; } + } pointer; + SwigValueWrapper& operator=(const SwigValueWrapper& rhs); + SwigValueWrapper(const SwigValueWrapper& rhs); +public: + SwigValueWrapper() : pointer(0) { } + SwigValueWrapper& operator=(const T& t) { SwigMovePointer tmp(new T(t)); pointer = tmp; return *this; } + operator T&() const { return *pointer.ptr; } + T *operator&() { return pointer.ptr; } +}; -#!/usr/bin/tclsh -.br -package require gv - -.SH USAGE - -Requires tcl8.3 or later. - -.SH INTRODUCTION - -.B gv_tcl -is a dynamically loaded extension for -.B tcl -that provides access to the graph facilities of -.B graphviz. - -.SH COMMANDS - -.TP -\fBNew graphs\fR -.br -.TP -New empty graph -.br -\fI\fR \fBgv::graph\fR \fI\fR -.br -\fI\fR \fBgv::digraph\fR \fI\fR -.br -\fI\fR \fBgv::strictgraph\fR \fI\fR -.br -\fI\fR \fBgv::strictdigraph\fR \fI\fR -.br -.TP -New graph from a dot-syntax string or file -.br -\fI\fR \fBgv::readstring\fR \fI\fR -.br -\fI\fR \fBgv::read\fR \fI\fR -.br -\fI\fR \fBgv::read\fR \fI\fR -.br -.TP -Add new subgraph to existing graph -.br -\fI\fR \fBgv::graph\fR \fI \fR -.br -.TP -\fBNew nodes\fR -.br -.TP -Add new node to existing graph -.br -\fI\fR \fBgv::node\fR \fI \fR -.br -.TP -\fBNew edges\fR -.br -.TP -Add new edge between existing nodes -.br -\fI\fR \fBgv::edge\fR \fI \fR -.br -.TP -Add a new edge between an existing tail node, and a named head node which will be induced in the graph if it doesn't already exist -.br -\fI\fR \fBgv::edge\fR \fI \fR -.br -.TP -Add a new edge between an existing head node, and a named tail node which will be induced in the graph if it doesn't already exist -.br -\fI\fR \fBgv::edge\fR \fI \fR -.br -.TP -Add a new edge between named tail and head nodes which will be induced in the graph if they don't already exist -.br -\fI\fR \fBgv::edge\fR \fI \fR -.br -.TP -\fBSetting attribute values\fR -.br -.TP -Set value of named attribute of graph/node/edge - creating attribute if necessary -.br -\fI\fR \fBgv::setv\fR \fI \fR -.br -\fI\fR \fBgv::setv\fR \fI \fR -.br -\fI\fR \fBgv::setv\fR \fI \fR -.br -.TP -Set value of existing attribute of graph/node/edge (using attribute handle) -.br -\fI\fR \fBgv::setv\fR \fI \fR -.br -\fI\fR \fBgv::setv\fR \fI \fR -.br -\fI\fR \fBgv::setv\fR \fI \fR -.br -.TP -\fBGetting attribute values\fR -.br -.TP -Get value of named attribute of graph/node/edge -.br -\fI\fR \fBgv::getv\fR \fI \fR -.br -\fI\fR \fBgv::getv\fR \fI \fR -.br -\fI\fR \fBgv::getv\fR \fI \fR -.br -.TP -Get value of attribute of graph/node/edge (using attribute handle) -.br -\fI\fR \fBgv::getv\fR \fI \fR -.br -\fI\fR \fBgv::getv\fR \fI \fR -.br -\fI\fR \fBgv::getv\fR \fI \fR -.br -.TP -\fBObtain names from handles\fR -.br -\fI\fR \fBgv::nameof\fR \fI\fR -.br -\fI\fR \fBgv::nameof\fR \fI\fR -.br -\fI\fR \fBgv::nameof\fR \fI\fR -.br -.TP -\fBFind handles from names\fR -.br -\fI\fR \fBgv::findsubg\fR \fI \fR -.br -\fI\fR \fBgv::findnode\fR \fI \fR -.br -\fI\fR \fBgv::findedge\fR \fI \fR -.br -\fI\fR \fBgv::findattr\fR \fI \fR -.br -\fI\fR \fBgv::findattr\fR \fI \fR -.br -\fI\fR \fBgv::findattr\fR \fI \fR -.br -.TP -\fBMisc graph navigators returning handles\fR -.br -\fI\fR \fBgv::headof\fR \fI\fR -.br -\fI\fR \fBgv::tailof\fR \fI\fR -.br -\fI\fR \fBgv::graphof\fR \fI\fR -.br -\fI\fR \fBgv::graphof\fR \fI\fR -.br -\fI\fR \fBgv::graphof\fR \fI\fR -.br -\fI\fR \fBgv::rootof\fR \fI\fR -.br -.TP -\fBObtain handles of proto node/edge for setting default attribute values\fR -.br -\fI\fR \fBgv::protonode\fR \fI\fR -.br -\fI\fR \fBgv::protoedge\fR \fI\fR -.br -.TP -\fBIterators\fR -.br -.TP -Iteration termination tests -.br -\fI\fR \fBgv::ok\fR \fI\fR -.br -\fI\fR \fBgv::ok\fR \fI\fR -.br -\fI\fR \fBgv::ok\fR \fI\fR -.br -\fI\fR \fBgv::ok\fR \fI\fR -.br -.TP -Iterate over subgraphs of a graph -.br -\fI\fR \fBgv::firstsubg\fR \fI\fR -.br -\fI\fR \fBgv::nextsubg\fR \fI \fR -.br -.TP -Iterate over supergraphs of a graph (obscure and rarely useful) -.br -\fI\fR \fBgv::firstsupg\fR \fI\fR -.br -\fI\fR \fBgv::nextsupg\fR \fI \fR -.br -.TP -Iterate over edges of a graph -.br -\fI\fR \fBgv::firstedge\fR \fI\fR -.br -\fI\fR \fBgv::nextedge\fR \fI \fR -.br -.TP -Iterate over outedges of a graph -.br -\fI\fR \fBgv::firstout\fR \fI\fR -.br -\fI\fR \fBgv::nextout\fR \fI \fR -.br -.TP -Iterate over edges of a node -.br -\fI\fR \fBgv::firstedge\fR \fI\fR -.br -\fI\fR \fBgv::nextedge\fR \fI \fR -.br -.TP -Iterate over out-edges of a node -.br -\fI\fR \fBgv::firstout\fR \fI\fR -.br -\fI\fR \fBgv::nextout\fR \fI \fR -.br -.TP -Iterate over head nodes reachable from out-edges of a node -.br -\fI\fR \fBgv::firsthead\fR \fI\fR -.br -\fI\fR \fBgv::nexthead\fR \fI \fR -.br -.TP -Iterate over in-edges of a graph -.br -\fI\fR \fBgv::firstin\fR \fI\fR -.br -\fI\fR \fBgv::nextin\fR \fI \fR -.br -.TP -Iterate over in-edges of a node -.br -\fI\fR \fBgv::firstin\fR \fI\fR -.br -\fI\fR \fBgv::nextin\fR \fI \fR -.br -.TP -Iterate over tail nodes reachable from in-edges of a node -.br -\fI\fR \fBgv::firsttail\fR \fI\fR -.br -\fI\fR \fBgv::nexttail\fR \fI \fR -.br -.TP -Iterate over nodes of a graph -.br -\fI\fR \fBgv::firstnode\fR \fI\fR -.br -\fI\fR \fBgv::nextnode\fR \fI \fR -.br -.TP -Iterate over nodes of an edge -.br -\fI\fR \fBgv::firstnode\fR \fI\fR -.br -\fI\fR \fBgv::nextnode\fR \fI \fR -.br -.TP -Iterate over attributes of a graph -.br -\fI\fR \fBgv::firstattr\fR \fI\fR -.br -\fI\fR \fBgv::nextattr\fR \fI \fR -.br -.TP -Iterate over attributes of an edge -.br -\fI\fR \fBgv::firstattr\fR \fI\fR -.br -\fI\fR \fBgv::nextattr\fR \fI \fR -.br -.TP -Iterate over attributes of a node -.br -\fI\fR \fBgv::firstattr\fR \fI\fR -.br -\fI\fR \fBgv::nextattr\fR \fI \fR -.br -.TP -\fBRemove graph objects\fR -.br -\fI\fR \fBgv::rm\fR \fI\fR -.br -\fI\fR \fBgv::rm\fR \fI\fR -.br -\fI\fR \fBgv::rm\fR \fI\fR -.br -.TP -\fBLayout\fR -.br -.TP -Annotate a graph with layout attributes and values using a specific layout engine -.br -\fI\fR \fBgv::layout\fR \fI \fR -.br -.TP -\fBRender\fR -.br -.TP -Render a layout into attributes of the graph -.br -\fI\fR \fBgv::render\fR \fI\fR -.br -.TP -Render a layout in a specific format -.br -\fI\fR \fBgv::render\fR \fI \fR -.br -\fI\fR \fBgv::render\fR \fI \fR -.br -\fI\fR \fBgv::render\fR \fI \fR -.br -\fI\fR \fBgv::renderdata\fR \fI \fR -.br -.TP -Writing graph back to file -.br -\fI\fR \fBgv::write\fR \fI \fR -.br -\fI\fR \fBgv::write\fR \fI \fR -.br +template T SwigValueInit() { + return T(); +} +#endif -.SH KEYWORDS +/* ----------------------------------------------------------------------------- + * This section contains generic SWIG labels for method/variable + * declarations/attributes, and other compiler dependent labels. + * ----------------------------------------------------------------------------- */ -graph, dot, neato, fdp, circo, twopi, tcl. +/* template workaround for compilers that cannot correctly implement the C++ standard */ +#ifndef SWIGTEMPLATEDISAMBIGUATOR +# if defined(__SUNPRO_CC) && (__SUNPRO_CC <= 0x560) +# define SWIGTEMPLATEDISAMBIGUATOR template +# elif defined(__HP_aCC) +/* Needed even with `aCC -AA' when `aCC -V' reports HP ANSI C++ B3910B A.03.55 */ +/* If we find a maximum version that requires this, the test would be __HP_aCC <= 35500 for A.03.55 */ +# define SWIGTEMPLATEDISAMBIGUATOR template +# else +# define SWIGTEMPLATEDISAMBIGUATOR +# endif +#endif + +/* inline attribute */ +#ifndef SWIGINLINE +# if defined(__cplusplus) || (defined(__GNUC__) && !defined(__STRICT_ANSI__)) +# define SWIGINLINE inline +# else +# define SWIGINLINE +# endif +#endif + +/* attribute recognised by some compilers to avoid 'unused' warnings */ +#ifndef SWIGUNUSED +# if defined(__GNUC__) +# if !(defined(__cplusplus)) || (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)) +# define SWIGUNUSED __attribute__ ((__unused__)) +# else +# define SWIGUNUSED +# endif +# elif defined(__ICC) +# define SWIGUNUSED __attribute__ ((__unused__)) +# else +# define SWIGUNUSED +# endif +#endif + +#ifndef SWIG_MSC_UNSUPPRESS_4505 +# if defined(_MSC_VER) +# pragma warning(disable : 4505) /* unreferenced local function has been removed */ +# endif +#endif + +#ifndef SWIGUNUSEDPARM +# ifdef __cplusplus +# define SWIGUNUSEDPARM(p) +# else +# define SWIGUNUSEDPARM(p) p SWIGUNUSED +# endif +#endif + +/* internal SWIG method */ +#ifndef SWIGINTERN +# define SWIGINTERN static SWIGUNUSED +#endif + +/* internal inline SWIG method */ +#ifndef SWIGINTERNINLINE +# define SWIGINTERNINLINE SWIGINTERN SWIGINLINE +#endif + +/* exporting methods */ +#if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4) +# ifndef GCC_HASCLASSVISIBILITY +# define GCC_HASCLASSVISIBILITY +# endif +#endif + +#ifndef SWIGEXPORT +# if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__) +# if defined(STATIC_LINKED) +# define SWIGEXPORT +# else +# define SWIGEXPORT __declspec(dllexport) +# endif +# else +# if defined(__GNUC__) && defined(GCC_HASCLASSVISIBILITY) +# define SWIGEXPORT __attribute__ ((visibility("default"))) +# else +# define SWIGEXPORT +# endif +# endif +#endif + +/* calling conventions for Windows */ +#ifndef SWIGSTDCALL +# if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__) +# define SWIGSTDCALL __stdcall +# else +# define SWIGSTDCALL +# endif +#endif + +/* Deal with Microsoft's attempt at deprecating C standard runtime functions */ +#if !defined(SWIG_NO_CRT_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_CRT_SECURE_NO_DEPRECATE) +# define _CRT_SECURE_NO_DEPRECATE +#endif + +/* Deal with Microsoft's attempt at deprecating methods in the standard C++ library */ +#if !defined(SWIG_NO_SCL_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_SCL_SECURE_NO_DEPRECATE) +# define _SCL_SECURE_NO_DEPRECATE +#endif + + + +#include +#include +#include +#include +#include +#include + +/* ----------------------------------------------------------------------------- + * swigrun.swg + * + * This file contains generic C API SWIG runtime support for pointer + * type checking. + * ----------------------------------------------------------------------------- */ + +/* This should only be incremented when either the layout of swig_type_info changes, + or for whatever reason, the runtime changes incompatibly */ +#define SWIG_RUNTIME_VERSION "4" + +/* define SWIG_TYPE_TABLE_NAME as "SWIG_TYPE_TABLE" */ +#ifdef SWIG_TYPE_TABLE +# define SWIG_QUOTE_STRING(x) #x +# define SWIG_EXPAND_AND_QUOTE_STRING(x) SWIG_QUOTE_STRING(x) +# define SWIG_TYPE_TABLE_NAME SWIG_EXPAND_AND_QUOTE_STRING(SWIG_TYPE_TABLE) +#else +# define SWIG_TYPE_TABLE_NAME +#endif + +/* + You can use the SWIGRUNTIME and SWIGRUNTIMEINLINE macros for + creating a static or dynamic library from the SWIG runtime code. + In 99.9% of the cases, SWIG just needs to declare them as 'static'. + + But only do this if strictly necessary, ie, if you have problems + with your compiler or suchlike. +*/ + +#ifndef SWIGRUNTIME +# define SWIGRUNTIME SWIGINTERN +#endif + +#ifndef SWIGRUNTIMEINLINE +# define SWIGRUNTIMEINLINE SWIGRUNTIME SWIGINLINE +#endif + +/* Generic buffer size */ +#ifndef SWIG_BUFFER_SIZE +# define SWIG_BUFFER_SIZE 1024 +#endif + +/* Flags for pointer conversions */ +#define SWIG_POINTER_DISOWN 0x1 +#define SWIG_CAST_NEW_MEMORY 0x2 + +/* Flags for new pointer objects */ +#define SWIG_POINTER_OWN 0x1 + + +/* + Flags/methods for returning states. + + The SWIG conversion methods, as ConvertPtr, return and integer + that tells if the conversion was successful or not. And if not, + an error code can be returned (see swigerrors.swg for the codes). + + Use the following macros/flags to set or process the returning + states. + + In old versions of SWIG, code such as the following was usually written: + + if (SWIG_ConvertPtr(obj,vptr,ty.flags) != -1) { + // success code + } else { + //fail code + } + + Now you can be more explicit: + + int res = SWIG_ConvertPtr(obj,vptr,ty.flags); + if (SWIG_IsOK(res)) { + // success code + } else { + // fail code + } + + which is the same really, but now you can also do + + Type *ptr; + int res = SWIG_ConvertPtr(obj,(void **)(&ptr),ty.flags); + if (SWIG_IsOK(res)) { + // success code + if (SWIG_IsNewObj(res) { + ... + delete *ptr; + } else { + ... + } + } else { + // fail code + } + + I.e., now SWIG_ConvertPtr can return new objects and you can + identify the case and take care of the deallocation. Of course that + also requires SWIG_ConvertPtr to return new result values, such as + + int SWIG_ConvertPtr(obj, ptr,...) { + if () { + if () { + *ptr = ; + return SWIG_NEWOBJ; + } else { + *ptr = ; + return SWIG_OLDOBJ; + } + } else { + return SWIG_BADOBJ; + } + } + + Of course, returning the plain '0(success)/-1(fail)' still works, but you can be + more explicit by returning SWIG_BADOBJ, SWIG_ERROR or any of the + SWIG errors code. + + Finally, if the SWIG_CASTRANK_MODE is enabled, the result code + allows to return the 'cast rank', for example, if you have this + + int food(double) + int fooi(int); + + and you call + + food(1) // cast rank '1' (1 -> 1.0) + fooi(1) // cast rank '0' + + just use the SWIG_AddCast()/SWIG_CheckState() +*/ + +#define SWIG_OK (0) +#define SWIG_ERROR (-1) +#define SWIG_IsOK(r) (r >= 0) +#define SWIG_ArgError(r) ((r != SWIG_ERROR) ? r : SWIG_TypeError) + +/* The CastRankLimit says how many bits are used for the cast rank */ +#define SWIG_CASTRANKLIMIT (1 << 8) +/* The NewMask denotes the object was created (using new/malloc) */ +#define SWIG_NEWOBJMASK (SWIG_CASTRANKLIMIT << 1) +/* The TmpMask is for in/out typemaps that use temporal objects */ +#define SWIG_TMPOBJMASK (SWIG_NEWOBJMASK << 1) +/* Simple returning values */ +#define SWIG_BADOBJ (SWIG_ERROR) +#define SWIG_OLDOBJ (SWIG_OK) +#define SWIG_NEWOBJ (SWIG_OK | SWIG_NEWOBJMASK) +#define SWIG_TMPOBJ (SWIG_OK | SWIG_TMPOBJMASK) +/* Check, add and del mask methods */ +#define SWIG_AddNewMask(r) (SWIG_IsOK(r) ? (r | SWIG_NEWOBJMASK) : r) +#define SWIG_DelNewMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_NEWOBJMASK) : r) +#define SWIG_IsNewObj(r) (SWIG_IsOK(r) && (r & SWIG_NEWOBJMASK)) +#define SWIG_AddTmpMask(r) (SWIG_IsOK(r) ? (r | SWIG_TMPOBJMASK) : r) +#define SWIG_DelTmpMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_TMPOBJMASK) : r) +#define SWIG_IsTmpObj(r) (SWIG_IsOK(r) && (r & SWIG_TMPOBJMASK)) + +/* Cast-Rank Mode */ +#if defined(SWIG_CASTRANK_MODE) +# ifndef SWIG_TypeRank +# define SWIG_TypeRank unsigned long +# endif +# ifndef SWIG_MAXCASTRANK /* Default cast allowed */ +# define SWIG_MAXCASTRANK (2) +# endif +# define SWIG_CASTRANKMASK ((SWIG_CASTRANKLIMIT) -1) +# define SWIG_CastRank(r) (r & SWIG_CASTRANKMASK) +SWIGINTERNINLINE int SWIG_AddCast(int r) { + return SWIG_IsOK(r) ? ((SWIG_CastRank(r) < SWIG_MAXCASTRANK) ? (r + 1) : SWIG_ERROR) : r; +} +SWIGINTERNINLINE int SWIG_CheckState(int r) { + return SWIG_IsOK(r) ? SWIG_CastRank(r) + 1 : 0; +} +#else /* no cast-rank mode */ +# define SWIG_AddCast +# define SWIG_CheckState(r) (SWIG_IsOK(r) ? 1 : 0) +#endif + + +#include + +#ifdef __cplusplus +extern "C" { +#endif + +typedef void *(*swig_converter_func)(void *, int *); +typedef struct swig_type_info *(*swig_dycast_func)(void **); + +/* Structure to store information on one type */ +typedef struct swig_type_info { + const char *name; /* mangled name of this type */ + const char *str; /* human readable name of this type */ + swig_dycast_func dcast; /* dynamic cast function down a hierarchy */ + struct swig_cast_info *cast; /* linked list of types that can cast into this type */ + void *clientdata; /* language specific type data */ + int owndata; /* flag if the structure owns the clientdata */ +} swig_type_info; + +/* Structure to store a type and conversion function used for casting */ +typedef struct swig_cast_info { + swig_type_info *type; /* pointer to type that is equivalent to this type */ + swig_converter_func converter; /* function to cast the void pointers */ + struct swig_cast_info *next; /* pointer to next cast in linked list */ + struct swig_cast_info *prev; /* pointer to the previous cast */ +} swig_cast_info; + +/* Structure used to store module information + * Each module generates one structure like this, and the runtime collects + * all of these structures and stores them in a circularly linked list.*/ +typedef struct swig_module_info { + swig_type_info **types; /* Array of pointers to swig_type_info structures that are in this module */ + size_t size; /* Number of types in this module */ + struct swig_module_info *next; /* Pointer to next element in circularly linked list */ + swig_type_info **type_initial; /* Array of initially generated type structures */ + swig_cast_info **cast_initial; /* Array of initially generated casting structures */ + void *clientdata; /* Language specific module data */ +} swig_module_info; + +/* + Compare two type names skipping the space characters, therefore + "char*" == "char *" and "Class" == "Class", etc. + + Return 0 when the two name types are equivalent, as in + strncmp, but skipping ' '. +*/ +SWIGRUNTIME int +SWIG_TypeNameComp(const char *f1, const char *l1, + const char *f2, const char *l2) { + for (;(f1 != l1) && (f2 != l2); ++f1, ++f2) { + while ((*f1 == ' ') && (f1 != l1)) ++f1; + while ((*f2 == ' ') && (f2 != l2)) ++f2; + if (*f1 != *f2) return (*f1 > *f2) ? 1 : -1; + } + return (int)((l1 - f1) - (l2 - f2)); +} + +/* + Check type equivalence in a name list like ||... + Return 0 if not equal, 1 if equal +*/ +SWIGRUNTIME int +SWIG_TypeEquiv(const char *nb, const char *tb) { + int equiv = 0; + const char* te = tb + strlen(tb); + const char* ne = nb; + while (!equiv && *ne) { + for (nb = ne; *ne; ++ne) { + if (*ne == '|') break; + } + equiv = (SWIG_TypeNameComp(nb, ne, tb, te) == 0) ? 1 : 0; + if (*ne) ++ne; + } + return equiv; +} + +/* + Check type equivalence in a name list like ||... + Return 0 if equal, -1 if nb < tb, 1 if nb > tb +*/ +SWIGRUNTIME int +SWIG_TypeCompare(const char *nb, const char *tb) { + int equiv = 0; + const char* te = tb + strlen(tb); + const char* ne = nb; + while (!equiv && *ne) { + for (nb = ne; *ne; ++ne) { + if (*ne == '|') break; + } + equiv = (SWIG_TypeNameComp(nb, ne, tb, te) == 0) ? 1 : 0; + if (*ne) ++ne; + } + return equiv; +} + + +/* + Check the typename +*/ +SWIGRUNTIME swig_cast_info * +SWIG_TypeCheck(const char *c, swig_type_info *ty) { + if (ty) { + swig_cast_info *iter = ty->cast; + while (iter) { + if (strcmp(iter->type->name, c) == 0) { + if (iter == ty->cast) + return iter; + /* Move iter to the top of the linked list */ + iter->prev->next = iter->next; + if (iter->next) + iter->next->prev = iter->prev; + iter->next = ty->cast; + iter->prev = 0; + if (ty->cast) ty->cast->prev = iter; + ty->cast = iter; + return iter; + } + iter = iter->next; + } + } + return 0; +} + +/* + Identical to SWIG_TypeCheck, except strcmp is replaced with a pointer comparison +*/ +SWIGRUNTIME swig_cast_info * +SWIG_TypeCheckStruct(swig_type_info *from, swig_type_info *ty) { + if (ty) { + swig_cast_info *iter = ty->cast; + while (iter) { + if (iter->type == from) { + if (iter == ty->cast) + return iter; + /* Move iter to the top of the linked list */ + iter->prev->next = iter->next; + if (iter->next) + iter->next->prev = iter->prev; + iter->next = ty->cast; + iter->prev = 0; + if (ty->cast) ty->cast->prev = iter; + ty->cast = iter; + return iter; + } + iter = iter->next; + } + } + return 0; +} + +/* + Cast a pointer up an inheritance hierarchy +*/ +SWIGRUNTIMEINLINE void * +SWIG_TypeCast(swig_cast_info *ty, void *ptr, int *newmemory) { + return ((!ty) || (!ty->converter)) ? ptr : (*ty->converter)(ptr, newmemory); +} + +/* + Dynamic pointer casting. Down an inheritance hierarchy +*/ +SWIGRUNTIME swig_type_info * +SWIG_TypeDynamicCast(swig_type_info *ty, void **ptr) { + swig_type_info *lastty = ty; + if (!ty || !ty->dcast) return ty; + while (ty && (ty->dcast)) { + ty = (*ty->dcast)(ptr); + if (ty) lastty = ty; + } + return lastty; +} + +/* + Return the name associated with this type +*/ +SWIGRUNTIMEINLINE const char * +SWIG_TypeName(const swig_type_info *ty) { + return ty->name; +} + +/* + Return the pretty name associated with this type, + that is an unmangled type name in a form presentable to the user. +*/ +SWIGRUNTIME const char * +SWIG_TypePrettyName(const swig_type_info *type) { + /* The "str" field contains the equivalent pretty names of the + type, separated by vertical-bar characters. We choose + to print the last name, as it is often (?) the most + specific. */ + if (!type) return NULL; + if (type->str != NULL) { + const char *last_name = type->str; + const char *s; + for (s = type->str; *s; s++) + if (*s == '|') last_name = s+1; + return last_name; + } + else + return type->name; +} + +/* + Set the clientdata field for a type +*/ +SWIGRUNTIME void +SWIG_TypeClientData(swig_type_info *ti, void *clientdata) { + swig_cast_info *cast = ti->cast; + /* if (ti->clientdata == clientdata) return; */ + ti->clientdata = clientdata; + + while (cast) { + if (!cast->converter) { + swig_type_info *tc = cast->type; + if (!tc->clientdata) { + SWIG_TypeClientData(tc, clientdata); + } + } + cast = cast->next; + } +} +SWIGRUNTIME void +SWIG_TypeNewClientData(swig_type_info *ti, void *clientdata) { + SWIG_TypeClientData(ti, clientdata); + ti->owndata = 1; +} + +/* + Search for a swig_type_info structure only by mangled name + Search is a O(log #types) + + We start searching at module start, and finish searching when start == end. + Note: if start == end at the beginning of the function, we go all the way around + the circular list. +*/ +SWIGRUNTIME swig_type_info * +SWIG_MangledTypeQueryModule(swig_module_info *start, + swig_module_info *end, + const char *name) { + swig_module_info *iter = start; + do { + if (iter->size) { + register size_t l = 0; + register size_t r = iter->size - 1; + do { + /* since l+r >= 0, we can (>> 1) instead (/ 2) */ + register size_t i = (l + r) >> 1; + const char *iname = iter->types[i]->name; + if (iname) { + register int compare = strcmp(name, iname); + if (compare == 0) { + return iter->types[i]; + } else if (compare < 0) { + if (i) { + r = i - 1; + } else { + break; + } + } else if (compare > 0) { + l = i + 1; + } + } else { + break; /* should never happen */ + } + } while (l <= r); + } + iter = iter->next; + } while (iter != end); + return 0; +} + +/* + Search for a swig_type_info structure for either a mangled name or a human readable name. + It first searches the mangled names of the types, which is a O(log #types) + If a type is not found it then searches the human readable names, which is O(#types). + + We start searching at module start, and finish searching when start == end. + Note: if start == end at the beginning of the function, we go all the way around + the circular list. +*/ +SWIGRUNTIME swig_type_info * +SWIG_TypeQueryModule(swig_module_info *start, + swig_module_info *end, + const char *name) { + /* STEP 1: Search the name field using binary search */ + swig_type_info *ret = SWIG_MangledTypeQueryModule(start, end, name); + if (ret) { + return ret; + } else { + /* STEP 2: If the type hasn't been found, do a complete search + of the str field (the human readable name) */ + swig_module_info *iter = start; + do { + register size_t i = 0; + for (; i < iter->size; ++i) { + if (iter->types[i]->str && (SWIG_TypeEquiv(iter->types[i]->str, name))) + return iter->types[i]; + } + iter = iter->next; + } while (iter != end); + } + + /* neither found a match */ + return 0; +} + +/* + Pack binary data into a string +*/ +SWIGRUNTIME char * +SWIG_PackData(char *c, void *ptr, size_t sz) { + static const char hex[17] = "0123456789abcdef"; + register const unsigned char *u = (unsigned char *) ptr; + register const unsigned char *eu = u + sz; + for (; u != eu; ++u) { + register unsigned char uu = *u; + *(c++) = hex[(uu & 0xf0) >> 4]; + *(c++) = hex[uu & 0xf]; + } + return c; +} + +/* + Unpack binary data from a string +*/ +SWIGRUNTIME const char * +SWIG_UnpackData(const char *c, void *ptr, size_t sz) { + register unsigned char *u = (unsigned char *) ptr; + register const unsigned char *eu = u + sz; + for (; u != eu; ++u) { + register char d = *(c++); + register unsigned char uu; + if ((d >= '0') && (d <= '9')) + uu = ((d - '0') << 4); + else if ((d >= 'a') && (d <= 'f')) + uu = ((d - ('a'-10)) << 4); + else + return (char *) 0; + d = *(c++); + if ((d >= '0') && (d <= '9')) + uu |= (d - '0'); + else if ((d >= 'a') && (d <= 'f')) + uu |= (d - ('a'-10)); + else + return (char *) 0; + *u = uu; + } + return c; +} + +/* + Pack 'void *' into a string buffer. +*/ +SWIGRUNTIME char * +SWIG_PackVoidPtr(char *buff, void *ptr, const char *name, size_t bsz) { + char *r = buff; + if ((2*sizeof(void *) + 2) > bsz) return 0; + *(r++) = '_'; + r = SWIG_PackData(r,&ptr,sizeof(void *)); + if (strlen(name) + 1 > (bsz - (r - buff))) return 0; + strcpy(r,name); + return buff; +} + +SWIGRUNTIME const char * +SWIG_UnpackVoidPtr(const char *c, void **ptr, const char *name) { + if (*c != '_') { + if (strcmp(c,"NULL") == 0) { + *ptr = (void *) 0; + return name; + } else { + return 0; + } + } + return SWIG_UnpackData(++c,ptr,sizeof(void *)); +} + +SWIGRUNTIME char * +SWIG_PackDataName(char *buff, void *ptr, size_t sz, const char *name, size_t bsz) { + char *r = buff; + size_t lname = (name ? strlen(name) : 0); + if ((2*sz + 2 + lname) > bsz) return 0; + *(r++) = '_'; + r = SWIG_PackData(r,ptr,sz); + if (lname) { + strncpy(r,name,lname+1); + } else { + *r = 0; + } + return buff; +} + +SWIGRUNTIME const char * +SWIG_UnpackDataName(const char *c, void *ptr, size_t sz, const char *name) { + if (*c != '_') { + if (strcmp(c,"NULL") == 0) { + memset(ptr,0,sz); + return name; + } else { + return 0; + } + } + return SWIG_UnpackData(++c,ptr,sz); +} + +#ifdef __cplusplus +} +#endif + +/* Errors in SWIG */ +#define SWIG_UnknownError -1 +#define SWIG_IOError -2 +#define SWIG_RuntimeError -3 +#define SWIG_IndexError -4 +#define SWIG_TypeError -5 +#define SWIG_DivisionByZero -6 +#define SWIG_OverflowError -7 +#define SWIG_SyntaxError -8 +#define SWIG_ValueError -9 +#define SWIG_SystemError -10 +#define SWIG_AttributeError -11 +#define SWIG_MemoryError -12 +#define SWIG_NullReferenceError -13 + + + +/* ----------------------------------------------------------------------------- + * error manipulation + * ----------------------------------------------------------------------------- */ + +SWIGINTERN const char* +SWIG_Tcl_ErrorType(int code) { + const char* type = 0; + switch(code) { + case SWIG_MemoryError: + type = "MemoryError"; + break; + case SWIG_IOError: + type = "IOError"; + break; + case SWIG_RuntimeError: + type = "RuntimeError"; + break; + case SWIG_IndexError: + type = "IndexError"; + break; + case SWIG_TypeError: + type = "TypeError"; + break; + case SWIG_DivisionByZero: + type = "ZeroDivisionError"; + break; + case SWIG_OverflowError: + type = "OverflowError"; + break; + case SWIG_SyntaxError: + type = "SyntaxError"; + break; + case SWIG_ValueError: + type = "ValueError"; + break; + case SWIG_SystemError: + type = "SystemError"; + break; + case SWIG_AttributeError: + type = "AttributeError"; + break; + default: + type = "RuntimeError"; + } + return type; +} + + +SWIGINTERN void +SWIG_Tcl_SetErrorObj(Tcl_Interp *interp, const char *ctype, Tcl_Obj *obj) +{ + Tcl_ResetResult(interp); + Tcl_SetObjResult(interp, obj); + Tcl_SetErrorCode(interp, "SWIG", ctype, NULL); +} + +SWIGINTERN void +SWIG_Tcl_SetErrorMsg(Tcl_Interp *interp, const char *ctype, const char *mesg) +{ + Tcl_ResetResult(interp); + Tcl_SetErrorCode(interp, "SWIG", ctype, NULL); + Tcl_AppendResult(interp, ctype, " ", mesg, NULL); + /* + Tcl_AddErrorInfo(interp, ctype); + Tcl_AddErrorInfo(interp, " "); + Tcl_AddErrorInfo(interp, mesg); + */ +} + +SWIGINTERNINLINE void +SWIG_Tcl_AddErrorMsg(Tcl_Interp *interp, const char* mesg) +{ + Tcl_AddErrorInfo(interp, mesg); +} + + + +/* ----------------------------------------------------------------------------- + * SWIG API. Portion that goes into the runtime + * ----------------------------------------------------------------------------- */ +#ifdef __cplusplus +extern "C" { +#endif + +/* ----------------------------------------------------------------------------- + * Constant declarations + * ----------------------------------------------------------------------------- */ + +/* Constant Types */ +#define SWIG_TCL_POINTER 4 +#define SWIG_TCL_BINARY 5 + +/* Constant information structure */ +typedef struct swig_const_info { + int type; + char *name; + long lvalue; + double dvalue; + void *pvalue; + swig_type_info **ptype; +} swig_const_info; + +typedef int (*swig_wrapper)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST []); +typedef int (*swig_wrapper_func)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST []); +typedef char *(*swig_variable_func)(ClientData, Tcl_Interp *, char *, char *, int); +typedef void (*swig_delete_func)(ClientData); + +typedef struct swig_method { + const char *name; + swig_wrapper method; +} swig_method; + +typedef struct swig_attribute { + const char *name; + swig_wrapper getmethod; + swig_wrapper setmethod; +} swig_attribute; + +typedef struct swig_class { + const char *name; + swig_type_info **type; + swig_wrapper constructor; + void (*destructor)(void *); + swig_method *methods; + swig_attribute *attributes; + struct swig_class **bases; + const char **base_names; + swig_module_info *module; +} swig_class; + +typedef struct swig_instance { + Tcl_Obj *thisptr; + void *thisvalue; + swig_class *classptr; + int destroy; + Tcl_Command cmdtok; +} swig_instance; + +/* Structure for command table */ +typedef struct { + const char *name; + int (*wrapper)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST []); + ClientData clientdata; +} swig_command_info; + +/* Structure for variable linking table */ +typedef struct { + const char *name; + void *addr; + char * (*get)(ClientData, Tcl_Interp *, char *, char *, int); + char * (*set)(ClientData, Tcl_Interp *, char *, char *, int); +} swig_var_info; + + +/* -----------------------------------------------------------------------------* + * Install a constant object + * -----------------------------------------------------------------------------*/ + +static Tcl_HashTable swigconstTable; +static int swigconstTableinit = 0; + +SWIGINTERN void +SWIG_Tcl_SetConstantObj(Tcl_Interp *interp, const char* name, Tcl_Obj *obj) { + int newobj; + Tcl_ObjSetVar2(interp,Tcl_NewStringObj(name,-1), NULL, obj, TCL_GLOBAL_ONLY); + Tcl_SetHashValue(Tcl_CreateHashEntry(&swigconstTable, name, &newobj), (ClientData) obj); +} + +SWIGINTERN Tcl_Obj * +SWIG_Tcl_GetConstantObj(const char *key) { + Tcl_HashEntry *entryPtr; + if (!swigconstTableinit) return 0; + entryPtr = Tcl_FindHashEntry(&swigconstTable, key); + if (entryPtr) { + return (Tcl_Obj *) Tcl_GetHashValue(entryPtr); + } + return 0; +} + +#ifdef __cplusplus +} +#endif + + + +/* ----------------------------------------------------------------------------- + * See the LICENSE file for information on copyright, usage and redistribution + * of SWIG, and the README file for authors - http://www.swig.org/release.html. + * + * tclrun.swg + * + * This file contains the runtime support for Tcl modules and includes + * code for managing global variables and pointer type checking. + * ----------------------------------------------------------------------------- */ + +/* Common SWIG API */ + +/* for raw pointers */ +#define SWIG_ConvertPtr(oc, ptr, ty, flags) SWIG_Tcl_ConvertPtr(interp, oc, ptr, ty, flags) +#define SWIG_NewPointerObj(ptr, type, flags) SWIG_Tcl_NewPointerObj(ptr, type, flags) + +/* for raw packed data */ +#define SWIG_ConvertPacked(obj, ptr, sz, ty) SWIG_Tcl_ConvertPacked(interp, obj, ptr, sz, ty) +#define SWIG_NewPackedObj(ptr, sz, type) SWIG_Tcl_NewPackedObj(ptr, sz, type) + +/* for class or struct pointers */ +#define SWIG_ConvertInstance(obj, pptr, type, flags) SWIG_Tcl_ConvertPtr(interp, obj, pptr, type, flags) +#define SWIG_NewInstanceObj(thisvalue, type, flags) SWIG_Tcl_NewInstanceObj(interp, thisvalue, type, flags) + +/* for C or C++ function pointers */ +#define SWIG_ConvertFunctionPtr(obj, pptr, type) SWIG_Tcl_ConvertPtr(interp, obj, pptr, type, 0) +#define SWIG_NewFunctionPtrObj(ptr, type) SWIG_Tcl_NewPointerObj(ptr, type, 0) + +/* for C++ member pointers, ie, member methods */ +#define SWIG_ConvertMember(obj, ptr, sz, ty) SWIG_Tcl_ConvertPacked(interp,obj, ptr, sz, ty) +#define SWIG_NewMemberObj(ptr, sz, type) SWIG_Tcl_NewPackedObj(ptr, sz, type) + + +/* Runtime API */ + +#define SWIG_GetModule(clientdata) SWIG_Tcl_GetModule((Tcl_Interp *) (clientdata)) +#define SWIG_SetModule(clientdata, pointer) SWIG_Tcl_SetModule((Tcl_Interp *) (clientdata), pointer) + + +/* Error manipulation */ + +#define SWIG_ErrorType(code) SWIG_Tcl_ErrorType(code) +#define SWIG_Error(code, msg) SWIG_Tcl_SetErrorMsg(interp, SWIG_Tcl_ErrorType(code), msg) +#define SWIG_fail goto fail + + +/* Tcl-specific SWIG API */ + +#define SWIG_Acquire(ptr) SWIG_Tcl_Acquire(ptr) +#define SWIG_MethodCommand SWIG_Tcl_MethodCommand +#define SWIG_Disown(ptr) SWIG_Tcl_Disown(ptr) +#define SWIG_ConvertPtrFromString(c, ptr, ty, flags) SWIG_Tcl_ConvertPtrFromString(interp, c, ptr, ty, flags) +#define SWIG_MakePtr(c, ptr, ty, flags) SWIG_Tcl_MakePtr(c, ptr, ty, flags) +#define SWIG_PointerTypeFromString(c) SWIG_Tcl_PointerTypeFromString(c) +#define SWIG_GetArgs SWIG_Tcl_GetArgs +#define SWIG_GetConstantObj(key) SWIG_Tcl_GetConstantObj(key) +#define SWIG_ObjectConstructor SWIG_Tcl_ObjectConstructor +#define SWIG_Thisown(ptr) SWIG_Tcl_Thisown(ptr) +#define SWIG_ObjectDelete SWIG_Tcl_ObjectDelete + + +#define SWIG_TCL_DECL_ARGS_2(arg1, arg2) (Tcl_Interp *interp SWIGUNUSED, arg1, arg2) +#define SWIG_TCL_CALL_ARGS_2(arg1, arg2) (interp, arg1, arg2) +/* ----------------------------------------------------------------------------- + * pointers/data manipulation + * ----------------------------------------------------------------------------- */ + +/* For backward compatibility only */ +#define SWIG_POINTER_EXCEPTION 0 +#define SWIG_GetConstant SWIG_GetConstantObj +#define SWIG_Tcl_GetConstant SWIG_Tcl_GetConstantObj + +#include "assert.h" + +#ifdef __cplusplus +extern "C" { +#if 0 +} /* cc-mode */ +#endif +#endif + +/* Object support */ + +SWIGRUNTIME Tcl_HashTable* +SWIG_Tcl_ObjectTable(void) { + static Tcl_HashTable swigobjectTable; + static int swigobjectTableinit = 0; + if (!swigobjectTableinit) { + Tcl_InitHashTable(&swigobjectTable, TCL_ONE_WORD_KEYS); + swigobjectTableinit = 1; + } + return &swigobjectTable; +} + +/* Acquire ownership of a pointer */ +SWIGRUNTIME void +SWIG_Tcl_Acquire(void *ptr) { + int newobj; + Tcl_CreateHashEntry(SWIG_Tcl_ObjectTable(), (char *) ptr, &newobj); +} + +SWIGRUNTIME int +SWIG_Tcl_Thisown(void *ptr) { + if (Tcl_FindHashEntry(SWIG_Tcl_ObjectTable(), (char *) ptr)) { + return 1; + } + return 0; +} + +/* Disown a pointer. Returns 1 if we owned it to begin with */ +SWIGRUNTIME int +SWIG_Tcl_Disown(void *ptr) { + Tcl_HashEntry *entryPtr = Tcl_FindHashEntry(SWIG_Tcl_ObjectTable(), (char *) ptr); + if (entryPtr) { + Tcl_DeleteHashEntry(entryPtr); + return 1; + } + return 0; +} + +/* Convert a pointer value */ +SWIGRUNTIME int +SWIG_Tcl_ConvertPtrFromString(Tcl_Interp *interp, const char *c, void **ptr, swig_type_info *ty, int flags) { + swig_cast_info *tc; + /* Pointer values must start with leading underscore */ + while (*c != '_') { + *ptr = (void *) 0; + if (strcmp(c,"NULL") == 0) return SWIG_OK; + + /* Empty string: not a pointer */ + if (*c == 0) return SWIG_ERROR; + + /* Hmmm. It could be an object name. */ + + /* Check if this is a command at all. Prevents cget -this */ + /* from being called when c is not a command, firing the unknown proc */ + if (Tcl_VarEval(interp,"info commands ", c, (char *) NULL) == TCL_OK) { + Tcl_Obj *result = Tcl_GetObjResult(interp); + if (*(Tcl_GetStringFromObj(result, NULL)) == 0) { + /* It's not a command, so it can't be a pointer */ + Tcl_ResetResult(interp); + return SWIG_ERROR; + } + } else { + /* This will only fail if the argument is multiple words. */ + /* Multiple words are also not commands. */ + Tcl_ResetResult(interp); + return SWIG_ERROR; + } + + /* Check if this is really a SWIG pointer */ + if (Tcl_VarEval(interp,c," cget -this", (char *) NULL) != TCL_OK) { + Tcl_ResetResult(interp); + return SWIG_ERROR; + } + + c = Tcl_GetStringFromObj(Tcl_GetObjResult(interp), NULL); + } + + c++; + c = SWIG_UnpackData(c,ptr,sizeof(void *)); + if (ty) { + tc = c ? SWIG_TypeCheck(c,ty) : 0; + if (!tc) { + return SWIG_ERROR; + } + if (flags & SWIG_POINTER_DISOWN) { + SWIG_Disown((void *) *ptr); + } + { + int newmemory = 0; + *ptr = SWIG_TypeCast(tc,(void *) *ptr,&newmemory); + assert(!newmemory); /* newmemory handling not yet implemented */ + } + } + return SWIG_OK; +} + +/* Convert a pointer value */ +SWIGRUNTIMEINLINE int +SWIG_Tcl_ConvertPtr(Tcl_Interp *interp, Tcl_Obj *oc, void **ptr, swig_type_info *ty, int flags) { + return SWIG_Tcl_ConvertPtrFromString(interp, Tcl_GetStringFromObj(oc,NULL), ptr, ty, flags); +} + +/* Convert a pointer value */ +SWIGRUNTIME char * +SWIG_Tcl_PointerTypeFromString(char *c) { + char d; + /* Pointer values must start with leading underscore. NULL has no type */ + if (*c != '_') { + return 0; + } + c++; + /* Extract hex value from pointer */ + while ((d = *c)) { + if (!(((d >= '0') && (d <= '9')) || ((d >= 'a') && (d <= 'f')))) break; + c++; + } + return c; +} + +/* Convert a packed value value */ +SWIGRUNTIME int +SWIG_Tcl_ConvertPacked(Tcl_Interp *SWIGUNUSEDPARM(interp) , Tcl_Obj *obj, void *ptr, int sz, swig_type_info *ty) { + swig_cast_info *tc; + const char *c; + + if (!obj) goto type_error; + c = Tcl_GetStringFromObj(obj,NULL); + /* Pointer values must start with leading underscore */ + if (*c != '_') goto type_error; + c++; + c = SWIG_UnpackData(c,ptr,sz); + if (ty) { + tc = SWIG_TypeCheck(c,ty); + if (!tc) goto type_error; + } + return SWIG_OK; + + type_error: + + return SWIG_ERROR; +} + + +/* Take a pointer and convert it to a string */ +SWIGRUNTIME void +SWIG_Tcl_MakePtr(char *c, void *ptr, swig_type_info *ty, int flags) { + if (ptr) { + *(c++) = '_'; + c = SWIG_PackData(c,&ptr,sizeof(void *)); + strcpy(c,ty->name); + } else { + strcpy(c,(char *)"NULL"); + } + flags = 0; +} + +/* Create a new pointer object */ +SWIGRUNTIMEINLINE Tcl_Obj * +SWIG_Tcl_NewPointerObj(void *ptr, swig_type_info *type, int flags) { + Tcl_Obj *robj; + char result[SWIG_BUFFER_SIZE]; + SWIG_MakePtr(result,ptr,type,flags); + robj = Tcl_NewStringObj(result,-1); + return robj; +} + +SWIGRUNTIME Tcl_Obj * +SWIG_Tcl_NewPackedObj(void *ptr, int sz, swig_type_info *type) { + char result[1024]; + char *r = result; + if ((2*sz + 1 + strlen(type->name)) > 1000) return 0; + *(r++) = '_'; + r = SWIG_PackData(r,ptr,sz); + strcpy(r,type->name); + return Tcl_NewStringObj(result,-1); +} + +/* -----------------------------------------------------------------------------* + * Get type list + * -----------------------------------------------------------------------------*/ + +SWIGRUNTIME swig_module_info * +SWIG_Tcl_GetModule(Tcl_Interp *interp) { + const char *data; + swig_module_info *ret = 0; + + /* first check if pointer already created */ + data = Tcl_GetVar(interp, (char *)"swig_runtime_data_type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME, TCL_GLOBAL_ONLY); + if (data) { + SWIG_UnpackData(data, &ret, sizeof(swig_type_info **)); + } + + return ret; +} + +SWIGRUNTIME void +SWIG_Tcl_SetModule(Tcl_Interp *interp, swig_module_info *module) { + char buf[SWIG_BUFFER_SIZE]; + char *data; + + /* create a new pointer */ + data = SWIG_PackData(buf, &module, sizeof(swig_type_info **)); + *data = 0; + Tcl_SetVar(interp, (char *)"swig_runtime_data_type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME, buf, 0); +} + +/* -----------------------------------------------------------------------------* + * Object auxiliars + * -----------------------------------------------------------------------------*/ + + +SWIGRUNTIME void +SWIG_Tcl_ObjectDelete(ClientData clientData) { + swig_instance *si = (swig_instance *) clientData; + if ((si) && (si->destroy) && (SWIG_Disown(si->thisvalue))) { + if (si->classptr->destructor) { + (si->classptr->destructor)(si->thisvalue); + } + } + Tcl_DecrRefCount(si->thisptr); + free(si); +} + +/* Function to invoke object methods given an instance */ +SWIGRUNTIME int +SWIG_Tcl_MethodCommand(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) { + char *method, *attrname; + swig_instance *inst = (swig_instance *) clientData; + swig_method *meth; + swig_attribute *attr; + Tcl_Obj *oldarg; + Tcl_Obj **objv; + int rcode; + swig_class *cls; + swig_class *cls_stack[64]; + int cls_stack_bi[64]; + int cls_stack_top = 0; + int numconf = 2; + int bi; + + objv = (Tcl_Obj **) _objv; + if (objc < 2) { + Tcl_SetResult(interp, (char *) "wrong # args.", TCL_STATIC); + return TCL_ERROR; + } + method = Tcl_GetStringFromObj(objv[1],NULL); + if (strcmp(method,"-acquire") == 0) { + inst->destroy = 1; + SWIG_Acquire(inst->thisvalue); + return TCL_OK; + } + if (strcmp(method,"-disown") == 0) { + if (inst->destroy) { + SWIG_Disown(inst->thisvalue); + } + inst->destroy = 0; + return TCL_OK; + } + if (strcmp(method,"-delete") == 0) { + Tcl_DeleteCommandFromToken(interp,inst->cmdtok); + return TCL_OK; + } + cls_stack[cls_stack_top] = inst->classptr; + cls_stack_bi[cls_stack_top] = -1; + cls = inst->classptr; + while (1) { + bi = cls_stack_bi[cls_stack_top]; + cls = cls_stack[cls_stack_top]; + if (bi != -1) { + if (!cls->bases[bi] && cls->base_names[bi]) { + /* lookup and cache the base class */ + swig_type_info *info = SWIG_TypeQueryModule(cls->module, cls->module, cls->base_names[bi]); + if (info) cls->bases[bi] = (swig_class *) info->clientdata; + } + cls = cls->bases[bi]; + if (cls) { + cls_stack_bi[cls_stack_top]++; + cls_stack_top++; + cls_stack[cls_stack_top] = cls; + cls_stack_bi[cls_stack_top] = -1; + continue; + } + } + if (!cls) { + cls_stack_top--; + if (cls_stack_top < 0) break; + else continue; + } + cls_stack_bi[cls_stack_top]++; + + meth = cls->methods; + /* Check for methods */ + while (meth && meth->name) { + if (strcmp(meth->name,method) == 0) { + oldarg = objv[1]; + objv[1] = inst->thisptr; + Tcl_IncrRefCount(inst->thisptr); + rcode = (*meth->method)(clientData,interp,objc,objv); + objv[1] = oldarg; + Tcl_DecrRefCount(inst->thisptr); + return rcode; + } + meth++; + } + /* Check class methods for a match */ + if (strcmp(method,"cget") == 0) { + if (objc < 3) { + Tcl_SetResult(interp, (char *) "wrong # args.", TCL_STATIC); + return TCL_ERROR; + } + attrname = Tcl_GetStringFromObj(objv[2],NULL); + attr = cls->attributes; + while (attr && attr->name) { + if ((strcmp(attr->name, attrname) == 0) && (attr->getmethod)) { + oldarg = objv[1]; + objv[1] = inst->thisptr; + Tcl_IncrRefCount(inst->thisptr); + rcode = (*attr->getmethod)(clientData,interp,2, objv); + objv[1] = oldarg; + Tcl_DecrRefCount(inst->thisptr); + return rcode; + } + attr++; + } + if (strcmp(attrname, "-this") == 0) { + Tcl_SetObjResult(interp, Tcl_DuplicateObj(inst->thisptr)); + return TCL_OK; + } + if (strcmp(attrname, "-thisown") == 0) { + if (SWIG_Thisown(inst->thisvalue)) { + Tcl_SetResult(interp,(char*)"1",TCL_STATIC); + } else { + Tcl_SetResult(interp,(char*)"0",TCL_STATIC); + } + return TCL_OK; + } + } else if (strcmp(method, "configure") == 0) { + int i; + if (objc < 4) { + Tcl_SetResult(interp, (char *) "wrong # args.", TCL_STATIC); + return TCL_ERROR; + } + i = 2; + while (i < objc) { + attrname = Tcl_GetStringFromObj(objv[i],NULL); + attr = cls->attributes; + while (attr && attr->name) { + if ((strcmp(attr->name, attrname) == 0) && (attr->setmethod)) { + oldarg = objv[i]; + objv[i] = inst->thisptr; + Tcl_IncrRefCount(inst->thisptr); + rcode = (*attr->setmethod)(clientData,interp,3, &objv[i-1]); + objv[i] = oldarg; + Tcl_DecrRefCount(inst->thisptr); + if (rcode != TCL_OK) return rcode; + numconf += 2; + } + attr++; + } + i+=2; + } + } + } + if (strcmp(method,"configure") == 0) { + if (numconf >= objc) { + return TCL_OK; + } else { + Tcl_SetResult(interp,(char *) "Invalid attribute name.", TCL_STATIC); + return TCL_ERROR; + } + } + if (strcmp(method,"cget") == 0) { + Tcl_SetResult(interp,(char *) "Invalid attribute name.", TCL_STATIC); + return TCL_ERROR; + } + Tcl_SetResult(interp, (char *) "Invalid method. Must be one of: configure cget -acquire -disown -delete", TCL_STATIC); + cls = inst->classptr; + bi = 0; + while (cls) { + meth = cls->methods; + while (meth && meth->name) { + char *cr = (char *) Tcl_GetStringResult(interp); + size_t meth_len = strlen(meth->name); + char* where = strchr(cr,':'); + while(where) { + where = strstr(where, meth->name); + if(where) { + if(where[-1] == ' ' && (where[meth_len] == ' ' || where[meth_len]==0)) { + break; + } else { + where++; + } + } + } + + if (!where) + Tcl_AppendElement(interp, (char *) meth->name); + meth++; + } + cls = inst->classptr->bases[bi++]; + } + return TCL_ERROR; +} + +/* This function takes the current result and turns it into an object command */ +SWIGRUNTIME Tcl_Obj * +SWIG_Tcl_NewInstanceObj(Tcl_Interp *interp, void *thisvalue, swig_type_info *type, int flags) { + Tcl_Obj *robj = SWIG_NewPointerObj(thisvalue, type,0); + /* Check to see if this pointer belongs to a class or not */ + if ((type->clientdata) && (interp)) { + Tcl_CmdInfo ci; + char *name; + name = Tcl_GetStringFromObj(robj,NULL); + if (!Tcl_GetCommandInfo(interp,name, &ci) || (flags)) { + swig_instance *newinst = (swig_instance *) malloc(sizeof(swig_instance)); + newinst->thisptr = Tcl_DuplicateObj(robj); + Tcl_IncrRefCount(newinst->thisptr); + newinst->thisvalue = thisvalue; + newinst->classptr = (swig_class *) type->clientdata; + newinst->destroy = flags; + newinst->cmdtok = Tcl_CreateObjCommand(interp, Tcl_GetStringFromObj(robj,NULL), (swig_wrapper_func) SWIG_MethodCommand, (ClientData) newinst, (swig_delete_func) SWIG_ObjectDelete); + if (flags) { + SWIG_Acquire(thisvalue); + } + } + } + return robj; +} + +/* Function to create objects */ +SWIGRUNTIME int +SWIG_Tcl_ObjectConstructor(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Tcl_Obj *newObj = 0; + void *thisvalue = 0; + swig_instance *newinst = 0; + swig_class *classptr = (swig_class *) clientData; + swig_wrapper cons = 0; + char *name = 0; + int firstarg = 0; + int thisarg = 0; + int destroy = 1; + + if (!classptr) { + Tcl_SetResult(interp, (char *) "swig: internal runtime error. No class object defined.", TCL_STATIC); + return TCL_ERROR; + } + cons = classptr->constructor; + if (objc > 1) { + char *s = Tcl_GetStringFromObj(objv[1],NULL); + if (strcmp(s,"-this") == 0) { + thisarg = 2; + cons = 0; + } else if (strcmp(s,"-args") == 0) { + firstarg = 1; + } else if (objc == 2) { + firstarg = 1; + name = s; + } else if (objc >= 3) { + char *s1; + name = s; + s1 = Tcl_GetStringFromObj(objv[2],NULL); + if (strcmp(s1,"-this") == 0) { + thisarg = 3; + cons = 0; + } else { + firstarg = 1; + } + } + } + if (cons) { + int result; + result = (*cons)(0, interp, objc-firstarg, &objv[firstarg]); + if (result != TCL_OK) { + return result; + } + newObj = Tcl_DuplicateObj(Tcl_GetObjResult(interp)); + if (!name) name = Tcl_GetStringFromObj(newObj,NULL); + } else if (thisarg > 0) { + if (thisarg < objc) { + destroy = 0; + newObj = Tcl_DuplicateObj(objv[thisarg]); + if (!name) name = Tcl_GetStringFromObj(newObj,NULL); + } else { + Tcl_SetResult(interp, (char *) "wrong # args.", TCL_STATIC); + return TCL_ERROR; + } + } else { + Tcl_SetResult(interp, (char *) "No constructor available.", TCL_STATIC); + return TCL_ERROR; + } + if (SWIG_Tcl_ConvertPtr(interp,newObj, (void **) &thisvalue, *(classptr->type), 0) != SWIG_OK) { + Tcl_DecrRefCount(newObj); + return TCL_ERROR; + } + newinst = (swig_instance *) malloc(sizeof(swig_instance)); + newinst->thisptr = newObj; + Tcl_IncrRefCount(newObj); + newinst->thisvalue = thisvalue; + newinst->classptr = classptr; + newinst->destroy = destroy; + if (destroy) { + SWIG_Acquire(thisvalue); + } + newinst->cmdtok = Tcl_CreateObjCommand(interp,name, (swig_wrapper) SWIG_MethodCommand, (ClientData) newinst, (swig_delete_func) SWIG_ObjectDelete); + return TCL_OK; +} + +/* -----------------------------------------------------------------------------* + * Get arguments + * -----------------------------------------------------------------------------*/ +SWIGRUNTIME int +SWIG_Tcl_GetArgs(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], const char *fmt, ...) { + int argno = 0, opt = 0; + long tempi; + double tempd; + const char *c; + va_list ap; + void *vptr; + Tcl_Obj *obj = 0; + swig_type_info *ty; + + va_start(ap,fmt); + for (c = fmt; (*c && (*c != ':') && (*c != ';')); c++,argno++) { + if (*c == '|') { + opt = 1; + c++; + } + if (argno >= (objc-1)) { + if (!opt) { + Tcl_SetResult(interp, (char *) "Wrong number of arguments ", TCL_STATIC); + goto argerror; + } else { + va_end(ap); + return TCL_OK; + } + } + + vptr = va_arg(ap,void *); + if (vptr) { + if (isupper(*c)) { + obj = SWIG_Tcl_GetConstantObj(Tcl_GetStringFromObj(objv[argno+1],0)); + if (!obj) obj = objv[argno+1]; + } else { + obj = objv[argno+1]; + } + switch(*c) { + case 'i': case 'I': + case 'l': case 'L': + case 'h': case 'H': + case 'b': case 'B': + if (Tcl_GetLongFromObj(interp,obj,&tempi) != TCL_OK) goto argerror; + if ((*c == 'i') || (*c == 'I')) *((int *)vptr) = (int)tempi; + else if ((*c == 'l') || (*c == 'L')) *((long *)vptr) = (long)tempi; + else if ((*c == 'h') || (*c == 'H')) *((short*)vptr) = (short)tempi; + else if ((*c == 'b') || (*c == 'B')) *((unsigned char *)vptr) = (unsigned char)tempi; + break; + case 'f': case 'F': + case 'd': case 'D': + if (Tcl_GetDoubleFromObj(interp,obj,&tempd) != TCL_OK) goto argerror; + if ((*c == 'f') || (*c == 'F')) *((float *) vptr) = (float)tempd; + else if ((*c == 'd') || (*c == 'D')) *((double*) vptr) = tempd; + break; + case 's': case 'S': + if (*(c+1) == '#') { + int *vlptr = (int *) va_arg(ap, void *); + *((char **) vptr) = Tcl_GetStringFromObj(obj, vlptr); + c++; + } else { + *((char **)vptr) = Tcl_GetStringFromObj(obj,NULL); + } + break; + case 'c': case 'C': + *((char *)vptr) = *(Tcl_GetStringFromObj(obj,NULL)); + break; + case 'p': case 'P': + ty = (swig_type_info *) va_arg(ap, void *); + if (SWIG_Tcl_ConvertPtr(interp, obj, (void **) vptr, ty, 0) != SWIG_OK) goto argerror; + break; + case 'o': case 'O': + *((Tcl_Obj **)vptr) = objv[argno+1]; + break; + default: + break; + } + } + } + + if ((*c != ';') && ((objc-1) > argno)) { + Tcl_SetResult(interp, (char *) "Wrong # args.", TCL_STATIC); + goto argerror; + } + va_end(ap); + return TCL_OK; + + argerror: + { + char temp[32]; + sprintf(temp,"%d", argno+1); + c = strchr(fmt,':'); + if (!c) c = strchr(fmt,';'); + if (!c) c = (char *)""; + Tcl_AppendResult(interp,c," argument ", temp, NULL); + va_end(ap); + return TCL_ERROR; + } +} + +#ifdef __cplusplus +#if 0 +{ /* cc-mode */ +#endif +} +#endif + + + +#define SWIG_exception_fail(code, msg) do { SWIG_Error(code, msg); SWIG_fail; } while(0) + +#define SWIG_contract_assert(expr, msg) if (!(expr)) { SWIG_Error(SWIG_RuntimeError, msg); SWIG_fail; } else + + + +/* -------- TYPES TABLE (BEGIN) -------- */ + +#define SWIGTYPE_p_Agedge_t swig_types[0] +#define SWIGTYPE_p_Agnode_t swig_types[1] +#define SWIGTYPE_p_Agraph_t swig_types[2] +#define SWIGTYPE_p_Agsym_t swig_types[3] +#define SWIGTYPE_p_FILE swig_types[4] +#define SWIGTYPE_p_char swig_types[5] +static swig_type_info *swig_types[7]; +static swig_module_info swig_module = {swig_types, 6, 0, 0, 0, 0}; +#define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name) +#define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name) + +/* -------- TYPES TABLE (END) -------- */ + +#define SWIG_init Gv_Init +#define SWIG_name "gv" +#define SWIG_prefix "gv::" +#define SWIG_namespace "gv" + +#define SWIG_version "0.0" + +#define SWIGVERSION 0x010339 +#define SWIG_VERSION SWIGVERSION + + +#define SWIG_as_voidptr(a) const_cast< void * >(static_cast< const void * >(a)) +#define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a),reinterpret_cast< void** >(a)) + + +#include + + + +#ifdef __cplusplus +extern "C" { +#endif +#ifdef MAC_TCL +#pragma export on +#endif +SWIGEXPORT int SWIG_init(Tcl_Interp *); +#ifdef MAC_TCL +#pragma export off +#endif +#ifdef __cplusplus +} +#endif + + + + +/* some language headers (e.g. php.h, ruby.h) leave these defined */ +#undef PACKAGE_BUGREPORT +#undef PACKAGE_STRING +#undef PACKAGE_TARNAME +#undef PACKAGE_VERSION +#undef PACKAGE_NAME + +#ifdef HAVE_CONFIG_H +#include "config.h" +#endif +#include "gvc.h" + +/** New graphs */ +/*** New empty graph */ +extern Agraph_t *graph(char *name); +extern Agraph_t *digraph(char *name); +extern Agraph_t *strictgraph(char *name); +extern Agraph_t *strictdigraph(char *name); +/*** New graph from a dot-syntax string or file */ +extern Agraph_t *readstring(char *string); +extern Agraph_t *read(char *filename); +extern Agraph_t *read(FILE *f); +/*** Add new subgraph to existing graph */ +extern Agraph_t *graph(Agraph_t *g, char *name); + +/** New nodes */ +/*** Add new node to existing graph */ +extern Agnode_t *node(Agraph_t *g, char *name); + +/** New edges */ +/*** Add new edge between existing nodes */ +extern Agedge_t *edge(Agnode_t *t, Agnode_t *h); +/*** Add a new edge between an existing tail node, and a named head node which will be induced in the graph if it doesn't already exist */ +extern Agedge_t *edge(Agnode_t *t, char *hname); +/*** Add a new edge between an existing head node, and a named tail node which will be induced in the graph if it doesn't already exist */ +extern Agedge_t *edge(char *tname, Agnode_t *h); +/*** Add a new edge between named tail and head nodes which will be induced in the graph if they don't already exist */ +extern Agedge_t *edge(Agraph_t *g, char *tname, char *hname); + +/** Setting attribute values */ +/*** Set value of named attribute of graph/node/edge - creating attribute if necessary */ +extern char *setv(Agraph_t *g, char *attr, char *val); +extern char *setv(Agnode_t *n, char *attr, char *val); +extern char *setv(Agedge_t *e, char *attr, char *val); + +/*** Set value of existing attribute of graph/node/edge (using attribute handle) */ +extern char *setv(Agraph_t *g, Agsym_t *a, char *val); +extern char *setv(Agnode_t *n, Agsym_t *a, char *val); +extern char *setv(Agedge_t *e, Agsym_t *a, char *val); + +/** Getting attribute values */ +/*** Get value of named attribute of graph/node/edge */ +extern char *getv(Agraph_t *g, char *attr); +extern char *getv(Agnode_t *n, char *attr); +extern char *getv(Agedge_t *e, char *attr); + +/*** Get value of attribute of graph/node/edge (using attribute handle) */ +extern char *getv(Agraph_t *g, Agsym_t *a); +extern char *getv(Agnode_t *n, Agsym_t *a); +extern char *getv(Agedge_t *e, Agsym_t *a); + +/** Obtain names from handles */ +extern char *nameof(Agraph_t *g); +extern char *nameof(Agnode_t *n); +//extern char *nameof(Agedge_t *e); +extern char *nameof(Agsym_t *a); + +/** Find handles from names */ +extern Agraph_t *findsubg(Agraph_t *g, char *name); +extern Agnode_t *findnode(Agraph_t *g, char *name); +extern Agedge_t *findedge(Agnode_t *t, Agnode_t *h); + +/** */ +extern Agsym_t *findattr(Agraph_t *g, char *name); +extern Agsym_t *findattr(Agnode_t *n, char *name); +extern Agsym_t *findattr(Agedge_t *e, char *name); + +/** Misc graph navigators returning handles */ +extern Agnode_t *headof(Agedge_t *e); +extern Agnode_t *tailof(Agedge_t *e); +extern Agraph_t *graphof(Agraph_t *g); +extern Agraph_t *graphof(Agedge_t *e); +extern Agraph_t *graphof(Agnode_t *n); +extern Agraph_t *rootof(Agraph_t *g); + +/** Obtain handles of proto node/edge for setting default attribute values */ +extern Agnode_t *protonode(Agraph_t *g); +extern Agedge_t *protoedge(Agraph_t *g); + +/** Iterators */ +/*** Iteration termination tests */ +extern bool ok(Agraph_t *g); +extern bool ok(Agnode_t *n); +extern bool ok(Agedge_t *e); +extern bool ok(Agsym_t *a); + +/*** Iterate over subgraphs of a graph */ +extern Agraph_t *firstsubg(Agraph_t *g); +extern Agraph_t *nextsubg(Agraph_t *g, Agraph_t *sg); + +/*** Iterate over supergraphs of a graph (obscure and rarely useful) */ +extern Agraph_t *firstsupg(Agraph_t *g); +extern Agraph_t *nextsupg(Agraph_t *g, Agraph_t *sg); + +/*** Iterate over edges of a graph */ +extern Agedge_t *firstedge(Agraph_t *g); +extern Agedge_t *nextedge(Agraph_t *g, Agedge_t *e); + +/*** Iterate over outedges of a graph */ +extern Agedge_t *firstout(Agraph_t *g); +extern Agedge_t *nextout(Agraph_t *g, Agedge_t *e); + +/*** Iterate over edges of a node */ +extern Agedge_t *firstedge(Agnode_t *n); +extern Agedge_t *nextedge(Agnode_t *n, Agedge_t *e); + +/*** Iterate over out-edges of a node */ +extern Agedge_t *firstout(Agnode_t *n); +extern Agedge_t *nextout(Agnode_t *n, Agedge_t *e); + +/*** Iterate over head nodes reachable from out-edges of a node */ +extern Agnode_t *firsthead(Agnode_t *n); +extern Agnode_t *nexthead(Agnode_t *n, Agnode_t *h); + +/*** Iterate over in-edges of a graph */ +extern Agedge_t *firstin(Agraph_t *g); +extern Agedge_t *nextin(Agnode_t *n, Agedge_t *e); + +/*** Iterate over in-edges of a node */ +extern Agedge_t *firstin(Agnode_t *n); +extern Agedge_t *nextin(Agraph_t *g, Agedge_t *e); + +/*** Iterate over tail nodes reachable from in-edges of a node */ +extern Agnode_t *firsttail(Agnode_t *n); +extern Agnode_t *nexttail(Agnode_t *n, Agnode_t *t); + +/*** Iterate over nodes of a graph */ +extern Agnode_t *firstnode(Agraph_t *g); +extern Agnode_t *nextnode(Agraph_t *g, Agnode_t *n); + +/*** Iterate over nodes of an edge */ +extern Agnode_t *firstnode(Agedge_t *e); +extern Agnode_t *nextnode(Agedge_t *e, Agnode_t *n); + +/*** Iterate over attributes of a graph */ +extern Agsym_t *firstattr(Agraph_t *g); +extern Agsym_t *nextattr(Agraph_t *g, Agsym_t *a); + +/*** Iterate over attributes of an edge */ +extern Agsym_t *firstattr(Agedge_t *e); +extern Agsym_t *nextattr(Agedge_t *e, Agsym_t *a); + +/*** Iterate over attributes of a node */ +extern Agsym_t *firstattr(Agnode_t *n); +extern Agsym_t *nextattr(Agnode_t *n, Agsym_t *a); + +/** Remove graph objects */ +extern bool rm(Agraph_t *g); +extern bool rm(Agnode_t *n); +extern bool rm(Agedge_t *e); + +/** Layout */ +/*** Annotate a graph with layout attributes and values using a specific layout engine */ +extern bool layout(Agraph_t *g, char *engine); + +/** Render */ +/*** Render a layout into attributes of the graph */ +extern bool render(Agraph_t *g); + +/*** Render a layout in a specific format */ +extern bool render(Agraph_t *g, char *format); +extern bool render(Agraph_t *g, char *format, char *filename); +extern bool render(Agraph_t *g, char *format, FILE *f); + +extern char* renderdata(Agraph_t *g, char *format); + + +/*** Writing graph back to file */ +extern bool write(Agraph_t *g, char *filename); +extern bool write(Agraph_t *g, FILE *f); + + + + +/** New graphs */ +/*** New empty graph */ +extern Agraph_t *graph(char *name); +extern Agraph_t *digraph(char *name); +extern Agraph_t *strictgraph(char *name); +extern Agraph_t *strictdigraph(char *name); +/*** New graph from a dot-syntax string or file */ +extern Agraph_t *readstring(char *string); +extern Agraph_t *read(char *filename); +extern Agraph_t *read(FILE *f); +/*** Add new subgraph to existing graph */ +extern Agraph_t *graph(Agraph_t *g, char *name); + +/** New nodes */ +/*** Add new node to existing graph */ +extern Agnode_t *node(Agraph_t *g, char *name); + +/** New edges */ +/*** Add new edge between existing nodes */ +extern Agedge_t *edge(Agnode_t *t, Agnode_t *h); +/*** Add a new edge between an existing tail node, and a named head node which will be induced in the graph if it doesn't already exist */ +extern Agedge_t *edge(Agnode_t *t, char *hname); +/*** Add a new edge between an existing head node, and a named tail node which will be induced in the graph if it doesn't already exist */ +extern Agedge_t *edge(char *tname, Agnode_t *h); +/*** Add a new edge between named tail and head nodes which will be induced in the graph if they don't already exist */ +extern Agedge_t *edge(Agraph_t *g, char *tname, char *hname); + +/** Setting attribute values */ +/*** Set value of named attribute of graph/node/edge - creating attribute if necessary */ +extern char *setv(Agraph_t *g, char *attr, char *val); +extern char *setv(Agnode_t *n, char *attr, char *val); +extern char *setv(Agedge_t *e, char *attr, char *val); + +/*** Set value of existing attribute of graph/node/edge (using attribute handle) */ +extern char *setv(Agraph_t *g, Agsym_t *a, char *val); +extern char *setv(Agnode_t *n, Agsym_t *a, char *val); +extern char *setv(Agedge_t *e, Agsym_t *a, char *val); + +/** Getting attribute values */ +/*** Get value of named attribute of graph/node/edge */ +extern char *getv(Agraph_t *g, char *attr); +extern char *getv(Agnode_t *n, char *attr); +extern char *getv(Agedge_t *e, char *attr); + +/*** Get value of attribute of graph/node/edge (using attribute handle) */ +extern char *getv(Agraph_t *g, Agsym_t *a); +extern char *getv(Agnode_t *n, Agsym_t *a); +extern char *getv(Agedge_t *e, Agsym_t *a); + +/** Obtain names from handles */ +extern char *nameof(Agraph_t *g); +extern char *nameof(Agnode_t *n); +//extern char *nameof(Agedge_t *e); +extern char *nameof(Agsym_t *a); + +/** Find handles from names */ +extern Agraph_t *findsubg(Agraph_t *g, char *name); +extern Agnode_t *findnode(Agraph_t *g, char *name); +extern Agedge_t *findedge(Agnode_t *t, Agnode_t *h); + +/** */ +extern Agsym_t *findattr(Agraph_t *g, char *name); +extern Agsym_t *findattr(Agnode_t *n, char *name); +extern Agsym_t *findattr(Agedge_t *e, char *name); + +/** Misc graph navigators returning handles */ +extern Agnode_t *headof(Agedge_t *e); +extern Agnode_t *tailof(Agedge_t *e); +extern Agraph_t *graphof(Agraph_t *g); +extern Agraph_t *graphof(Agedge_t *e); +extern Agraph_t *graphof(Agnode_t *n); +extern Agraph_t *rootof(Agraph_t *g); + +/** Obtain handles of proto node/edge for setting default attribute values */ +extern Agnode_t *protonode(Agraph_t *g); +extern Agedge_t *protoedge(Agraph_t *g); + +/** Iterators */ +/*** Iteration termination tests */ +extern bool ok(Agraph_t *g); +extern bool ok(Agnode_t *n); +extern bool ok(Agedge_t *e); +extern bool ok(Agsym_t *a); + +/*** Iterate over subgraphs of a graph */ +extern Agraph_t *firstsubg(Agraph_t *g); +extern Agraph_t *nextsubg(Agraph_t *g, Agraph_t *sg); + +/*** Iterate over supergraphs of a graph (obscure and rarely useful) */ +extern Agraph_t *firstsupg(Agraph_t *g); +extern Agraph_t *nextsupg(Agraph_t *g, Agraph_t *sg); + +/*** Iterate over edges of a graph */ +extern Agedge_t *firstedge(Agraph_t *g); +extern Agedge_t *nextedge(Agraph_t *g, Agedge_t *e); + +/*** Iterate over outedges of a graph */ +extern Agedge_t *firstout(Agraph_t *g); +extern Agedge_t *nextout(Agraph_t *g, Agedge_t *e); + +/*** Iterate over edges of a node */ +extern Agedge_t *firstedge(Agnode_t *n); +extern Agedge_t *nextedge(Agnode_t *n, Agedge_t *e); + +/*** Iterate over out-edges of a node */ +extern Agedge_t *firstout(Agnode_t *n); +extern Agedge_t *nextout(Agnode_t *n, Agedge_t *e); + +/*** Iterate over head nodes reachable from out-edges of a node */ +extern Agnode_t *firsthead(Agnode_t *n); +extern Agnode_t *nexthead(Agnode_t *n, Agnode_t *h); + +/*** Iterate over in-edges of a graph */ +extern Agedge_t *firstin(Agraph_t *g); +extern Agedge_t *nextin(Agnode_t *n, Agedge_t *e); + +/*** Iterate over in-edges of a node */ +extern Agedge_t *firstin(Agnode_t *n); +extern Agedge_t *nextin(Agraph_t *g, Agedge_t *e); + +/*** Iterate over tail nodes reachable from in-edges of a node */ +extern Agnode_t *firsttail(Agnode_t *n); +extern Agnode_t *nexttail(Agnode_t *n, Agnode_t *t); + +/*** Iterate over nodes of a graph */ +extern Agnode_t *firstnode(Agraph_t *g); +extern Agnode_t *nextnode(Agraph_t *g, Agnode_t *n); + +/*** Iterate over nodes of an edge */ +extern Agnode_t *firstnode(Agedge_t *e); +extern Agnode_t *nextnode(Agedge_t *e, Agnode_t *n); + +/*** Iterate over attributes of a graph */ +extern Agsym_t *firstattr(Agraph_t *g); +extern Agsym_t *nextattr(Agraph_t *g, Agsym_t *a); + +/*** Iterate over attributes of an edge */ +extern Agsym_t *firstattr(Agedge_t *e); +extern Agsym_t *nextattr(Agedge_t *e, Agsym_t *a); + +/*** Iterate over attributes of a node */ +extern Agsym_t *firstattr(Agnode_t *n); +extern Agsym_t *nextattr(Agnode_t *n, Agsym_t *a); + +/** Remove graph objects */ +extern bool rm(Agraph_t *g); +extern bool rm(Agnode_t *n); +extern bool rm(Agedge_t *e); + +/** Layout */ +/*** Annotate a graph with layout attributes and values using a specific layout engine */ +extern bool layout(Agraph_t *g, char *engine); + +/** Render */ +/*** Render a layout into attributes of the graph */ +extern bool render(Agraph_t *g); + +/*** Render a layout in a specific format */ +extern bool render(Agraph_t *g, char *format); +extern bool render(Agraph_t *g, char *format, char *filename); +extern bool render(Agraph_t *g, char *format, FILE *f); + +extern char* renderdata(Agraph_t *g, char *format); + + +/*** Writing graph back to file */ +extern bool write(Agraph_t *g, char *filename); +extern bool write(Agraph_t *g, FILE *f); + + +#ifdef SWIGTCL +// A typemap telling SWIG to ignore an argument for input +// However, we still need to pass a pointer to the C function +%typemap(in,numinputs=0) char *outdata (char *temp) { + $1 = &temp; +} +// A typemap defining how to return an argument by appending it to the result +%typemap(argout) char *outdata { + Tcl_Obj *o = Tcl_NewStringObj($1); + Tcl_ListObjAppendElement(interp,$result,o); +} +#endif + + + +SWIGINTERN int +SWIG_AsCharPtrAndSize(Tcl_Obj *obj, char** cptr, size_t* psize, int *alloc) +{ + int len = 0; + char *cstr = Tcl_GetStringFromObj(obj, &len); + if (cstr) { + if (cptr) *cptr = cstr; + if (psize) *psize = len + 1; + if (alloc) *alloc = SWIG_OLDOBJ; + return SWIG_OK; + } + return SWIG_TypeError; +} + + + + + +#include +#if !defined(SWIG_NO_LLONG_MAX) +# if !defined(LLONG_MAX) && defined(__GNUC__) && defined (__LONG_LONG_MAX__) +# define LLONG_MAX __LONG_LONG_MAX__ +# define LLONG_MIN (-LLONG_MAX - 1LL) +# define ULLONG_MAX (LLONG_MAX * 2ULL + 1ULL) +# endif +#endif + + +SWIGINTERNINLINE Tcl_Obj * +SWIG_FromCharPtrAndSize(const char* carray, size_t size) +{ + return (size < INT_MAX) ? Tcl_NewStringObj(carray, static_cast< int >(size)) : NULL; +} + + +SWIGINTERNINLINE Tcl_Obj * +SWIG_FromCharPtr(const char *cptr) +{ + return SWIG_FromCharPtrAndSize(cptr, (cptr ? strlen(cptr) : 0)); +} + + + #define SWIG_From_bool Tcl_NewBooleanObj + +#ifdef __cplusplus +extern "C" { +#endif +SWIGINTERN int +_wrap_graph__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + char *arg1 = (char *) 0 ; + int res1 ; + char *buf1 = 0 ; + int alloc1 = 0 ; + Agraph_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::graph name ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_AsCharPtrAndSize(objv[1], &buf1, NULL, &alloc1); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "graph" "', argument " "1"" of type '" "char *""'"); + } + arg1 = reinterpret_cast< char * >(buf1); + result = (Agraph_t *)graph(arg1); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agraph_t,0)); + if (alloc1 == SWIG_NEWOBJ) delete[] buf1; + return TCL_OK; +fail: + if (alloc1 == SWIG_NEWOBJ) delete[] buf1; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_digraph(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + char *arg1 = (char *) 0 ; + int res1 ; + char *buf1 = 0 ; + int alloc1 = 0 ; + Agraph_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::digraph name ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_AsCharPtrAndSize(objv[1], &buf1, NULL, &alloc1); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "digraph" "', argument " "1"" of type '" "char *""'"); + } + arg1 = reinterpret_cast< char * >(buf1); + result = (Agraph_t *)digraph(arg1); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agraph_t,0)); + if (alloc1 == SWIG_NEWOBJ) delete[] buf1; + return TCL_OK; +fail: + if (alloc1 == SWIG_NEWOBJ) delete[] buf1; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_strictgraph(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + char *arg1 = (char *) 0 ; + int res1 ; + char *buf1 = 0 ; + int alloc1 = 0 ; + Agraph_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::strictgraph name ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_AsCharPtrAndSize(objv[1], &buf1, NULL, &alloc1); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "strictgraph" "', argument " "1"" of type '" "char *""'"); + } + arg1 = reinterpret_cast< char * >(buf1); + result = (Agraph_t *)strictgraph(arg1); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agraph_t,0)); + if (alloc1 == SWIG_NEWOBJ) delete[] buf1; + return TCL_OK; +fail: + if (alloc1 == SWIG_NEWOBJ) delete[] buf1; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_strictdigraph(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + char *arg1 = (char *) 0 ; + int res1 ; + char *buf1 = 0 ; + int alloc1 = 0 ; + Agraph_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::strictdigraph name ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_AsCharPtrAndSize(objv[1], &buf1, NULL, &alloc1); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "strictdigraph" "', argument " "1"" of type '" "char *""'"); + } + arg1 = reinterpret_cast< char * >(buf1); + result = (Agraph_t *)strictdigraph(arg1); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agraph_t,0)); + if (alloc1 == SWIG_NEWOBJ) delete[] buf1; + return TCL_OK; +fail: + if (alloc1 == SWIG_NEWOBJ) delete[] buf1; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_readstring(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + char *arg1 = (char *) 0 ; + int res1 ; + char *buf1 = 0 ; + int alloc1 = 0 ; + Agraph_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::readstring string ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_AsCharPtrAndSize(objv[1], &buf1, NULL, &alloc1); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "readstring" "', argument " "1"" of type '" "char *""'"); + } + arg1 = reinterpret_cast< char * >(buf1); + result = (Agraph_t *)readstring(arg1); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agraph_t,0)); + if (alloc1 == SWIG_NEWOBJ) delete[] buf1; + return TCL_OK; +fail: + if (alloc1 == SWIG_NEWOBJ) delete[] buf1; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_read__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + char *arg1 = (char *) 0 ; + int res1 ; + char *buf1 = 0 ; + int alloc1 = 0 ; + Agraph_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::read filename ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_AsCharPtrAndSize(objv[1], &buf1, NULL, &alloc1); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "read" "', argument " "1"" of type '" "char *""'"); + } + arg1 = reinterpret_cast< char * >(buf1); + result = (Agraph_t *)read(arg1); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agraph_t,0)); + if (alloc1 == SWIG_NEWOBJ) delete[] buf1; + return TCL_OK; +fail: + if (alloc1 == SWIG_NEWOBJ) delete[] buf1; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_read__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + FILE *arg1 = (FILE *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + Agraph_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::read f ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_FILE, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "read" "', argument " "1"" of type '" "FILE *""'"); + } + arg1 = reinterpret_cast< FILE * >(argp1); + result = (Agraph_t *)read(arg1); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agraph_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_read(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Tcl_Obj *CONST *argv = objv+1; + int argc = objc-1; + if (argc == 1) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_FILE, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_read__SWIG_1(clientData, interp, objc, argv - 1); + } + } + if (argc == 1) { + int _v; + int res = SWIG_AsCharPtrAndSize(argv[0], 0, NULL, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_read__SWIG_0(clientData, interp, objc, argv - 1); + } + } + + Tcl_SetResult(interp,(char *) "No matching function for overloaded 'read'", TCL_STATIC); + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_graph__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + char *arg2 = (char *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + int res2 ; + char *buf2 = 0 ; + int alloc2 = 0 ; + Agraph_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::graph g name ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "graph" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + res2 = SWIG_AsCharPtrAndSize(objv[2], &buf2, NULL, &alloc2); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "graph" "', argument " "2"" of type '" "char *""'"); + } + arg2 = reinterpret_cast< char * >(buf2); + result = (Agraph_t *)graph(arg1,arg2); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agraph_t,0)); + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_OK; +fail: + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_graph(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Tcl_Obj *CONST *argv = objv+1; + int argc = objc-1; + if (argc == 1) { + int _v; + int res = SWIG_AsCharPtrAndSize(argv[0], 0, NULL, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_graph__SWIG_0(clientData, interp, objc, argv - 1); + } + } + if (argc == 2) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agraph_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + int res = SWIG_AsCharPtrAndSize(argv[1], 0, NULL, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_graph__SWIG_1(clientData, interp, objc, argv - 1); + } + } + } + + Tcl_SetResult(interp,(char *) "No matching function for overloaded 'graph'", TCL_STATIC); + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_node(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + char *arg2 = (char *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + int res2 ; + char *buf2 = 0 ; + int alloc2 = 0 ; + Agnode_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::node g name ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "node" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + res2 = SWIG_AsCharPtrAndSize(objv[2], &buf2, NULL, &alloc2); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "node" "', argument " "2"" of type '" "char *""'"); + } + arg2 = reinterpret_cast< char * >(buf2); + result = (Agnode_t *)node(arg1,arg2); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agnode_t,0)); + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_OK; +fail: + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_edge__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agnode_t *arg1 = (Agnode_t *) 0 ; + Agnode_t *arg2 = (Agnode_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + void *argp2 = 0 ; + int res2 = 0 ; + Agedge_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::edge t h ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "edge" "', argument " "1"" of type '" "Agnode_t *""'"); + } + arg1 = reinterpret_cast< Agnode_t * >(argp1); + res2 = SWIG_ConvertPtr(objv[2], &argp2,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "edge" "', argument " "2"" of type '" "Agnode_t *""'"); + } + arg2 = reinterpret_cast< Agnode_t * >(argp2); + result = (Agedge_t *)edge(arg1,arg2); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agedge_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_edge__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agnode_t *arg1 = (Agnode_t *) 0 ; + char *arg2 = (char *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + int res2 ; + char *buf2 = 0 ; + int alloc2 = 0 ; + Agedge_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::edge t hname ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "edge" "', argument " "1"" of type '" "Agnode_t *""'"); + } + arg1 = reinterpret_cast< Agnode_t * >(argp1); + res2 = SWIG_AsCharPtrAndSize(objv[2], &buf2, NULL, &alloc2); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "edge" "', argument " "2"" of type '" "char *""'"); + } + arg2 = reinterpret_cast< char * >(buf2); + result = (Agedge_t *)edge(arg1,arg2); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agedge_t,0)); + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_OK; +fail: + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_edge__SWIG_2(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + char *arg1 = (char *) 0 ; + Agnode_t *arg2 = (Agnode_t *) 0 ; + int res1 ; + char *buf1 = 0 ; + int alloc1 = 0 ; + void *argp2 = 0 ; + int res2 = 0 ; + Agedge_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::edge tname h ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_AsCharPtrAndSize(objv[1], &buf1, NULL, &alloc1); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "edge" "', argument " "1"" of type '" "char *""'"); + } + arg1 = reinterpret_cast< char * >(buf1); + res2 = SWIG_ConvertPtr(objv[2], &argp2,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "edge" "', argument " "2"" of type '" "Agnode_t *""'"); + } + arg2 = reinterpret_cast< Agnode_t * >(argp2); + result = (Agedge_t *)edge(arg1,arg2); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agedge_t,0)); + if (alloc1 == SWIG_NEWOBJ) delete[] buf1; + return TCL_OK; +fail: + if (alloc1 == SWIG_NEWOBJ) delete[] buf1; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_edge__SWIG_3(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + char *arg2 = (char *) 0 ; + char *arg3 = (char *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + int res2 ; + char *buf2 = 0 ; + int alloc2 = 0 ; + int res3 ; + char *buf3 = 0 ; + int alloc3 = 0 ; + Agedge_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"ooo:gv::edge g tname hname ",(void *)0,(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "edge" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + res2 = SWIG_AsCharPtrAndSize(objv[2], &buf2, NULL, &alloc2); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "edge" "', argument " "2"" of type '" "char *""'"); + } + arg2 = reinterpret_cast< char * >(buf2); + res3 = SWIG_AsCharPtrAndSize(objv[3], &buf3, NULL, &alloc3); + if (!SWIG_IsOK(res3)) { + SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "edge" "', argument " "3"" of type '" "char *""'"); + } + arg3 = reinterpret_cast< char * >(buf3); + result = (Agedge_t *)edge(arg1,arg2,arg3); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agedge_t,0)); + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + if (alloc3 == SWIG_NEWOBJ) delete[] buf3; + return TCL_OK; +fail: + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + if (alloc3 == SWIG_NEWOBJ) delete[] buf3; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_edge(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Tcl_Obj *CONST *argv = objv+1; + int argc = objc-1; + if (argc == 2) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agnode_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_Agnode_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_edge__SWIG_0(clientData, interp, objc, argv - 1); + } + } + } + if (argc == 2) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agnode_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + int res = SWIG_AsCharPtrAndSize(argv[1], 0, NULL, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_edge__SWIG_1(clientData, interp, objc, argv - 1); + } + } + } + if (argc == 2) { + int _v; + int res = SWIG_AsCharPtrAndSize(argv[0], 0, NULL, 0); + _v = SWIG_CheckState(res); + if (_v) { + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_Agnode_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_edge__SWIG_2(clientData, interp, objc, argv - 1); + } + } + } + if (argc == 3) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agraph_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + int res = SWIG_AsCharPtrAndSize(argv[1], 0, NULL, 0); + _v = SWIG_CheckState(res); + if (_v) { + int res = SWIG_AsCharPtrAndSize(argv[2], 0, NULL, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_edge__SWIG_3(clientData, interp, objc, argv - 1); + } + } + } + } + + Tcl_SetResult(interp,(char *) "No matching function for overloaded 'edge'", TCL_STATIC); + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_setv__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + char *arg2 = (char *) 0 ; + char *arg3 = (char *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + int res2 ; + char *buf2 = 0 ; + int alloc2 = 0 ; + int res3 ; + char *buf3 = 0 ; + int alloc3 = 0 ; + char *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"ooo:gv::setv g attr val ",(void *)0,(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "setv" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + res2 = SWIG_AsCharPtrAndSize(objv[2], &buf2, NULL, &alloc2); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "setv" "', argument " "2"" of type '" "char *""'"); + } + arg2 = reinterpret_cast< char * >(buf2); + res3 = SWIG_AsCharPtrAndSize(objv[3], &buf3, NULL, &alloc3); + if (!SWIG_IsOK(res3)) { + SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "setv" "', argument " "3"" of type '" "char *""'"); + } + arg3 = reinterpret_cast< char * >(buf3); + result = (char *)setv(arg1,arg2,arg3); + Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result)); + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + if (alloc3 == SWIG_NEWOBJ) delete[] buf3; + return TCL_OK; +fail: + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + if (alloc3 == SWIG_NEWOBJ) delete[] buf3; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_setv__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agnode_t *arg1 = (Agnode_t *) 0 ; + char *arg2 = (char *) 0 ; + char *arg3 = (char *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + int res2 ; + char *buf2 = 0 ; + int alloc2 = 0 ; + int res3 ; + char *buf3 = 0 ; + int alloc3 = 0 ; + char *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"ooo:gv::setv n attr val ",(void *)0,(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "setv" "', argument " "1"" of type '" "Agnode_t *""'"); + } + arg1 = reinterpret_cast< Agnode_t * >(argp1); + res2 = SWIG_AsCharPtrAndSize(objv[2], &buf2, NULL, &alloc2); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "setv" "', argument " "2"" of type '" "char *""'"); + } + arg2 = reinterpret_cast< char * >(buf2); + res3 = SWIG_AsCharPtrAndSize(objv[3], &buf3, NULL, &alloc3); + if (!SWIG_IsOK(res3)) { + SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "setv" "', argument " "3"" of type '" "char *""'"); + } + arg3 = reinterpret_cast< char * >(buf3); + result = (char *)setv(arg1,arg2,arg3); + Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result)); + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + if (alloc3 == SWIG_NEWOBJ) delete[] buf3; + return TCL_OK; +fail: + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + if (alloc3 == SWIG_NEWOBJ) delete[] buf3; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_setv__SWIG_2(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agedge_t *arg1 = (Agedge_t *) 0 ; + char *arg2 = (char *) 0 ; + char *arg3 = (char *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + int res2 ; + char *buf2 = 0 ; + int alloc2 = 0 ; + int res3 ; + char *buf3 = 0 ; + int alloc3 = 0 ; + char *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"ooo:gv::setv e attr val ",(void *)0,(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agedge_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "setv" "', argument " "1"" of type '" "Agedge_t *""'"); + } + arg1 = reinterpret_cast< Agedge_t * >(argp1); + res2 = SWIG_AsCharPtrAndSize(objv[2], &buf2, NULL, &alloc2); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "setv" "', argument " "2"" of type '" "char *""'"); + } + arg2 = reinterpret_cast< char * >(buf2); + res3 = SWIG_AsCharPtrAndSize(objv[3], &buf3, NULL, &alloc3); + if (!SWIG_IsOK(res3)) { + SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "setv" "', argument " "3"" of type '" "char *""'"); + } + arg3 = reinterpret_cast< char * >(buf3); + result = (char *)setv(arg1,arg2,arg3); + Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result)); + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + if (alloc3 == SWIG_NEWOBJ) delete[] buf3; + return TCL_OK; +fail: + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + if (alloc3 == SWIG_NEWOBJ) delete[] buf3; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_setv__SWIG_3(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + Agsym_t *arg2 = (Agsym_t *) 0 ; + char *arg3 = (char *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + void *argp2 = 0 ; + int res2 = 0 ; + int res3 ; + char *buf3 = 0 ; + int alloc3 = 0 ; + char *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"ooo:gv::setv g a val ",(void *)0,(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "setv" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + res2 = SWIG_ConvertPtr(objv[2], &argp2,SWIGTYPE_p_Agsym_t, 0 | 0 ); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "setv" "', argument " "2"" of type '" "Agsym_t *""'"); + } + arg2 = reinterpret_cast< Agsym_t * >(argp2); + res3 = SWIG_AsCharPtrAndSize(objv[3], &buf3, NULL, &alloc3); + if (!SWIG_IsOK(res3)) { + SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "setv" "', argument " "3"" of type '" "char *""'"); + } + arg3 = reinterpret_cast< char * >(buf3); + result = (char *)setv(arg1,arg2,arg3); + Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result)); + if (alloc3 == SWIG_NEWOBJ) delete[] buf3; + return TCL_OK; +fail: + if (alloc3 == SWIG_NEWOBJ) delete[] buf3; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_setv__SWIG_4(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agnode_t *arg1 = (Agnode_t *) 0 ; + Agsym_t *arg2 = (Agsym_t *) 0 ; + char *arg3 = (char *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + void *argp2 = 0 ; + int res2 = 0 ; + int res3 ; + char *buf3 = 0 ; + int alloc3 = 0 ; + char *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"ooo:gv::setv n a val ",(void *)0,(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "setv" "', argument " "1"" of type '" "Agnode_t *""'"); + } + arg1 = reinterpret_cast< Agnode_t * >(argp1); + res2 = SWIG_ConvertPtr(objv[2], &argp2,SWIGTYPE_p_Agsym_t, 0 | 0 ); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "setv" "', argument " "2"" of type '" "Agsym_t *""'"); + } + arg2 = reinterpret_cast< Agsym_t * >(argp2); + res3 = SWIG_AsCharPtrAndSize(objv[3], &buf3, NULL, &alloc3); + if (!SWIG_IsOK(res3)) { + SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "setv" "', argument " "3"" of type '" "char *""'"); + } + arg3 = reinterpret_cast< char * >(buf3); + result = (char *)setv(arg1,arg2,arg3); + Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result)); + if (alloc3 == SWIG_NEWOBJ) delete[] buf3; + return TCL_OK; +fail: + if (alloc3 == SWIG_NEWOBJ) delete[] buf3; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_setv__SWIG_5(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agedge_t *arg1 = (Agedge_t *) 0 ; + Agsym_t *arg2 = (Agsym_t *) 0 ; + char *arg3 = (char *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + void *argp2 = 0 ; + int res2 = 0 ; + int res3 ; + char *buf3 = 0 ; + int alloc3 = 0 ; + char *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"ooo:gv::setv e a val ",(void *)0,(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agedge_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "setv" "', argument " "1"" of type '" "Agedge_t *""'"); + } + arg1 = reinterpret_cast< Agedge_t * >(argp1); + res2 = SWIG_ConvertPtr(objv[2], &argp2,SWIGTYPE_p_Agsym_t, 0 | 0 ); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "setv" "', argument " "2"" of type '" "Agsym_t *""'"); + } + arg2 = reinterpret_cast< Agsym_t * >(argp2); + res3 = SWIG_AsCharPtrAndSize(objv[3], &buf3, NULL, &alloc3); + if (!SWIG_IsOK(res3)) { + SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "setv" "', argument " "3"" of type '" "char *""'"); + } + arg3 = reinterpret_cast< char * >(buf3); + result = (char *)setv(arg1,arg2,arg3); + Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result)); + if (alloc3 == SWIG_NEWOBJ) delete[] buf3; + return TCL_OK; +fail: + if (alloc3 == SWIG_NEWOBJ) delete[] buf3; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_setv(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Tcl_Obj *CONST *argv = objv+1; + int argc = objc-1; + if (argc == 3) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agraph_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_Agsym_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + int res = SWIG_AsCharPtrAndSize(argv[2], 0, NULL, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_setv__SWIG_3(clientData, interp, objc, argv - 1); + } + } + } + } + if (argc == 3) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agnode_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_Agsym_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + int res = SWIG_AsCharPtrAndSize(argv[2], 0, NULL, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_setv__SWIG_4(clientData, interp, objc, argv - 1); + } + } + } + } + if (argc == 3) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agedge_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_Agsym_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + int res = SWIG_AsCharPtrAndSize(argv[2], 0, NULL, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_setv__SWIG_5(clientData, interp, objc, argv - 1); + } + } + } + } + if (argc == 3) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agraph_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + int res = SWIG_AsCharPtrAndSize(argv[1], 0, NULL, 0); + _v = SWIG_CheckState(res); + if (_v) { + int res = SWIG_AsCharPtrAndSize(argv[2], 0, NULL, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_setv__SWIG_0(clientData, interp, objc, argv - 1); + } + } + } + } + if (argc == 3) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agnode_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + int res = SWIG_AsCharPtrAndSize(argv[1], 0, NULL, 0); + _v = SWIG_CheckState(res); + if (_v) { + int res = SWIG_AsCharPtrAndSize(argv[2], 0, NULL, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_setv__SWIG_1(clientData, interp, objc, argv - 1); + } + } + } + } + if (argc == 3) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agedge_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + int res = SWIG_AsCharPtrAndSize(argv[1], 0, NULL, 0); + _v = SWIG_CheckState(res); + if (_v) { + int res = SWIG_AsCharPtrAndSize(argv[2], 0, NULL, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_setv__SWIG_2(clientData, interp, objc, argv - 1); + } + } + } + } + + Tcl_SetResult(interp,(char *) "No matching function for overloaded 'setv'", TCL_STATIC); + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_getv__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + char *arg2 = (char *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + int res2 ; + char *buf2 = 0 ; + int alloc2 = 0 ; + char *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::getv g attr ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "getv" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + res2 = SWIG_AsCharPtrAndSize(objv[2], &buf2, NULL, &alloc2); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "getv" "', argument " "2"" of type '" "char *""'"); + } + arg2 = reinterpret_cast< char * >(buf2); + result = (char *)getv(arg1,arg2); + Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result)); + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_OK; +fail: + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_getv__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agnode_t *arg1 = (Agnode_t *) 0 ; + char *arg2 = (char *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + int res2 ; + char *buf2 = 0 ; + int alloc2 = 0 ; + char *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::getv n attr ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "getv" "', argument " "1"" of type '" "Agnode_t *""'"); + } + arg1 = reinterpret_cast< Agnode_t * >(argp1); + res2 = SWIG_AsCharPtrAndSize(objv[2], &buf2, NULL, &alloc2); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "getv" "', argument " "2"" of type '" "char *""'"); + } + arg2 = reinterpret_cast< char * >(buf2); + result = (char *)getv(arg1,arg2); + Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result)); + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_OK; +fail: + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_getv__SWIG_2(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agedge_t *arg1 = (Agedge_t *) 0 ; + char *arg2 = (char *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + int res2 ; + char *buf2 = 0 ; + int alloc2 = 0 ; + char *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::getv e attr ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agedge_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "getv" "', argument " "1"" of type '" "Agedge_t *""'"); + } + arg1 = reinterpret_cast< Agedge_t * >(argp1); + res2 = SWIG_AsCharPtrAndSize(objv[2], &buf2, NULL, &alloc2); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "getv" "', argument " "2"" of type '" "char *""'"); + } + arg2 = reinterpret_cast< char * >(buf2); + result = (char *)getv(arg1,arg2); + Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result)); + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_OK; +fail: + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_getv__SWIG_3(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + Agsym_t *arg2 = (Agsym_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + void *argp2 = 0 ; + int res2 = 0 ; + char *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::getv g a ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "getv" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + res2 = SWIG_ConvertPtr(objv[2], &argp2,SWIGTYPE_p_Agsym_t, 0 | 0 ); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "getv" "', argument " "2"" of type '" "Agsym_t *""'"); + } + arg2 = reinterpret_cast< Agsym_t * >(argp2); + result = (char *)getv(arg1,arg2); + Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_getv__SWIG_4(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agnode_t *arg1 = (Agnode_t *) 0 ; + Agsym_t *arg2 = (Agsym_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + void *argp2 = 0 ; + int res2 = 0 ; + char *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::getv n a ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "getv" "', argument " "1"" of type '" "Agnode_t *""'"); + } + arg1 = reinterpret_cast< Agnode_t * >(argp1); + res2 = SWIG_ConvertPtr(objv[2], &argp2,SWIGTYPE_p_Agsym_t, 0 | 0 ); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "getv" "', argument " "2"" of type '" "Agsym_t *""'"); + } + arg2 = reinterpret_cast< Agsym_t * >(argp2); + result = (char *)getv(arg1,arg2); + Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_getv__SWIG_5(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agedge_t *arg1 = (Agedge_t *) 0 ; + Agsym_t *arg2 = (Agsym_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + void *argp2 = 0 ; + int res2 = 0 ; + char *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::getv e a ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agedge_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "getv" "', argument " "1"" of type '" "Agedge_t *""'"); + } + arg1 = reinterpret_cast< Agedge_t * >(argp1); + res2 = SWIG_ConvertPtr(objv[2], &argp2,SWIGTYPE_p_Agsym_t, 0 | 0 ); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "getv" "', argument " "2"" of type '" "Agsym_t *""'"); + } + arg2 = reinterpret_cast< Agsym_t * >(argp2); + result = (char *)getv(arg1,arg2); + Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_getv(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Tcl_Obj *CONST *argv = objv+1; + int argc = objc-1; + if (argc == 2) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agraph_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_Agsym_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_getv__SWIG_3(clientData, interp, objc, argv - 1); + } + } + } + if (argc == 2) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agnode_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_Agsym_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_getv__SWIG_4(clientData, interp, objc, argv - 1); + } + } + } + if (argc == 2) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agedge_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_Agsym_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_getv__SWIG_5(clientData, interp, objc, argv - 1); + } + } + } + if (argc == 2) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agraph_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + int res = SWIG_AsCharPtrAndSize(argv[1], 0, NULL, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_getv__SWIG_0(clientData, interp, objc, argv - 1); + } + } + } + if (argc == 2) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agnode_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + int res = SWIG_AsCharPtrAndSize(argv[1], 0, NULL, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_getv__SWIG_1(clientData, interp, objc, argv - 1); + } + } + } + if (argc == 2) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agedge_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + int res = SWIG_AsCharPtrAndSize(argv[1], 0, NULL, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_getv__SWIG_2(clientData, interp, objc, argv - 1); + } + } + } + + Tcl_SetResult(interp,(char *) "No matching function for overloaded 'getv'", TCL_STATIC); + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_nameof__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + char *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::nameof g ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "nameof" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + result = (char *)nameof(arg1); + Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_nameof__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agnode_t *arg1 = (Agnode_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + char *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::nameof n ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "nameof" "', argument " "1"" of type '" "Agnode_t *""'"); + } + arg1 = reinterpret_cast< Agnode_t * >(argp1); + result = (char *)nameof(arg1); + Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_nameof__SWIG_2(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agsym_t *arg1 = (Agsym_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + char *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::nameof a ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agsym_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "nameof" "', argument " "1"" of type '" "Agsym_t *""'"); + } + arg1 = reinterpret_cast< Agsym_t * >(argp1); + result = (char *)nameof(arg1); + Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_nameof(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Tcl_Obj *CONST *argv = objv+1; + int argc = objc-1; + if (argc == 1) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agraph_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_nameof__SWIG_0(clientData, interp, objc, argv - 1); + } + } + if (argc == 1) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agnode_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_nameof__SWIG_1(clientData, interp, objc, argv - 1); + } + } + if (argc == 1) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agsym_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_nameof__SWIG_2(clientData, interp, objc, argv - 1); + } + } + + Tcl_SetResult(interp,(char *) "No matching function for overloaded 'nameof'", TCL_STATIC); + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_findsubg(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + char *arg2 = (char *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + int res2 ; + char *buf2 = 0 ; + int alloc2 = 0 ; + Agraph_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::findsubg g name ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "findsubg" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + res2 = SWIG_AsCharPtrAndSize(objv[2], &buf2, NULL, &alloc2); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "findsubg" "', argument " "2"" of type '" "char *""'"); + } + arg2 = reinterpret_cast< char * >(buf2); + result = (Agraph_t *)findsubg(arg1,arg2); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agraph_t,0)); + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_OK; +fail: + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_findnode(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + char *arg2 = (char *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + int res2 ; + char *buf2 = 0 ; + int alloc2 = 0 ; + Agnode_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::findnode g name ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "findnode" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + res2 = SWIG_AsCharPtrAndSize(objv[2], &buf2, NULL, &alloc2); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "findnode" "', argument " "2"" of type '" "char *""'"); + } + arg2 = reinterpret_cast< char * >(buf2); + result = (Agnode_t *)findnode(arg1,arg2); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agnode_t,0)); + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_OK; +fail: + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_findedge(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agnode_t *arg1 = (Agnode_t *) 0 ; + Agnode_t *arg2 = (Agnode_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + void *argp2 = 0 ; + int res2 = 0 ; + Agedge_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::findedge t h ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "findedge" "', argument " "1"" of type '" "Agnode_t *""'"); + } + arg1 = reinterpret_cast< Agnode_t * >(argp1); + res2 = SWIG_ConvertPtr(objv[2], &argp2,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "findedge" "', argument " "2"" of type '" "Agnode_t *""'"); + } + arg2 = reinterpret_cast< Agnode_t * >(argp2); + result = (Agedge_t *)findedge(arg1,arg2); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agedge_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_findattr__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + char *arg2 = (char *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + int res2 ; + char *buf2 = 0 ; + int alloc2 = 0 ; + Agsym_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::findattr g name ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "findattr" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + res2 = SWIG_AsCharPtrAndSize(objv[2], &buf2, NULL, &alloc2); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "findattr" "', argument " "2"" of type '" "char *""'"); + } + arg2 = reinterpret_cast< char * >(buf2); + result = (Agsym_t *)findattr(arg1,arg2); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agsym_t,0)); + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_OK; +fail: + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_findattr__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agnode_t *arg1 = (Agnode_t *) 0 ; + char *arg2 = (char *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + int res2 ; + char *buf2 = 0 ; + int alloc2 = 0 ; + Agsym_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::findattr n name ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "findattr" "', argument " "1"" of type '" "Agnode_t *""'"); + } + arg1 = reinterpret_cast< Agnode_t * >(argp1); + res2 = SWIG_AsCharPtrAndSize(objv[2], &buf2, NULL, &alloc2); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "findattr" "', argument " "2"" of type '" "char *""'"); + } + arg2 = reinterpret_cast< char * >(buf2); + result = (Agsym_t *)findattr(arg1,arg2); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agsym_t,0)); + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_OK; +fail: + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_findattr__SWIG_2(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agedge_t *arg1 = (Agedge_t *) 0 ; + char *arg2 = (char *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + int res2 ; + char *buf2 = 0 ; + int alloc2 = 0 ; + Agsym_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::findattr e name ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agedge_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "findattr" "', argument " "1"" of type '" "Agedge_t *""'"); + } + arg1 = reinterpret_cast< Agedge_t * >(argp1); + res2 = SWIG_AsCharPtrAndSize(objv[2], &buf2, NULL, &alloc2); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "findattr" "', argument " "2"" of type '" "char *""'"); + } + arg2 = reinterpret_cast< char * >(buf2); + result = (Agsym_t *)findattr(arg1,arg2); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agsym_t,0)); + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_OK; +fail: + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_findattr(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Tcl_Obj *CONST *argv = objv+1; + int argc = objc-1; + if (argc == 2) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agraph_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + int res = SWIG_AsCharPtrAndSize(argv[1], 0, NULL, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_findattr__SWIG_0(clientData, interp, objc, argv - 1); + } + } + } + if (argc == 2) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agnode_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + int res = SWIG_AsCharPtrAndSize(argv[1], 0, NULL, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_findattr__SWIG_1(clientData, interp, objc, argv - 1); + } + } + } + if (argc == 2) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agedge_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + int res = SWIG_AsCharPtrAndSize(argv[1], 0, NULL, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_findattr__SWIG_2(clientData, interp, objc, argv - 1); + } + } + } + + Tcl_SetResult(interp,(char *) "No matching function for overloaded 'findattr'", TCL_STATIC); + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_headof(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agedge_t *arg1 = (Agedge_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + Agnode_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::headof e ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agedge_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "headof" "', argument " "1"" of type '" "Agedge_t *""'"); + } + arg1 = reinterpret_cast< Agedge_t * >(argp1); + result = (Agnode_t *)headof(arg1); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agnode_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_tailof(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agedge_t *arg1 = (Agedge_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + Agnode_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::tailof e ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agedge_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "tailof" "', argument " "1"" of type '" "Agedge_t *""'"); + } + arg1 = reinterpret_cast< Agedge_t * >(argp1); + result = (Agnode_t *)tailof(arg1); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agnode_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_graphof__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + Agraph_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::graphof g ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "graphof" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + result = (Agraph_t *)graphof(arg1); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agraph_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_graphof__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agedge_t *arg1 = (Agedge_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + Agraph_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::graphof e ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agedge_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "graphof" "', argument " "1"" of type '" "Agedge_t *""'"); + } + arg1 = reinterpret_cast< Agedge_t * >(argp1); + result = (Agraph_t *)graphof(arg1); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agraph_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_graphof__SWIG_2(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agnode_t *arg1 = (Agnode_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + Agraph_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::graphof n ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "graphof" "', argument " "1"" of type '" "Agnode_t *""'"); + } + arg1 = reinterpret_cast< Agnode_t * >(argp1); + result = (Agraph_t *)graphof(arg1); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agraph_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_graphof(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Tcl_Obj *CONST *argv = objv+1; + int argc = objc-1; + if (argc == 1) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agraph_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_graphof__SWIG_0(clientData, interp, objc, argv - 1); + } + } + if (argc == 1) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agedge_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_graphof__SWIG_1(clientData, interp, objc, argv - 1); + } + } + if (argc == 1) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agnode_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_graphof__SWIG_2(clientData, interp, objc, argv - 1); + } + } + + Tcl_SetResult(interp,(char *) "No matching function for overloaded 'graphof'", TCL_STATIC); + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_rootof(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + Agraph_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::rootof g ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "rootof" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + result = (Agraph_t *)rootof(arg1); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agraph_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_protonode(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + Agnode_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::protonode g ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "protonode" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + result = (Agnode_t *)protonode(arg1); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agnode_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_protoedge(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + Agedge_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::protoedge g ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "protoedge" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + result = (Agedge_t *)protoedge(arg1); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agedge_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_ok__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + bool result; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::ok g ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ok" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + result = (bool)ok(arg1); + Tcl_SetObjResult(interp,SWIG_From_bool(static_cast< bool >(result))); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_ok__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agnode_t *arg1 = (Agnode_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + bool result; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::ok n ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ok" "', argument " "1"" of type '" "Agnode_t *""'"); + } + arg1 = reinterpret_cast< Agnode_t * >(argp1); + result = (bool)ok(arg1); + Tcl_SetObjResult(interp,SWIG_From_bool(static_cast< bool >(result))); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_ok__SWIG_2(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agedge_t *arg1 = (Agedge_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + bool result; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::ok e ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agedge_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ok" "', argument " "1"" of type '" "Agedge_t *""'"); + } + arg1 = reinterpret_cast< Agedge_t * >(argp1); + result = (bool)ok(arg1); + Tcl_SetObjResult(interp,SWIG_From_bool(static_cast< bool >(result))); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_ok__SWIG_3(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agsym_t *arg1 = (Agsym_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + bool result; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::ok a ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agsym_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "ok" "', argument " "1"" of type '" "Agsym_t *""'"); + } + arg1 = reinterpret_cast< Agsym_t * >(argp1); + result = (bool)ok(arg1); + Tcl_SetObjResult(interp,SWIG_From_bool(static_cast< bool >(result))); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_ok(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Tcl_Obj *CONST *argv = objv+1; + int argc = objc-1; + if (argc == 1) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agraph_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_ok__SWIG_0(clientData, interp, objc, argv - 1); + } + } + if (argc == 1) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agnode_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_ok__SWIG_1(clientData, interp, objc, argv - 1); + } + } + if (argc == 1) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agedge_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_ok__SWIG_2(clientData, interp, objc, argv - 1); + } + } + if (argc == 1) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agsym_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_ok__SWIG_3(clientData, interp, objc, argv - 1); + } + } + + Tcl_SetResult(interp,(char *) "No matching function for overloaded 'ok'", TCL_STATIC); + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_firstsubg(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + Agraph_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::firstsubg g ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "firstsubg" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + result = (Agraph_t *)firstsubg(arg1); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agraph_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_nextsubg(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + Agraph_t *arg2 = (Agraph_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + void *argp2 = 0 ; + int res2 = 0 ; + Agraph_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::nextsubg g sg ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "nextsubg" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + res2 = SWIG_ConvertPtr(objv[2], &argp2,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "nextsubg" "', argument " "2"" of type '" "Agraph_t *""'"); + } + arg2 = reinterpret_cast< Agraph_t * >(argp2); + result = (Agraph_t *)nextsubg(arg1,arg2); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agraph_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_firstsupg(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + Agraph_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::firstsupg g ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "firstsupg" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + result = (Agraph_t *)firstsupg(arg1); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agraph_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_nextsupg(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + Agraph_t *arg2 = (Agraph_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + void *argp2 = 0 ; + int res2 = 0 ; + Agraph_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::nextsupg g sg ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "nextsupg" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + res2 = SWIG_ConvertPtr(objv[2], &argp2,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "nextsupg" "', argument " "2"" of type '" "Agraph_t *""'"); + } + arg2 = reinterpret_cast< Agraph_t * >(argp2); + result = (Agraph_t *)nextsupg(arg1,arg2); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agraph_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_firstedge__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + Agedge_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::firstedge g ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "firstedge" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + result = (Agedge_t *)firstedge(arg1); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agedge_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_nextedge__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + Agedge_t *arg2 = (Agedge_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + void *argp2 = 0 ; + int res2 = 0 ; + Agedge_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::nextedge g e ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "nextedge" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + res2 = SWIG_ConvertPtr(objv[2], &argp2,SWIGTYPE_p_Agedge_t, 0 | 0 ); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "nextedge" "', argument " "2"" of type '" "Agedge_t *""'"); + } + arg2 = reinterpret_cast< Agedge_t * >(argp2); + result = (Agedge_t *)nextedge(arg1,arg2); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agedge_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_firstout__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + Agedge_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::firstout g ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "firstout" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + result = (Agedge_t *)firstout(arg1); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agedge_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_nextout__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + Agedge_t *arg2 = (Agedge_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + void *argp2 = 0 ; + int res2 = 0 ; + Agedge_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::nextout g e ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "nextout" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + res2 = SWIG_ConvertPtr(objv[2], &argp2,SWIGTYPE_p_Agedge_t, 0 | 0 ); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "nextout" "', argument " "2"" of type '" "Agedge_t *""'"); + } + arg2 = reinterpret_cast< Agedge_t * >(argp2); + result = (Agedge_t *)nextout(arg1,arg2); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agedge_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_firstedge__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agnode_t *arg1 = (Agnode_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + Agedge_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::firstedge n ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "firstedge" "', argument " "1"" of type '" "Agnode_t *""'"); + } + arg1 = reinterpret_cast< Agnode_t * >(argp1); + result = (Agedge_t *)firstedge(arg1); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agedge_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_firstedge(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Tcl_Obj *CONST *argv = objv+1; + int argc = objc-1; + if (argc == 1) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agraph_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_firstedge__SWIG_0(clientData, interp, objc, argv - 1); + } + } + if (argc == 1) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agnode_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_firstedge__SWIG_1(clientData, interp, objc, argv - 1); + } + } + + Tcl_SetResult(interp,(char *) "No matching function for overloaded 'firstedge'", TCL_STATIC); + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_nextedge__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agnode_t *arg1 = (Agnode_t *) 0 ; + Agedge_t *arg2 = (Agedge_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + void *argp2 = 0 ; + int res2 = 0 ; + Agedge_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::nextedge n e ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "nextedge" "', argument " "1"" of type '" "Agnode_t *""'"); + } + arg1 = reinterpret_cast< Agnode_t * >(argp1); + res2 = SWIG_ConvertPtr(objv[2], &argp2,SWIGTYPE_p_Agedge_t, 0 | 0 ); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "nextedge" "', argument " "2"" of type '" "Agedge_t *""'"); + } + arg2 = reinterpret_cast< Agedge_t * >(argp2); + result = (Agedge_t *)nextedge(arg1,arg2); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agedge_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_nextedge(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Tcl_Obj *CONST *argv = objv+1; + int argc = objc-1; + if (argc == 2) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agraph_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_Agedge_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_nextedge__SWIG_0(clientData, interp, objc, argv - 1); + } + } + } + if (argc == 2) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agnode_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_Agedge_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_nextedge__SWIG_1(clientData, interp, objc, argv - 1); + } + } + } + + Tcl_SetResult(interp,(char *) "No matching function for overloaded 'nextedge'", TCL_STATIC); + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_firstout__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agnode_t *arg1 = (Agnode_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + Agedge_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::firstout n ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "firstout" "', argument " "1"" of type '" "Agnode_t *""'"); + } + arg1 = reinterpret_cast< Agnode_t * >(argp1); + result = (Agedge_t *)firstout(arg1); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agedge_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_firstout(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Tcl_Obj *CONST *argv = objv+1; + int argc = objc-1; + if (argc == 1) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agraph_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_firstout__SWIG_0(clientData, interp, objc, argv - 1); + } + } + if (argc == 1) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agnode_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_firstout__SWIG_1(clientData, interp, objc, argv - 1); + } + } + + Tcl_SetResult(interp,(char *) "No matching function for overloaded 'firstout'", TCL_STATIC); + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_nextout__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agnode_t *arg1 = (Agnode_t *) 0 ; + Agedge_t *arg2 = (Agedge_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + void *argp2 = 0 ; + int res2 = 0 ; + Agedge_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::nextout n e ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "nextout" "', argument " "1"" of type '" "Agnode_t *""'"); + } + arg1 = reinterpret_cast< Agnode_t * >(argp1); + res2 = SWIG_ConvertPtr(objv[2], &argp2,SWIGTYPE_p_Agedge_t, 0 | 0 ); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "nextout" "', argument " "2"" of type '" "Agedge_t *""'"); + } + arg2 = reinterpret_cast< Agedge_t * >(argp2); + result = (Agedge_t *)nextout(arg1,arg2); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agedge_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_nextout(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Tcl_Obj *CONST *argv = objv+1; + int argc = objc-1; + if (argc == 2) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agraph_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_Agedge_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_nextout__SWIG_0(clientData, interp, objc, argv - 1); + } + } + } + if (argc == 2) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agnode_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_Agedge_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_nextout__SWIG_1(clientData, interp, objc, argv - 1); + } + } + } + + Tcl_SetResult(interp,(char *) "No matching function for overloaded 'nextout'", TCL_STATIC); + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_firsthead(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agnode_t *arg1 = (Agnode_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + Agnode_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::firsthead n ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "firsthead" "', argument " "1"" of type '" "Agnode_t *""'"); + } + arg1 = reinterpret_cast< Agnode_t * >(argp1); + result = (Agnode_t *)firsthead(arg1); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agnode_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_nexthead(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agnode_t *arg1 = (Agnode_t *) 0 ; + Agnode_t *arg2 = (Agnode_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + void *argp2 = 0 ; + int res2 = 0 ; + Agnode_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::nexthead n h ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "nexthead" "', argument " "1"" of type '" "Agnode_t *""'"); + } + arg1 = reinterpret_cast< Agnode_t * >(argp1); + res2 = SWIG_ConvertPtr(objv[2], &argp2,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "nexthead" "', argument " "2"" of type '" "Agnode_t *""'"); + } + arg2 = reinterpret_cast< Agnode_t * >(argp2); + result = (Agnode_t *)nexthead(arg1,arg2); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agnode_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_firstin__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + Agedge_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::firstin g ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "firstin" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + result = (Agedge_t *)firstin(arg1); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agedge_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_nextin__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agnode_t *arg1 = (Agnode_t *) 0 ; + Agedge_t *arg2 = (Agedge_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + void *argp2 = 0 ; + int res2 = 0 ; + Agedge_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::nextin n e ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "nextin" "', argument " "1"" of type '" "Agnode_t *""'"); + } + arg1 = reinterpret_cast< Agnode_t * >(argp1); + res2 = SWIG_ConvertPtr(objv[2], &argp2,SWIGTYPE_p_Agedge_t, 0 | 0 ); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "nextin" "', argument " "2"" of type '" "Agedge_t *""'"); + } + arg2 = reinterpret_cast< Agedge_t * >(argp2); + result = (Agedge_t *)nextin(arg1,arg2); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agedge_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_firstin__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agnode_t *arg1 = (Agnode_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + Agedge_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::firstin n ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "firstin" "', argument " "1"" of type '" "Agnode_t *""'"); + } + arg1 = reinterpret_cast< Agnode_t * >(argp1); + result = (Agedge_t *)firstin(arg1); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agedge_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_firstin(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Tcl_Obj *CONST *argv = objv+1; + int argc = objc-1; + if (argc == 1) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agraph_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_firstin__SWIG_0(clientData, interp, objc, argv - 1); + } + } + if (argc == 1) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agnode_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_firstin__SWIG_1(clientData, interp, objc, argv - 1); + } + } + + Tcl_SetResult(interp,(char *) "No matching function for overloaded 'firstin'", TCL_STATIC); + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_nextin__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + Agedge_t *arg2 = (Agedge_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + void *argp2 = 0 ; + int res2 = 0 ; + Agedge_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::nextin g e ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "nextin" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + res2 = SWIG_ConvertPtr(objv[2], &argp2,SWIGTYPE_p_Agedge_t, 0 | 0 ); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "nextin" "', argument " "2"" of type '" "Agedge_t *""'"); + } + arg2 = reinterpret_cast< Agedge_t * >(argp2); + result = (Agedge_t *)nextin(arg1,arg2); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agedge_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_nextin(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Tcl_Obj *CONST *argv = objv+1; + int argc = objc-1; + if (argc == 2) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agnode_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_Agedge_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_nextin__SWIG_0(clientData, interp, objc, argv - 1); + } + } + } + if (argc == 2) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agraph_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_Agedge_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_nextin__SWIG_1(clientData, interp, objc, argv - 1); + } + } + } + + Tcl_SetResult(interp,(char *) "No matching function for overloaded 'nextin'", TCL_STATIC); + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_firsttail(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agnode_t *arg1 = (Agnode_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + Agnode_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::firsttail n ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "firsttail" "', argument " "1"" of type '" "Agnode_t *""'"); + } + arg1 = reinterpret_cast< Agnode_t * >(argp1); + result = (Agnode_t *)firsttail(arg1); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agnode_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_nexttail(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agnode_t *arg1 = (Agnode_t *) 0 ; + Agnode_t *arg2 = (Agnode_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + void *argp2 = 0 ; + int res2 = 0 ; + Agnode_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::nexttail n t ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "nexttail" "', argument " "1"" of type '" "Agnode_t *""'"); + } + arg1 = reinterpret_cast< Agnode_t * >(argp1); + res2 = SWIG_ConvertPtr(objv[2], &argp2,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "nexttail" "', argument " "2"" of type '" "Agnode_t *""'"); + } + arg2 = reinterpret_cast< Agnode_t * >(argp2); + result = (Agnode_t *)nexttail(arg1,arg2); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agnode_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_firstnode__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + Agnode_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::firstnode g ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "firstnode" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + result = (Agnode_t *)firstnode(arg1); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agnode_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_nextnode__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + Agnode_t *arg2 = (Agnode_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + void *argp2 = 0 ; + int res2 = 0 ; + Agnode_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::nextnode g n ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "nextnode" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + res2 = SWIG_ConvertPtr(objv[2], &argp2,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "nextnode" "', argument " "2"" of type '" "Agnode_t *""'"); + } + arg2 = reinterpret_cast< Agnode_t * >(argp2); + result = (Agnode_t *)nextnode(arg1,arg2); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agnode_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_firstnode__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agedge_t *arg1 = (Agedge_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + Agnode_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::firstnode e ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agedge_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "firstnode" "', argument " "1"" of type '" "Agedge_t *""'"); + } + arg1 = reinterpret_cast< Agedge_t * >(argp1); + result = (Agnode_t *)firstnode(arg1); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agnode_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_firstnode(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Tcl_Obj *CONST *argv = objv+1; + int argc = objc-1; + if (argc == 1) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agraph_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_firstnode__SWIG_0(clientData, interp, objc, argv - 1); + } + } + if (argc == 1) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agedge_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_firstnode__SWIG_1(clientData, interp, objc, argv - 1); + } + } + + Tcl_SetResult(interp,(char *) "No matching function for overloaded 'firstnode'", TCL_STATIC); + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_nextnode__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agedge_t *arg1 = (Agedge_t *) 0 ; + Agnode_t *arg2 = (Agnode_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + void *argp2 = 0 ; + int res2 = 0 ; + Agnode_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::nextnode e n ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agedge_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "nextnode" "', argument " "1"" of type '" "Agedge_t *""'"); + } + arg1 = reinterpret_cast< Agedge_t * >(argp1); + res2 = SWIG_ConvertPtr(objv[2], &argp2,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "nextnode" "', argument " "2"" of type '" "Agnode_t *""'"); + } + arg2 = reinterpret_cast< Agnode_t * >(argp2); + result = (Agnode_t *)nextnode(arg1,arg2); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agnode_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_nextnode(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Tcl_Obj *CONST *argv = objv+1; + int argc = objc-1; + if (argc == 2) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agraph_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_Agnode_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_nextnode__SWIG_0(clientData, interp, objc, argv - 1); + } + } + } + if (argc == 2) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agedge_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_Agnode_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_nextnode__SWIG_1(clientData, interp, objc, argv - 1); + } + } + } + + Tcl_SetResult(interp,(char *) "No matching function for overloaded 'nextnode'", TCL_STATIC); + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_firstattr__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + Agsym_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::firstattr g ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "firstattr" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + result = (Agsym_t *)firstattr(arg1); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agsym_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_nextattr__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + Agsym_t *arg2 = (Agsym_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + void *argp2 = 0 ; + int res2 = 0 ; + Agsym_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::nextattr g a ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "nextattr" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + res2 = SWIG_ConvertPtr(objv[2], &argp2,SWIGTYPE_p_Agsym_t, 0 | 0 ); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "nextattr" "', argument " "2"" of type '" "Agsym_t *""'"); + } + arg2 = reinterpret_cast< Agsym_t * >(argp2); + result = (Agsym_t *)nextattr(arg1,arg2); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agsym_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_firstattr__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agedge_t *arg1 = (Agedge_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + Agsym_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::firstattr e ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agedge_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "firstattr" "', argument " "1"" of type '" "Agedge_t *""'"); + } + arg1 = reinterpret_cast< Agedge_t * >(argp1); + result = (Agsym_t *)firstattr(arg1); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agsym_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_nextattr__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agedge_t *arg1 = (Agedge_t *) 0 ; + Agsym_t *arg2 = (Agsym_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + void *argp2 = 0 ; + int res2 = 0 ; + Agsym_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::nextattr e a ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agedge_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "nextattr" "', argument " "1"" of type '" "Agedge_t *""'"); + } + arg1 = reinterpret_cast< Agedge_t * >(argp1); + res2 = SWIG_ConvertPtr(objv[2], &argp2,SWIGTYPE_p_Agsym_t, 0 | 0 ); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "nextattr" "', argument " "2"" of type '" "Agsym_t *""'"); + } + arg2 = reinterpret_cast< Agsym_t * >(argp2); + result = (Agsym_t *)nextattr(arg1,arg2); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agsym_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_firstattr__SWIG_2(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agnode_t *arg1 = (Agnode_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + Agsym_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::firstattr n ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "firstattr" "', argument " "1"" of type '" "Agnode_t *""'"); + } + arg1 = reinterpret_cast< Agnode_t * >(argp1); + result = (Agsym_t *)firstattr(arg1); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agsym_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_firstattr(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Tcl_Obj *CONST *argv = objv+1; + int argc = objc-1; + if (argc == 1) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agraph_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_firstattr__SWIG_0(clientData, interp, objc, argv - 1); + } + } + if (argc == 1) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agedge_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_firstattr__SWIG_1(clientData, interp, objc, argv - 1); + } + } + if (argc == 1) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agnode_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_firstattr__SWIG_2(clientData, interp, objc, argv - 1); + } + } + + Tcl_SetResult(interp,(char *) "No matching function for overloaded 'firstattr'", TCL_STATIC); + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_nextattr__SWIG_2(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agnode_t *arg1 = (Agnode_t *) 0 ; + Agsym_t *arg2 = (Agsym_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + void *argp2 = 0 ; + int res2 = 0 ; + Agsym_t *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::nextattr n a ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "nextattr" "', argument " "1"" of type '" "Agnode_t *""'"); + } + arg1 = reinterpret_cast< Agnode_t * >(argp1); + res2 = SWIG_ConvertPtr(objv[2], &argp2,SWIGTYPE_p_Agsym_t, 0 | 0 ); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "nextattr" "', argument " "2"" of type '" "Agsym_t *""'"); + } + arg2 = reinterpret_cast< Agsym_t * >(argp2); + result = (Agsym_t *)nextattr(arg1,arg2); + Tcl_SetObjResult(interp, SWIG_NewInstanceObj( SWIG_as_voidptr(result), SWIGTYPE_p_Agsym_t,0)); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_nextattr(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Tcl_Obj *CONST *argv = objv+1; + int argc = objc-1; + if (argc == 2) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agraph_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_Agsym_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_nextattr__SWIG_0(clientData, interp, objc, argv - 1); + } + } + } + if (argc == 2) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agedge_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_Agsym_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_nextattr__SWIG_1(clientData, interp, objc, argv - 1); + } + } + } + if (argc == 2) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agnode_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_Agsym_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_nextattr__SWIG_2(clientData, interp, objc, argv - 1); + } + } + } + + Tcl_SetResult(interp,(char *) "No matching function for overloaded 'nextattr'", TCL_STATIC); + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_rm__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + bool result; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::rm g ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "rm" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + result = (bool)rm(arg1); + Tcl_SetObjResult(interp,SWIG_From_bool(static_cast< bool >(result))); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_rm__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agnode_t *arg1 = (Agnode_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + bool result; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::rm n ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agnode_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "rm" "', argument " "1"" of type '" "Agnode_t *""'"); + } + arg1 = reinterpret_cast< Agnode_t * >(argp1); + result = (bool)rm(arg1); + Tcl_SetObjResult(interp,SWIG_From_bool(static_cast< bool >(result))); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_rm__SWIG_2(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agedge_t *arg1 = (Agedge_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + bool result; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::rm e ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agedge_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "rm" "', argument " "1"" of type '" "Agedge_t *""'"); + } + arg1 = reinterpret_cast< Agedge_t * >(argp1); + result = (bool)rm(arg1); + Tcl_SetObjResult(interp,SWIG_From_bool(static_cast< bool >(result))); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_rm(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Tcl_Obj *CONST *argv = objv+1; + int argc = objc-1; + if (argc == 1) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agraph_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_rm__SWIG_0(clientData, interp, objc, argv - 1); + } + } + if (argc == 1) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agnode_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_rm__SWIG_1(clientData, interp, objc, argv - 1); + } + } + if (argc == 1) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agedge_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_rm__SWIG_2(clientData, interp, objc, argv - 1); + } + } + + Tcl_SetResult(interp,(char *) "No matching function for overloaded 'rm'", TCL_STATIC); + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_layout(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + char *arg2 = (char *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + int res2 ; + char *buf2 = 0 ; + int alloc2 = 0 ; + bool result; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::layout g engine ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "layout" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + res2 = SWIG_AsCharPtrAndSize(objv[2], &buf2, NULL, &alloc2); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "layout" "', argument " "2"" of type '" "char *""'"); + } + arg2 = reinterpret_cast< char * >(buf2); + result = (bool)layout(arg1,arg2); + Tcl_SetObjResult(interp,SWIG_From_bool(static_cast< bool >(result))); + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_OK; +fail: + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_render__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + bool result; + + if (SWIG_GetArgs(interp, objc, objv,"o:gv::render g ",(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "render" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + result = (bool)render(arg1); + Tcl_SetObjResult(interp,SWIG_From_bool(static_cast< bool >(result))); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_render__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + char *arg2 = (char *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + int res2 ; + char *buf2 = 0 ; + int alloc2 = 0 ; + bool result; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::render g format ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "render" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + res2 = SWIG_AsCharPtrAndSize(objv[2], &buf2, NULL, &alloc2); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "render" "', argument " "2"" of type '" "char *""'"); + } + arg2 = reinterpret_cast< char * >(buf2); + result = (bool)render(arg1,arg2); + Tcl_SetObjResult(interp,SWIG_From_bool(static_cast< bool >(result))); + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_OK; +fail: + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_render__SWIG_2(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + char *arg2 = (char *) 0 ; + char *arg3 = (char *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + int res2 ; + char *buf2 = 0 ; + int alloc2 = 0 ; + int res3 ; + char *buf3 = 0 ; + int alloc3 = 0 ; + bool result; + + if (SWIG_GetArgs(interp, objc, objv,"ooo:gv::render g format filename ",(void *)0,(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "render" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + res2 = SWIG_AsCharPtrAndSize(objv[2], &buf2, NULL, &alloc2); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "render" "', argument " "2"" of type '" "char *""'"); + } + arg2 = reinterpret_cast< char * >(buf2); + res3 = SWIG_AsCharPtrAndSize(objv[3], &buf3, NULL, &alloc3); + if (!SWIG_IsOK(res3)) { + SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "render" "', argument " "3"" of type '" "char *""'"); + } + arg3 = reinterpret_cast< char * >(buf3); + result = (bool)render(arg1,arg2,arg3); + Tcl_SetObjResult(interp,SWIG_From_bool(static_cast< bool >(result))); + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + if (alloc3 == SWIG_NEWOBJ) delete[] buf3; + return TCL_OK; +fail: + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + if (alloc3 == SWIG_NEWOBJ) delete[] buf3; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_render__SWIG_3(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + char *arg2 = (char *) 0 ; + FILE *arg3 = (FILE *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + int res2 ; + char *buf2 = 0 ; + int alloc2 = 0 ; + void *argp3 = 0 ; + int res3 = 0 ; + bool result; + + if (SWIG_GetArgs(interp, objc, objv,"ooo:gv::render g format f ",(void *)0,(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "render" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + res2 = SWIG_AsCharPtrAndSize(objv[2], &buf2, NULL, &alloc2); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "render" "', argument " "2"" of type '" "char *""'"); + } + arg2 = reinterpret_cast< char * >(buf2); + res3 = SWIG_ConvertPtr(objv[3], &argp3,SWIGTYPE_p_FILE, 0 | 0 ); + if (!SWIG_IsOK(res3)) { + SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "render" "', argument " "3"" of type '" "FILE *""'"); + } + arg3 = reinterpret_cast< FILE * >(argp3); + result = (bool)render(arg1,arg2,arg3); + Tcl_SetObjResult(interp,SWIG_From_bool(static_cast< bool >(result))); + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_OK; +fail: + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_render(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Tcl_Obj *CONST *argv = objv+1; + int argc = objc-1; + if (argc == 1) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agraph_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_render__SWIG_0(clientData, interp, objc, argv - 1); + } + } + if (argc == 2) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agraph_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + int res = SWIG_AsCharPtrAndSize(argv[1], 0, NULL, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_render__SWIG_1(clientData, interp, objc, argv - 1); + } + } + } + if (argc == 3) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agraph_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + int res = SWIG_AsCharPtrAndSize(argv[1], 0, NULL, 0); + _v = SWIG_CheckState(res); + if (_v) { + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[2], &vptr, SWIGTYPE_p_FILE, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_render__SWIG_3(clientData, interp, objc, argv - 1); + } + } + } + } + if (argc == 3) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agraph_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + int res = SWIG_AsCharPtrAndSize(argv[1], 0, NULL, 0); + _v = SWIG_CheckState(res); + if (_v) { + int res = SWIG_AsCharPtrAndSize(argv[2], 0, NULL, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_render__SWIG_2(clientData, interp, objc, argv - 1); + } + } + } + } + + Tcl_SetResult(interp,(char *) "No matching function for overloaded 'render'", TCL_STATIC); + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_renderdata(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + char *arg2 = (char *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + int res2 ; + char *buf2 = 0 ; + int alloc2 = 0 ; + char *result = 0 ; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::renderdata g format ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "renderdata" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + res2 = SWIG_AsCharPtrAndSize(objv[2], &buf2, NULL, &alloc2); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "renderdata" "', argument " "2"" of type '" "char *""'"); + } + arg2 = reinterpret_cast< char * >(buf2); + result = (char *)renderdata(arg1,arg2); + Tcl_SetObjResult(interp,SWIG_FromCharPtr((const char *)result)); + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_OK; +fail: + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_write__SWIG_0(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + char *arg2 = (char *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + int res2 ; + char *buf2 = 0 ; + int alloc2 = 0 ; + bool result; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::write g filename ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "write" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + res2 = SWIG_AsCharPtrAndSize(objv[2], &buf2, NULL, &alloc2); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "write" "', argument " "2"" of type '" "char *""'"); + } + arg2 = reinterpret_cast< char * >(buf2); + result = (bool)write(arg1,arg2); + Tcl_SetObjResult(interp,SWIG_From_bool(static_cast< bool >(result))); + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_OK; +fail: + if (alloc2 == SWIG_NEWOBJ) delete[] buf2; + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_write__SWIG_1(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Agraph_t *arg1 = (Agraph_t *) 0 ; + FILE *arg2 = (FILE *) 0 ; + void *argp1 = 0 ; + int res1 = 0 ; + void *argp2 = 0 ; + int res2 = 0 ; + bool result; + + if (SWIG_GetArgs(interp, objc, objv,"oo:gv::write g f ",(void *)0,(void *)0) == TCL_ERROR) SWIG_fail; + res1 = SWIG_ConvertPtr(objv[1], &argp1,SWIGTYPE_p_Agraph_t, 0 | 0 ); + if (!SWIG_IsOK(res1)) { + SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "write" "', argument " "1"" of type '" "Agraph_t *""'"); + } + arg1 = reinterpret_cast< Agraph_t * >(argp1); + res2 = SWIG_ConvertPtr(objv[2], &argp2,SWIGTYPE_p_FILE, 0 | 0 ); + if (!SWIG_IsOK(res2)) { + SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "write" "', argument " "2"" of type '" "FILE *""'"); + } + arg2 = reinterpret_cast< FILE * >(argp2); + result = (bool)write(arg1,arg2); + Tcl_SetObjResult(interp,SWIG_From_bool(static_cast< bool >(result))); + return TCL_OK; +fail: + return TCL_ERROR; +} + + +SWIGINTERN int +_wrap_write(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { + Tcl_Obj *CONST *argv = objv+1; + int argc = objc-1; + if (argc == 2) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agraph_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[1], &vptr, SWIGTYPE_p_FILE, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_write__SWIG_1(clientData, interp, objc, argv - 1); + } + } + } + if (argc == 2) { + int _v; + void *vptr = 0; + int res = SWIG_ConvertPtr(argv[0], &vptr, SWIGTYPE_p_Agraph_t, 0); + _v = SWIG_CheckState(res); + if (_v) { + int res = SWIG_AsCharPtrAndSize(argv[1], 0, NULL, 0); + _v = SWIG_CheckState(res); + if (_v) { + return _wrap_write__SWIG_0(clientData, interp, objc, argv - 1); + } + } + } + + Tcl_SetResult(interp,(char *) "No matching function for overloaded 'write'", TCL_STATIC); + return TCL_ERROR; +} + + + +static swig_command_info swig_commands[] = { + { SWIG_prefix "digraph", (swig_wrapper_func) _wrap_digraph, NULL}, + { SWIG_prefix "strictgraph", (swig_wrapper_func) _wrap_strictgraph, NULL}, + { SWIG_prefix "strictdigraph", (swig_wrapper_func) _wrap_strictdigraph, NULL}, + { SWIG_prefix "readstring", (swig_wrapper_func) _wrap_readstring, NULL}, + { SWIG_prefix "read", (swig_wrapper_func) _wrap_read, NULL}, + { SWIG_prefix "graph", (swig_wrapper_func) _wrap_graph, NULL}, + { SWIG_prefix "node", (swig_wrapper_func) _wrap_node, NULL}, + { SWIG_prefix "edge", (swig_wrapper_func) _wrap_edge, NULL}, + { SWIG_prefix "setv", (swig_wrapper_func) _wrap_setv, NULL}, + { SWIG_prefix "getv", (swig_wrapper_func) _wrap_getv, NULL}, + { SWIG_prefix "nameof", (swig_wrapper_func) _wrap_nameof, NULL}, + { SWIG_prefix "findsubg", (swig_wrapper_func) _wrap_findsubg, NULL}, + { SWIG_prefix "findnode", (swig_wrapper_func) _wrap_findnode, NULL}, + { SWIG_prefix "findedge", (swig_wrapper_func) _wrap_findedge, NULL}, + { SWIG_prefix "findattr", (swig_wrapper_func) _wrap_findattr, NULL}, + { SWIG_prefix "headof", (swig_wrapper_func) _wrap_headof, NULL}, + { SWIG_prefix "tailof", (swig_wrapper_func) _wrap_tailof, NULL}, + { SWIG_prefix "graphof", (swig_wrapper_func) _wrap_graphof, NULL}, + { SWIG_prefix "rootof", (swig_wrapper_func) _wrap_rootof, NULL}, + { SWIG_prefix "protonode", (swig_wrapper_func) _wrap_protonode, NULL}, + { SWIG_prefix "protoedge", (swig_wrapper_func) _wrap_protoedge, NULL}, + { SWIG_prefix "ok", (swig_wrapper_func) _wrap_ok, NULL}, + { SWIG_prefix "firstsubg", (swig_wrapper_func) _wrap_firstsubg, NULL}, + { SWIG_prefix "nextsubg", (swig_wrapper_func) _wrap_nextsubg, NULL}, + { SWIG_prefix "firstsupg", (swig_wrapper_func) _wrap_firstsupg, NULL}, + { SWIG_prefix "nextsupg", (swig_wrapper_func) _wrap_nextsupg, NULL}, + { SWIG_prefix "firstedge", (swig_wrapper_func) _wrap_firstedge, NULL}, + { SWIG_prefix "nextedge", (swig_wrapper_func) _wrap_nextedge, NULL}, + { SWIG_prefix "firstout", (swig_wrapper_func) _wrap_firstout, NULL}, + { SWIG_prefix "nextout", (swig_wrapper_func) _wrap_nextout, NULL}, + { SWIG_prefix "firsthead", (swig_wrapper_func) _wrap_firsthead, NULL}, + { SWIG_prefix "nexthead", (swig_wrapper_func) _wrap_nexthead, NULL}, + { SWIG_prefix "firstin", (swig_wrapper_func) _wrap_firstin, NULL}, + { SWIG_prefix "nextin", (swig_wrapper_func) _wrap_nextin, NULL}, + { SWIG_prefix "firsttail", (swig_wrapper_func) _wrap_firsttail, NULL}, + { SWIG_prefix "nexttail", (swig_wrapper_func) _wrap_nexttail, NULL}, + { SWIG_prefix "firstnode", (swig_wrapper_func) _wrap_firstnode, NULL}, + { SWIG_prefix "nextnode", (swig_wrapper_func) _wrap_nextnode, NULL}, + { SWIG_prefix "firstattr", (swig_wrapper_func) _wrap_firstattr, NULL}, + { SWIG_prefix "nextattr", (swig_wrapper_func) _wrap_nextattr, NULL}, + { SWIG_prefix "rm", (swig_wrapper_func) _wrap_rm, NULL}, + { SWIG_prefix "layout", (swig_wrapper_func) _wrap_layout, NULL}, + { SWIG_prefix "render", (swig_wrapper_func) _wrap_render, NULL}, + { SWIG_prefix "renderdata", (swig_wrapper_func) _wrap_renderdata, NULL}, + { SWIG_prefix "write", (swig_wrapper_func) _wrap_write, NULL}, + {0, 0, 0} +}; + +static swig_var_info swig_variables[] = { + {0,0,0,0} +}; + +static swig_const_info swig_constants[] = { + {0,0,0,0,0,0} +}; + +/* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */ + +static swig_type_info _swigt__p_Agedge_t = {"_p_Agedge_t", "Agedge_t *", 0, 0, (void*)0, 0}; +static swig_type_info _swigt__p_Agnode_t = {"_p_Agnode_t", "Agnode_t *", 0, 0, (void*)0, 0}; +static swig_type_info _swigt__p_Agraph_t = {"_p_Agraph_t", "Agraph_t *", 0, 0, (void*)0, 0}; +static swig_type_info _swigt__p_Agsym_t = {"_p_Agsym_t", "Agsym_t *", 0, 0, (void*)0, 0}; +static swig_type_info _swigt__p_FILE = {"_p_FILE", "FILE *", 0, 0, (void*)0, 0}; +static swig_type_info _swigt__p_char = {"_p_char", "char *", 0, 0, (void*)0, 0}; + +static swig_type_info *swig_type_initial[] = { + &_swigt__p_Agedge_t, + &_swigt__p_Agnode_t, + &_swigt__p_Agraph_t, + &_swigt__p_Agsym_t, + &_swigt__p_FILE, + &_swigt__p_char, +}; + +static swig_cast_info _swigc__p_Agedge_t[] = { {&_swigt__p_Agedge_t, 0, 0, 0},{0, 0, 0, 0}}; +static swig_cast_info _swigc__p_Agnode_t[] = { {&_swigt__p_Agnode_t, 0, 0, 0},{0, 0, 0, 0}}; +static swig_cast_info _swigc__p_Agraph_t[] = { {&_swigt__p_Agraph_t, 0, 0, 0},{0, 0, 0, 0}}; +static swig_cast_info _swigc__p_Agsym_t[] = { {&_swigt__p_Agsym_t, 0, 0, 0},{0, 0, 0, 0}}; +static swig_cast_info _swigc__p_FILE[] = { {&_swigt__p_FILE, 0, 0, 0},{0, 0, 0, 0}}; +static swig_cast_info _swigc__p_char[] = { {&_swigt__p_char, 0, 0, 0},{0, 0, 0, 0}}; + +static swig_cast_info *swig_cast_initial[] = { + _swigc__p_Agedge_t, + _swigc__p_Agnode_t, + _swigc__p_Agraph_t, + _swigc__p_Agsym_t, + _swigc__p_FILE, + _swigc__p_char, +}; + + +/* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */ + +#ifdef __cplusplus +} +#endif +/* ----------------------------------------------------------------------------- + * Type initialization: + * This problem is tough by the requirement that no dynamic + * memory is used. Also, since swig_type_info structures store pointers to + * swig_cast_info structures and swig_cast_info structures store pointers back + * to swig_type_info structures, we need some lookup code at initialization. + * The idea is that swig generates all the structures that are needed. + * The runtime then collects these partially filled structures. + * The SWIG_InitializeModule function takes these initial arrays out of + * swig_module, and does all the lookup, filling in the swig_module.types + * array with the correct data and linking the correct swig_cast_info + * structures together. + * + * The generated swig_type_info structures are assigned staticly to an initial + * array. We just loop through that array, and handle each type individually. + * First we lookup if this type has been already loaded, and if so, use the + * loaded structure instead of the generated one. Then we have to fill in the + * cast linked list. The cast data is initially stored in something like a + * two-dimensional array. Each row corresponds to a type (there are the same + * number of rows as there are in the swig_type_initial array). Each entry in + * a column is one of the swig_cast_info structures for that type. + * The cast_initial array is actually an array of arrays, because each row has + * a variable number of columns. So to actually build the cast linked list, + * we find the array of casts associated with the type, and loop through it + * adding the casts to the list. The one last trick we need to do is making + * sure the type pointer in the swig_cast_info struct is correct. + * + * First off, we lookup the cast->type name to see if it is already loaded. + * There are three cases to handle: + * 1) If the cast->type has already been loaded AND the type we are adding + * casting info to has not been loaded (it is in this module), THEN we + * replace the cast->type pointer with the type pointer that has already + * been loaded. + * 2) If BOTH types (the one we are adding casting info to, and the + * cast->type) are loaded, THEN the cast info has already been loaded by + * the previous module so we just ignore it. + * 3) Finally, if cast->type has not already been loaded, then we add that + * swig_cast_info to the linked list (because the cast->type) pointer will + * be correct. + * ----------------------------------------------------------------------------- */ + +#ifdef __cplusplus +extern "C" { +#if 0 +} /* c-mode */ +#endif +#endif + +#if 0 +#define SWIGRUNTIME_DEBUG +#endif + + +SWIGRUNTIME void +SWIG_InitializeModule(void *clientdata) { + size_t i; + swig_module_info *module_head, *iter; + int found, init; + + clientdata = clientdata; + + /* check to see if the circular list has been setup, if not, set it up */ + if (swig_module.next==0) { + /* Initialize the swig_module */ + swig_module.type_initial = swig_type_initial; + swig_module.cast_initial = swig_cast_initial; + swig_module.next = &swig_module; + init = 1; + } else { + init = 0; + } + + /* Try and load any already created modules */ + module_head = SWIG_GetModule(clientdata); + if (!module_head) { + /* This is the first module loaded for this interpreter */ + /* so set the swig module into the interpreter */ + SWIG_SetModule(clientdata, &swig_module); + module_head = &swig_module; + } else { + /* the interpreter has loaded a SWIG module, but has it loaded this one? */ + found=0; + iter=module_head; + do { + if (iter==&swig_module) { + found=1; + break; + } + iter=iter->next; + } while (iter!= module_head); + + /* if the is found in the list, then all is done and we may leave */ + if (found) return; + /* otherwise we must add out module into the list */ + swig_module.next = module_head->next; + module_head->next = &swig_module; + } + + /* When multiple interpeters are used, a module could have already been initialized in + a different interpreter, but not yet have a pointer in this interpreter. + In this case, we do not want to continue adding types... everything should be + set up already */ + if (init == 0) return; + + /* Now work on filling in swig_module.types */ +#ifdef SWIGRUNTIME_DEBUG + printf("SWIG_InitializeModule: size %d\n", swig_module.size); +#endif + for (i = 0; i < swig_module.size; ++i) { + swig_type_info *type = 0; + swig_type_info *ret; + swig_cast_info *cast; + +#ifdef SWIGRUNTIME_DEBUG + printf("SWIG_InitializeModule: type %d %s\n", i, swig_module.type_initial[i]->name); +#endif + + /* if there is another module already loaded */ + if (swig_module.next != &swig_module) { + type = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, swig_module.type_initial[i]->name); + } + if (type) { + /* Overwrite clientdata field */ +#ifdef SWIGRUNTIME_DEBUG + printf("SWIG_InitializeModule: found type %s\n", type->name); +#endif + if (swig_module.type_initial[i]->clientdata) { + type->clientdata = swig_module.type_initial[i]->clientdata; +#ifdef SWIGRUNTIME_DEBUG + printf("SWIG_InitializeModule: found and overwrite type %s \n", type->name); +#endif + } + } else { + type = swig_module.type_initial[i]; + } + + /* Insert casting types */ + cast = swig_module.cast_initial[i]; + while (cast->type) { + /* Don't need to add information already in the list */ + ret = 0; +#ifdef SWIGRUNTIME_DEBUG + printf("SWIG_InitializeModule: look cast %s\n", cast->type->name); +#endif + if (swig_module.next != &swig_module) { + ret = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, cast->type->name); +#ifdef SWIGRUNTIME_DEBUG + if (ret) printf("SWIG_InitializeModule: found cast %s\n", ret->name); +#endif + } + if (ret) { + if (type == swig_module.type_initial[i]) { +#ifdef SWIGRUNTIME_DEBUG + printf("SWIG_InitializeModule: skip old type %s\n", ret->name); +#endif + cast->type = ret; + ret = 0; + } else { + /* Check for casting already in the list */ + swig_cast_info *ocast = SWIG_TypeCheck(ret->name, type); +#ifdef SWIGRUNTIME_DEBUG + if (ocast) printf("SWIG_InitializeModule: skip old cast %s\n", ret->name); +#endif + if (!ocast) ret = 0; + } + } + + if (!ret) { +#ifdef SWIGRUNTIME_DEBUG + printf("SWIG_InitializeModule: adding cast %s\n", cast->type->name); +#endif + if (type->cast) { + type->cast->prev = cast; + cast->next = type->cast; + } + type->cast = cast; + } + cast++; + } + /* Set entry in modules->types array equal to the type */ + swig_module.types[i] = type; + } + swig_module.types[i] = 0; + +#ifdef SWIGRUNTIME_DEBUG + printf("**** SWIG_InitializeModule: Cast List ******\n"); + for (i = 0; i < swig_module.size; ++i) { + int j = 0; + swig_cast_info *cast = swig_module.cast_initial[i]; + printf("SWIG_InitializeModule: type %d %s\n", i, swig_module.type_initial[i]->name); + while (cast->type) { + printf("SWIG_InitializeModule: cast type %s\n", cast->type->name); + cast++; + ++j; + } + printf("---- Total casts: %d\n",j); + } + printf("**** SWIG_InitializeModule: Cast List ******\n"); +#endif +} + +/* This function will propagate the clientdata field of type to +* any new swig_type_info structures that have been added into the list +* of equivalent types. It is like calling +* SWIG_TypeClientData(type, clientdata) a second time. +*/ +SWIGRUNTIME void +SWIG_PropagateClientData(void) { + size_t i; + swig_cast_info *equiv; + static int init_run = 0; + + if (init_run) return; + init_run = 1; + + for (i = 0; i < swig_module.size; i++) { + if (swig_module.types[i]->clientdata) { + equiv = swig_module.types[i]->cast; + while (equiv) { + if (!equiv->converter) { + if (equiv->type && !equiv->type->clientdata) + SWIG_TypeClientData(equiv->type, swig_module.types[i]->clientdata); + } + equiv = equiv->next; + } + } + } +} + +#ifdef __cplusplus +#if 0 +{ + /* c-mode */ +#endif +} +#endif + + +#ifdef __cplusplus +extern "C" { +#endif + + /* ----------------------------------------------------------------------------- + * constants/methods manipulation + * ----------------------------------------------------------------------------- */ + + /* Install Constants */ + + SWIGINTERN void + SWIG_Tcl_InstallConstants(Tcl_Interp *interp, swig_const_info constants[]) { + int i; + Tcl_Obj *obj; + + if (!swigconstTableinit) { + Tcl_InitHashTable(&swigconstTable, TCL_STRING_KEYS); + swigconstTableinit = 1; + } + for (i = 0; constants[i].type; i++) { + switch(constants[i].type) { + case SWIG_TCL_POINTER: + obj = SWIG_NewPointerObj(constants[i].pvalue, *(constants[i]).ptype,0); + break; + case SWIG_TCL_BINARY: + obj = SWIG_NewPackedObj(constants[i].pvalue, constants[i].lvalue, *(constants[i].ptype)); + break; + default: + obj = 0; + break; + } + if (obj) { + SWIG_Tcl_SetConstantObj(interp, constants[i].name, obj); + } + } + } + +#ifdef __cplusplus +} +#endif + +/* -----------------------------------------------------------------------------* + * Partial Init method + * -----------------------------------------------------------------------------*/ + +SWIGEXPORT int SWIG_init(Tcl_Interp *interp) { + int i; + if (interp == 0) return TCL_ERROR; +#ifdef USE_TCL_STUBS + if (Tcl_InitStubs(interp, (char*)"8.1", 0) == NULL) { + return TCL_ERROR; + } +#endif + Tcl_PkgProvide(interp, (char*)SWIG_name, (char*)SWIG_version); + +#ifdef SWIG_namespace + Tcl_Eval(interp, "namespace eval " SWIG_namespace " { }"); +#endif + + SWIG_InitializeModule((void *) interp); + SWIG_PropagateClientData(); + + for (i = 0; swig_commands[i].name; i++) { + Tcl_CreateObjCommand(interp, (char *) swig_commands[i].name, (swig_wrapper_func) swig_commands[i].wrapper, + swig_commands[i].clientdata, NULL); + } + for (i = 0; swig_variables[i].name; i++) { + Tcl_SetVar(interp, (char *) swig_variables[i].name, (char *) "", TCL_GLOBAL_ONLY); + Tcl_TraceVar(interp, (char *) swig_variables[i].name, TCL_TRACE_READS | TCL_GLOBAL_ONLY, + (Tcl_VarTraceProc *) swig_variables[i].get, (ClientData) swig_variables[i].addr); + Tcl_TraceVar(interp, (char *) swig_variables[i].name, TCL_TRACE_WRITES | TCL_GLOBAL_ONLY, + (Tcl_VarTraceProc *) swig_variables[i].set, (ClientData) swig_variables[i].addr); + } + + SWIG_Tcl_InstallConstants(interp, swig_constants); + + + return TCL_OK; +} +SWIGEXPORT int Gv_SafeInit(Tcl_Interp *interp) { + return SWIG_init(interp); +}