Add template support for lost messages in observers

templates/concurrency_view/simulation-adb/node.tmplt

@@ -84,7 +84,7 @@ package body Simulator_Interface is
       Print_Event (Event);
       User_State := Application_State (Full_state);
       case Event.Kind is
-         when System_Startup_PRESENT | No_Event_PRESENT => null;
+         when System_Startup_PRESENT | No_Event_PRESENT | Unhandled_Input_PRESENT => null;
          when Input_Event_PRESENT =>
             case Event.Input_Event.Event.Kind is
                @@TABLE'ALIGN_ON("=>", "(", "Global")@@
@@ -229,7 +229,7 @@ package body Simulator_Interface is
    procedure Print_Event (Event : asn1SccObservable_Event) is
    begin
       case Event.Kind is
-         when System_Startup_PRESENT | No_Event_PRESENT => null;
+         when System_Startup_PRESENT | No_Event_PRESENT | Unhandled_Input_PRESENT => null;
          when Input_Event_PRESENT =>
             case Event.Input_Event.Event.Kind is
                @@TABLE'ALIGN_ON("=>", "(", "Global")@@

templates/concurrency_view/simulation_dataview/system.tmplt

@@ -46,10 +46,14 @@ BEGIN
    Observable-Event ::= CHOICE {
       no-event        SEQUENCE {},
       system-startup  SEQUENCE {},
-      input-event     Interface-Event,
-      output-event    Interface-Event
+      input-event     Interface-Event,   --  input event is evaluated after the transition
+      output-event    Interface-Event,   --  output event is evaluated before the message is sent
+      unhandled-input Interface-Event    --  message received in a state where it is not expected
    }
 
+   --  constant that can be used to refer to the absence of an input/output event
+   nothing Observable-Event ::= no-event : {}
+
    --  Define a queue of events, corresponding to the input queue for each function
    max-events INTEGER ::= 10
    Events-Ty ::= SEQUENCE (SIZE (0 .. max-events)) OF Observable-Event