--  (C) Copyright 2000 by John Halleck.  All Rights Reserved.
--  Definitions to deal with contractions.

package Braille.Contractions is
   pragma Pure (Braille.Contractions);

   type Context is (Normal,     --  Just a character.
                    Whole_Word, --  Character pretending to be a full word.
                    Initial,    --  Initial contraction.
                    Initial_5,     -- Dot_5 initial contraction.
                    Initial_45,    -- Dot_45 Initial contraction.
                    Initial_456,   -- Dots 456 initial contraction.
                    Final,      --  Final contraction.
                    Final_46,      -- Dots 46 Final contraction.
                    Final_56,      -- Dots 56 Final contraction.
                    Final_6,       -- Dot 6 Final contraction.
                    Numeric     --  Number symbol.
                   );

   function To_Print (Given : Cell; Found : Context) return String;
  
end Braille.Contractions;