add support for dashed and bi-directional messages

This commit is contained in:
Harald Welte 2010-07-09 09:51:15 +02:00
parent 7eb91aa630
commit 618ce6c53e
1 changed files with 9 additions and 3 deletions

View File

@ -137,7 +137,7 @@ sub entity_left_of($$)
sub gen_edges()
{
my $count = 1;
my $l; my $r; my $dir;
my $l; my $r; my $dir; my $attr = "";
foreach my $m (@cfg_messages) {
if (entity_left_of($$m{'src'}, $$m{'dst'})) {
@ -149,9 +149,15 @@ sub gen_edges()
$r = $$m{'src'};
$dir = 'back';
}
if ($$m{'flags'} =~ /\W+both\W*/) {
$dir = 'both';
}
if ($$m{'flags'} =~ /\W+dashed\W*/) {
$attr .= ' style=dashed';
}
print(" { rank=same;\n");
printf(" %s%u -> %s%u [dir=%s label=\"%s\"]\n }\n",
$l, $count, $r, $count, $dir, $$m{'label'});
printf(" %s%u -> %s%u [dir=%s label=\"%s\"%s]\n }\n",
$l, $count, $r, $count, $dir, $$m{'label'}, $attr);
$count++;
}
}