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

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

procedure Example_1 is
begin
   Dotenv.Config;

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