dotenv_1.0.0_a19c7797/example/src/example_2.adb

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

procedure Example_2 is
begin
   Dotenv.Config (Path        => "bin/.env.interpolation",
                  File_Form   => "wcem=8",
                  Overwrite   => True,
                  Debug       => True,
                  Interpolate => True);

   Ada.Environment_Variables.Iterate (Print_Variable'Access);
end Example_2;