From 08c1ae52231c2caa11273dfb3868209e41d39a02 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 25 Sep 2011 11:48:27 -0700 Subject: Filtering from HTML implemented. * filter.c (from_html_k): New variable. (to_html_table): New static array. (filter_init): Intern new symbol. Instantiate new filter and store in filters hash. --- ChangeLog | 9 ++ filter.c | 281 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++--- filter.h | 2 +- 3 files changed, 280 insertions(+), 12 deletions(-) diff --git a/ChangeLog b/ChangeLog index b22ba7c5..ccff56ff 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,12 @@ +2011-09-25 Kaz Kylheku + + Filtering from HTML implemented. + + * filter.c (from_html_k): New variable. + (to_html_table): New static array. + (filter_init): Intern new symbol. Instantiate new filter + and store in filters hash. + 2011-09-25 Kaz Kylheku Filtering feature for variable substitution in output. diff --git a/filter.c b/filter.c index 6b253473..dc09a8fe 100644 --- a/filter.c +++ b/filter.c @@ -89,14 +89,6 @@ static val build_filter(struct filter_pair *pair) return trie; } -static struct filter_pair to_html_table[] = { - { L"<", L"<" }, - { L">", L">" }, - { L"&", L"&" }, - { L"\"", L""" }, - { 0, 0 } -}; - static val trie_filter_string(val filter, val str) { val len = length_str(str); @@ -137,9 +129,6 @@ static val trie_filter_string(val filter, val str) return out; } -val filters; -val filter_k, to_html_k; - val filter_string(val filter, val str) { val type = typeof(filter); @@ -154,10 +143,280 @@ val filter_string(val filter, val str) uw_throwf(error_s, lit("filter_string: invalid filter ~a"), filter, nao); } +static struct filter_pair to_html_table[] = { + { L"<", L"<" }, + { L">", L">" }, + { L"&", L"&" }, + { L"\"", L""" }, + { 0, 0 } +}; + +static struct filter_pair from_html_table[] = { + { L""", L"\"" }, + { L"&", L"&" }, + { L"'", L"'" }, + { L"<", L"<" }, + { L">", L">" }, + { L" ", L"\x00A0" }, + { L"¡", L"\x00A1" }, + { L"¢", L"\x00A2" }, + { L"£", L"\x00A3" }, + { L"¤", L"\x00A4" }, + { L"¥", L"\x00A5" }, + { L"¦", L"\x00A6" }, + { L"§", L"\x00A7" }, + { L"¨", L"\x00A8" }, + { L"©", L"\x00A9" }, + { L"ª", L"\x00AA" }, + { L"«", L"\x00AB" }, + { L"¬", L"\x00AC" }, + { L"­", L"\x00AD" }, + { L"®", L"\x00AE" }, + { L"¯", L"\x00AF" }, + { L"°", L"\x00B0" }, + { L"±", L"\x00B1" }, + { L"²", L"\x00B2" }, + { L"³", L"\x00B3" }, + { L"´", L"\x00B4" }, + { L"µ", L"\x00B5" }, + { L"¶", L"\x00B6" }, + { L"·", L"\x00B7" }, + { L"¸", L"\x00B8" }, + { L"¹", L"\x00B9" }, + { L"º", L"\x00BA" }, + { L"»", L"\x00BB" }, + { L"¼", L"\x00BC" }, + { L"½", L"\x00BD" }, + { L"¾", L"\x00BE" }, + { L"¿", L"\x00BF" }, + { L"À", L"\x00C0" }, + { L"Á", L"\x00C1" }, + { L"Â", L"\x00C2" }, + { L"Ã", L"\x00C3" }, + { L"Ä", L"\x00C4" }, + { L"Å", L"\x00C5" }, + { L"Æ", L"\x00C6" }, + { L"Ç", L"\x00C7" }, + { L"È", L"\x00C8" }, + { L"É", L"\x00C9" }, + { L"Ê", L"\x00CA" }, + { L"Ë", L"\x00CB" }, + { L"Ì", L"\x00CC" }, + { L"Í", L"\x00CD" }, + { L"Î", L"\x00CE" }, + { L"Ï", L"\x00CF" }, + { L"Ð", L"\x00D0" }, + { L"Ñ", L"\x00D1" }, + { L"Ò", L"\x00D2" }, + { L"Ó", L"\x00D3" }, + { L"Ô", L"\x00D4" }, + { L"Õ", L"\x00D5" }, + { L"Ö", L"\x00D6" }, + { L"×", L"\x00D7" }, + { L"Ø", L"\x00D8" }, + { L"Ù", L"\x00D9" }, + { L"Ú", L"\x00DA" }, + { L"Û", L"\x00DB" }, + { L"Ü", L"\x00DC" }, + { L"Ý", L"\x00DD" }, + { L"Þ", L"\x00DE" }, + { L"ß", L"\x00DF" }, + { L"à", L"\x00E0" }, + { L"á", L"\x00E1" }, + { L"â", L"\x00E2" }, + { L"ã", L"\x00E3" }, + { L"ä", L"\x00E4" }, + { L"å", L"\x00E5" }, + { L"æ", L"\x00E6" }, + { L"ç", L"\x00E7" }, + { L"è", L"\x00E8" }, + { L"é", L"\x00E9" }, + { L"ê", L"\x00EA" }, + { L"ë", L"\x00EB" }, + { L"ì", L"\x00EC" }, + { L"í", L"\x00ED" }, + { L"î", L"\x00EE" }, + { L"ï", L"\x00EF" }, + { L"ð", L"\x00F0" }, + { L"ñ", L"\x00F1" }, + { L"ò", L"\x00F2" }, + { L"ó", L"\x00F3" }, + { L"ô", L"\x00F4" }, + { L"õ", L"\x00F5" }, + { L"ö", L"\x00F6" }, + { L"÷", L"\x00F7" }, + { L"ø", L"\x00F8" }, + { L"ù", L"\x00F9" }, + { L"ú", L"\x00FA" }, + { L"û", L"\x00FB" }, + { L"ü", L"\x00FC" }, + { L"ý", L"\x00FD" }, + { L"þ", L"\x00FE" }, + { L"ÿ", L"\x00FF" }, + { L"Œ", L"\x0152" }, + { L"œ", L"\x0153" }, + { L"Š", L"\x0160" }, + { L"š", L"\x0161" }, + { L"Ÿ", L"\x0178" }, + { L"ƒ", L"\x0192" }, + { L"ˆ", L"\x02C6" }, + { L"˜", L"\x02DC" }, + { L"Α", L"\x0391" }, + { L"Β", L"\x0392" }, + { L"Γ", L"\x0393" }, + { L"Δ", L"\x0394" }, + { L"Ε", L"\x0395" }, + { L"Ζ", L"\x0396" }, + { L"Η", L"\x0397" }, + { L"Θ", L"\x0398" }, + { L"Ι", L"\x0399" }, + { L"Κ", L"\x039A" }, + { L"Λ", L"\x039B" }, + { L"Μ", L"\x039C" }, + { L"Ν", L"\x039D" }, + { L"Ξ", L"\x039E" }, + { L"Ο", L"\x039F" }, + { L"Π", L"\x03A0" }, + { L"Ρ", L"\x03A1" }, + { L"Σ", L"\x03A3" }, + { L"Τ", L"\x03A4" }, + { L"Υ", L"\x03A5" }, + { L"Φ", L"\x03A6" }, + { L"Χ", L"\x03A7" }, + { L"Ψ", L"\x03A8" }, + { L"Ω", L"\x03A9" }, + { L"α", L"\x03B1" }, + { L"β", L"\x03B2" }, + { L"γ", L"\x03B3" }, + { L"δ", L"\x03B4" }, + { L"ε", L"\x03B5" }, + { L"ζ", L"\x03B6" }, + { L"η", L"\x03B7" }, + { L"θ", L"\x03B8" }, + { L"ι", L"\x03B9" }, + { L"κ", L"\x03BA" }, + { L"λ", L"\x03BB" }, + { L"μ", L"\x03BC" }, + { L"ν", L"\x03BD" }, + { L"ξ", L"\x03BE" }, + { L"ο", L"\x03BF" }, + { L"π", L"\x03C0" }, + { L"ρ", L"\x03C1" }, + { L"ς", L"\x03C2" }, + { L"σ", L"\x03C3" }, + { L"τ", L"\x03C4" }, + { L"υ", L"\x03C5" }, + { L"φ", L"\x03C6" }, + { L"χ", L"\x03C7" }, + { L"ψ", L"\x03C8" }, + { L"ω", L"\x03C9" }, + { L"ϑ", L"\x03D1" }, + { L"ϒ", L"\x03D2" }, + { L"ϖ", L"\x03D6" }, + { L" ", L"\x2002" }, + { L" ", L"\x2003" }, + { L" ", L"\x2009" }, + { L"‌", L"\x200C" }, + { L"‍", L"\x200D" }, + { L"‎", L"\x200E" }, + { L"‏", L"\x200F" }, + { L"–", L"\x2013" }, + { L"—", L"\x2014" }, + { L"‘", L"\x2018" }, + { L"’", L"\x2019" }, + { L"‚", L"\x201A" }, + { L"“", L"\x201C" }, + { L"”", L"\x201D" }, + { L"„", L"\x201E" }, + { L"†", L"\x2020" }, + { L"‡", L"\x2021" }, + { L"•", L"\x2022" }, + { L"…", L"\x2026" }, + { L"‰", L"\x2030" }, + { L"′", L"\x2032" }, + { L"″", L"\x2033" }, + { L"‹", L"\x2039" }, + { L"›", L"\x203A" }, + { L"‾", L"\x203E" }, + { L"⁄", L"\x2044" }, + { L"€", L"\x20AC" }, + { L"ℑ", L"\x2111" }, + { L"℘", L"\x2118" }, + { L"ℜ", L"\x211C" }, + { L"™", L"\x2122" }, + { L"ℵ", L"\x2135" }, + { L"←", L"\x2190" }, + { L"↑", L"\x2191" }, + { L"→", L"\x2192" }, + { L"↓", L"\x2193" }, + { L"↔", L"\x2194" }, + { L"↵", L"\x21B5" }, + { L"⇐", L"\x21D0" }, + { L"⇑", L"\x21D1" }, + { L"⇒", L"\x21D2" }, + { L"⇓", L"\x21D3" }, + { L"⇔", L"\x21D4" }, + { L"∀", L"\x2200" }, + { L"∂", L"\x2202" }, + { L"∃", L"\x2203" }, + { L"∅", L"\x2205" }, + { L"∇", L"\x2207" }, + { L"∈", L"\x2208" }, + { L"∉", L"\x2209" }, + { L"∋", L"\x220B" }, + { L"∏", L"\x220F" }, + { L"∑", L"\x2211" }, + { L"−", L"\x2212" }, + { L"∗", L"\x2217" }, + { L"√", L"\x221A" }, + { L"∝", L"\x221D" }, + { L"∞", L"\x221E" }, + { L"∠", L"\x2220" }, + { L"∧", L"\x2227" }, + { L"∨", L"\x2228" }, + { L"∩", L"\x2229" }, + { L"∪", L"\x222A" }, + { L"∫", L"\x222B" }, + { L"∴", L"\x2234" }, + { L"∼", L"\x223C" }, + { L"≅", L"\x2245" }, + { L"≈", L"\x2248" }, + { L"≠", L"\x2260" }, + { L"≡", L"\x2261" }, + { L"≤", L"\x2264" }, + { L"≥", L"\x2265" }, + { L"⊂", L"\x2282" }, + { L"⊃", L"\x2283" }, + { L"⊄", L"\x2284" }, + { L"⊆", L"\x2286" }, + { L"⊇", L"\x2287" }, + { L"⊕", L"\x2295" }, + { L"⊗", L"\x2297" }, + { L"⊥", L"\x22A5" }, + { L"⋅", L"\x22C5" }, + { L"⌈", L"\x2308" }, + { L"⌉", L"\x2309" }, + { L"⌊", L"\x230A" }, + { L"⌋", L"\x230B" }, + { L"⟨", L"\x2329" }, + { L"⟩", L"\x232A" }, + { L"◊", L"\x25CA" }, + { L"♠", L"\x2660" }, + { L"♣", L"\x2663" }, + { L"♥", L"\x2665" }, + { L"♦", L"\x2666" }, + { 0, 0 } +}; + +val filters; +val filter_k, to_html_k, from_html_k; + void filter_init(void) { filters = make_hash(nil, nil); filter_k = intern(lit("filter"), keyword_package); to_html_k = intern(lit("to_html"), keyword_package); + from_html_k = intern(lit("from_html"), keyword_package); sethash(filters, to_html_k, build_filter(to_html_table)); + sethash(filters, from_html_k, build_filter(from_html_table)); } diff --git a/filter.h b/filter.h index f8d86632..dca864a3 100644 --- a/filter.h +++ b/filter.h @@ -25,7 +25,7 @@ */ extern val filters; -extern val filter_k, to_html_k; +extern val filter_k, to_html_k, from_html_k; val trie_lookup_begin(val trie); val trie_value_at(val node); -- cgit v1.2.3