dump-asy.pl: Add marks
This commit is contained in:
parent
c0bcd37153
commit
774a61b47e
|
@ -47,7 +47,8 @@ sub dump_node {
|
||||||
if (!defined($n->{window})) {
|
if (!defined($n->{window})) {
|
||||||
$type = $n->{layout};
|
$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(";
|
print $tmp "TreeNode n" . $n->{id} . " = makeNode(";
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue