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: |
3a9874888120325b03ccf0b9454590e5 |
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 | 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 } |