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
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;
            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,