Mercurial > repos > tabletprog
changeset 372:e857104bd183
Added reverse method to arrays
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Wed, 12 Aug 2015 19:16:41 -0700 |
parents | 625b0aa9c204 |
children | a694ffa8d461 |
files | modules/array.tp |
diffstat | 1 files changed, 17 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/modules/array.tp Wed Aug 12 19:13:52 2015 -0700 +++ b/modules/array.tp Wed Aug 12 19:16:41 2015 -0700 @@ -71,6 +71,23 @@ } self } + + llMessage: reverse withVars: { + front <- int32_t + back <- int32_t + tmpo <- object ptr + } andCode: { + front <- 0 + back <- size + while: { front < back } do: { + tmpo <- data get: front + data set: front (data get: back) + data set: back tmpo + front <- front + 1 + back <- back - 1 + } + self + } llMessage: length withVars: { intret <- obj_int32 ptr