File: test_common.adb

package info (click to toggle)
libgnatcoll-bindings 25.0.0-2
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 2,412 kB
  • sloc: ada: 18,696; python: 1,597; ansic: 1,422; cpp: 581; makefile: 147; sh: 114
file content (17 lines) | stat: -rw-r--r-- 411 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
with Ada.Environment_Variables;
with GNATCOLL.Python.Lifecycle; use GNATCOLL.Python.Lifecycle;

package body Test_Common is

   package Env renames Ada.Environment_Variables;

   function Python_Home return String is
   begin
      return Env.Value ("ADA_PYTHON_HOME");
   end Python_Home;

   procedure Set_Python_Home is
   begin
      Py_SetPythonHome (Python_Home);
   end Set_Python_Home;
end Test_Common;