Unanchored regex extractors.

This patch is really by Lanny Ripple <lanny@spotinfluence.com>,
but I reworked it because I didn't want to put any more methods
onto String.  Instead, there is a method on Regex which removes
the anchoring quality.

  """\d\d'"".r.unanchored

1 files changed, 46 insertions, 0 deletions

diff --git a/test/files/run/si5045.scala b/test/files/run/si5045.scala
new file mode 100644
index 0000000000..e198b101f3
--- /dev/null
+++ b/test/files/run/si5045.scala
@@ -0,0 +1,46 @@
+object Test extends App {
+
+ import scala.util.matching.{ Regex, UnanchoredRegex }
+
+ val dateP1 = """(\d\d\d\d)-(\d\d)-(\d\d)""".r.unanchored
+ val dateP2 = """(\d\d\d\d)-(\d\d)-(\d\d)""" r ("year", "month", "day") unanchored
+ val dateP3 =  new Regex("""(\d\d\d\d)-(\d\d)-(\d\d)""", "year", "month", "day") with UnanchoredRegex
+
+ val yearStr = "2011"
+ val dateStr = List(yearStr,"07","15").mkString("-")
+
+  def test(msg: String)(strs: Seq[String]): Unit = println("%40s  %s".format(msg, strs mkString " "))
+
+  test("extract an exact match") {
+    val dateP1(y,m,d) = dateStr
+    Seq(List(y,m,d).mkString("-"), dateStr)
+  }
+
+  test("extract from middle of string") {
+    val dateP1(y,m,d) = "Tested on "+dateStr+"."
+    Seq(List(y,m,d).mkString("-"), dateStr)
+  }
+
+  test("extract from middle of string (P2)") {
+    val dateP2(y,m,d) = "Tested on "+dateStr+"."
+    Seq(List(y,m,d).mkString("-"), dateStr)
+  }
+
+  test("extract from middle of string (P3)") {
+    val dateP2(y,m,d) = "Tested on "+dateStr+"."
+    Seq(List(y,m,d).mkString("-"), dateStr)
+  }
+
+  def copyright(in: String): String = in match {
+    case dateP1(year, month, day) => "Copyright "+year
+    case _                        => "No copyright"
+  }
+
+  test("copyright example has date") {
+    Seq(copyright("Date of this document: "+dateStr), "Copyright "+yearStr)
+  }
+
+  test("copyright example missing date") {
+    Seq(copyright("Date of this document: unknown"), "No copyright")
+  }
+}