Re: problems parse (large) json file with gnatcoll.json

["Björn Lundin" <b.f.lundin@gmail.com>]

On 2016-04-18 20:51, Jeffrey R. Carter wrote:
> I doubt the subtype declaration gives you Storage_Error. It should be if
> you declare an object of the subtype:

Of course you are correct.
I wonder how I misread the stacktrace that much.
Anyway your tip paid off.

> You can probably get around this by declaring an access type:


The loading function now looks like

  function Load_File(Filename : in String) return String is
     use Ada.Directories;
     File_Size    : constant Natural := Natural (Size (Filename));
     subtype JSON_String is String (1 .. File_Size);
     type String_Ptr is access JSON_String;
     Content : constant String_Ptr := new JSON_String;
     package File_IO is new Ada.Direct_IO(JSON_String);
     File : File_IO.File_Type;
  begin
     File_IO.Open (File => File, Mode => File_IO.In_File,
                   Name => Filename);
     File_IO.Read (File => File, Item => Content.all);
     File_IO.Close(File => File);
     return Content.all;
  end Load_File;
  --------------------------

and it works. Thanks. (I'll fix the leak later on)

The Load_File function is from

http://wiki.ada-dk.org/index.php/Handling_JSON_Using_GNATColl


--
Björn