JSON and interpreting JSON objects

[tonyg <tonythegair@gmail.com>]

I'm playing with some JSON. I am trying to pick some information out of a JSON object but am trying to understand what I am doing first.

In the following code I am not totally sure about displaying a JSON object, and I was wondering what to put in "when JSON_Object_Type =>" I want to traverse over the object and print the information out if you didn't manage to guess what I was trying to do

CODE>>>

with GNATCOLL.JSON; use GNATCOLL.JSON;

  procedure Output_Json (JV : in Json_Value) is

      

   begin
      case Kind(Val => JV) is
         when JSON_Array_Type =>
            for count in 1..JV.Length loop
               Output_Json (JV.Get(count));
               
            end loop;
            
         when JSON_Object_Type =>
            
            
         when JSON_Null_Type =>
            TP.Put_Line("JSON_NULL_TYPE");
         when others =>
            TP.Put_Line(JV.Get'Image);
        

      end case;



   end Json_Stuff;