Remove result out parameter from EES Init
[strongswan.git] / src / charon-tkm / src / ees / esa_event_service.ads
1 --
2 --  Copyright (C) 2012 Reto Buerki
3 --  Copyright (C) 2012 Adrian-Ken Rueegsegger
4 --  Hochschule fuer Technik Rapperswil
5 --
6 --  This program is free software; you can redistribute it and/or modify it
7 --  under the terms of the GNU General Public License as published by the
8 --  Free Software Foundation; either version 2 of the License, or (at your
9 --  option) any later version.  See <http://www.fsf.org/copyleft/gpl.txt>.
10 --
11 --  This program is distributed in the hope that it will be useful, but
12 --  WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
13 --  or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
14 --  for more details.
15 --
16
17 with Interfaces.C.Strings;
18
19 package Esa_Event_Service
20 is
21
22    procedure Init (Address : Interfaces.C.Strings.chars_ptr);
23    pragma Export (C, Init, "ees_server_init");
24    --  Initialize Esa Event Service (EES) with given address.
25
26    procedure Finalize;
27    pragma Export (C, Finalize, "ees_server_finalize");
28    --  Finalize EES.
29
30 end Esa_Event_Service;