Mercurial > repos > rhope
comparison array.rhope @ 144:65ebd1ce2611
Add Read method to TCP connection
| author | Mike Pavone <pavone@retrodev.com> |
|---|---|
| date | Sun, 21 Nov 2010 18:21:45 -0500 |
| parents | 43cc42df26cc |
| children | d2b941f82d74 |
comparison
equal
deleted
inserted
replaced
| 143:ff00538cd818 | 144:65ebd1ce2611 |
|---|---|
| 220 { | 220 { |
| 221 out <- [_internal_array_allocnaked[1, Blueprint Of[val]]]Set[index, val] | 221 out <- [_internal_array_allocnaked[1, Blueprint Of[val]]]Set[index, val] |
| 222 } | 222 } |
| 223 } | 223 } |
| 224 | 224 |
| 225 Slice@Array[array,slicepoint:left,right] | |
| 226 { | |
| 227 If[[slicepoint]<=[0]] | |
| 228 { | |
| 229 left <- Array[] | |
| 230 right <- array | |
| 231 }{ | |
| 232 arrlen <- [array]Length >> | |
| 233 If[[slicepoint]>=[arrlen]] | |
| 234 { | |
| 235 left <- array | |
| 236 right <- Array[] | |
| 237 }{ | |
| 238 left <- [_internal_array_copychunk[array, 0, _internal_array_allocnaked[slicepoint,[array]Eltype >>], 0, slicepoint]]Length <<[slicepoint] | |
| 239 rightlen <- [arrlen]-[slicepoint] | |
| 240 right <- [_internal_array_copychunk[array, slicepoint, _internal_array_allocnaked[rightlen,[array]Eltype >>], 0, rightlen]]Length <<[rightlen] | |
| 241 } | |
| 242 } | |
| 243 } | |
| 244 | |
| 245 Slice@Empty Array[array,slicepoint:left,right] | |
| 246 { | |
| 247 left <- array | |
| 248 right <- array | |
| 249 } | |
| 250 | |
| 225 Length@Empty Array[arr:out] | 251 Length@Empty Array[arr:out] |
| 226 { | 252 { |
| 227 out <- 0 | 253 out <- 0 |
| 228 } | 254 } |
| 229 | 255 |