Mercurial > repos > tabletprog
diff modules/array.tp @ 372:e857104bd183
Added reverse method to arrays
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Wed, 12 Aug 2015 19:16:41 -0700 |
parents | 884cd5d54c0f |
children | 93c28eee141e |
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