mirror of
https://github.com/AdaCore/markdown.git
synced 2026-02-12 13:11:15 -08:00
39 lines
989 B
Ada
39 lines
989 B
Ada
--
|
|
-- Copyright (C) 2021-2023, AdaCore
|
|
--
|
|
-- SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
|
|
--
|
|
|
|
-- Internal representation of a block quote
|
|
|
|
package Markdown.Implementation.Quotes is
|
|
|
|
pragma Preelaborate;
|
|
|
|
type Quote is new Abstract_Container_Block with private;
|
|
-- The quote is a node for markdown block quote representation
|
|
|
|
type Quote_Access is access all Quote;
|
|
|
|
procedure Detector
|
|
(Input : Input_Position;
|
|
Tag : in out Ada.Tags.Tag;
|
|
CIP : out Can_Interrupt_Paragraph);
|
|
-- The detector procedure to find start of a block quote
|
|
|
|
procedure Initialize;
|
|
-- Prepare regexp patterns
|
|
|
|
private
|
|
type Quote is new Abstract_Container_Block with null record;
|
|
|
|
overriding function Create (Input : not null access Input_Position)
|
|
return Quote;
|
|
|
|
overriding procedure Consume_Continuation_Markers
|
|
(Self : in out Quote;
|
|
Input : in out Input_Position;
|
|
Ok : out Boolean);
|
|
|
|
end Markdown.Implementation.Quotes;
|