# HG changeset patch # User Tero Koskinen # Date 1380221758 -10800 # Thu Sep 26 21:55:58 2013 +0300 # Node ID a8bb42095bd4068b49e0b78b8604352ef624ed27 # Parent f7ea9384f785e9a133051346377f94a2e92ed36a Add some comments and whitespace. diff --git a/src/json-parser.adb b/src/json-parser.adb --- a/src/json-parser.adb +++ b/src/json-parser.adb @@ -109,6 +109,7 @@ Parse_Value (Source, T, Value); end Parse_Pair; + -- object = '{' members '}' procedure Parse_Object (Source : in out Source_Stream'Class; T : in out Token_Type; Value : out JSON.Data.JSON_Holder.Holder) is @@ -128,6 +129,7 @@ case T.Token_Kind is when CURLY_PARENT_RIGHT_TOKEN => exit Member_Loop; + when STRING_TOKEN => declare Name : constant String := To_String (T.String_Value); @@ -136,14 +138,16 @@ Data.Append (Object, Name, Element (Item)); end; Parse_Token (Source, T); + case T.Token_Kind is when CURLY_PARENT_RIGHT_TOKEN => exit Member_Loop; when COMMA_TOKEN => - null; + null; -- Do nothing = continue loop when others => raise Parse_Error; end case; + when others => raise Parse_Error; end case;