mirror of
https://github.com/AdaCore/markdown.git
synced 2026-02-12 13:11:15 -08:00
28f618ce51
Add new testing executable. New procedure
Markdown.Parsers.GNATdoc_Enable
configures the parser to accept GNATdoc code blocks.
25 lines
707 B
Ada
25 lines
707 B
Ada
--
|
|
-- Copyright (C) 2021-2022, AdaCore
|
|
--
|
|
-- SPDX-License-Identifier: Apache-2.0
|
|
--
|
|
|
|
-- A variant of indented code blocks used in GNATdoc.
|
|
-- It's indented with 3 or more spaces
|
|
|
|
package Markdown.Implementation.Indented_Code_Blocks.GNATdoc is
|
|
pragma Preelaborate;
|
|
|
|
type GNATdoc_Code_Block is new Indented_Code_Block with null record;
|
|
|
|
overriding function Create
|
|
(Input : not null access Input_Position) return GNATdoc_Code_Block;
|
|
|
|
procedure Detector
|
|
(Input : Input_Position;
|
|
Tag : in out Ada.Tags.Tag;
|
|
CIP : out Can_Interrupt_Paragraph);
|
|
-- The detector procedure to find start of a gnatdoc code block
|
|
|
|
end Markdown.Implementation.Indented_Code_Blocks.GNATdoc;
|