From 2891fe312a637e2e836bb882dbeefb2946bafbf6 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 26 Feb 2013 18:51:14 -0600
Subject: using streams is cleaner here

---
 src/main/scala/org/perl8/test/tap/Consumer.scala | 73 ++++++++++++------------
 1 file changed, 36 insertions(+), 37 deletions(-)

diff --git a/src/main/scala/org/perl8/test/tap/Consumer.scala b/src/main/scala/org/perl8/test/tap/Consumer.scala
index 0ad74fb..30541a6 100644
--- a/src/main/scala/org/perl8/test/tap/Consumer.scala
+++ b/src/main/scala/org/perl8/test/tap/Consumer.scala
@@ -2,6 +2,7 @@ package org.perl8.test.tap
 
 import java.io.{ByteArrayInputStream,InputStream,OutputStream}
 import scala.annotation.tailrec
+import scala.io.Source
 import scala.util.parsing.combinator._
 import scala.util.parsing.input.{Position,Reader}
 
@@ -290,9 +291,12 @@ class Consumer (cb: TAPEvent => Unit) {
   }
 
   private class LineReader (
-    in:      InputStream,
-    lineNum: Int = 1
+    in:      Stream[Char],
+    lineNum: Int
   ) extends Reader[Line] {
+    def this (in: InputStream) =
+      this(Source.fromInputStream(in).toStream, 1)
+
     def atEnd: Boolean =
       nextLine.isEmpty
 
@@ -303,46 +307,41 @@ class Consumer (cb: TAPEvent => Unit) {
       new LinePosition(lineNum, nextLine.map(_.toString).getOrElse(""))
 
     def rest: Reader[Line] =
-      new LineReader(in, lineNum + 1)
-
-    private lazy val nextLine: Option[Line] =
-      readNextLine
-
-    private def readNextLine: Option[Line] = {
-      val buf = new StringBuilder
-
-      @tailrec
-      def read {
-        val byte = in.read
-        if (byte != -1) {
-          buf += byte.toChar
-          if (byte != '\n') {
-            read
+      new LineReader(remainingStream, lineNum + 1)
+
+    private def nextLine: Option[Line] =
+      state._1
+
+    private def remainingStream: Stream[Char] =
+      state._2
+
+    private lazy val state: (Option[Line], Stream[Char]) =
+      readNextLine(in)
+
+    @tailrec
+    private def readNextLine (
+      stream: Stream[Char]
+    ): (Option[Line], Stream[Char]) = {
+      stream match {
+        case Stream.Empty => (None, in)
+        case s            => {
+          val (line, rest) = s.span(_ != '\n') match {
+            case (l, r) => (Line(l.mkString), r.tail)
+          }
+          line match {
+            case _: CommentLine => readNextLine(rest)
+            case other          => (Some(other), rest)
           }
-        }
-      }
-
-      read
-
-      val line = buf.toString match {
-        case "" => None
-        case s  => Some(Line(s.init))
-      }
-
-      line.flatMap { l =>
-        l match {
-          case CommentLine(_, _) => readNextLine
-          case other             => Some(other)
         }
       }
     }
+  }
 
-    class LinePosition (
-      override val line: Int,
-      override val lineContents: String
-    ) extends Position {
-      def column: Int = 1
-    }
+  private case class LinePosition (
+    override val line: Int,
+    override val lineContents: String
+  ) extends Position {
+    def column: Int = 1
   }
 }
 
-- 
cgit v1.2.3-54-g00ecf