add Tcl normalization

patch · patch · commit ff2fb40e9d6e · 2014-12-11T18:48:56.000-05:00
my first tcl code! @xantronix would be proud
diff --git a/README.md b/README.md
@@ -52,6 +52,7 @@ free to add or improve examples and new languages.
   [Python](normalization/python.md),
   [R](normalization/r.md),
   [Ruby](normalization/ruby.md)
+  [Tcl](normalization/tcl.md)
 
 7. **Letter casing**
 
diff --git a/normalization/tcl.md b/normalization/tcl.md
@@ -0,0 +1,13 @@
+# Unicode normalization in Tcl
+
+Unicode normalization is available in the tcllib package
+[unicode](http://tcllib.sourceforge.net/doc/unicode.html).
+
+```tcl
+package require unicode
+
+set nfd  [::unicode::normalizeS D  $str]
+set nfc  [::unicode::normalizeS C  $str]
+set nfkd [::unicode::normalizeS KD $str]
+set nfkc [::unicode::normalizeS KC $str]
+```
