Check-in [c07e032cc7]
Overview
Comment:Merged in start of network branch
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: c07e032cc7e162efe1eec0169610bbe8e585641e274e747b007fe93bc6f41ff0
User & Date: rkeene on 2018-07-12 21:18:32
Other Links: manifest | tags
Context
2018-07-16
22:03
Added start of documenting the network protocol check-in: 343acb481b user: rkeene tags: trunk
2018-07-12
21:18
Merged in start of network branch check-in: c07e032cc7 user: rkeene tags: trunk
21:17
Document the speed-up hack a bit check-in: 6a9bfc7036 user: rkeene tags: trunk
2018-07-08
21:17
Started work on network support Closed-Leaf check-in: 3a98748881 user: rkeene tags: network
Changes

Modified nano.tcl from [732975759f] to [cc57af0c09].

1752
1753
1754
1755
1756
1757
1758

























	set balance [join [list $leading $trailing] "."]
	set balance [string trimright $balance "."]

	set result [list $balance $baseUnit]

	return $result
}
































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
	set balance [join [list $leading $trailing] "."]
	set balance [string trimright $balance "."]

	set result [list $balance $baseUnit]

	return $result
}

proc ::nano::network::_read {fd bytes} {
	if {[chan configure $fd -blocking]} {
		tailcall ::read $fd $bytes
	}

	set data ""
	while {$bytes > 0} {
		set readData [read $fd $bytes]
		if {[string length $readData] == 0} {
			if {[eof $fd]} {
				break
			} else {
				update

				continue
			}
		}

		incr bytes -[string length $readData]
		append data $readData
	}

	return $data
}