From 098d84ef77b46ea4defefa73cb4805b91bc2f235 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=BCrgen=20Doser?= <doserj@inf.ethz.ch>
Date: Fri, 30 Sep 2005 10:14:47 +0000
Subject: [PATCH] helper function state_name_of

git-svn-id: https://projects.brucker.ch/su4sml/svn/infsec-import/trunk/src/su4sml@3159 3260e6d1-4efc-4170-b0a7-36055960796d
---
 src/xmi_state_machines.sml | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/xmi_state_machines.sml b/src/xmi_state_machines.sml
index a9b2706..43f6055 100644
--- a/src/xmi_state_machines.sml
+++ b/src/xmi_state_machines.sml
@@ -205,6 +205,15 @@ fun state_xmiid_of (CompositeState{xmiid,...}) = xmiid
   | state_xmiid_of (PseudoState{xmiid,...}) = xmiid
   | state_xmiid_of (SyncState{xmiid,...}) = xmiid
 
+fun state_name_of (CompositeState{name,...}) = name
+  | state_name_of (SubactivityState{name,...}) = name
+  | state_name_of (SimpleState{name,...}) = name
+  | state_name_of (ActionState{name,...}) = name
+  | state_name_of (ObjectFlowState{name,...}) = name
+  | state_name_of (FinalState{name,...}) = name
+  | state_name_of (PseudoState{name,...}) = name
+  | state_name_of (SyncState{name,...}) = name
+
 fun state_subvertices_of (CompositeState{subvertex,...}) = subvertex
   | state_subvertices_of (SubactivityState{subvertex,...}) = subvertex
   | state_subvertices_of _ = raise IllFormed "state_subvertices_of called on a non-composite state"