43#define MIN(a, b) ((a) < (b) ? (a) : (b))
44#define MAX(a, b) ((a) > (b) ? (a) : (b))
51static void *
int2ptr(
long long i) {
return (
void *)(intptr_t)i; }
53static long long ptr2int(
const void *p) {
return (
long long)(intptr_t)p; }
94 if (sscanf(pt,
"%lf,%lf,%lf,%lf", &x, &y, &u, &v) == 4) {
95 char *p = strchr(pt,
',');
96 p = strchr(p + 1,
',');
98 size_t len = (size_t)(p - pt);
115 if (sscanf(pt,
"%lf,%lf", &x, &y) == 2) {
116 char *
const p = strchr(pt,
',');
118 size_t len = (size_t)(p - pt);
146 if (sscanf(
ps,
"%lf,%lf", &p[0], &p[1]) == 2) {
165 while ((c = *args++)) {
215 exerror(
"null reference %s in expression %s.%s",
ref->symbol->name,
222 switch (
ref->symbol->index) {
240 if (!objp && !(objp = state->
curobj)) {
241 exerror(
"Current object $ not defined");
251 if (!objp && !(objp = state->
curobj)) {
252 exerror(
"Current object $ not defined");
259 exerror(
"tail of non-edge %p", objp);
262 exerror(
"%s : illegal reference",
ref->symbol->name);
274 unsigned char *p = name;
288 exerror(
"Cannot assign to pseudo-graph attribute %s", name);
292 exerror(
"Cannot assign to pseudo-node attribute %s", name);
296 exerror(
"Cannot assign to pseudo-edge attribute %s", name);
309 return agxset(objp, gsym, val);
336 if (sym->
lex ==
ID) {
337 switch (sym->
index) {
364 exerror(
"indegree of non-node");
372 exerror(
"outdegree of non-node");
389 exerror(
"x coordinate of non-node");
398 exerror(
"x coordinate of non-node");
406 exerror(
"parent of non-graph");
417 exerror(
"n_edges of non-graph");
425 exerror(
"n_nodes of non-graph");
433 exerror(
"directed of non-graph");
441 exerror(
"strict of non-graph");
456 "Using value of uninitialized %s attribute \"%s\" of \"%s\"",
472 if (n < 0 || (
unsigned long long)n >=
LIST_SIZE(&state->
args)) {
473 exerror(
"program references ARGV[%lld] - undefined", n);
521 exerror(
"Unknown kind \"%s\" passed to %s()", k, fn);
528 char *fn = name ?
"nxtAttr" :
"fstAttr";
535 exerror(
"Third argument \"%s\" in nxtAttr() must be the name of an "
536 "existing attribute",
552 int kind =
toKind(k,
"getDflt");
581 switch (sym->
index) {
583 gp =
openG(args[0].
string,
xargs(args[1].
string));
739 objp =
int2ptr(args[1].integer);
762 objp =
int2ptr(args[0].integer);
764 exerror(
"NULL object passed to kindOf()");
1007 ep =
int2ptr(args[0].integer);
1008 np =
int2ptr(args[1].integer);
1021 gp =
int2ptr(args[0].integer);
1022 ep =
int2ptr(args[1].integer);
1023 np =
int2ptr(args[2].integer);
1038 gp =
int2ptr(args[0].integer);
1039 objp =
int2ptr(args[1].integer);
1047 gp =
int2ptr(args[0].integer);
1048 objp =
int2ptr(args[1].integer);
1056 gp =
int2ptr(args[0].integer);
1058 gp =
cloneG(gp, args[1].
string);
1066 objp =
int2ptr(args[0].integer);
1067 objp1 =
int2ptr(args[1].integer);
1068 if (!(objp && objp1)) {
1075 objp =
int2ptr(args[0].integer);
1083 gp =
int2ptr(args[0].integer);
1093 gp =
int2ptr(args[0].integer);
1101 gp =
int2ptr(args[0].integer);
1113 gp =
int2ptr(args[0].integer);
1134 gp =
int2ptr(args[0].integer);
1143 gp =
int2ptr(args[0].integer);
1152 gp =
int2ptr(args[0].integer);
1153 objp =
int2ptr(args[1].integer);
1163 }
else if (objp == state->
curobj) {
1170 gp =
int2ptr(args[0].integer);
1175 const int op = args[1].
integer > 0 ? 1 : args[1].
integer < 0 ? -1 : 0;
1180 gp =
int2ptr(args[0].integer);
1189 gp =
int2ptr(args[0].integer);
1198 v.
integer = atoi(args[0].
string);
1204 v.
floating = sqrt(args[0].floating);
1207 v.
floating = cos(args[0].floating);
1210 v.
floating = sin(args[0].floating);
1213 v.
floating = atan2(args[0].floating, args[1].floating);
1216 v.
floating = exp(args[0].floating);
1219 v.
floating = pow(args[0].floating, args[1].floating);
1222 v.
floating = log(args[0].floating);
1225 v.
floating =
MIN(args[0].floating, args[1].floating);
1228 v.
floating =
MAX(args[0].floating, args[1].floating);
1231 v.
integer = system(args[0].
string);
1235 objp =
int2ptr(args[0].integer);
1236 char *name = args[1].
string;
1238 exerror(
"NULL object passed to aget()/hasAttr()");
1241 exerror(
"NULL name passed to aget()/hasAttr()");
1245 if (sym->
index == F_hasattr)
1252 "Using value of %s uninitialized attribute \"%s\" of \"%s\" "
1263 objp =
int2ptr(args[0].integer);
1268 char *name = args[1].
string;
1269 char *value = args[2].
string;
1273 }
else if (!value) {
1282 gp =
int2ptr(args[0].integer);
1284 char *kind = args[1].
string;
1285 char *name = args[2].
string;
1286 char *value = args[3].
string;
1290 }
else if (!value) {
1305 gp =
int2ptr(args[0].integer);
1307 char *kind = args[1].
string;
1315 exerror(
"NULL graph passed to fstAttr()");
1322 gp =
int2ptr(args[0].integer);
1324 char *kind = args[1].
string;
1325 char *name = args[2].
string;
1332 }
else if (sym->
index == F_isattr) {
1334 }
else if (sym->
index == F_nxtattr) {
1351 gp =
int2ptr(args[0].integer);
1363 v.
string =
colorx(pgm, args[0].
string, args[1].
string);
1366 if (args[0].
string) {
1368 v.
integer = strcmp(args[0].
string, args[1].
string);
1371 }
else if (args[1].
string)
1392 v.
integer = strlen(args[0].
string);
1401 const size_t m =
match(args[0].
string, args[1].
string);
1423 switch (sym->
index) {
1426 if (
getArg(args[0].integer, state, &arg) != 0) {
1451 switch (sym->
index) {
1475 assert(size <= LLONG_MAX);
1497 exerror(
"current object $ not defined as reference for %s",
1504 if (
lookup(pgm, objp, sym, &v)) {
1516#define MINTYPE (LAST_M + 1)
1533 objp =
deref(pgm, x,
ref, 0, state);
1540 }
else if (MINNAME <= sym->index && sym->
index <=
MAXNAME) {
1541 switch (sym->
index) {
1550 error(1,
"unexpected value %lld assigned to %s : ignored", iv,
1559 error(1,
"cannot set $tvroot, node %s not in $G : ignored",
1569 error(1,
"cannot set $tvnext, node %s not in $G : ignored",
1587 exerror(
"current object $ undefined in expression %s",
1608 switch (rhs->
index) {
1612 assert(size <= LLONG_MAX);
1633 switch (rhs->
index) {
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))
1765 switch (sym->
index) {
1841 if (l->
type == T_tvtyp) {
1845 if (r->
type != T_tvtyp)
1891 if (r && r->
type == T_tvtyp)
1947 if (!strcmp(sfx,
"flat")) {
1949 }
else if (!strcmp(sfx,
"ne")) {
1951 }
else if (!strcmp(sfx,
"en")) {
1953 }
else if (!strcmp(sfx,
"bfs")) {
1955 }
else if (!strcmp(sfx,
"dfs")) {
1957 }
else if (!strcmp(sfx,
"fwd")) {
1959 }
else if (!strcmp(sfx,
"rev")) {
1961 }
else if (!strcmp(sfx,
"postdfs")) {
1963 }
else if (!strcmp(sfx,
"postfwd")) {
1965 }
else if (!strcmp(sfx,
"postrev")) {
1967 }
else if (!strcmp(sfx,
"prepostdfs")) {
1969 }
else if (!strcmp(sfx,
"prepostfwd")) {
1971 }
else if (!strcmp(sfx,
"prepostrev")) {
1974 exerror(
"illegal string \"%s\" for type tvtype_t",
s);
1976 exerror(
"illegal string \"%s\" for type tvtype_t",
s);
2015 s =
"TV_prepostdfs";
2018 s =
"TV_prepostfwd";
2021 s =
"TV_prepostrev";
2024 exerror(
"Unexpected value %lld for type tvtype_t", v);
2042 if (x->
type == T_tvtyp) {
2073 if (
type == T_obj && x->
type <= T_obj)
2080 }
else if (x->
type == T_obj) {
2097 if (!objp ||
isedge(objp))
2103 if (x->
type == T_tvtyp) {
2116 exerror(
"Integer value %lld not legal for type tvtype_t",
2124 if (
type == T_tvtyp) {
2134 if (!arg && ret == 0)
2143 if (
type <= T_obj) {
2191 const char *lbl,
const char *sfx,
int kind) {
2196 FILE *sf = tmpfile();
2214 src =
"<command line>";
2241 for (
size_t i = 0; i <
LIST_SIZE(&cases); i++) {
2262 if (!cs[i].action) {
2276 bool has_begin_g =
false;
2280 static const char PREFIX[] =
"_begin_g_";
2295 static const char PREFIX[] =
"_nd";
2310 static const char PREFIX[] =
"_eg";
2338 return "\n$O = $G;\ninduce($O);\n";
2340 return "\n$O = $G;\n";
2343 return "\ninduce($O);\n";
2350 const char *endg_sfx =
NULL;
2351 bool uses_graph =
false;
2354 assert(CHAR_BIT *
sizeof(
tctype) >= (1 <<
TBITS));
2435 for (
size_t i = 0; i < p->
n_blocks; i++) {
2490 root =
sameG(t, h,
"openEdge",
"tail and head nodes");
2494 if (!
sameG(g, root,
"openEdge",
"subgraph and nodes"))
2499 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 out(agerrlevel_t level, const char *fmt, va_list args)
Report messages using a user-supplied or default write function.
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)
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 getArg(long long n, Gpr_t *state, strview_t *out)
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)
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)
type-generic dynamically expanding list
#define LIST_AT(list, index)
#define LIST_IS_EMPTY(list)
#define LIST_GET(list, index)
static FILE * openFile(const char *argv0, const char *name, const char *mode)
static char * canon(graph_t *g, char *s, char *buffer)
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?
a non-owning string reference
const char * data
start of the pointed to string
size_t size
extent of the string in bytes
Non-owning string references.
struct Exdata_u::@95 variable
struct Exdata_u::@92 constant