From 340e2c4c51d4b933269cff7d085c09ceb145631e Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Thu, 4 Nov 2021 18:15:08 +1300
Subject: Fixed HTML character encoding, question/answer format field parsing

---
 src/fmd.ads | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

(limited to 'src/fmd.ads')

diff --git a/src/fmd.ads b/src/fmd.ads
index fe720d5..1c64deb 100644
--- a/src/fmd.ads
+++ b/src/fmd.ads
@@ -118,15 +118,22 @@ private
 
 
 
-    procedure Escape
+    procedure Replace_All
            (Text : in out SU.Unbounded_String;
             Char : in     Character;
             Sub  : in     String)
     with Pre => Ada.Strings.Fixed.Count (Sub, Ada.Strings.Maps.To_Set (Char)) = 0;
 
 
-    procedure Standard_Escapes
-           (Text : in out SU.Unbounded_String);
+    procedure Replace_All
+           (Text : in out SU.Unbounded_String;
+            Item : in     String;
+            Sub  : in     String);
+
+
+    function Prep
+           (Text : in SU.Unbounded_String)
+        return SU.Unbounded_String;
 
 
 end FMD;
-- 
cgit