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