You are viewing a plain text version of this content. The canonical link for it is here.
Posted to site-cvs@tcl.apache.org by mx...@apache.org on 2016/02/26 08:48:53 UTC
svn commit: r1732431 - in /tcl/rivet/branches/2.3: ChangeLog
rivet/packages/asciiglyphs/asciiglyphs.tcl rivet/packages/hexglyphs/
Author: mxmanghi
Date: Fri Feb 26 07:48:52 2016
New Revision: 1732431
URL: http://svn.apache.org/viewvc?rev=1732431&view=rev
Log:
* rivet/packages/asciiglyphs.tcl: merging changes done in trunk
Removed:
tcl/rivet/branches/2.3/rivet/packages/hexglyphs/
Modified:
tcl/rivet/branches/2.3/ChangeLog
tcl/rivet/branches/2.3/rivet/packages/asciiglyphs/asciiglyphs.tcl
Modified: tcl/rivet/branches/2.3/ChangeLog
URL: http://svn.apache.org/viewvc/tcl/rivet/branches/2.3/ChangeLog?rev=1732431&r1=1732430&r2=1732431&view=diff
==============================================================================
--- tcl/rivet/branches/2.3/ChangeLog (original)
+++ tcl/rivet/branches/2.3/ChangeLog Fri Feb 26 07:48:52 2016
@@ -1,5 +1,8 @@
+2016-02-26 Massimo Manghi <mx...@apache.org>
+ * rivet/packages/asciiglyphs.tcl: merging changes done in trunk
+
2015-12-14 Massimo Manghi <mx...@apache.org>
- * rivet/packages/asciiglyphs.tcl: removed debugging lines
+ * rivet/packages/asciiglyphs/asciiglyphs.tcl: removed debugging lines
2015-12-09 Massimo Manghi <mx...@apache.org>
* rivet/packages/asciiglyphs.tcl: character selection mechanism amended
Modified: tcl/rivet/branches/2.3/rivet/packages/asciiglyphs/asciiglyphs.tcl
URL: http://svn.apache.org/viewvc/tcl/rivet/branches/2.3/rivet/packages/asciiglyphs/asciiglyphs.tcl?rev=1732431&r1=1732430&r2=1732431&view=diff
==============================================================================
--- tcl/rivet/branches/2.3/rivet/packages/asciiglyphs/asciiglyphs.tcl (original)
+++ tcl/rivet/branches/2.3/rivet/packages/asciiglyphs/asciiglyphs.tcl Fri Feb 26 07:48:52 2016
@@ -23,6 +23,13 @@
# of Richard Hipp
#
+# Usage:
+#
+# package require AsciiGlyphs
+#
+# ::AsciiGlyphs toGlyphs <string>
+#
+
namespace eval ::AsciiGlyphs:: {
variable ASCIIGLYPHS
@@ -49,10 +56,7 @@ namespace eval ::AsciiGlyphs:: {
variable ASCIIGLYPHS
variable glyphs_avail
- #if {![string is xdigit $c]}
- #puts -nonewline "'$c' -> "
if {[lsearch $glyphs_avail $c] < 0} {
- #return -code error -errocode invalid_char "Invalid non hexadecimal or non space character"
if {[string is space $c]} {
set c "space"
} elseif {$c == "\\"} {
---------------------------------------------------------------------
To unsubscribe, e-mail: site-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: site-cvs-help@tcl.apache.org