Alejandro R Mosteo
21 lines
652 B
Ada
21 lines
652 B
Ada
with Alire.Origins;
|
|
|
|
package Alire.Platform with Preelaborate is
|
|
|
|
-- This interface encapsulates what a supported platform must provide for use in Alire, and a way
|
|
-- to hook it after elaboration
|
|
|
|
type Supported_Platform is interface;
|
|
|
|
function Package_Version (P : Supported_Platform;
|
|
Origin : Origins.Origin)
|
|
return String is abstract;
|
|
|
|
procedure Set (P : Supported_Platform'Class);
|
|
|
|
function Current return Supported_Platform'Class
|
|
with Pre => Platform'Elaborated;
|
|
-- Always valid, because at worst a dummy do-nothign one is returned
|
|
|
|
end Alire.Platform;
|