Mercurial > repos > tabletprog

changeset 366:810b6115c1d4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add a pop method to array
author Michael Pavone <pavone@retrodev.com>
date Sat, 08 Aug 2015 21:13:26 -0700
parents 3d36d69aab7f
children e2c1309ab750
files modules/array.tp samples/testarray.tp
diffstat 2 files changed, 12 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/modules/array.tp	Fri Aug 07 21:40:08 2015 -0700
+++ b/modules/array.tp	Sat Aug 08 21:13:26 2015 -0700
@@ -54,6 +54,16 @@
 		size <- size + 1
 		self
 	}
+	
+	llMessage: pop withVars: {
+	} andCode: {
+		if: size > 0 {
+			size <- size - 1
+			data get: size
+		} else: {
+			false
+		}
+	}
 
 	llMessage: resize withVars: {
 		newsize <- obj_uint32 ptr
--- a/samples/testarray.tp	Fri Aug 07 21:40:08 2015 -0700
+++ b/samples/testarray.tp	Sat Aug 08 21:13:26 2015 -0700
@@ -13,6 +13,8 @@
 		bar append: 28
 		bar append: 42
 		print: "" . ((sum: foo) + (sum: bar)) . "\n"
+		val <- bar pop
+		print: "popped off: " . val . ", new length: " . (bar length) . "\n"
 	}
 }