Mercurial > hg > egg-tcls

comparison utillib.tcl @ 609:a5e83abb51a8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
utillib: Add one HTML entity conversion.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 09 Feb 2021 00:13:42 +0200
parents 543f1d72361e
children a5c929a473ac
comparison
equal deleted inserted replaced
608:179fc8150090 609:a5e83abb51a8
16 append utl_html_ent_str "|&rdquo;|\"|&#8216;|'|&#xe4;|ä|&#xb7;|*|&#174;|®|&acute;|'" 16 append utl_html_ent_str "|&rdquo;|\"|&#8216;|'|&#xe4;|ä|&#xb7;|*|&#174;|®|&acute;|'"
17 append utl_html_ent_str "|&#246;|ö|&#xf6;|ö|&#35;|#|&apos;|'|&shy;||–|-" 17 append utl_html_ent_str "|&#246;|ö|&#xf6;|ö|&#35;|#|&apos;|'|&shy;||–|-"
18 append utl_html_ent_str "|&#x2026;|...|&hellip;|...|&#34;|\"|&#xad;||&#064;|#" 18 append utl_html_ent_str "|&#x2026;|...|&hellip;|...|&#34;|\"|&#xad;||&#064;|#"
19 append utl_html_ent_str "|&#xa0;| |&pound;|£|&#38;|&|&#158;|ž|&#196;|Ä|&#186;|º" 19 append utl_html_ent_str "|&#xa0;| |&pound;|£|&#38;|&|&#158;|ž|&#196;|Ä|&#186;|º"
20 append utl_html_ent_str "|&#8230;|...|&#47;|/|&#10;| |&#034;|\"|&#x27;|\"" 20 append utl_html_ent_str "|&#8230;|...|&#47;|/|&#10;| |&#034;|\"|&#x27;|\""
21 append utl_html_ent_str "|‘|'|’|'|”|\"|&scaron;|š|&Scaron;|Š|&#37;|%" 21 append utl_html_ent_str "|‘|'|’|'|”|\"|&scaron;|š|&Scaron;|Š|&#37;|%|&#214;|Ö"
22 22
23 set utl_html_ent_list [split [encoding convertfrom "utf-8" $utl_html_ent_str] "|"] 23 set utl_html_ent_list [split [encoding convertfrom "utf-8" $utl_html_ent_str] "|"]
24 24
25 25
26 # Convert given string, containing HTML/XML style entities into a normal 26 # Convert given string, containing HTML/XML style entities into a normal