mirror of
https://github.com/AdaCore/markdown.git
synced 2026-02-12 13:11:15 -08:00
63 lines
1.5 KiB
Ada
63 lines
1.5 KiB
Ada
--
|
|
-- Copyright (C) 2021-2024, AdaCore
|
|
--
|
|
-- SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
|
|
--
|
|
|
|
with System.Atomic_Counters;
|
|
|
|
package body Markdown.Blocks.HTML is
|
|
|
|
------------
|
|
-- Adjust --
|
|
------------
|
|
|
|
overriding procedure Adjust (Self : in out HTML_Block) is
|
|
begin
|
|
if Is_Assigned (Self.Data) then
|
|
System.Atomic_Counters.Increment (Self.Data.Counter);
|
|
end if;
|
|
end Adjust;
|
|
|
|
--------------
|
|
-- Finalize --
|
|
--------------
|
|
|
|
overriding procedure Finalize (Self : in out HTML_Block) is
|
|
begin
|
|
if Is_Assigned (Self.Data) then
|
|
if System.Atomic_Counters.Decrement (Self.Data.Counter) then
|
|
Markdown.Implementation.Free
|
|
(Markdown.Implementation.Abstract_Block_Access (Self.Data));
|
|
|
|
else
|
|
Self.Data := null;
|
|
end if;
|
|
end if;
|
|
end Finalize;
|
|
|
|
----------------
|
|
-- From_Block --
|
|
----------------
|
|
|
|
function From_Block (Self : Markdown.Blocks.Block)
|
|
return HTML_Block is
|
|
begin
|
|
System.Atomic_Counters.Increment (Self.Data.Counter);
|
|
|
|
return (Ada.Finalization.Controlled with Data =>
|
|
HTML_Block_Access (Self.Data));
|
|
end From_Block;
|
|
|
|
--------------
|
|
-- To_Block --
|
|
--------------
|
|
|
|
function To_Block (Self : HTML_Block) return Markdown.Blocks.Block is
|
|
begin
|
|
return (Ada.Finalization.Controlled with Data =>
|
|
Markdown.Implementation.Abstract_Block_Access (Self.Data));
|
|
end To_Block;
|
|
|
|
end Markdown.Blocks.HTML;
|