android: Improved simplified Chinese translation / 完善了简体中文翻译
[strongswan.git] / 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;