mirror of
https://github.com/AdaCore/vss-extra.git
synced 2026-02-12 13:53:04 -08:00
38 lines
778 B
Ada
38 lines
778 B
Ada
--
|
|
-- Copyright (C) 2022-2025, AdaCore
|
|
--
|
|
-- SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
|
|
--
|
|
|
|
package body VSS.IRIs is
|
|
|
|
--------------
|
|
-- Is_Empty --
|
|
--------------
|
|
|
|
function Is_Empty (Self : IRI) return Boolean is
|
|
begin
|
|
return VSS.Strings.Virtual_String (Self).Is_Empty;
|
|
end Is_Empty;
|
|
|
|
------------
|
|
-- To_IRI --
|
|
------------
|
|
|
|
function To_IRI (Image : VSS.Strings.Virtual_String) return IRI is
|
|
begin
|
|
return (Image with null record);
|
|
end To_IRI;
|
|
|
|
-----------------------
|
|
-- To_Virtual_String --
|
|
-----------------------
|
|
|
|
function To_Virtual_String
|
|
(Self : IRI'Class) return VSS.Strings.Virtual_String is
|
|
begin
|
|
return VSS.Strings.Virtual_String (Self);
|
|
end To_Virtual_String;
|
|
|
|
end VSS.IRIs;
|