lithium3

Check-in [3a87f98cd6]
Login

Check-in [3a87f98cd6]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:lithium-comment_cookie_smaz: improve dictionary
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 3a87f98cd6e6704cb85a1553b9385ecd3e824f18
User & Date: nat 2017-07-02 20:05:03.402
Context
2019-03-03
19:37
lithium-markdown: add a "spoiler" span element, marked by double '%' check-in: 00a97167e5 user: nat tags: trunk
2017-07-02
20:05
lithium-comment_cookie_smaz: improve dictionary check-in: 3a87f98cd6 user: nat tags: trunk
2017-07-01
21:22
lithium-exception_log: dump request data on exception and log it check-in: 193f2223bf user: nat tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/lithium-comment_cookie_smaz-dictionary.sx. 
1
2
3
4
5
6
7
8
9
10

(
"legacy-comment"
"comment-markdown"
"e"
"o"
"a"
"t"
"m"
"c"
"n"


|
|








1
2
3
4
5
6
7
8
9
10

(
"legacy-comment "
"comment-markdown "
"e"
"o"
"a"
"t"
"m"
"c"
"n"
︙︙
Changes to src/lithium-comment_cookie_smaz.adb.
︙︙
20
21
22
23
24
25
26
27
28
29
30
31
32
33

34
35
36
37
38
39
40
41
42
43


package body Lithium.Comment_Cookie_Smaz is

   package Sx renames Natools.S_Expressions;

   Dict : constant Natools.Smaz_64.Dictionary
     := (Last_Code => 60,
         Values_Last => 128,
         Variable_Length_Verbatim => False,
         Max_Word_Length => 16,
         Offsets => (15, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43,
            44, 45, 46, 48, 49, 50, 51, 52, 55, 56, 58, 60, 62, 63, 64, 65, 66,
            68, 69, 71, 73, 75, 78, 82, 86, 91, 94, 97, 98, 100, 102, 104, 106,
            107, 109, 111, 112, 115, 116, 117, 119, 120, 122, 124, 126, 128),

         Values => "legacy-commentcomment-markdowneoatmcn rlghsi.omp-u/comyen"
            & "leacf""@dmabfrroou://httpbloggmailwww.frkinrior ""zonanwnetxjr"
            & "eveecheris_",
         Hash => Lithium.Comment_Cookie_Smaz_Hash.Hash'Access);

   function Encoder (Data : in Natools.S_Expressions.Atom) return String is
   begin
      return Key & Sx.To_String (Natools.Smaz_64.Compress
        (Dict, Sx.To_String (Data)));
   end Encoder;








|

|
|
|
|
|
>
|
|
|








20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44


package body Lithium.Comment_Cookie_Smaz is

   package Sx renames Natools.S_Expressions;

   Dict : constant Natools.Smaz_64.Dictionary
     := (Last_Code => 60,
         Values_Last => 130,
         Variable_Length_Verbatim => False,
         Max_Word_Length => 17,
         Offsets => (16, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45,
            46, 47, 48, 50, 51, 52, 53, 54, 57, 58, 60, 62, 64, 65, 66, 67, 68,
            70, 71, 73, 75, 77, 80, 84, 88, 93, 96, 99, 100, 102, 104, 106,
            108, 109, 111, 113, 114, 117, 118, 119, 121, 122, 124, 126, 128,
            130),
         Values => "legacy-comment comment-markdown eoatmcn rlghsi.omp-u/comy"
            & "enleacf""@dmabfrroou://httpbloggmailwww.frkinrior ""zonanwnetx"
            & "jreveecheris_",
         Hash => Lithium.Comment_Cookie_Smaz_Hash.Hash'Access);

   function Encoder (Data : in Natools.S_Expressions.Atom) return String is
   begin
      return Key & Sx.To_String (Natools.Smaz_64.Compress
        (Dict, Sx.To_String (Data)));
   end Encoder;
︙︙