Data update

Task/Unicode-strings/Tcl/unicode-strings.tcl

@@ -0,0 +1,52 @@
+# list of sequential integers
+proc range { n m } {
+    set res {}
+     while {$n <= $m} {lappend  res $n ; incr n }
+     return $res
+}
+
+# print utf-8 char from integer range
+proc utf8_range {n m {enc utf-8} } {
+
+    # save encoding
+    set old_enc  [encoding system]
+
+    set streams [list stdin stdout stderr]
+
+    # set new encoding
+    encoding system $enc
+
+    foreach stream $streams {
+	fconfigure $stream -encoding $enc
+    }
+
+    set n [range $n $m]
+
+    set len 0
+
+    # convert int to char in encoding
+    # print 30 per line
+    foreach c $n {
+	set s    [encoding convertto $enc $c]
+	set char [format %c $s]
+	puts -nonewline "${char}  "
+	if {[expr {$len % 19}] == 0} {puts ""}
+	incr len
+    }
+
+    puts ""
+
+    #restore encoding
+    foreach stream $streams {
+	fconfigure $stream -encoding $old_enc
+    }
+    encoding system $old_enc
+}
+
+
+# utf-8 graphics
+scan 2580 %x start
+scan 27FF %x stop
+
+puts "utf-8 glyphs"
+utf8_range $start $stop