/*
This software may only be used by you under license from AT&T Corp.
("AT&T"). A copy of AT&T's Source Code Agreement is available at
AT&T's Internet website having the URL:
<http://www.research.att.com/sw/tools/graphviz/license/source.html>
If you received this software without first entering into a license
with AT&T, you have an infringing copy of this software and cannot use
it without violating AT&T's intellectual property rights.
*/
#pragma prototyped
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
#include "render.h"
#include "utils.h"
static int graphviz_errors;
static char* usageFmt =
"Usage: %s %s[-Vv?] [-(GNE)name=val] [-(Tlso)<val>] <dot files>\n";
static char* genericItems = "\
-V - Print version and exit\n\
-v - Enable verbose mode \n\
-Gname=val - Set graph attribute 'name' to 'val'\n\
-Nname=val - Set node attribute 'name' to 'val'\n\
-Ename=val - Set edge attribute 'name' to 'val'\n\
-Tv - Set output format to 'v'\n\
-lv - Use external library 'v'\n\
-ofile - Write output to 'file'\n\
-q[l] - Set level of message suppression (=1)\n\
-s[v] - Scale input by 'v' (=72)\n\
-y - Invert y coordinate in output\n";
void
dotneato_usage (int exval)
{
FILE* outs;
if (exval > 0) outs = stderr;
else outs = stdout;
fprintf (outs, usageFmt, CmdName, specificFlags ? specificFlags : "");
if (specificItems) fputs (specificItems, outs);
fputs (genericItems, outs);
if (exval >= 0) exit(exval);
}
void
setCmdName (char* s)
{
char* n = strrchr(s,'/');
if (n) CmdName = n+1;
else CmdName = s;
}
/* getFlagOpt:
* Look for flag parameter. idx is index of current argument.
* We assume argv[*idx] has the form "-x..." If there are characters
* after the x, return
* these, else if there are more arguments, return the next one,
* else return NULL.
*/
char*
getFlagOpt (int argc, char** argv, int* idx)
{
int i = *idx;
char* arg = argv[i];
if (arg[2]) return arg+2;
if (i < argc-1) {
i++;
arg = argv[i];
if (*arg && (*arg != '-')) {
*idx = i;
return arg;
}
}
return 0;
}
void dotneato_initialize(int argc, char** argv)
{
extern char **environ; /* should be unistd.h but who knows */
char *rest,c, **p, *val;
int i,v,nfiles;
for (p = environ; *p; p++)
if (strncasecmp(*p,"http",4)==0 || strncasecmp(*p,"server",6)==0) {HTTPServerEnVar=*p;break;}
aginit();
nfiles = 0;
for (i = 1; i < argc; i++)
if (argv[i][0] != '-') nfiles++;
Files = N_NEW(nfiles + 1, char *);
nfiles = 0;
Output_lang_count = 0;
Output_file_count = 0;
if (!CmdName) setCmdName (argv[0]);
for (i = 1; i < argc; i++) {
if (argv[i][0] == '-') {
rest = &(argv[i][2]);
switch (c = argv[i][1]) {
case 'G':
if (*rest) global_def(rest,agraphattr);
else {
fprintf(stderr,"Missing argument for -G flag\n");
dotneato_usage (1);
}
break;
case 'N':
if (*rest) global_def(rest,agnodeattr);
else {
fprintf(stderr,"Missing argument for -N flag\n");
dotneato_usage (1);
}
break;
case 'E':
if (*rest) global_def(rest,agedgeattr);
else {
fprintf(stderr,"Missing argument for -E flag\n");
dotneato_usage (1);
}
break;
case 'T':
val = getFlagOpt (argc, argv, &i);
if (!val) {
fprintf(stderr,"Missing argument for -T flag\n");
dotneato_usage (1);
}
if (Output_lang_count < MAX_PRODUCTS)
Output_langs[Output_lang_count++] = val;
else
fprintf (stderr, "Warning: too many output formats\n");
break;
case 'V':
fprintf(stderr,"%s version %s (%s)\n",
Info[0], Info[1], Info[2]);
exit (0);
break;
case 'l':
val = getFlagOpt (argc, argv, &i);
if (!val) {
fprintf(stderr,"Missing argument for -l flag\n");
dotneato_usage (1);
}
use_library(val);
break;
case 'o':
val = getFlagOpt (argc, argv, &i);
if (Output_file_count < MAX_PRODUCTS)
Output_files[Output_file_count++] = val;
else
fprintf (stderr, "Warning: too many output files\n");
break;
case 'q':
if (*rest) {
v = atoi(rest);
if (v <= 0) {
fprintf (stderr, "Invalid parameter \"%s\" for -q flag - ignored\n", rest);
}
else if (v == 1) agseterr (AGERR);
else agseterr (AGMAX);
}
else agseterr (AGERR);
break;
case 's':
if (*rest) {
PSinputscale = atof(rest);
if (PSinputscale <= 0) {
fprintf (stderr, "Invalid parameter \"%s\" for -s flag\n", rest);
dotneato_usage (1);
}
}
else PSinputscale = POINTS_PER_INCH;
break;
case 'v':
Verbose = TRUE;
if (isdigit(*rest)) Verbose = atoi (rest);
break;
case 'y': y_invert = TRUE; break;
case '?': dotneato_usage (0); break;
default:
fprintf(stderr, "%s: option -%c unrecognized\n\n",
CmdName,c);
dotneato_usage (1);
}
}
else
Files[nfiles++] = argv[i];
}
/* if no -Txxx, then set default format */
if (Output_lang_count == 0) {
Output_lang_count++;
Output_langs[0] = "dot";
}
/* if less -o than -T set remaining -o to NULL to get stdout */
while (Output_file_count<Output_lang_count)
Output_files[Output_file_count++] = NULL;
/* need to set Output_lang now based on the first -Txxx,
* so that CodeGen->textsize picks up an appropriate routine
* otherwise node sizing can be wrong for any or all of the products.
*/
Output_lang = lang_select(Output_langs[0], 0);
/* set persistent attributes here (if not already set from command line options) */
if (! (agfindattr(agprotograph()->proto->n, "label")))
agnodeattr(NULL,"label",NODENAME_ESC);
}
void global_def(char* dcl, attrsym_t*((*dclfun)(Agraph_t*,char*,char*)))
{
char *p,*rhs = "true";
if ((p = strchr(dcl,'='))) { *p++ = '\0'; rhs = p; }
(void) dclfun(NULL,dcl,rhs);
agoverride (1);
}
void getdoubles2pt(graph_t* g, char* name, point* result)
{
char *p;
int i;
double xf,yf;
if ((p = agget(g,name))) {
i = sscanf(p,"%lf,%lf",&xf,&yf);
if ((i > 1) && (xf > 0) && (yf > 0)) {
result->x = POINTS(xf);
result->y = POINTS(yf);
}
}
}
void getdouble(graph_t* g, char* name, double* result)
{
char *p;
double f;
if ((p = agget(g,name))) {
if (sscanf(p,"%lf",&f) >= 1) *result = f;
}
}
FILE *
next_input_file(void)
{
static int ctr = 0;
FILE *rv = NULL;
if (Files[0] == NULL) {
if (ctr++ == 0) rv = stdin;
}
else {
rv = NULL;
while (Files[ctr]) {
if ((rv = fopen(Files[ctr++],"r"))) break;
else {
agerr(AGERR, "%s: can't open %s\n",CmdName,Files[ctr-1]);
graphviz_errors++;
}
}
}
if (rv) agsetfile (Files[0]?Files[ctr-1]:"<stdin>");
return rv;
}
graph_t* next_input_graph(void)
{
graph_t *g;
static FILE *fp;
if (fp == NULL) fp = next_input_file();
g = NULL;
while (fp != NULL) {
if ((g = agread(fp))) break;
fp = next_input_file();
}
return g;
}
void graph_init(graph_t* g)
{
/* node_t *n; */
/* edge_t *e; */
/* initialize the graph */
init_ugraph(g);
/* initialize nodes */
N_height = agfindattr(g->proto->n,"height");
N_width = agfindattr(g->proto->n,"width");
N_shape = agfindattr(g->proto->n,"shape");
N_color = agfindattr(g->proto->n,"color");
N_fillcolor = agfindattr(g->proto->n,"fillcolor");
N_style = agfindattr(g->proto->n,"style");
N_fontsize = agfindattr(g->proto->n,"fontsize");
N_fontname = agfindattr(g->proto->n,"fontname");
N_fontcolor = agfindattr(g->proto->n,"fontcolor");
N_label = agfindattr(g->proto->n,"label");
N_showboxes = agfindattr(g->proto->n,"showboxes");
/* attribs for polygon shapes */
N_sides = agfindattr(g->proto->n,"sides");
N_peripheries = agfindattr(g->proto->n,"peripheries");
N_skew = agfindattr(g->proto->n,"skew");
N_orientation = agfindattr(g->proto->n,"orientation");
N_distortion = agfindattr(g->proto->n,"distortion");
N_fixed = agfindattr(g->proto->n,"fixedsize");
N_layer = agfindattr(g->proto->n,"layer");
N_group = agfindattr(g->proto->n,"group");
N_comment = agfindattr(g->proto->n,"comment");
N_vertices = agfindattr(g->proto->n,"vertices");
N_z = agfindattr(g->proto->n,"z");
/* initialize edges */
E_weight = agfindattr(g->proto->e,"weight");
E_color = agfindattr(g->proto->e,"color");
E_fontsize = agfindattr(g->proto->e,"fontsize");
E_fontname = agfindattr(g->proto->e,"fontname");
E_fontcolor = agfindattr(g->proto->e,"fontcolor");
E_label = agfindattr(g->proto->e,"label");
E_label_float = agfindattr(g->proto->e,"labelfloat");
/* vladimir */
E_dir = agfindattr(g->proto->e,"dir");
E_arrowhead = agfindattr(g->proto->e,"arrowhead");
E_arrowtail = agfindattr(g->proto->e,"arrowtail");
E_headlabel = agfindattr(g->proto->e,"headlabel");
E_taillabel = agfindattr(g->proto->e,"taillabel");
E_labelfontsize = agfindattr(g->proto->e,"labelfontsize");
E_labelfontname = agfindattr(g->proto->e,"labelfontname");
E_labelfontcolor = agfindattr(g->proto->e,"labelfontcolor");
E_labeldistance = agfindattr(g->proto->e,"labeldistance");
E_labelangle = agfindattr(g->proto->e,"labelangle");
/* end vladimir */
E_minlen = agfindattr(g->proto->e,"minlen");
E_showboxes = agfindattr(g->proto->e,"showboxes");
E_style = agfindattr(g->proto->e,"style");
E_decorate = agfindattr(g->proto->e,"decorate");
E_arrowsz = agfindattr(g->proto->e,"arrowsize");
E_constr = agfindattr(g->proto->e,"constraint");
E_layer = agfindattr(g->proto->e,"layer");
E_comment = agfindattr(g->proto->e,"comment");
E_tailclip = agfindattr(g->proto->e,"tailclip");
E_headclip = agfindattr(g->proto->e,"headclip");
}
void init_ugraph(graph_t* g)
{
char *p;
double xf;
static char *rankname[] = {"local","global","none",NULL};
static int rankcode[] = {LOCAL, GLOBAL, NOCLUST, LOCAL};
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_drawing(g)->quantum = late_double(g,agfindattr(g,"quantum"),0.0,0.0);
GD_drawing(g)->font_scale_adj = 1.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.
*/
if (UseRankdir)
GD_left_to_right(g) = ((p = agget(g,"rankdir")) && streq(p,"LR"));
else
GD_left_to_right(g) = FALSE;
do_graph_label(g);
xf = late_double(g,agfindattr(g,"nodesep"),DEFAULT_NODESEP,MIN_NODESEP);
GD_nodesep(g) = POINTS(xf);
p = late_string(g,agfindattr(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,agfindattr(g,"showboxes"),0,0);
Epsilon = .0001 * agnnodes(g);
getdoubles2pt(g,"size",&(GD_drawing(g)->size));
getdoubles2pt(g,"page",&(GD_drawing(g)->page));
getdouble(g,"epsilon",&Epsilon);
getdouble(g,"nodesep",&Nodesep);
getdouble(g,"nodefactor",&Nodefactor);
GD_drawing(g)->centered = mapbool(agget(g,"center"));
if ((p = agget(g,"rotate"))) GD_drawing(g)->landscape = (atoi(p) == 90);
else { /* today we learned the importance of backward compatibilty */
if ((p = agget(g,"orientation")))
GD_drawing(g)->landscape = ((p[0] == 'l') || (p[0] == 'L'));
}
p = agget(g,"clusterrank");
CL_type = maptoken(p,rankname,rankcode);
p = agget(g,"concentrate");
Concentrate = mapbool(p);
Nodesep = 1.0;
Nodefactor = 1.0;
Initial_dist = MYHUGE;
}
void free_ugraph(graph_t* g)
{
free(GD_drawing(g));
GD_drawing(g) = NULL;
}
/* do_graph_label:
* If the ifdef'ed parts are added, clusters are guaranteed not
* to overlap and have sufficient room for the label. The problem
* is this approach does not use the actual size of the cluster, so
* the resulting cluster tends to be far too large.
*/
void do_graph_label(graph_t* g)
{
char *p, *pos, *just;
int pos_ix;
/* it would be nice to allow multiple graph labels in the future */
if ((p = agget(g,"label"))) {
char pos_flag;
GD_label(g) = make_label(strdup(p),
late_double(g,agfindattr(g,"fontsize"),DEFAULT_FONTSIZE,MIN_FONTSIZE),
late_nnstring(g,agfindattr(g,"fontname"),DEFAULT_FONTNAME),
late_nnstring(g,agfindattr(g,"fontcolor"),DEFAULT_COLOR),g);
/* set label position */
pos = agget(g,"labelloc");
if (g != g->root) {
if (pos && (pos[0] == 'b')) pos_flag = LABEL_AT_BOTTOM;
else pos_flag = LABEL_AT_TOP;
}
else {
if (pos && (pos[0] == 't')) pos_flag = LABEL_AT_TOP;
else pos_flag = LABEL_AT_BOTTOM;
}
just = agget(g,"labeljust");
if (just) {
if (just[0] == 'l') pos_flag |= LABEL_AT_LEFT;
else if (just[0] == 'r') pos_flag |= LABEL_AT_RIGHT;
}
GD_label_pos(g) = pos_flag;
if(!GD_left_to_right(g->root)) {
point dpt;
dpt = cvt2pt(GD_label(g)->dimen);
if (GD_label_pos(g) & LABEL_AT_TOP) pos_ix = TOP_IX;
else pos_ix = BOTTOM_IX;
GD_border(g)[pos_ix] = dpt;
#if 0
if(g != g->root) {
GD_border(g)[LEFT_IX].x = dpt.x/2;
GD_border(g)[RIGHT_IX].x = dpt.x/2;
GD_border(g)[LEFT_IX].y = 0;
GD_border(g)[RIGHT_IX].y = 0;
}
#endif
}
else {
point dpt;
dpt = cvt2pt(GD_label(g)->dimen);
/* when rotated, the labels will be restored to TOP or BOTTOM */
if (GD_label_pos(g) & LABEL_AT_TOP) pos_ix = RIGHT_IX;
else pos_ix = LEFT_IX;
GD_border(g)[pos_ix].x = dpt.y;
GD_border(g)[pos_ix].y = dpt.x;
#if 0
if(g != g->root) {
GD_border(g)[TOP_IX].y = dpt.x/2;
GD_border(g)[BOTTOM_IX].y = dpt.x/2;
GD_border(g)[TOP_IX].x = 0;
GD_border(g)[BOTTOM_IX].x = 0;
}
#endif
}
}
}
void dotneato_terminate(void)
{
dotneato_eof();
exit(graphviz_errors + agerrors());
}
|
