Remove result out parameter from EES Init
authorReto Buerki <reet@codelabs.ch>
Thu, 8 Nov 2012 14:32:54 +0000 (15:32 +0100)
committerTobias Brunner <tobias@strongswan.org>
Tue, 19 Mar 2013 14:23:49 +0000 (15:23 +0100)
Error processing is done by the registered exception handler.

src/charon-tkm/src/ees/esa_event_service.adb
src/charon-tkm/src/ees/esa_event_service.ads
src/charon-tkm/src/tkm/tkm.c

index 7b35090..5b5d700 100644 (file)
@@ -45,21 +45,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;
index 5ead0ca..f3630b7 100644 (file)
 
 with Interfaces.C.Strings;
 
-with Tkmrpc.Results;
-
 package Esa_Event_Service
 is
 
-   procedure Init
-     (Result  : out Tkmrpc.Results.Result_Type;
-      Address :     Interfaces.C.Strings.chars_ptr);
+   procedure Init (Address : Interfaces.C.Strings.chars_ptr);
    pragma Export (C, Init, "ees_server_init");
-   pragma Export_Valued_Procedure (Init);
    --  Initialize Esa Event Service (EES) with given address.
 
    procedure Finalize;
index ce4cedc..47e1eb9 100644 (file)
@@ -69,12 +69,8 @@ bool tkm_init()
                tkmlib_final();
                return FALSE;
        }
-       /* init esa event service */
-       if (ees_server_init(EES_SOCKET) != TKM_OK)
-       {
-               tkmlib_final();
-               return FALSE;
-       }
+
+       ees_server_init(EES_SOCKET);
 
        if (ike_tkm_reset() != TKM_OK)
        {