qf/quakeforge
0
0
Fork 0
mirror of https://git.code.sf.net/p/quake/quakeforge synced 2025-04-07 01:42:04 +00:00
Code Issues Projects Releases Packages Wiki Activity

[qfcc] Dump message expression dots

Browse source
This commit is contained in:
Bill Currie 2025-01-18 23:12:47 +09:00
parent f713d53fb6
commit d3bcd0c3a3
1 changed files with 18 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
tools/qfcc/source/dot_expr.c
View file

@ -759,6 +759,23 @@ print_selector (dstring_t *dstr, const expr_t *e, int level, int id, const expr_
e->selector.sel->name);
}
static void
print_message (dstring_t *dstr, const expr_t *e, int level, int id, const expr_t *next)
{
int indent = level * 2 + 2;
_print_expr (dstr, e->message.receiver, level, id, next);
dasprintf (dstr, "%*se_%p -> \"e_%p\";\n", indent, "", e,
e->message.receiver);
for (auto kw = e->message.message; kw; kw = kw->next) {
_print_expr (dstr, kw->expr, level, id, next);
dasprintf (dstr, "%*se_%p -> \"e_%p\" [label=\"%s\"];\n", indent, "", e,
kw->expr, kw->selector);
}
dasprintf (dstr, "%*se_%p [label=\"%s\"];\n", indent, "", e,
"[message]");
}
static void
print_nil (dstring_t *dstr, const expr_t *e, int level, int id, const expr_t *next)
{
@ -951,6 +968,7 @@ _print_expr (dstring_t *dstr, const expr_t *e, int level, int id,
[ex_temp] = print_temp,
[ex_vector] = print_vector,
[ex_selector] = print_selector,
[ex_message] = print_message,
[ex_nil] = print_nil,
[ex_value] = print_value,
[ex_compound] = print_compound,