Version bump to 5.9.5rc1
[strongswan.git] / src / charon-tkm / src / ees / esa_event_service.adb
index 7b35090..323a64c 100644 (file)
@@ -1,7 +1,7 @@
 --
 --  Copyright (C) 2012 Reto Buerki
 --  Copyright (C) 2012 Adrian-Ken Rueegsegger
---  Hochschule fuer Technik Rapperswil
+--  HSR Hochschule fuer Technik Rapperswil
 --
 --  This program is free software; you can redistribute it and/or modify it
 --  under the terms of the GNU General Public License as published by the
@@ -27,10 +27,13 @@ package body Esa_Event_Service
 is
 
    package Unix_TCP_Receiver is new Anet.Receivers.Stream
-     (Socket_Type => Anet.Sockets.Unix.TCP_Socket_Type);
+     (Socket_Type       => Anet.Sockets.Unix.TCP_Socket_Type,
+      Address_Type      => Anet.Sockets.Unix.Full_Path_Type,
+      Accept_Connection => Anet.Sockets.Unix.Accept_Connection);
 
    procedure Dispatch is new Tkmrpc.Process_Stream
-     (Dispatch => Tkmrpc.Dispatchers.Ees.Dispatch);
+     (Dispatch     => Tkmrpc.Dispatchers.Ees.Dispatch,
+      Address_Type => Anet.Sockets.Unix.Full_Path_Type);
 
    Sock     : aliased Anet.Sockets.Unix.TCP_Socket_Type;
    Receiver : Unix_TCP_Receiver.Receiver_Type (S => Sock'Access);
@@ -45,21 +48,13 @@ is
 
    -------------------------------------------------------------------------
 
-   procedure Init
-     (Result  : out Tkmrpc.Results.Result_Type;
-      Address :     Interfaces.C.Strings.chars_ptr)
+   procedure Init (Address : Interfaces.C.Strings.chars_ptr)
    is
       Path : constant String := Interfaces.C.Strings.Value (Address);
    begin
       Sock.Init;
       Sock.Bind (Path => Anet.Sockets.Unix.Path_Type (Path));
       Receiver.Listen (Callback => Dispatch'Access);
-
-      Result := Tkmrpc.Results.Ok;
-
-   exception
-      when others =>
-         Result := Tkmrpc.Results.Invalid_Operation;
    end Init;
 
 end Esa_Event_Service;