Natools

Check-in [15ea367b55]
Login
Overview
Comment:tools/smaz: also add words from input phrases, on top of substrings
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 15ea367b55b12f816b2bf49b1dc90c796f19e3d7
User & Date: nat on 2016-10-03 19:27:39
Other Links: manifest | tags
Context
2016-10-04
15:14
tools/smaz: add command-line options for substring size interval check-in: 9a1462e3f3 user: nat tags: trunk
2016-10-03
19:27
tools/smaz: also add words from input phrases, on top of substrings check-in: 15ea367b55 user: nat tags: trunk
2016-10-02
16:10
smaz-tools: new primitive to add all the words of an input text check-in: efffae966f user: nat tags: trunk
Changes

Modified tools/smaz.adb from [c569e6f5c9] to [edede487cd].

328
329
330
331
332
333
334

335
336
337
338
339
340
341

         when Dict_Sources.Word_List =>
            declare
               Counter : Natools.Smaz.Tools.Word_Counter;
            begin
               for S of Input loop
                  Natools.Smaz.Tools.Add_Substrings (Counter, S, 1, 3);

               end loop;

               return Natools.Smaz.Tools.To_Dictionary
                 (Natools.Smaz.Tools.Simple_Dictionary (Counter, 254),
                  True);
            end;
      end case;







>







328
329
330
331
332
333
334
335
336
337
338
339
340
341
342

         when Dict_Sources.Word_List =>
            declare
               Counter : Natools.Smaz.Tools.Word_Counter;
            begin
               for S of Input loop
                  Natools.Smaz.Tools.Add_Substrings (Counter, S, 1, 3);
                  Natools.Smaz.Tools.Add_Words (Counter, S, 4, 10);
               end loop;

               return Natools.Smaz.Tools.To_Dictionary
                 (Natools.Smaz.Tools.Simple_Dictionary (Counter, 254),
                  True);
            end;
      end case;