~tkoskine/ladybird commit

2 files changed, 5 insertions(+), 3 deletions(-)

M src/tweet_parser.adb
M src/tweet_parser.ads

M src/tweet_parser.adb +0 -2

@@ 63,11 63,9 @@ package body Tweet_Parser is
                            Target :    out Tweet_List.List) is
       Data_Stream : Input.Unbounded_String_Stream;
    begin
-      Put_Line ("Parse_Tweets begin");
       Input.Open (Data_Stream, Source);
       Parse_Tweets (Data_Stream, Target);
       Input.Close (Data_Stream);
-      Put_Line ("Parse_Tweets end");
    end Parse_Tweets;
 
    procedure Parse_Tweets (Source : in out Source_Stream'Class;

M src/tweet_parser.ads +5 -1

@@ 2,13 2,17 @@ with Tweet_List;
 with Input;
 with Ada.Strings.Unbounded;
 with Hauki.Charbuf;
+with JSON.Data;
 
 use Ada.Strings.Unbounded;
 use Input;
 
 package Tweet_Parser is
    use Hauki;
-   
+
+   procedure Create_Tweets (Source : in     JSON.Data.JSON_Holder.Holder;
+                            Target :    out Tweet_List.List);
+
    procedure Parse_Tweets (Source : in     Charbuf.Char_Buffer;
                            Target :    out Tweet_List.List);