dump-asy.pl: Include floating_nodes

This commit is contained in:
Orestis Floros 2018-09-14 14:04:54 +03:00
parent ede954128a
commit 702e83c95e
No known key found for this signature in database
GPG Key ID: E9AD9F32E401E38F
1 changed files with 3 additions and 2 deletions

View File

@ -46,7 +46,7 @@ sub dump_node {
my $o = ($n->{orientation} eq 'none' ? "u" : ($n->{orientation} eq 'horizontal' ? "h" : "v")); my $o = ($n->{orientation} eq 'none' ? "u" : ($n->{orientation} eq 'horizontal' ? "h" : "v"));
my $w = (defined($n->{window}) ? $n->{window} : "N"); my $w = (defined($n->{window}) ? $n->{window} : "N");
my $na = ($n->{name} or "[Empty]"); my $na = ($n->{name} or ($n->{type} eq "floating_con" ? "[Floating con]" : "[Empty]"));
$na =~ s/#/\\#/g; $na =~ s/#/\\#/g;
$na =~ s/\$/\\\$/g; $na =~ s/\$/\\\$/g;
$na =~ s/&/\\&/g; $na =~ s/&/\\&/g;
@ -65,6 +65,7 @@ sub dump_node {
print $tmp "\"" . $name . "\");\n"; print $tmp "\"" . $name . "\");\n";
dump_node($_, $n) for @{$n->{nodes}}; dump_node($_, $n) for @{$n->{nodes}};
dump_node($_, $n) for @{$n->{floating_nodes}};
} }
sub find_node_with_name { sub find_node_with_name {