dump-asy.pl: Add marks

This commit is contained in:
Orestis Floros 2018-03-14 14:59:26 +02:00
parent c0bcd37153
commit 774a61b47e
1 changed files with 2 additions and 1 deletions

View File

@ -47,7 +47,8 @@ sub dump_node {
if (!defined($n->{window})) {
$type = $n->{layout};
}
my $name = qq|``$na'' ($type)|;
my $marks = $n->{marks} ? ' [' . join('][', @{$n->{marks}}) . ']' : '';
my $name = qq|``$na'' ($type)$marks|;
print $tmp "TreeNode n" . $n->{id} . " = makeNode(";