42#define MIN(a, b) ((a) < (b) ? (a) : (b))
43#define MAX(a, b) ((a) > (b) ? (a) : (b))
50static void *
int2ptr(
long long i) {
return (
void *)(intptr_t)i; }
52static long long ptr2int(
const void *p) {
return (
long long)(intptr_t)p; }
93 if (sscanf(pt,
"%lf,%lf,%lf,%lf", &x, &y, &u, &v) == 4) {
94 char *p = strchr(pt,
',');
95 p = strchr(p + 1,
',');
97 size_t len = (size_t)(p - pt);
114 if (sscanf(pt,
"%lf,%lf", &x, &y) == 2) {
115 char *
const p = strchr(pt,
',');
117 size_t len = (size_t)(p - pt);
145 if (sscanf(
ps,
"%lf,%lf", &p[0], &p[1]) == 2) {
152#if defined(DEBUG) && DEBUG > 1
153static char *symName(
Expr_t *ex,
int op) {
158 int bytes = vsnprintf(
NULL, 0,
"<unknown (%d)>", op);
160 fprintf(stderr,
"%s: vsnprintf failure\n", __func__);
165 char *
s =
vmalloc(ex->ve, (
size_t)bytes + 1);
169 snprintf(
s, (
size_t)bytes + 1,
"<unknown (%d)>", op);
189 while ((c = *args++)) {
239 exerror(
"null reference %s in expression %s.%s",
ref->symbol->name,
246 switch (
ref->symbol->index) {
264 if (!objp && !(objp = state->
curobj)) {
265 exerror(
"Current object $ not defined");
275 if (!objp && !(objp = state->
curobj)) {
276 exerror(
"Current object $ not defined");
283 exerror(
"tail of non-edge %p", objp);
286 exerror(
"%s : illegal reference",
ref->symbol->name);
298 unsigned char *p = name;
312 exerror(
"Cannot assign to pseudo-graph attribute %s", name);
316 exerror(
"Cannot assign to pseudo-node attribute %s", name);
320 exerror(
"Cannot assign to pseudo-edge attribute %s", name);
333 return agxset(objp, gsym, val);
360 if (sym->
lex ==
ID) {
361 switch (sym->
index) {
388 exerror(
"indegree of non-node");
396 exerror(
"outdegree of non-node");
413 exerror(
"x coordinate of non-node");
422 exerror(
"x coordinate of non-node");
430 exerror(
"parent of non-graph");
441 exerror(
"n_edges of non-graph");
449 exerror(
"n_nodes of non-graph");
457 exerror(
"directed of non-graph");
465 exerror(
"strict of non-graph");
480 "Using value of uninitialized %s attribute \"%s\" of \"%s\"",
492 if (n >= state->
argc) {
493 exerror(
"program references ARGV[%d] - undefined", n);
496 return state->
argv[n];
540 exerror(
"Unknown kind \"%s\" passed to %s()", k, fn);
547 char *fn = name ?
"nxtAttr" :
"fstAttr";
554 exerror(
"Third argument \"%s\" in nxtAttr() must be the name of an "
555 "existing attribute",
571 int kind =
toKind(k,
"getDflt");
600 switch (sym->
index) {
602 gp =
openG(args[0].
string,
xargs(args[1].
string));
758 objp =
int2ptr(args[1].integer);
781 objp =
int2ptr(args[0].integer);
783 exerror(
"NULL object passed to kindOf()");
1003 np =
int2ptr(args[0].integer);
1013 gp =
int2ptr(args[0].integer);
1014 np =
int2ptr(args[1].integer);
1026 ep =
int2ptr(args[0].integer);
1027 np =
int2ptr(args[1].integer);
1040 gp =
int2ptr(args[0].integer);
1041 ep =
int2ptr(args[1].integer);
1042 np =
int2ptr(args[2].integer);
1057 gp =
int2ptr(args[0].integer);
1058 objp =
int2ptr(args[1].integer);
1066 gp =
int2ptr(args[0].integer);
1067 objp =
int2ptr(args[1].integer);
1075 gp =
int2ptr(args[0].integer);
1077 gp =
cloneG(gp, args[1].
string);
1085 objp =
int2ptr(args[0].integer);
1086 objp1 =
int2ptr(args[1].integer);
1087 if (!(objp && objp1)) {
1094 objp =
int2ptr(args[0].integer);
1102 gp =
int2ptr(args[0].integer);
1112 gp =
int2ptr(args[0].integer);
1120 gp =
int2ptr(args[0].integer);
1132 gp =
int2ptr(args[0].integer);
1153 gp =
int2ptr(args[0].integer);
1162 gp =
int2ptr(args[0].integer);
1171 gp =
int2ptr(args[0].integer);
1172 objp =
int2ptr(args[1].integer);
1182 }
else if (objp == state->
curobj) {
1189 gp =
int2ptr(args[0].integer);
1194 const int op = args[1].
integer > 0 ? 1 : args[1].
integer < 0 ? -1 : 0;
1199 gp =
int2ptr(args[0].integer);
1208 gp =
int2ptr(args[0].integer);
1217 v.
integer = atoi(args[0].
string);
1223 v.
floating = sqrt(args[0].floating);
1226 v.
floating = cos(args[0].floating);
1229 v.
floating = sin(args[0].floating);
1232 v.
floating = atan2(args[0].floating, args[1].floating);
1235 v.
floating = exp(args[0].floating);
1238 v.
floating = pow(args[0].floating, args[1].floating);
1241 v.
floating = log(args[0].floating);
1244 v.
floating =
MIN(args[0].floating, args[1].floating);
1247 v.
floating =
MAX(args[0].floating, args[1].floating);
1250 v.
integer = system(args[0].
string);
1254 objp =
int2ptr(args[0].integer);
1255 char *name = args[1].
string;
1257 exerror(
"NULL object passed to aget()/hasAttr()");
1260 exerror(
"NULL name passed to aget()/hasAttr()");
1264 if (sym->
index == F_hasattr)
1271 "Using value of %s uninitialized attribute \"%s\" of \"%s\" "
1282 objp =
int2ptr(args[0].integer);
1287 char *name = args[1].
string;
1288 char *value = args[2].
string;
1292 }
else if (!value) {
1301 gp =
int2ptr(args[0].integer);
1303 char *kind = args[1].
string;
1304 char *name = args[2].
string;
1305 char *value = args[3].
string;
1309 }
else if (!value) {
1324 gp =
int2ptr(args[0].integer);
1326 char *kind = args[1].
string;
1334 exerror(
"NULL graph passed to fstAttr()");
1341 gp =
int2ptr(args[0].integer);
1343 char *kind = args[1].
string;
1344 char *name = args[2].
string;
1351 }
else if (sym->
index == F_isattr) {
1353 }
else if (sym->
index == F_nxtattr) {
1370 gp =
int2ptr(args[0].integer);
1382 v.
string =
colorx(pgm, args[0].
string, args[1].
string);
1385 if (args[0].
string) {
1387 v.
integer = strcmp(args[0].
string, args[1].
string);
1390 }
else if (args[1].
string)
1411 v.
integer = strlen(args[0].
string);
1420 const size_t m =
match(args[0].
string, args[1].
string);
1442 switch (sym->
index) {
1462 switch (sym->
index) {
1505 exerror(
"current object $ not defined as reference for %s",
1512 if (
lookup(pgm, objp, sym, &v)) {
1524#define MINTYPE (LAST_M + 1)
1541 objp =
deref(pgm, x,
ref, 0, state);
1548 }
else if (MINNAME <= sym->index && sym->
index <=
MAXNAME) {
1549 switch (sym->
index) {
1558 error(1,
"unexpected value %lld assigned to %s : ignored", iv,
1567 error(1,
"cannot set $tvroot, node %s not in $G : ignored",
1577 error(1,
"cannot set $tvnext, node %s not in $G : ignored",
1595 exerror(
"current object $ undefined in expression %s",
1616 switch (rhs->
index) {
1639 switch (rhs->
index) {
1653#define haveGraph (1 <= codePhase && codePhase <= 4)
1654#define haveTarget (2 <= codePhase && codePhase <= 4)
1655#define inWalk (2 <= codePhase && codePhase <= 3)
1670 switch (sym->
type) {
1693 exerror(
"unknown dynamic type %" PRIdMAX
" of symbol %s",
1700 switch (sym->
index) {
1706 exerror(
"keyword %s cannot be used in BEGIN/END statements",
1711 exerror(
"keyword %s cannot be used in BEGIN/BEG_G/END statements",
1724 exerror(
"undeclared, unmodified names like \"%s\" cannot be\nused in "
1725 "BEGIN and END statements",
1731 exerror(
"unexpected symbol in typeChk: name %s, lex %" PRIdMAX, sym->
name,
1732 (intmax_t)sym->
lex);
1739 if (!(dom & intype))
1770 switch (sym->
index) {
1846 if (l->
type == T_tvtyp) {
1850 if (r->
type != T_tvtyp)
1896 if (r && r->
type == T_tvtyp)
1952 if (!strcmp(sfx,
"flat")) {
1954 }
else if (!strcmp(sfx,
"ne")) {
1956 }
else if (!strcmp(sfx,
"en")) {
1958 }
else if (!strcmp(sfx,
"bfs")) {
1960 }
else if (!strcmp(sfx,
"dfs")) {
1962 }
else if (!strcmp(sfx,
"fwd")) {
1964 }
else if (!strcmp(sfx,
"rev")) {
1966 }
else if (!strcmp(sfx,
"postdfs")) {
1968 }
else if (!strcmp(sfx,
"postfwd")) {
1970 }
else if (!strcmp(sfx,
"postrev")) {
1972 }
else if (!strcmp(sfx,
"prepostdfs")) {
1974 }
else if (!strcmp(sfx,
"prepostfwd")) {
1976 }
else if (!strcmp(sfx,
"prepostrev")) {
1979 exerror(
"illegal string \"%s\" for type tvtype_t",
s);
1981 exerror(
"illegal string \"%s\" for type tvtype_t",
s);
2020 s =
"TV_prepostdfs";
2023 s =
"TV_prepostfwd";
2026 s =
"TV_prepostrev";
2029 exerror(
"Unexpected value %lld for type tvtype_t", v);
2047 if (x->
type == T_tvtyp) {
2078 if (
type == T_obj && x->
type <= T_obj)
2085 }
else if (x->
type == T_obj) {
2102 if (!objp ||
isedge(objp))
2108 if (x->
type == T_tvtyp) {
2121 exerror(
"Integer value %lld not legal for type tvtype_t",
2129 if (
type == T_tvtyp) {
2139 if (!arg && ret == 0)
2148 if (
type <= T_obj) {
2196 const char *lbl,
const char *sfx,
int kind) {
2201 FILE *sf = tmpfile();
2219 src =
"<command line>";
2246 for (
size_t i = 0; i < case_infos_size(&cases); i++) {
2247 case_info *sp = case_infos_at(&cases, i);
2267 if (!cs[i].action) {
2281 bool has_begin_g =
false;
2285 static const char PREFIX[] =
"_begin_g_";
2299 if (!case_infos_is_empty(&inp->
node_stmts)) {
2300 static const char PREFIX[] =
"_nd";
2314 if (!case_infos_is_empty(&inp->
edge_stmts)) {
2315 static const char PREFIX[] =
"_eg";
2343 return "\n$O = $G;\ninduce($O);\n";
2345 return "\n$O = $G;\n";
2348 return "\ninduce($O);\n";
2355 const char *endg_sfx =
NULL;
2356 bool uses_graph =
false;
2359 assert(CHAR_BIT *
sizeof(
tctype) >= (1 <<
TBITS));
2386 if (!parse_blocks_is_empty(&inp->
blocks)) {
2392 for (
size_t i = 0; i < parse_blocks_size(&inp->
blocks); bp++, i++) {
2441 for (
size_t i = 0; i < p->
n_blocks; i++) {
2496 root =
sameG(t, h,
"openEdge",
"tail and head nodes");
2500 if (!
sameG(g, root,
"openEdge",
"subgraph and nodes"))
2505 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 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 char * kindOf(Agobj_t *objp)
static void * int2ptr(long long i)
static void checkGuard(Exnode_t *gp, char *src, int line)
static Extype_t length(Exid_t *rhs, Exdisc_t *disc)
static int toKind(char *k, char *fn)
static int isedge(Agobj_t *obj)
static int in(Extype_t lhs, Exid_t *rhs, Exdisc_t *disc)
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)
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(* inf)(Extype_t lhs, Exid_t *rhs, Exdisc_t *disc)
int(* setf)(Expr_t *, Exnode_t *, Exid_t *, Exref_t *, void *, Extype_t)
Extype_t(* lengthf)(Exid_t *rhs, Exdisc_t *disc)
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::@89 constant
struct Exdata_u::@92 variable
void * vmalloc(Vmalloc_t *vm, size_t size)