A
26 lines
922 B
Ada
26 lines
922 B
Ada
with Alire.Compilers;
|
|
with Alire.Operating_Systems;
|
|
|
|
package Alire.Properties.Platform with Preelaborate is
|
|
|
|
package Compilers is new Values (Alire.Compilers.Compilers,
|
|
Alire.Compilers.Compilers'IMage);
|
|
package Operating_Systems is new Values (Alire.Operating_Systems.Operating_Systems,
|
|
Alire.Operating_Systems.Operating_Systems'Image);
|
|
|
|
function Current return Properties.Vector;
|
|
|
|
private
|
|
|
|
function System_Is (V : Alire.Operating_Systems.Operating_Systems) return Property'Class is
|
|
(Operating_Systems.New_Property (V));
|
|
|
|
function Compiler_Is (C : Alire.Compilers.Compilers) return Property'Class is
|
|
(Compilers.New_Property (C));
|
|
|
|
function Current return Properties.Vector is
|
|
(Compiler_Is (Alire.Compilers.Compiler) and
|
|
System_Is (Alire.Operating_Systems.Current));
|
|
|
|
end Alire.Properties.Platform;
|