From 08c1ae52231c2caa11273dfb3868209e41d39a02 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
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 <kaz@kylheku.com>
+
+ 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 <kaz@kylheku.com>
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