Natools

Check-in [fe798b80fc]
Login
Overview
Comment:tools/smaz: remove debug trace left over
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: fe798b80fc9938f8ccee8c1749b6718dfa0cc97a
User & Date: nat on 2017-06-16 21:17:04
Other Links: manifest | tags
Context
2017-06-17
19:33
s_expressions-conditionals-strings: add an equality test check-in: 87228b7a84 user: nat tags: trunk
2017-06-16
21:17
tools/smaz: remove debug trace left over check-in: fe798b80fc user: nat tags: trunk
2017-06-15
19:23
string_slice_tests: test the new callback-based constructor check-in: 4b6433de7a user: nat tags: trunk
Changes

Modified tools/smaz.adb from [301a580fd7] to [0491464034].

636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
                        (Score - Old_Score)
                     & ')');
               end if;
            end;
         end loop;

         if Length (Original) < Max_Dict_Size then
            Ada.Text_IO.Put_Line
              (Ada.Text_IO.Current_Error,
               "Condiering adding to dictionary");
            for Position in Pending_Words.Iterate loop
               declare
                  Word : constant String := String_Lists.Element (Position);
                  New_Dict : constant Dictionary
                    := Append_String (Original, Word);
                  New_Score : Ada.Streams.Stream_Element_Count;
                  New_Counts : Dictionary_Counts;







<
<
<







636
637
638
639
640
641
642



643
644
645
646
647
648
649
                        (Score - Old_Score)
                     & ')');
               end if;
            end;
         end loop;

         if Length (Original) < Max_Dict_Size then



            for Position in Pending_Words.Iterate loop
               declare
                  Word : constant String := String_Lists.Element (Position);
                  New_Dict : constant Dictionary
                    := Append_String (Original, Word);
                  New_Score : Ada.Streams.Stream_Element_Count;
                  New_Counts : Dictionary_Counts;