add support for dashed and bi-directional messages

1 files changed, 9 insertions, 3 deletions

diff --git a/gen_ladder.pl b/gen_ladder.pl
index 95a0f73..a33d62d 100755
--- a/gen_ladder.pl
+++ b/gen_ladder.pl
@@ -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++;
 	}
 }