Check-in [2176e9cacf]
Overview
Comment:Sped up encoding files
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 2176e9cacfff53e974e245b17478b4282b887de9eb49bdf643b939f872608ae6
User & Date: rkeene on 2019-09-18 04:59:02
Other Links: manifest | tags
Context
2019-09-18
05:25
Fixed issue with client server mode not canonicalizing the path check-in: 4221e5dcbc user: rkeene tags: trunk
04:59
Sped up encoding files check-in: 2176e9cacf user: rkeene tags: trunk
00:14
More benchmarks check-in: 200a60c198 user: rkeene tags: trunk
Changes

Modified lib/xvfs/xvfs.tcl from [04050e6830] to [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"