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
|