Diff

Differences From Artifact [04050e6830]:

To Artifact [d0a77c36f9]:


45
46
47
48
49
50
51
52

53
54
55
56
57

58
59
60






61
62
63
64
65
66
67
45
46
47
48
49
50
51

52
53
54
55
56
57
58



59
60
61
62
63
64
65
66
67
68
69
70
71







-
+





+
-
-
-
+
+
+
+
+
+







		lappend lines $rowString
	}
	
	return [join $lines "\n"]
}

proc ::xvfs::binaryToCHex {binary {prefix ""} {width 10}} {
	binary scan $binary H* binary
	set binary [binary encode hex $binary]
	set output [list]

	set width [expr {$width * 2}]
	set stopAt [expr {$width - 1}]

	set offset 0
	while {$binary ne ""} {
		set row [string range $binary 0 $stopAt]
		set binary [string range $binary $width end]
	while 1 {
		set row [string range $binary $offset [expr {$offset + $stopAt}]]
		if {[string length $row] == 0} {
			break
		}
		incr offset [string length $row]

		set rowOutput [list]
		while {$row ne ""} {
			set value [string range $row 0 1]
			set row [string range $row 2 end]

			lappend rowOutput "\\x$value"