Re: Where to find good/simple examples for gnatcoll (python)?

[reinkor <reinkor@gmail.com>]

Thanks so far. 

My up to date debian jessie seems not yet to include these new features.
However, I tried the program below. It builds, but I get 
"raised CONSTRAINT_ERROR : t1.adb:10 access check failed"

(something goes wring at the line 
"Data   : Callback_Data'Class := Create (Python, 2);")

Any help in my attempt to learn fast is appreciated.


with Ada.Text_IO;             use Ada.Text_IO;
with GNATCOLL.Scripts;        use GNATCOLL.Scripts;
with GNATCOLL.Scripts.Python; use GNATCOLL.Scripts.Python;
with GNATCOLL.Scripts.Shell;  use GNATCOLL.Scripts.Shell;

procedure T1 is

   Repo   : Scripts_Repository  := new Scripts_Repository_Record;
   Python : Scripting_Language  := Lookup_Scripting_Language (Repo, "python");
   Data   : Callback_Data'Class := Create (Python, 2);
   Result : Integer;

begin

   Data.Set_Nth_Arg (1, 2);
   Data.Set_Nth_Arg (2, 3);
   Data.Execute_Command ("./test1.py");   --  newer versions of gnatcoll
   Result := Data.Return_Value;

end T1;

Here is the project file for it:

with "gnatcoll_python";
with "gnatcoll_gmp";
project T1 is
    for Source_Dirs use ("src");
    for Object_Dir use "obj";
    for Exec_Dir use ".";
    for Main use ("t1.adb");
end T1;

reinert