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: |
3a87f98cd6e6704cb85a1553b9385ecd |
User & Date: | nat 2017-07-02 20:05:03 |
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
Changes to src/lithium-comment_cookie_smaz-dictionary.sx.
1 | ( | | | | 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 | package body Lithium.Comment_Cookie_Smaz is package Sx renames Natools.S_Expressions; Dict : constant Natools.Smaz_64.Dictionary := (Last_Code => 60, | | | | | | | > | | | | 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; |
︙ | ︙ |