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

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

procedure Example_3 is

begin
   Ada.Text_IO.Put_Line ("Start main");
   Load_Environment_Variables.Nothing;
--     Dotenv.Config (Src       => "bin/.env",
--                    File_Form => "wcem=8",
--                    Overwrite => True,
--                    Debug     => True);

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