91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
Append_String'Result.Last_Code)
= Value;
-- Return a new dictionary with Value appended
type Dictionary_Counts is
array (Dictionary_Code) of Smaz_Tools.String_Count;
function Score_Encoded
(Dict : in Dictionary;
Counts : in Dictionary_Counts;
E : in Dictionary_Code)
return Smaz_Tools.Score_Value
is (Smaz_Tools.Score_Encoded (Counts (E), Dict_Entry_Length (Dict, E)));
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
Append_String'Result.Last_Code)
= Value;
-- Return a new dictionary with Value appended
type Dictionary_Counts is
array (Dictionary_Code) of Smaz_Tools.String_Count;
procedure Evaluate_Dictionary
(Dict : in Dictionary;
Corpus : in String_Lists.List;
Compressed_Size : out Ada.Streams.Stream_Element_Count;
Counts : out Dictionary_Counts);
procedure Evaluate_Dictionary_Partial
(Dict : in Dictionary;
Corpus_Entry : in String;
Compressed_Size : in out Ada.Streams.Stream_Element_Count;
Counts : in out Dictionary_Counts);
-- Compress all strings of Corpus, returning the total number of
-- compressed bytes and the number of uses for each dictionary
-- element.
function Worst_Index
(Dict : in Dictionary;
Counts : in Dictionary_Counts;
Method : in Smaz_Tools.Methods.Enum)
return Dictionary_Code;
-- Return the element with worst score
function Score_Encoded
(Dict : in Dictionary;
Counts : in Dictionary_Counts;
E : in Dictionary_Code)
return Smaz_Tools.Score_Value
is (Smaz_Tools.Score_Encoded (Counts (E), Dict_Entry_Length (Dict, E)));
|