gnatcoll_24.0.0_11c512d1/testsuite/support/test_python.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
with Ada.Environment_Variables;

package body Test_Python is

   package Env renames Ada.Environment_Variables;

   -----------------------
   -- Python_Executable --
   -----------------------

   function Python_Executable return UTF8.UTF_8_String is
   begin
      return Env.Value ("PYTHON_EXEC_PATH");
   end Python_Executable;

end Test_Python;