Check-in [3a98748881]
Overview
Comment:Started work on network support
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | network
Files: files | file ages | folders
SHA3-256: 3a9874888120325b03ccf0b9454590e5afa795662df78783d81925b88581cabe
User & Date: rkeene on 2018-07-08 21:17:53
Other Links: branch diff | manifest | tags
Context
2018-07-12
21:18
Merged in start of network branch check-in: c07e032cc7 user: rkeene tags: trunk
2018-07-08
21:17
Started work on network support Closed-Leaf check-in: 3a98748881 user: rkeene tags: network
21:17
"-fcheck-pointer-bounds" requires "-mmpx" check-in: 3de63da81f user: rkeene tags: trunk
Changes

Modified nano.tcl from [d9714fb5b7] to [07209311d0].

1010
1011
1012
1013
1014
1015
1016


























	foreach blockHash [dict keys [dict get $::nano::account::pending $accountPubKey]] {
		lappend outBlocks [receive $account $blockHash $signKey]
	}

	return $outBlocks
}
































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041

	foreach blockHash [dict keys [dict get $::nano::account::pending $accountPubKey]] {
		lappend outBlocks [receive $account $blockHash $signKey]
	}

	return $outBlocks
}

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
}