From 9d64b837db3cc9aba4797f71536ad6d951078f34 Mon Sep 17 00:00:00 2001
From: ccremers <ccremers@4f7d145f-a0d4-0310-ae10-d96cc04433c1>
Date: Sat, 28 Aug 2004 09:24:30 +0000
Subject: [PATCH] - Improved roledef printing for NULL, NULL roles (intruder) -
 Added graph output in dot format.

---
 src/arachne.c | 104 +++++++++++++++++++++++++++++++++++++++++++++++++-
 src/role.c    |  15 +++++---
 2 files changed, 112 insertions(+), 7 deletions(-)

diff --git a/src/arachne.c b/src/arachne.c
index 036856a..f05545a 100644
--- a/src/arachne.c
+++ b/src/arachne.c
@@ -658,6 +658,108 @@ bind_new_run (const Binding b, const Protocol p, const Role r,
   return flag;
 }
 
+//! Display the current semistate using dot output format.
+void
+dotSemiState ()
+{
+  static int attack_number = 0;
+  int run;
+  Protocol p;
+
+  void node (int run, int index)
+  {
+    eprintf ("r%ii%i", run, index);
+  }
+
+  int binder (void *data)
+  {
+    Binding b;
+
+    b = (Binding) data;
+    if (b->done)
+      {
+	eprintf ("\t");
+	node (b->run_from, b->ev_from);
+	eprintf (" -> ");
+	node (b->run_to, b->ev_to);
+	eprintf (" [label=\"");
+	termPrint (b->term);
+	eprintf ("\"]");
+	eprintf (";\n");
+      }
+    return 1;
+  }
+
+  // Open graph
+  attack_number++;
+  eprintf ("digraph semiState%i {\n", attack_number);
+  eprintf ("\tcomment = \"Protocol ");
+  p = (Protocol) current_claim->protocol;
+  termPrint (p->nameterm);
+  eprintf (", role ");
+  termPrint (current_claim->rolename);
+  eprintf (", claim type ");
+  termPrint (current_claim->type);
+  eprintf ("\";\n");
+
+  // Draw graph
+  // First, all simple runs
+  run = 0;
+  while (run < sys->maxruns)
+    {
+      Roledef rd;
+      int index;
+
+      index = 0;
+      rd = sys->runs[run].start;
+      eprintf ("\tsubgraph cluster_run%i {\n", run);
+      eprintf ("\t\tlabel = \"");
+      if (sys->runs[run].protocol != INTRUDER)
+	{
+	  eprintf ("run #%i, protocol ", run);
+	  termPrint (sys->runs[run].protocol->nameterm);
+	  eprintf (", role ");
+	  termPrint (sys->runs[run].role->nameterm);
+	}
+      else
+	{
+	  eprintf ("(intruder)");
+	}
+      eprintf ("\";\n", run);
+      eprintf ("\t\tcolor = blue;\n");
+      while (index < sys->runs[run].length)
+	{
+	  // Print node itself
+	  eprintf ("\t\t");
+	  node (run, index);
+	  eprintf (" [shape=box,label=\"");
+	  roledefPrint (rd);
+	  eprintf ("\"]");
+	  eprintf (";\n");
+
+	  // Print binding to previous node
+	  if (index > 0)
+	    {
+	      eprintf ("\t\t");
+	      node (run, index - 1);
+	      eprintf (" -> ");
+	      node (run, index);
+	      eprintf (";\n");
+	    }
+	  index++;
+	  rd = rd->next;
+	}
+      eprintf ("\t}\n");
+      run++;
+    }
+
+  // Second, all bindings
+  list_iterate (sys->bindings, binder);
+
+  // close graph
+  eprintf ("};\n\n");
+}
+
 //! Print the current semistate
 void
 printSemiState ()
@@ -1455,7 +1557,7 @@ property_check ()
    */
   count_false ();
   if (sys->output == ATTACK)
-    printSemiState ();
+    dotSemiState ();
   // Store attack length if shorter
   attack_this = get_trace_length ();
   if (attack_this < attack_length)
diff --git a/src/role.c b/src/role.c
index 5e5fc34..1d01a3f 100644
--- a/src/role.c
+++ b/src/role.c
@@ -77,12 +77,15 @@ roledefPrint (Roledef rd)
   if (globalLatex)
     eprintf ("$");
   eprintf ("(");
-  termPrint (rd->from);
-  eprintf (",");
-  if (rd->type == CLAIM)
-    eprintf (" ");
-  termPrint (rd->to);
-  eprintf (", ");
+  if (!(rd->from == NULL && rd->to == NULL))
+    {
+      termPrint (rd->from);
+      eprintf (",");
+      if (rd->type == CLAIM)
+	eprintf (" ");
+      termPrint (rd->to);
+      eprintf (", ");
+    }
   termPrint (rd->message);
   eprintf (" )");
   if (globalLatex)