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; |