From cb7671a1e5d171cc4002b07d832a5fd8afcc107e Mon Sep 17 00:00:00 2001 From: "Benjamin J. Culkin" Date: Thu, 14 Sep 2017 16:14:11 -0300 Subject: Add position access to tapes --- .../src/main/java/bjc/utils/esodata/SingleTape.java | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) (limited to 'BJC-Utils2/src/main/java/bjc/utils/esodata/SingleTape.java') 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 @@ -25,6 +25,19 @@ public class SingleTape implements Tape { 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. */ @@ -77,6 +90,11 @@ public class SingleTape implements Tape { return backing.size(); } + @Override + public int position() { + return pos; + } + /** * Insert an element before the current item. * -- cgit v1.2.3