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;