Natools

Check-in [105a5395c6]
Login
Overview
Comment:tools/smaz: use the new trie-based search in dictionary evaluation
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 105a5395c648b308e0ca8c3b8e63f20cb58ec884
User & Date: nat on 2016-10-19 20:24:17
Other Links: manifest | tags
Context
2016-10-20
20:15
smaz-tools: new primitive to filter substrings without enough counts check-in: f9d16b99f9 user: nat tags: trunk
2016-10-19
20:24
tools/smaz: use the new trie-based search in dictionary evaluation check-in: 105a5395c6 user: nat tags: trunk
2016-10-18
21:47
smaz-tools: add a trie-based search compatible with Dictionary.Hash check-in: 52b491f017 user: nat tags: trunk
Changes

Modified tools/smaz.adb from [7fd7c35276] to [ef8c32c6cd].

674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
                  end loop;

                  Print_Line (Original_Total, Output_Total, Base64_Total);
               end;
            end if;

         when Actions.Evaluate =>
            Natools.Smaz.Tools.Set_Dictionary_For_Map_Search (Dictionary);
            Dictionary.Hash := Natools.Smaz.Tools.Map_Search'Access;

            declare
               Total_Size : Ada.Streams.Stream_Element_Count;
               Counts : Natools.Smaz.Tools.Dictionary_Counts;
            begin
               if Handler.Job_Count > 0 then
                  Parallel_Evaluate_Dictionary (Handler.Job_Count,







|
|







674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
                  end loop;

                  Print_Line (Original_Total, Output_Total, Base64_Total);
               end;
            end if;

         when Actions.Evaluate =>
            Natools.Smaz.Tools.Set_Dictionary_For_Trie_Search (Dictionary);
            Dictionary.Hash := Natools.Smaz.Tools.Trie_Search'Access;

            declare
               Total_Size : Ada.Streams.Stream_Element_Count;
               Counts : Natools.Smaz.Tools.Dictionary_Counts;
            begin
               if Handler.Job_Count > 0 then
                  Parallel_Evaluate_Dictionary (Handler.Job_Count,