Add position access to tapes

1 files changed, 18 insertions, 0 deletions

diff --git a/BJC-Utils2/src/main/java/bjc/utils/esodata/SingleTape.java b/BJC-Utils2/src/main/java/bjc/utils/esodata/SingleTape.java
index a3e5462..c50be92 100644
--- a/BJC-Utils2/src/main/java/bjc/utils/esodata/SingleTape.java
+++ b/BJC-Utils2/src/main/java/bjc/utils/esodata/SingleTape.java
@@ -26,6 +26,19 @@ public class SingleTape<T> implements Tape<T> {
 	protected boolean autoExtend;
 
 	/**
+	 * Create a new tape with the specified contents that doesn't
+	 * autoextend.
+	 */
+	public SingleTape(T... vals) {
+		autoExtend = false;
+
+		backing = new ArrayList(vals.length);
+
+		for(T val : vals) {
+			backing.add(val);
+		}
+	}
+	/**
 	 * Create a new empty tape that doesn't autoextend.
 	 */
 	public SingleTape() {
@@ -77,6 +90,11 @@ public class SingleTape<T> implements Tape<T> {
 		return backing.size();
 	}
 
+	@Override
+	public int position() {
+		return pos;
+	}
+
 	/**
 	 * Insert an element before the current item.
 	 *