matlab: move Reader.m to +types/Reader.m

Fixes https://github.com/kanaka/mal/issues/18 for case insensitive
file-systems.

1 files changed, 27 insertions, 0 deletions

diff --git a/matlab/+types/Reader.m b/matlab/+types/Reader.m
new file mode 100644
index 0000000..c18ea54
--- /dev/null
+++ b/matlab/+types/Reader.m
@@ -0,0 +1,27 @@
+classdef Reader < handle
+    properties
+        tokens
+        position
+    end
+    methods
+        function rdr = Reader(tokens)
+            rdr.tokens = tokens;
+            rdr.position = 1;
+        end
+        function tok = next(rdr)
+            rdr.position = rdr.position + 1;
+            if rdr.position-1 > length(rdr.tokens)
+                tok = false;
+            else
+                tok = rdr.tokens{rdr.position-1};
+            end
+        end
+        function tok = peek(rdr)
+            if rdr.position > length(rdr.tokens)
+                tok = false;
+            else
+                tok = rdr.tokens{rdr.position};
+            end
+        end
+    end
+end