src/charon-tkm/src/ees/tkmrpc-servers-ees.adb

   1 package body Tkmrpc.Servers.Ees
   2 is
   3
   4    --------------------------------
   5    -- charon callback signatures --
   6    --------------------------------
   7
   8    procedure Charon_Esa_Acquire
   9      (Result : out Results.Result_Type;
  10       Sp_Id  :     Types.Sp_Id_Type);
  11    pragma Import (C, Charon_Esa_Acquire, "charon_esa_acquire");
  12
  13    procedure Charon_Esa_Expire
  14      (Result   : out Results.Result_Type;
  15       Sp_Id    :     Types.Sp_Id_Type;
  16       Spi_Rem  :     Types.Esp_Spi_Type;
  17       Protocol :     Types.Protocol_Type;
  18       Hard     :     Types.Expiry_Flag_Type);
  19    pragma Import (C, Charon_Esa_Expire, "charon_esa_expire");
  20
  21    -------------------------------------------------------------------------
  22
  23    procedure Esa_Acquire
  24      (Result : out Results.Result_Type;
  25       Sp_Id  :     Types.Sp_Id_Type)
  26    is
  27    begin
  28       Charon_Esa_Acquire (Result => Result,
  29                           Sp_Id  => Sp_Id);
  30    end Esa_Acquire;
  31
  32    -------------------------------------------------------------------------
  33
  34    procedure Esa_Expire
  35      (Result   : out Results.Result_Type;
  36       Sp_Id    :     Types.Sp_Id_Type;
  37       Spi_Rem  :     Types.Esp_Spi_Type;
  38       Protocol :     Types.Protocol_Type;
  39       Hard     :     Types.Expiry_Flag_Type)
  40    is
  41    begin
  42       Charon_Esa_Expire (Result   => Result,
  43                          Sp_Id    => Sp_Id,
  44                          Spi_Rem  => Spi_Rem,
  45                          Protocol => Protocol,
  46                          Hard     => Hard);
  47    end Esa_Expire;
  48
  49    -------------------------------------------------------------------------
  50
  51    procedure Finalize
  52    is
  53    begin
  54       null;
  55    end Finalize;
  56
  57    -------------------------------------------------------------------------
  58
  59    procedure Init
  60    is
  61    begin
  62       null;
  63    end Init;
  64
  65 end Tkmrpc.Servers.Ees;