diff options
author | Paul Phillips <paulp@improving.org> | 2012-05-05 10:36:51 -0700 |
---|---|---|
committer | Paul Phillips <paulp@improving.org> | 2012-05-05 10:36:51 -0700 |
commit | 1a4faa92faaf495f75a6dd2c58376f6bb3fbf44c (patch) | |
tree | a10aca28d70ce0c02a59f13696820150a6dc65bf | |
parent | dd8f53d510ad820d5b34b20f2846c8da5d4942a1 (diff) | |
parent | dce6b34c38a6d774961ca6f9fd50b11300ecddd6 (diff) | |
download | scala-1a4faa92faaf495f75a6dd2c58376f6bb3fbf44c.tar.gz scala-1a4faa92faaf495f75a6dd2c58376f6bb3fbf44c.tar.bz2 scala-1a4faa92faaf495f75a6dd2c58376f6bb3fbf44c.zip |
Merge commit 'refs/pull/124/head' into develop
Conflicts:
src/library/scala/util/parsing/combinator/Parsers.scala
-rw-r--r-- | src/library/scala/util/parsing/combinator/Parsers.scala | 19 | ||||
-rw-r--r-- | test/files/run/t4929.check | 1 | ||||
-rw-r--r-- | test/files/run/t4929.scala | 42 |
3 files changed, 53 insertions, 9 deletions
diff --git a/src/library/scala/util/parsing/combinator/Parsers.scala b/src/library/scala/util/parsing/combinator/Parsers.scala index 17e032e7ab..66e0a496d8 100644 --- a/src/library/scala/util/parsing/combinator/Parsers.scala +++ b/src/library/scala/util/parsing/combinator/Parsers.scala @@ -13,6 +13,7 @@ import scala.collection.mutable.ListBuffer import scala.annotation.tailrec import annotation.migration import language.implicitConversions +import scala.util.DynamicVariable // TODO: better error handling (labelling like parsec's <?>) @@ -154,13 +155,14 @@ trait Parsers { val successful = true } - var lastNoSuccess: NoSuccess = null + private lazy val lastNoSuccess = new DynamicVariable[Option[NoSuccess]](None) /** A common super-class for unsuccessful parse results. */ sealed abstract class NoSuccess(val msg: String, override val next: Input) extends ParseResult[Nothing] { // when we don't care about the difference between Failure and Error val successful = false - if (!(lastNoSuccess != null && next.pos < lastNoSuccess.next.pos)) - lastNoSuccess = this + + if (lastNoSuccess.value map { v => !(next.pos < v.next.pos) } getOrElse true) + lastNoSuccess.value = Some(this) def map[U](f: Nothing => U) = this def mapPartial[U](f: PartialFunction[Nothing, U], error: Nothing => String): ParseResult[U] = this @@ -879,16 +881,15 @@ trait Parsers { * if `p` consumed all the input. */ def phrase[T](p: Parser[T]) = new Parser[T] { - lastNoSuccess = null - def apply(in: Input) = p(in) match { + def apply(in: Input) = lastNoSuccess.withValue(None) { + p(in) match { case s @ Success(out, in1) => if (in1.atEnd) s - else if (lastNoSuccess == null || lastNoSuccess.next.pos < in1.pos) - Failure("end of input expected", in1) else - lastNoSuccess - case _ => lastNoSuccess + lastNoSuccess.value filterNot { _.next.pos < in1.pos } getOrElse Failure("end of input expected", in1) + case ns => lastNoSuccess.value.getOrElse(ns) + } } } diff --git a/test/files/run/t4929.check b/test/files/run/t4929.check new file mode 100644 index 0000000000..0f0c913d55 --- /dev/null +++ b/test/files/run/t4929.check @@ -0,0 +1 @@ +success
\ No newline at end of file diff --git a/test/files/run/t4929.scala b/test/files/run/t4929.scala new file mode 100644 index 0000000000..3208cd1b09 --- /dev/null +++ b/test/files/run/t4929.scala @@ -0,0 +1,42 @@ +import scala.util.parsing.json._ +import java.util.concurrent._ +import collection.JavaConversions._ + +object Test extends App { + + val LIMIT = 2000 + val THREAD_COUNT = 20 + val count = new java.util.concurrent.atomic.AtomicInteger(0) + + val begin = new CountDownLatch(THREAD_COUNT) + val finish = new CountDownLatch(THREAD_COUNT) + + val errors = new ConcurrentLinkedQueue[Throwable] + + (1 to THREAD_COUNT) foreach { i => + val thread = new Thread { + override def run() { + begin.await(1, TimeUnit.SECONDS) + try { + while (count.getAndIncrement() < LIMIT && errors.isEmpty) { + JSON.parseFull("""{"foo": [1,2,3,4]}""") + } + } catch { + case t: Throwable => errors.add(t) + } + + finish.await(10, TimeUnit.SECONDS) + } + } + + thread.setDaemon(true) + thread.start() + + } + + + errors foreach { throw(_) } + + println("success") + +} |