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