[Amsn-commits] SF.net SVN: amsn: [10090] trunk/amsn/gui.tcl

[<kak...@us...>]

Revision: 10090
          http://amsn.svn.sourceforge.net/amsn/?rev=10090&view=rev
Author:   kakaroto
Date:     2008-06-03 20:19:22 -0700 (Tue, 03 Jun 2008)

Log Message:
-----------
useful function to hexify even ascii chars...

Modified Paths:
--------------
    trunk/amsn/gui.tcl

Modified: trunk/amsn/gui.tcl
===================================================================
--- trunk/amsn/gui.tcl	2008-06-03 22:53:24 UTC (rev 10089)
+++ trunk/amsn/gui.tcl	2008-06-04 03:19:22 UTC (rev 10090)
@@ -8152,6 +8152,15 @@
 	set degt_command_window_visible 0
 }
 
+proc hexify_all { str } {
+	set out ""
+	for {set i 0} { $i < [string length $str] } { incr i} {
+		set c [string range $str $i $i]
+		binary scan $c H* h
+		append out "\[$h\]"
+	}
+	set out
+}
 proc hexify { str } {
 	set out ""
 	for {set i 0} { $i < [string length $str] } { incr i} {


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.