ipc: adapt dump-asy.pl for the new orientation format

This commit is contained in:
Michael Stapelberg 2011-01-08 00:45:10 +01:00
parent 83f6e445a0
commit d5388147f1

View File

@ -22,7 +22,7 @@ say $tmp "treeLevelStep = 2cm;";
sub dump_node { sub dump_node {
my ($n, $parent) = @_; my ($n, $parent) = @_;
my $o = ($n->{orientation} == 0 ? "u" : ($n->{orientation} == 1 ? "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}; my $na = $n->{name};
$na =~ s/#/\\#/g; $na =~ s/#/\\#/g;