bbt_0.0.6_807c8d3a/src/bbt-main-put_settings.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
-- -----------------------------------------------------------------------------
-- bbt, the black box tester (https://github.com/LionelDraghi/bbt)
-- Author : Lionel Draghi
-- SPDX-License-Identifier: APSL-2.0
-- SPDX-FileCopyrightText: 2024, Lionel Draghi
-- -----------------------------------------------------------------------------

with Ada.Characters.Handling;

separate (BBT.Main)

procedure Put_Settings is

   -- --------------------------------------------------------------------------
   function Checkbox (Switch : Boolean) return String is
     (if Switch then "[X]" else "[ ]");

   use Settings;
   use Ada.Text_IO;

begin
   New_Line;
   Put_Line ("Settings / Command line analysis:");
   Put_Line ("---------------------------------");
   New_Line;
   Put_Line ("   Verbosity             : " & IO.Current_Verbosity'Image);
   Put_Line ("   bbt files             : " & Scenarios.Files.BBT_Files'Image);
   Put_Line ("   Initial directory     : " & Launch_Directory);
   Put_Line ("   Exec    directory     : " & Settings.Exec_Dir);
   Put_Line ("   Output file directory : " & Settings.Output_File_Dir);
   Put_Line ("   Result directory      : " & Result_Dir);
   Put_Line ("   Result file           : " & Result_File_Name);
   Put_Line ("   Template_Name         : " & Template_Name);
   New_Line;
   Put_Line ("   " & Checkbox (Explain) & " Explain");
   Put_Line ("   " & Checkbox (Keep_Going) & " Keep_Going");
   Put_Line ("   " & Checkbox (Ignore_Errors) & " Ignore_Errors");
   Put_Line ("   " & Checkbox (Warnings_As_Errors) & " Warnings_As_Errors");
   Put_Line ("   " & Checkbox (No_File_Given) & " No_File_Given");
   Put_Line ("   " & Checkbox (Recursive) & " Recursive");
   Put_Line ("   " & Checkbox (Help_Needed) & " Help_Needed");
   Put_Line ("   " & Checkbox (List_Files) & " List_Files");
   Put_Line ("   " & Checkbox (Create_Template) & " Create_Template");
   Put_Line ("   " & Checkbox (List_Settings) & " List_Settings");
   Put_Line ("   " & Checkbox (List_Topics) & " List_Topics");
   Put_Line ("   " & Checkbox (List_Keywords) & " List_Keywords");
   Put_Line ("   " & Checkbox (List_Grammar) & " List_Grammar");
   Put_Line ("   " & Checkbox (Yes) & " Yes");
   Put_Line ("   " & Checkbox (Settings.Cleanup) & " Cleanup");
   Put_Line ("   " & Checkbox (Settings.Strict_Gherkin) & " Strict_Gherkin");
   Put_Line ("   " & Checkbox (Settings.Status_Bar) & " Status_Bar");
   --  Put_Line ("   Trace enabled for topics:");
   --  for T in IO.Extended_Topics loop
   --     Put_Line ("       " & Checkbox (IO.Is_Enabled (T))
   --               & " " & To_Lower (T'Image));
   --  end loop;
   New_Line;
   Put_Line ("---------------------------------");
   New_Line;

end Put_Settings;