adabots_1.8.1_d1ac6d8b/src/adabots_lua_dispatcher.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
with Ada.Environment_Variables;
with Ada.Text_IO;
with Util.Http.Clients.Curl;
with Util.Http.Clients;

package body Adabots_Lua_Dispatcher is

   function Create_Lua_Dispatcher
      (Workspace_ID : Ada.Strings.Unbounded.Unbounded_String; Bot_Name : Ada.Strings.Unbounded.Unbounded_String) return Lua_Dispatcher is
         ((Workspace_ID => Workspace_ID, Bot_Name => Bot_Name));

   function Raw_Function (T : Lua_Dispatcher; Lua_Code : String) return String is
      package Env renames Ada.Environment_Variables;
      Default_URI : constant String := "http://adabots.net/instruction_proxy";
      URI : constant String := (if Env.Exists ("ADABOTS_PROXY_URL") then Env.Value ("ADABOTS_PROXY_URL") else Default_URI);
      Response : Util.Http.Clients.Response;
      Data : constant String := "{""workspaceId"": """ & Ada.Strings.Unbounded.To_String (T.Workspace_ID) &
         """, ""instruction"": """ & Lua_Code &
         """, ""botName"": """ & Ada.Strings.Unbounded.To_String (T.Bot_Name) & """}";
   begin
      Util.HTTP.Clients.Curl.Register;
      declare
         Http     : Util.Http.Clients.Client;
      begin
         Ada.Text_IO.Put_Line ("Scheduled " & Lua_Code);
         Http.Add_Header ("content-type", "application/json");
         Http.Post (URI, Data, Response);
         return Response.Get_Body;
      end;
   end Raw_Function;

   function Boolean_Function (T : Lua_Dispatcher; Lua_Code : String) return Boolean is
      Returned_String : constant String := Raw_Function (T, Lua_Code);
   begin
      if Returned_String = "true"
      then
         return True;
      elsif Returned_String = "false"
      then
         return False;
      end if;
      raise Program_Error with Returned_String;
   end Boolean_Function;

   procedure Raw_Procedure (T : Lua_Dispatcher; Lua_Code : String) is
      Result : String := Raw_Function (T, Lua_Code);
      pragma Unreferenced (Result);
   begin
      null;
   end Raw_Procedure;

end Adabots_Lua_Dispatcher;