41#define MIN(a, b) ((a) < (b) ? (a) : (b))
42#define MAX(a, b) ((a) > (b) ? (a) : (b))
49#define BITS_PER_BYTE 8
51static void *
int2ptr(
long long i) {
return (
void *)(intptr_t)i; }
53static long long ptr2int(
const void *p) {
return (
long long)(intptr_t)p; }
55static int iofread(
void *chan,
char *buf,
int bufsize) {
58 return (
int)
read(fileno(fp), buf, bufsize);
63static int ioflush(
void *chan) {
return fflush(chan); }
116 if (sscanf(pt,
"%lf,%lf,%lf,%lf", &x, &y, &u, &v) == 4) {
118 p = strchr(p + 1,
',');
120 size_t len = (size_t)(p - pt);
140 if (sscanf(pt,
"%lf,%lf", &x, &y) == 2) {
143 size_t len = (size_t)(p - pt);
172 if (sscanf(
ps,
"%lf,%lf", &p[0], &p[1]) == 2) {
179#if defined(DEBUG) && DEBUG > 1
180static char *symName(
Expr_t *ex,
int op) {
185 int bytes = vsnprintf(
NULL, 0,
"<unknown (%d)>", op);
187 fprintf(stderr,
"%s: vsnprintf failure\n", __func__);
192 char *
s =
vmalloc(ex->ve, (
size_t)bytes + 1);
196 snprintf(
s, (
size_t)bytes + 1,
"<unknown (%d)>", op);
217 while ((c = *args++)) {
269 exerror(
"null reference %s in expression %s.%s",
ref->symbol->name,
276 switch (
ref->symbol->index) {
294 if (!objp && !(objp = state->
curobj)) {
295 exerror(
"Current object $ not defined");
305 if (!objp && !(objp = state->
curobj)) {
306 exerror(
"Current object $ not defined");
313 exerror(
"tail of non-edge %p", objp);
316 exerror(
"%s : illegal reference",
ref->symbol->name);
329 unsigned char *p = name;
343 exerror(
"Cannot assign to pseudo-graph attribute %s", name);
347 exerror(
"Cannot assign to pseudo-node attribute %s", name);
351 exerror(
"Cannot assign to pseudo-edge attribute %s", name);
365 return agxset(objp, gsym, val);
397 if (sym->
lex ==
ID) {
398 switch (sym->
index) {
425 exerror(
"indegree of non-node");
433 exerror(
"outdegree of non-node");
450 exerror(
"x coordinate of non-node");
459 exerror(
"x coordinate of non-node");
467 exerror(
"parent of non-graph");
478 exerror(
"n_edges of non-graph");
486 exerror(
"n_nodes of non-graph");
494 exerror(
"directed of non-graph");
502 exerror(
"strict of non-graph");
517 "Using value of uninitialized %s attribute \"%s\" of \"%s\"",
531 if (n >= state->
argc) {
532 exerror(
"program references ARGV[%d] - undefined", n);
535 return state->
argv[n];
573 exerror(
"Unknown kind \"%s\" passed to %s()", k, fn);
582 char *fn = name ?
"nxtAttr" :
"fstAttr";
589 exerror(
"Third argument \"%s\" in nxtAttr() must be the name of an "
590 "existing attribute",
608 int kind =
toKind(k,
"getDflt");
639 switch (sym->
index) {
641 gp =
openG(args[0].
string,
xargs(args[1].
string));
797 objp =
int2ptr(args[1].integer);
820 objp =
int2ptr(args[0].integer);
822 exerror(
"NULL object passed to kindOf()");
1006 gp =
int2ptr(args[0].integer);
1007 np =
int2ptr(args[1].integer);
1019 ep =
int2ptr(args[0].integer);
1029 gp =
int2ptr(args[0].integer);
1030 ep =
int2ptr(args[1].integer);
1042 np =
int2ptr(args[0].integer);
1052 gp =
int2ptr(args[0].integer);
1053 np =
int2ptr(args[1].integer);
1065 ep =
int2ptr(args[0].integer);
1066 np =
int2ptr(args[1].integer);
1079 gp =
int2ptr(args[0].integer);
1080 ep =
int2ptr(args[1].integer);
1081 np =
int2ptr(args[2].integer);
1096 gp =
int2ptr(args[0].integer);
1097 objp =
int2ptr(args[1].integer);
1105 gp =
int2ptr(args[0].integer);
1106 objp =
int2ptr(args[1].integer);
1114 gp =
int2ptr(args[0].integer);
1116 gp =
cloneG(gp, args[1].
string);
1124 objp =
int2ptr(args[0].integer);
1125 objp1 =
int2ptr(args[1].integer);
1126 if (!(objp && objp1)) {
1133 objp =
int2ptr(args[0].integer);
1141 gp =
int2ptr(args[0].integer);
1151 gp =
int2ptr(args[0].integer);
1159 gp =
int2ptr(args[0].integer);
1171 gp =
int2ptr(args[0].integer);
1192 gp =
int2ptr(args[0].integer);
1201 gp =
int2ptr(args[0].integer);
1210 gp =
int2ptr(args[0].integer);
1211 objp =
int2ptr(args[1].integer);
1221 }
else if (objp == state->
curobj) {
1228 gp =
int2ptr(args[0].integer);
1233 const int op = args[1].
integer > 0 ? 1 : args[1].
integer < 0 ? -1 : 0;
1238 gp =
int2ptr(args[0].integer);
1247 gp =
int2ptr(args[0].integer);
1256 v.
integer = atoi(args[0].
string);
1262 v.
floating = sqrt(args[0].floating);
1265 v.
floating = cos(args[0].floating);
1268 v.
floating = sin(args[0].floating);
1271 v.
floating = atan2(args[0].floating, args[1].floating);
1274 v.
floating = exp(args[0].floating);
1277 v.
floating = pow(args[0].floating, args[1].floating);
1280 v.
floating = log(args[0].floating);
1283 v.
floating =
MIN(args[0].floating, args[1].floating);
1286 v.
floating =
MAX(args[0].floating, args[1].floating);
1289 v.
integer = system(args[0].
string);
1293 objp =
int2ptr(args[0].integer);
1294 char *name = args[1].
string;
1296 exerror(
"NULL object passed to aget()/hasAttr()");
1299 exerror(
"NULL name passed to aget()/hasAttr()");
1303 if (sym->
index == F_hasattr)
1310 "Using value of %s uninitialized attribute \"%s\" of \"%s\" "
1321 objp =
int2ptr(args[0].integer);
1326 char *name = args[1].
string;
1327 char *value = args[2].
string;
1331 }
else if (!value) {
1340 gp =
int2ptr(args[0].integer);
1342 char *kind = args[1].
string;
1343 char *name = args[2].
string;
1344 char *value = args[3].
string;
1348 }
else if (!value) {
1363 gp =
int2ptr(args[0].integer);
1365 char *kind = args[1].
string;
1373 exerror(
"NULL graph passed to fstAttr()");
1380 gp =
int2ptr(args[0].integer);
1382 char *kind = args[1].
string;
1383 char *name = args[2].
string;
1390 }
else if (sym->
index == F_isattr) {
1392 }
else if (sym->
index == F_nxtattr) {
1409 gp =
int2ptr(args[0].integer);
1421 v.
string =
colorx(pgm, args[0].
string, args[1].
string);
1424 if (args[0].
string) {
1426 v.
integer = strcmp(args[0].
string, args[1].
string);
1429 }
else if (args[1].
string)
1450 v.
integer = strlen(args[0].
string);
1459 const size_t m =
match(args[0].
string, args[1].
string);
1481 switch (sym->
index) {
1501 switch (sym->
index) {
1544 exerror(
"current object $ not defined as reference for %s",
1551 if (
lookup(pgm, objp, sym, &v)) {
1563#define MINTYPE (LAST_M + 1)
1581 objp =
deref(pgm, x,
ref, 0, state);
1588 }
else if (MINNAME <= sym->index && sym->
index <=
MAXNAME) {
1589 switch (sym->
index) {
1598 error(1,
"unexpected value %lld assigned to %s : ignored", iv,
1607 error(1,
"cannot set $tvroot, node %s not in $G : ignored",
1617 error(1,
"cannot set $tvnext, node %s not in $G : ignored",
1635 exerror(
"current object $ undefined in expression %s",
1648#define haveGraph (1 <= codePhase && codePhase <= 4)
1649#define haveTarget (2 <= codePhase && codePhase <= 4)
1650#define inWalk (2 <= codePhase && codePhase <= 3)
1665 switch (sym->
type) {
1688 exerror(
"unknown dynamic type %" PRIdMAX
" of symbol %s",
1695 switch (sym->
index) {
1701 exerror(
"keyword %s cannot be used in BEGIN/END statements",
1706 exerror(
"keyword %s cannot be used in BEGIN/BEG_G/END statements",
1719 exerror(
"undeclared, unmodified names like \"%s\" cannot be\nused in "
1720 "BEGIN and END statements",
1726 exerror(
"unexpected symbol in typeChk: name %s, lex %" PRIdMAX, sym->
name,
1727 (intmax_t)sym->
lex);
1734 if (!(dom & intype))
1768 switch (sym->
index) {
1845 if (l->
type == T_tvtyp) {
1849 if (r->
type != T_tvtyp)
1895 if (r && r->
type == T_tvtyp)
1953 if (!strcmp(sfx,
"flat")) {
1955 }
else if (!strcmp(sfx,
"ne")) {
1957 }
else if (!strcmp(sfx,
"en")) {
1959 }
else if (!strcmp(sfx,
"bfs")) {
1961 }
else if (!strcmp(sfx,
"dfs")) {
1963 }
else if (!strcmp(sfx,
"fwd")) {
1965 }
else if (!strcmp(sfx,
"rev")) {
1967 }
else if (!strcmp(sfx,
"postdfs")) {
1969 }
else if (!strcmp(sfx,
"postfwd")) {
1971 }
else if (!strcmp(sfx,
"postrev")) {
1973 }
else if (!strcmp(sfx,
"prepostdfs")) {
1975 }
else if (!strcmp(sfx,
"prepostfwd")) {
1977 }
else if (!strcmp(sfx,
"prepostrev")) {
1980 exerror(
"illegal string \"%s\" for type tvtype_t",
s);
1982 exerror(
"illegal string \"%s\" for type tvtype_t",
s);
2023 s =
"TV_prepostdfs";
2026 s =
"TV_prepostfwd";
2029 s =
"TV_prepostrev";
2032 exerror(
"Unexpected value %lld for type tvtype_t", v);
2051 if (x->
type == T_tvtyp) {
2083 if (
type == T_obj && x->
type <= T_obj)
2090 }
else if (x->
type == T_obj) {
2107 if (!objp ||
isedge(objp))
2113 if (x->
type == T_tvtyp) {
2126 exerror(
"Integer value %lld not legal for type tvtype_t",
2134 if (
type == T_tvtyp) {
2144 if (!arg && ret == 0)
2154 if (
type <= T_obj) {
2205 const char *lbl,
const char *sfx,
int kind) {
2210 FILE *sf = tmpfile();
2228 src =
"<command line>";
2259 for (
size_t i = 0; i < case_infos_size(&cases); i++) {
2260 case_info *sp = case_infos_at(&cases, i);
2280 if (!cs[i].action) {
2294 bool has_begin_g =
false;
2298 static const char PREFIX[] =
"_begin_g_";
2312 if (!case_infos_is_empty(&inp->
node_stmts)) {
2313 static const char PREFIX[] =
"_nd";
2327 if (!case_infos_is_empty(&inp->
edge_stmts)) {
2328 static const char PREFIX[] =
"_eg";
2358 return "\n$O = $G;\ninduce($O);\n";
2360 return "\n$O = $G;\n";
2363 return "\ninduce($O);\n";
2372 const char *endg_sfx =
NULL;
2373 bool uses_graph =
false;
2403 if (!parse_blocks_is_empty(&inp->
blocks)) {
2409 for (
size_t i = 0; i < parse_blocks_size(&inp->
blocks); bp++, i++) {
2458 for (
size_t i = 0; i < p->
n_blocks; i++) {
2532 root =
sameG(t, h,
"openEdge",
"tail and head nodes");
2536 if (!
sameG(g, root,
"openEdge",
"subgraph and nodes"))
2541 ep =
agedge(g, t, h, key, 1);
Agedge_t * isEdge(Agraph_t *g, Agnode_t *t, Agnode_t *h, char *key)
int indexOf(char *s1, char *s2)
Agraph_t * sameG(void *p1, void *p2, char *fn, char *msg)
Agraph_t * freadFile(Expr_t *ex, long long fd)
Agobj_t * cloneO(Agraph_t *g, Agobj_t *obj)
size_t match(char *str, char *pat)
int deleteObj(Agraph_t *g, Agobj_t *obj)
int writeFile(Agraph_t *g, char *f)
int fwriteFile(Expr_t *ex, Agraph_t *g, long long fd)
long rindexOf(char *s1, char *s2)
int sfioWrite(Agraph_t *g, FILE *fp)
char * toLower(Expr_t *pgm, char *src)
Agraph_t * cloneG(Agraph_t *g, char *name)
int lockGraph(Agraph_t *g, int v)
char * toHtml(Agraph_t *g, char *arg)
int compare(Agobj_t *l, Agobj_t *r)
Agobj_t * copy(Agraph_t *g, Agobj_t *obj)
Agraph_t * readFile(char *f)
Agraph_t * compOf(Agraph_t *g, Agnode_t *n)
char * colorx(Expr_t *ex, const char *incolor, char *fmt)
char * toUpper(Expr_t *pgm, char *src)
char * readLine(Expr_t *ex, long long fd)
int closeFile(Expr_t *ex, long long fd)
static void agxbfree(agxbuf *xb)
free any malloced resources
static int agxbprint(agxbuf *xb, const char *fmt,...)
Printf-style output to an agxbuf.
static WUR char * agxbuse(agxbuf *xb)
static int agxbputc(agxbuf *xb, char c)
add character to buffer
static char * agxbdisown(agxbuf *xb)
Memory allocation wrappers that exit on failure.
static void * gv_calloc(size_t nmemb, size_t size)
static void addNode(block_t *bp, Agnode_t *n)
abstract graph C library, Cgraph API
static char * deparse(Expr_t *ex, Exnode_t *n, agxbuf *xb)
static tctype typeChkExp(Exref_t *ref, Exid_t *sym)
static char * getDfltAttr(Agraph_t *gp, char *k, char *name)
Agedge_t * openEdge(Agraph_t *g, Agnode_t *t, Agnode_t *h, char *key)
comp_prog * compileProg(parse_prog *inp, Gpr_t *state, compflags_t flags)
static bool mkBlock(comp_block *bp, Expr_t *prog, char *src, parse_block *inp, size_t i)
static int lookup(Expr_t *pgm, Agobj_t *objp, Exid_t *sym, Extype_t *v)
static Agdesc_t xargs(char *args)
static tctype typeChk(tctype intype, Exid_t *sym)
static int strToTvtype(char *s)
static int iofread(void *chan, char *buf, int bufsize)
static case_stmt * mkStmts(Expr_t *prog, char *src, case_infos_t cases, const char *lbl)
Agraph_t * openG(char *name, Agdesc_t desc)
static char * getArg(int n, Gpr_t *state)
Agraph_t * openSubg(Agraph_t *g, char *name)
static char * tvtypeToStr(long long v)
static int stringOf(Expr_t *prog, Exnode_t *x, int arg)
static Agobj_t * deref(Expr_t *pgm, Exnode_t *x, Exref_t *ref, Agobj_t *objp, Gpr_t *state)
static int binary(Exnode_t *l, Exnode_t *ex, Exnode_t *r, int arg)
static char * bbOf(Expr_t *pgm, char *pt, bool getll)
void freeCompileProg(comp_prog *p)
static Exdisc_t * initDisc(Gpr_t *state)
static Extype_t getval(Expr_t *pgm, Exnode_t *node, Exid_t *sym, Exref_t *ref, void *env, int elt, Exdisc_t *disc)
Agnode_t * openNode(Agraph_t *g, char *name)
static char * typeName(long op)
Agraph_t * readG(FILE *fp)
static char * xyOf(Expr_t *pgm, char *pt, bool getx)
static char * kindToStr(int kind)
static char * nameOf(Expr_t *ex, Agobj_t *obj, agxbuf *tmps)
static int setDfltAttr(Agraph_t *gp, char *k, char *name, char *value)
static const char * doFlags(compflags_t flags)
static Extype_t refval(Expr_t *pgm, Exnode_t *node, Exid_t *sym, Exref_t *ref)
static long long ptr2int(const void *p)
static int setattr(Agobj_t *objp, char *name, char *val)
static Exnode_t * compile(Expr_t *prog, char *src, char *input, int line, const char *lbl, const char *sfx, int kind)
static void assignable(Agobj_t *objp, unsigned char *name)
static int convert(Exnode_t *x, long type, int arg)
static int setval(Expr_t *pgm, Exnode_t *x, Exid_t *sym, Exref_t *ref, void *env, Extype_t v)
static char * nxtAttr(Agraph_t *gp, char *k, char *name)
static Extype_t keyval(Extype_t v, long type)
static int ioflush(void *chan)
static Agiodisc_t gprIoDisc
static char * kindOf(Agobj_t *objp)
static void * int2ptr(long long i)
static void checkGuard(Exnode_t *gp, char *src, int line)
static int toKind(char *k, char *fn)
static int ioputstr(void *chan, const char *str)
static int isedge(Agobj_t *obj)
static int posOf(Agnode_t *np, int idx, double *v)
void errorf(void *handle, void *discipline, int level, const char *s,...)
void setErrorLine(int line)
void setErrorFileLine(char *src, int line)
void exdump(Expr_t *ex, Exnode_t *node, agxbuf *xb)
void exerror(const char *format,...)
char * exstring(Expr_t *ex, char *s)
void * exstralloc(Expr_t *ex, size_t sz)
Exnode_t * exexpr(Expr_t *ex, const char *name, Exid_t *sym, int type)
static NORETURN void graphviz_exit(int status)
Expr_t * exopen(Exdisc_t *disc)
int exisAssign(Exnode_t *)
void(* Exerror_f)(Expr_t *, Exdisc_t *, int, const char *,...)
Exnode_t * exnoncast(Exnode_t *)
int excomp(Expr_t *p, const char *name, int line, FILE *fp, char *prefix)
Extype_t exzero(long int)
static char * typenames[]
static double len(glCompPoint p)
gvprbinding * findBinding(Gpr_t *state, char *fname)
bool validTVT(long long c)
int agnedges(Agraph_t *g)
int agdegree(Agraph_t *g, Agnode_t *n, int in, int out)
int agnnodes(Agraph_t *g)
size_t graphviz_node_induce(Agraph_t *g, Agraph_t *edgeset)
Agsym_t * agattr_text(Agraph_t *g, int kind, char *name, const char *value)
creates or looks up text attributes of a graph
Agsym_t * agattrsym(void *obj, char *name)
looks up a string attribute for a graph object given as an argument
Agsym_t * agnxtattr(Agraph_t *g, int kind, Agsym_t *attr)
permits traversing the list of attributes of a given type
int agxset(void *obj, Agsym_t *sym, const char *value)
char * agxget(void *obj, Agsym_t *sym)
Agedge_t * agedge(Agraph_t *g, Agnode_t *t, Agnode_t *h, char *name, int createflag)
Agedge_t * agnxtin(Agraph_t *g, Agedge_t *e)
Agedge_t * agfstout(Agraph_t *g, Agnode_t *n)
Agedge_t * agnxtedge(Agraph_t *g, Agedge_t *e, Agnode_t *n)
Agedge_t * agnxtout(Agraph_t *g, Agedge_t *e)
Agedge_t * agfstedge(Agraph_t *g, Agnode_t *n)
Agedge_t * agfstin(Agraph_t *g, Agnode_t *n)
int agisdirected(Agraph_t *g)
int agisstrict(Agraph_t *g)
Agraph_t * agopen(char *name, Agdesc_t desc, Agdisc_t *disc)
creates a new graph with the given name and kind
Agraph_t * agread(void *chan, Agdisc_t *disc)
constructs a new graph
Agdesc_t Agdirected
directed
Agnode_t * agnode(Agraph_t *g, char *name, int createflag)
Agnode_t * agnxtnode(Agraph_t *g, Agnode_t *n)
Agnode_t * agfstnode(Agraph_t *g)
int agrelabel_node(Agnode_t *n, char *newname)
Agraph_t * agraphof(void *obj)
char * agnameof(void *)
returns a string descriptor for the object.
#define AGID(obj)
returns the unique integer ID associated with the object
#define AGTYPE(obj)
returns AGRAPH, AGNODE, or AGEDGE depending on the type of the object
int agcontains(Agraph_t *, void *obj)
returns non-zero if obj is a member of (sub)graph
Agraph_t * agroot(void *obj)
Agrec_t * aggetrec(void *obj, const char *name, int move_to_front)
find record in circular list and do optional move-to-front and lock
void aginit(Agraph_t *g, int kind, const char *rec_name, int rec_size, int move_to_front)
attach new records to objects of specified kind
void * agbindrec(void *obj, const char *name, unsigned int recsize, int move_to_front)
attaches a new record of the given size to the object
int aghtmlstr(const char *)
Agraph_t * agparent(Agraph_t *g)
Agraph_t * agfstsubg(Agraph_t *g)
Agraph_t * agnxtsubg(Agraph_t *subg)
Agraph_t * agsubg(Agraph_t *g, char *name, int cflag)
textitem scanner parser str
static void addEdge(edge_t *de, edge_t *e)
static void copyAttr(graph_t *g, graph_t *dg, char *attr)
static FILE * openFile(const char *argv0, const char *name, const char *mode)
static char * canon(graph_t *g, char *s)
static int label(Agnode_t *n, int nodecnt, int *edgecnt)
static bool startswith(const char *s, const char *prefix)
does the string s begin with the string prefix?
a generic header of Agraph_s, Agnode_s and Agedge_s
Extype_t(* reff)(Expr_t *, Exnode_t *, Exid_t *, Exref_t *)
Extype_t(* keyf)(Extype_t, long)
int(* convertf)(Exnode_t *, long, int)
int(* binaryf)(Exnode_t *, Exnode_t *, Exnode_t *, int)
Extype_t(* getf)(Expr_t *, Exnode_t *, Exid_t *, Exref_t *, void *, int, Exdisc_t *)
int(* stringof)(Expr_t *, Exnode_t *, int)
int(* setf)(Expr_t *, Exnode_t *, Exid_t *, Exref_t *, void *, Extype_t)
bool does_walk_graph
does this block have a node or edge statement?
bool uses_graph
does this program use the input graph?
struct Exdata_u::@88 variable
struct Exdata_u::@85 constant
void * vmalloc(Vmalloc_t *vm, size_t size)