static void initPos(Agraph_t * g)
{
Agnode_t *n;
Agedge_t *e;
double *pvec;
char *p;
point *sp;
int pn;
attrsym_t *N_pos = agfindnodeattr(g, "pos");
attrsym_t *E_pos = agfindedgeattr(g, "pos");
assert(N_pos);
if (!E_pos) {
if (doEdges)
fprintf(stderr, "Warning: turning off doEdges, graph %s\n",
g->name);
doEdges = 0;
}
for (n = agfstnode(g); n; n = agnxtnode(g, n)) {
pvec = ND_pos(n);
p = agxget(n, N_pos->index);
if (p[0] && (sscanf(p, "%lf,%lf", pvec, pvec + 1) == 2)) {
int i;
for (i = 0; i < NDIM; i++)
pvec[i] = pvec[i] / PSinputscale;
} else {
fprintf(stderr, "could not find pos for node %s in graph %s\n",
n->name, g->name);
exit(1);
}
ND_coord_i(n).x = POINTS(ND_pos(n)[0]);
ND_coord_i(n).y = POINTS(ND_pos(n)[1]);
}
if (doEdges) {
for (n = agfstnode(g); n; n = agnxtnode(g, n)) {
for (e = agfstout(g, n); e; e = agnxtout(g, e)) {
if ((sp = user_spline(E_pos, e, &pn)) != 0) {
clip_and_install(e, sp, pn);
free(sp);
} else {
fprintf(stderr,
"Missing edge pos for edge %s - %s in graph %s\n",
n->name, e->head->name, g->name);
exit(1);
}
}
}
}
}
void setnodeattributes(Agraph_t * g, Agnode_t * n, char *argv[], int argc)
{
int i;
Agsym_t *a;
for (i = 0; i < argc; i++) {
if (n) {
if (!(a = agfindnodeattr(g, argv[i])))
a = agattr(agroot(g), AGNODE, argv[i], "");
agxset(n, a, argv[++i]);
}
else {
agattr(g, AGNODE, argv[i], argv[i+1]);
i++;
}
}
}
/* getPos:
*/
static real *getPos(Agraph_t * g, spring_electrical_control ctrl)
{
Agnode_t *n;
real *pos = N_NEW(Ndim * agnnodes(g), real);
int ix, i;
if (agfindnodeattr(g, "pos") == NULL)
return pos;
for (n = agfstnode(g); n; n = agnxtnode(g, n)) {
i = ND_id(n);
if (hasPos(n)) {
for (ix = 0; ix < Ndim; ix++) {
pos[i * Ndim + ix] = ND_pos(n)[ix];
}
}
}
return pos;
}
static void sfdp_init_node_edge(graph_t * g)
{
node_t *n;
edge_t *e;
#if 0
int nnodes = agnnodes(g);
attrsym_t *N_pos = agfindnodeattr(g, "pos");
#endif
for (n = agfstnode(g); n; n = agnxtnode(g, n)) {
neato_init_node(n);
#if 0
FIX so that user positions works with multiscale
user_pos(N_pos, NULL, n, nnodes);
#endif
}
for (n = agfstnode(g); n; n = agnxtnode(g, n)) {
for (e = agfstout(g, n); e; e = agnxtout(g, e))
sfdp_init_edge(e);
}
}
/*
cgraph requires
*/
void graph_init(graph_t * g, boolean use_rankdir)
{
char *p;
double xf;
static char *rankname[] = { "local", "global", "none", NULL };
static int rankcode[] = { LOCAL, GLOBAL, NOCLUST, LOCAL };
static char *fontnamenames[] = {"gd","ps","svg", NULL};
static int fontnamecodes[] = {NATIVEFONTS,PSFONTS,SVGFONTS,-1};
int rankdir;
GD_drawing(g) = NEW(layout_t);
/* set this up fairly early in case any string sizes are needed */
if ((p = agget(g, "fontpath")) || (p = getenv("DOTFONTPATH"))) {
/* overide GDFONTPATH in local environment if dot
* wants its own */
#ifdef HAVE_SETENV
setenv("GDFONTPATH", p, 1);
#else
static char *buf = 0;
buf = grealloc(buf, strlen("GDFONTPATH=") + strlen(p) + 1);
strcpy(buf, "GDFONTPATH=");
strcat(buf, p);
putenv(buf);
#endif
}
GD_charset(g) = findCharset (g);
if (!HTTPServerEnVar) {
Gvimagepath = agget (g, "imagepath");
if (!Gvimagepath)
Gvimagepath = Gvfilepath;
}
GD_drawing(g)->quantum =
late_double(g, agfindgraphattr(g, "quantum"), 0.0, 0.0);
/* setting rankdir=LR is only defined in dot,
* but having it set causes shape code and others to use it.
* The result is confused output, so we turn it off unless requested.
* This effective rankdir is stored in the bottom 2 bits of g->u.rankdir.
* Sometimes, the code really needs the graph's rankdir, e.g., neato -n
* with record shapes, so we store the real rankdir in the next 2 bits.
*/
rankdir = RANKDIR_TB;
if ((p = agget(g, "rankdir"))) {
if (streq(p, "LR"))
rankdir = RANKDIR_LR;
else if (streq(p, "BT"))
rankdir = RANKDIR_BT;
else if (streq(p, "RL"))
rankdir = RANKDIR_RL;
}
if (use_rankdir)
SET_RANKDIR (g, (rankdir << 2) | rankdir);
else
SET_RANKDIR (g, (rankdir << 2));
xf = late_double(g, agfindgraphattr(g, "nodesep"),
DEFAULT_NODESEP, MIN_NODESEP);
GD_nodesep(g) = POINTS(xf);
p = late_string(g, agfindgraphattr(g, "ranksep"), NULL);
if (p) {
if (sscanf(p, "%lf", &xf) == 0)
xf = DEFAULT_RANKSEP;
else {
if (xf < MIN_RANKSEP)
xf = MIN_RANKSEP;
}
if (strstr(p, "equally"))
GD_exact_ranksep(g) = TRUE;
} else
xf = DEFAULT_RANKSEP;
GD_ranksep(g) = POINTS(xf);
GD_showboxes(g) = late_int(g, agfindgraphattr(g, "showboxes"), 0, 0);
p = late_string(g, agfindgraphattr(g, "fontnames"), NULL);
GD_fontnames(g) = maptoken(p, fontnamenames, fontnamecodes);
setRatio(g);
GD_drawing(g)->filled =
getdoubles2ptf(g, "size", &(GD_drawing(g)->size));
getdoubles2ptf(g, "page", &(GD_drawing(g)->page));
GD_drawing(g)->centered = mapbool(agget(g, "center"));
if ((p = agget(g, "rotate")))
GD_drawing(g)->landscape = (atoi(p) == 90);
else if ((p = agget(g, "orientation")))
GD_drawing(g)->landscape = ((p[0] == 'l') || (p[0] == 'L'));
else if ((p = agget(g, "landscape")))
GD_drawing(g)->landscape = mapbool(p);
p = agget(g, "clusterrank");
CL_type = maptoken(p, rankname, rankcode);
p = agget(g, "concentrate");
Concentrate = mapbool(p);
State = GVBEGIN;
EdgeLabelsDone = 0;
GD_drawing(g)->dpi = 0.0;
if (((p = agget(g, "dpi")) && p[0])
|| ((p = agget(g, "resolution")) && p[0]))
GD_drawing(g)->dpi = atof(p);
do_graph_label(g);
Initial_dist = MYHUGE;
G_ordering = agfindgraphattr(g, "ordering");
G_gradientangle = agfindgraphattr(g,"gradientangle");
G_margin = agfindgraphattr(g, "margin");
/* initialize nodes */
N_height = agfindnodeattr(g, "height");
N_width = agfindnodeattr(g, "width");
N_shape = agfindnodeattr(g, "shape");
N_color = agfindnodeattr(g, "color");
N_fillcolor = agfindnodeattr(g, "fillcolor");
N_style = agfindnodeattr(g, "style");
N_fontsize = agfindnodeattr(g, "fontsize");
N_fontname = agfindnodeattr(g, "fontname");
N_fontcolor = agfindnodeattr(g, "fontcolor");
N_label = agfindnodeattr(g, "label");
if (!N_label)
N_label = agattr(g, AGNODE, "label", NODENAME_ESC);
N_xlabel = agfindnodeattr(g, "xlabel");
N_showboxes = agfindnodeattr(g, "showboxes");
N_penwidth = agfindnodeattr(g, "penwidth");
N_ordering = agfindnodeattr(g, "ordering");
N_margin = agfindnodeattr(g, "margin");
/* attribs for polygon shapes */
N_sides = agfindnodeattr(g, "sides");
N_peripheries = agfindnodeattr(g, "peripheries");
N_skew = agfindnodeattr(g, "skew");
N_orientation = agfindnodeattr(g, "orientation");
N_distortion = agfindnodeattr(g, "distortion");
N_fixed = agfindnodeattr(g, "fixedsize");
N_imagescale = agfindnodeattr(g, "imagescale");
N_nojustify = agfindnodeattr(g, "nojustify");
N_layer = agfindnodeattr(g, "layer");
N_group = agfindnodeattr(g, "group");
N_comment = agfindnodeattr(g, "comment");
N_vertices = agfindnodeattr(g, "vertices");
N_z = agfindnodeattr(g, "z");
N_gradientangle = agfindnodeattr(g,"gradientangle");
/* initialize edges */
E_weight = agfindedgeattr(g, "weight");
E_color = agfindedgeattr(g, "color");
E_fillcolor = agfindedgeattr(g, "fillcolor");
E_fontsize = agfindedgeattr(g, "fontsize");
E_fontname = agfindedgeattr(g, "fontname");
E_fontcolor = agfindedgeattr(g, "fontcolor");
E_label = agfindedgeattr(g, "label");
E_xlabel = agfindedgeattr(g, "xlabel");
E_label_float = agfindedgeattr(g, "labelfloat");
/* vladimir */
E_dir = agfindedgeattr(g, "dir");
E_arrowhead = agfindedgeattr(g, "arrowhead");
E_arrowtail = agfindedgeattr(g, "arrowtail");
E_headlabel = agfindedgeattr(g, "headlabel");
E_taillabel = agfindedgeattr(g, "taillabel");
E_labelfontsize = agfindedgeattr(g, "labelfontsize");
E_labelfontname = agfindedgeattr(g, "labelfontname");
E_labelfontcolor = agfindedgeattr(g, "labelfontcolor");
E_labeldistance = agfindedgeattr(g, "labeldistance");
E_labelangle = agfindedgeattr(g, "labelangle");
/* end vladimir */
E_minlen = agfindedgeattr(g, "minlen");
E_showboxes = agfindedgeattr(g, "showboxes");
E_style = agfindedgeattr(g, "style");
E_decorate = agfindedgeattr(g, "decorate");
E_arrowsz = agfindedgeattr(g, "arrowsize");
E_constr = agfindedgeattr(g, "constraint");
E_layer = agfindedgeattr(g, "layer");
E_comment = agfindedgeattr(g, "comment");
E_tailclip = agfindedgeattr(g, "tailclip");
E_headclip = agfindedgeattr(g, "headclip");
E_penwidth = agfindedgeattr(g, "penwidth");
/* background */
GD_drawing(g)->xdots = init_xdot (g);
/* initialize id, if any */
if ((p = agget(g, "id")) && *p)
GD_drawing(g)->id = strdup_and_subst_obj(p, g);
}
static void gv_graph_state(GVJ_t *job, graph_t *g)
{
#ifndef WITH_CGRAPH
int i;
#endif
int j;
Agsym_t *a;
gv_argvlist_t *list;
list = &(job->selected_obj_type_name);
j = 0;
if (g == agroot(g)) {
if (agisdirected(g))
gv_argvlist_set_item(list, j++, s_digraph);
else
gv_argvlist_set_item(list, j++, s_graph);
}
else {
gv_argvlist_set_item(list, j++, s_subgraph);
}
gv_argvlist_set_item(list, j++, agnameof(g));
list->argc = j;
list = &(job->selected_obj_attributes);
#ifndef WITH_CGRAPH
for (i = 0, j = 0; i < dtsize(g->univ->globattr->dict); i++) {
a = g->univ->globattr->list[i];
#else
a = NULL;
while ((a = agnxtattr(g, AGRAPH, a))) {
#endif
gv_argvlist_set_item(list, j++, a->name);
#ifndef WITH_CGRAPH
gv_argvlist_set_item(list, j++, agxget(g, a->index));
#else
gv_argvlist_set_item(list, j++, agxget(g, a));
#endif
gv_argvlist_set_item(list, j++, (char*)GVATTR_STRING);
}
list->argc = j;
a = agfindgraphattr(g, s_href);
if (!a)
a = agfindgraphattr(g, s_URL);
if (a)
#ifndef WITH_CGRAPH
job->selected_href = strdup_and_subst_obj(agxget(g, a->index), (void*)g);
#else
job->selected_href = strdup_and_subst_obj(agxget(g, a), (void*)g);
#endif
}
static void gv_node_state(GVJ_t *job, node_t *n)
{
#ifndef WITH_CGRAPH
int i;
#endif
int j;
Agsym_t *a;
Agraph_t *g;
gv_argvlist_t *list;
list = &(job->selected_obj_type_name);
j = 0;
gv_argvlist_set_item(list, j++, s_node);
gv_argvlist_set_item(list, j++, agnameof(n));
list->argc = j;
list = &(job->selected_obj_attributes);
g = agroot(agraphof(n));
#ifndef WITH_CGRAPH
for (i = 0, j = 0; i < dtsize(g->univ->nodeattr->dict); i++) {
a = g->univ->nodeattr->list[i];
#else
a = NULL;
while ((a = agnxtattr(g, AGNODE, a))) {
#endif
gv_argvlist_set_item(list, j++, a->name);
#ifndef WITH_CGRAPH
gv_argvlist_set_item(list, j++, agxget(n, a->index));
#else
gv_argvlist_set_item(list, j++, agxget(n, a));
#endif
}
list->argc = j;
a = agfindnodeattr(agraphof(n), s_href);
if (!a)
a = agfindnodeattr(agraphof(n), s_URL);
if (a)
#ifndef WITH_CGRAPH
job->selected_href = strdup_and_subst_obj(agxget(n, a->index), (void*)n);
#else
job->selected_href = strdup_and_subst_obj(agxget(n, a), (void*)n);
#endif
}
static void gv_edge_state(GVJ_t *job, edge_t *e)
{
#ifndef WITH_CGRAPH
int i;
#endif
int j;
Agsym_t *a;
Agraph_t *g;
gv_argvlist_t *nlist, *alist;
nlist = &(job->selected_obj_type_name);
/* only tail, head, and key are strictly identifying properties,
* but we commonly alse use edge kind (e.g. "->") and tailport,headport
* in edge names */
j = 0;
gv_argvlist_set_item(nlist, j++, s_edge);
gv_argvlist_set_item(nlist, j++, agnameof(agtail(e)));
j++; /* skip tailport slot for now */
gv_argvlist_set_item(nlist, j++, agisdirected(agraphof(agtail(e)))?"->":"--");
gv_argvlist_set_item(nlist, j++, agnameof(aghead(e)));
j++; /* skip headport slot for now */
j++; /* skip key slot for now */
nlist->argc = j;
alist = &(job->selected_obj_attributes);
g = agroot(agraphof(aghead(e)));
#ifndef WITH_CGRAPH
for (i = 0, j = 0; i < dtsize(g->univ->edgeattr->dict); i++) {
a = g->univ->edgeattr->list[i];
#else
a = NULL;
while ((a = agnxtattr(g, AGEDGE, a))) {
#endif
/* tailport and headport can be shown as part of the name, but they
* are not identifying properties of the edge so we
* also list them as modifyable attributes. */
if (strcmp(a->name,s_tailport) == 0)
#ifndef WITH_CGRAPH
gv_argvlist_set_item(nlist, 2, agxget(e, a->index));
#else
gv_argvlist_set_item(nlist, 2, agxget(e, a));
#endif
else if (strcmp(a->name,s_headport) == 0)
#ifndef WITH_CGRAPH
gv_argvlist_set_item(nlist, 5, agxget(e, a->index));
#else
gv_argvlist_set_item(nlist, 5, agxget(e, a));
#endif
/* key is strictly an identifying property to distinguish multiple
* edges between the same node pair. Its non-writable, so
* no need to list it as an attribute as well. */
else if (strcmp(a->name,s_key) == 0) {
#ifndef WITH_CGRAPH
gv_argvlist_set_item(nlist, 6, agxget(e, a->index));
#else
gv_argvlist_set_item(nlist, 6, agxget(e, a));
#endif
continue;
}
gv_argvlist_set_item(alist, j++, a->name);
#ifndef WITH_CGRAPH
gv_argvlist_set_item(alist, j++, agxget(e, a->index));
#else
gv_argvlist_set_item(alist, j++, agxget(e, a));
#endif
}
