Fixed HTML character encoding, question/answer format field parsing

1 files changed, 10 insertions, 3 deletions

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;