Natools

     return Natools.Smaz_Implementations.Base_64_Tools.Base_64_Digit
     is (Dict.Last_Code);
   function Last_Code (Dict : in Natools.Smaz.Dictionary)
     return Ada.Streams.Stream_Element
     is (Dict.Dict_Last);
      --  Return the last valid entry

   function Length (Dict : in Natools.Smaz_256.Dictionary) return Positive
     is (Dict.Offsets'Length + 1);
   function Length (Dict : in Natools.Smaz_4096.Dictionary) return Positive
     is (Dict.Offsets'Length + 1);
   function Length (Dict : in Natools.Smaz_64.Dictionary) return Positive
     is (Dict.Offsets'Length + 1);
   function Length (Dict : in Natools.Smaz.Dictionary) return Positive
     is (Dict.Offsets'Length);
      --  Return the number of entries in Dict

   procedure Print_Dictionary
     (Output : in Ada.Text_IO.File_Type;
      Dictionary : in Natools.Smaz_256.Dictionary;
      Hash_Package_Name : in String := "");
   procedure Print_Dictionary
     (Output : in Ada.Text_IO.File_Type;
      Dictionary : in Natools.Smaz_4096.Dictionary;

         Counts : in out Dictionary_Counts);

      with procedure Filter_By_Count
        (Counter : in out Word_Counter;
         Threshold_Count : in String_Count);

      with function Last_Code (Dict : in Dictionary) return Dictionary_Entry;

      with function Length (Dict : in Dictionary) return Positive is <>;

      with procedure Print_Dictionary
        (Output : in Ada.Text_IO.File_Type;
         Dict : in Dictionary;
         Hash_Package_Name : in String := "")
        is <>;

         --  Convert the input into a dictionary given the option in Handler

   end Dictionary_Subprograms;



   package body Dictionary_Subprograms is
      pragma Unreferenced (Length);

      function Adjust_Dictionary
        (Handler : in Callback'Class;
         Dict : in Dictionary;
         Corpus : in String_Lists.List;
         Method : in Methods)
        return Dictionary is