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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
|
with Alire.Config.Edit;
with Alire.Index;
with Alire.Index_On_Disk.Loading;
with Alire.Milestones;
with Alire.Properties;
with Alire.Roots.Optional;
with Alire.Toolchains;
with Alire.Utils.Tables;
with Alr.Bootstrap;
with Alr.Paths;
with GNAT.Compiler_Version;
with GNAT.Source_Info;
with CLIC.User_Input;
package body Alr.Commands.Version is
package GNAT_Version is new GNAT.Compiler_Version;
-------------
-- Execute --
-------------
overriding
procedure Execute (Cmd : in out Command;
Args : AAA.Strings.Vector)
is
use all type Alire.Roots.Optional.States;
Table : Alire.Utils.Tables.Table;
Index_Outcome : Alire.Outcome;
Indexes : constant Alire.Index_On_Disk.Loading.Set :=
Alire.Index_On_Disk.Loading.Find_All
(Alire.Config.Edit.Indexes_Directory, Index_Outcome);
Root : constant Alire.Roots.Optional.Root :=
Alire.Roots.Optional.Search_Root (Alire.Directories.Current);
begin
if Args.Count /= 0 then
Reportaise_Wrong_Arguments (Cmd.Name & " doesn't take arguments");
end if;
Table.Append ("APPLICATION").Append ("").New_Row;
Table.Append ("alr version:").Append (Alire.Version.Current).New_Row;
Table.Append ("libalire version:")
.Append (Alire.Version.Current).New_Row;
Table.Append ("compilation date:")
.Append (GNAT.Source_Info.Compilation_ISO_Date & " "
& GNAT.Source_Info.Compilation_Time).New_Row;
Table.Append ("compiler version:").Append (GNAT_Version.Version).New_Row;
Table.Append ("").New_Row;
Table.Append ("CONFIGURATION").New_Row;
Table.Append ("config folder:").Append (Paths.Alr_Config_Folder).New_Row;
Table.Append ("force flag:").Append (Alire.Force'Image).New_Row;
Table.Append ("non-interactive flag:")
.Append (CLIC.User_Input.Not_Interactive'Image).New_Row;
Table.Append ("community index branch:")
.Append (Alire.Index.Community_Branch).New_Row;
Table.Append ("compatible index versions:")
.Append (Alire.Index.Valid_Versions.Image).New_Row;
Table.Append ("indexes folder:")
.Append (Alire.Config.Edit.Indexes_Directory).New_Row;
Table.Append ("indexes metadata:")
.Append (if Index_Outcome.Success
then "OK"
else "ERROR: " & Index_Outcome.Message).New_Row;
for Index of Indexes loop
Table.Append ("index #"
& AAA.Strings.Trim (Index.Priority'Image) & ":")
.Append ("(" & Index.Name & ") " & Index.Origin).New_Row;
end loop;
Table.Append ("toolchain assistant:")
.Append (if Alire.Toolchains.Assistant_Enabled
then "enabled"
else "disabled").New_Row;
declare
I : Positive := 1;
begin
for Tool of Alire.Toolchains.Tools loop
Table
.Append ("tool #" & AAA.Strings.Trim (I'Image)
& " " & Tool.As_String & ":")
.Append (if Alire.Toolchains.Tool_Is_Configured (Tool)
then Alire.Toolchains.Tool_Milestone (Tool).Image
else "not configured").New_Row;
I := I + 1;
end loop;
end;
Table.Append ("").New_Row;
Table.Append ("WORKSPACE").New_Row;
Table.Append ("root status:")
.Append (Root.Status'Image).New_Row;
Table.Append ("root release:")
.Append (case Root.Status is
when Valid => Root.Value.Release.Milestone.Image,
when others => "N/A").New_Row;
Table.Append ("root load error:")
.Append (case Root.Status is
when Broken => Cmd.Optional_Root.Message,
when Valid => "none",
when Outside => "N/A").New_Row;
Table.Append ("root folder:")
.Append (case Root.Status is
when Outside => "N/A",
when Broken => "N/A",
when Valid => Root.Value.Path).New_Row;
Table.Append ("current folder:").Append (Alire.Directories.Current)
.New_Row;
Table.Append ("").New_Row;
Table.Append ("SYSTEM").New_Row;
for Prop of Platform.Properties loop
Table.Append (Prop.Key & ":").Append (Prop.Image).New_Row;
end loop;
Table.Print (Level => Always);
exception
when E : others =>
Alire.Log_Exception (E);
Trace.Error ("Unexpected error during information gathering");
Trace.Error ("Gathered information up to the error is:");
Table.Print (Level => Always);
raise;
end Execute;
----------------------
-- Long_Description --
----------------------
overriding
function Long_Description (Cmd : Command)
return AAA.Strings.Vector is
(AAA.Strings.Empty_Vector
.Append ("Shows assorted metadata about the alr executable,"
& " and about the crate or sandbox found in the current"
& " directory, if any."));
-------------------
-- Print_Version --
-------------------
procedure Print_Version is
begin
Trace.Always ("alr " & Alire.Version.Current);
end Print_Version;
end Alr.Commands.Version;
|
