Natools

Check-in [b141a142f0]
Login
Overview
Comment:tools/smaz: fix direct dictionaries ignoring variable-length config
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: b141a142f0301e296d41eeba72328f032683e03b
User & Date: nat on 2016-11-21 20:40:15
Other Links: manifest | tags
Context
2016-11-22
20:04
smaz_tools: new package for dictionary-independent tools check-in: b87eafd22c user: nat tags: trunk
2016-11-21
20:40
tools/smaz: fix direct dictionaries ignoring variable-length config check-in: b141a142f0 user: nat tags: trunk
2016-11-20
20:20
smaz-tools: fix computation of the first score in Worst_Index check-in: 18a2c1690b user: nat tags: trunk
Changes

Modified tools/smaz.adb from [510dd5ee34] to [c51ed45f36].

742
743
744
745
746
747
748
749



750
751
752
753
754
755
756
742
743
744
745
746
747
748

749
750
751
752
753
754
755
756
757
758







-
+
+
+







     return Natools.Smaz.Dictionary
   is
      use type Natools.Smaz.Tools.String_Count;
      use type Dict_Sources.Enum;
   begin
      case Handler.Dict_Source is
         when Dict_Sources.S_Expression =>
            return Natools.Smaz.Tools.To_Dictionary (Input, True);
            return Natools.Smaz.Tools.To_Dictionary
              (Input,
               Handler.Vlen_Verbatim);

         when Dict_Sources.Text_List | Dict_Sources.Unoptimized_Text_List =>
            declare
               Counter : Natools.Smaz.Tools.Word_Counter;
            begin
               for S of Input loop
                  Natools.Smaz.Tools.Add_Substrings