Changeset 6692 for lang/scala/sandbox

Timestamp:

02/15/08 00:28:06 (10 months ago)

Author:

keisuken

Message:

Loop object update. loop method name changed, and withIndex loop add.

Location:

lang/scala/sandbox

Files:

• lib/scala-sandbox.jar (modified) (previous)
• src/jp/ne/cappuccino/keisuken/scl/lang/Loop.scala (modified) (7 diffs)
• webpages/lib/scala-sandbox.jar (modified) (previous)

lang/scala/sandbox/src/jp/ne/cappuccino/keisuken/scl/lang/Loop.scala

@@ -5 +5 @@
   class BreakWithValue[T](var cond: Boolean, var value: Option[T]) {
     def this() = this(true, None)
-    def apply(): Unit = {cond = false; value = None}
-    def apply(v: T): Unit = {cond = false; value = Some(v)}
+    def apply(): Unit = break
+    def apply(v: T): Unit = break(v)
+    def break: Unit = {cond = false; value = None}
+    def break(v: T): Unit = {cond = false; value = Some(v)}
   }
 
   class Break(var cond: Boolean) {
     def this() = this(true)
-    def apply(): Unit = cond = false
-  }
-
-  def forEach[A](iterable: Iterable[A])(p: (A, Break) => Unit): Unit = {
+    def apply(): Unit = break
+    def break: Unit = cond = false
+  }
+
+  def forLoop
+    (init: => Unit, cond: => Boolean, update: => Unit)
+    (p: Break => Unit): Unit = {
+    val break = new Break()
+    init
+    while(break.cond && cond) {
+      p(break)
+      update
+    }
+  }
+
+  def forLoop[A]
+    (iterable: Iterable[A])
+    (p: (A, Break) => Unit): Unit = {
     val break = new Break()
     val iterator = iterable.elements
     while(break.cond && iterator.hasNext)
       p(iterator.next, break)
+  }
+
+  def forLoopWithIndex[A]
+    (iterable: Iterable[A])
+    (p: (A, Int, Break) => Unit): Unit = {
+    val break = new Break()
+    val iterator = iterable.elements
+    var index = 0
+    while(break.cond && iterator.hasNext) {
+      p(iterator.next, index, break)
+      index += 1
+    }
+  }
+
+  def findFor[A]
+    (init: => Unit, cond: => Boolean, update: => Unit)
+    (p: BreakWithValue[A] => Unit): Option[A] = {
+    val break = new BreakWithValue[A]()
+    init
+    while(break.cond && cond) {
+      p(break)
+      update
+    }
+    break.value
   }
 
@@ -27 +67 @@
     while(break.cond && iterator.hasNext)
       p(iterator.next, break)
+    break.value
+  }
+
+
+  def findForWithIndex[A, B]
+    (iterable: Iterable[A])
+    (p: (A, Int, BreakWithValue[B]) => Unit): Option[B] = {
+    val break = new BreakWithValue[B]()
+    val iterator = iterable.elements
+    var index = 0
+    while(break.cond && iterator.hasNext) {
+      p(iterator.next, index, break)
+      index += 1
+    }
     break.value
   }
@@ -42 +96 @@
   }
 
-  def doWhile(cond: => Boolean)(p: Break => Unit): Unit = {
+  def doWhileLoop(cond: => Boolean)(p: Break => Unit): Unit = {
     val break = new Break()
     do p(break) while(break.cond && cond)
@@ -56 +110 @@
   def main(args: Array[String]) {
 
-    forEach(1 to 10) {(i, break) =>
-      if(i == 5) {
-        println(i)
+    println("---- forLoop(C)")
+    var i = 0
+    forLoop(i = 0, i < 10, i += 1) {break =>
+      println(i)
+      if(i >= 4) break()
+    }
+
+    println("---- forLoop(iterator)")
+    forLoop(1 to 10) {(i, break) =>
+      println(i)
+      if(i == 4) {
         break()
       }
     }
 
-    var i = 0
+    println("---- forLoopWithIndex")
+    forLoopWithIndex(1 to 10) {(i, index, break) =>
+      println("[" + i + "," + index + "]")
+      if(i == 4) {
+        break()
+      }
+    }
+
+    println("---- whileLoop")
+    i = 0
     whileLoop(i < 10) {break =>
+      println(i)
       if(i >= 5) {
         println(i)
@@ -72 +144 @@
     }
 
-    i = 0
-    doWhile({i += 1; i < 10}) {break =>
+    println("---- doWhileLoop")
+    i = 0
+    doWhileLoop({i += 1; i < 10}) {break =>
       if(i >= 5) {
         println(i)
@@ -80 +153 @@
     }
 
-    i = 0
-    var result1 = findWhile[Int](true) {break =>
-      if(i >= 5)
-        break(i)
-      else
-        i += 1
-    }
-    result1 match {
-      case Some(result) => println(result)
-      case None => println("Not found")
-    }
-
-    i = 0
-    val result2 = findWhile[Int](i < 10) {break =>
+    println("---- findFor(C)")
+    var iResult = findFor[Int](i = 0, i < 10, i += 1) {break =>
+      if(i >= 4) break(i)
+    }
+    println(iResult)
+
+    println("---- findFor(iterator)")
+    var sResult = findFor[String,String](Array("abc", "cde", "efg"))
+    {(value, break) =>
+      if(value == "cde") break(value)
+    }
+    sResult match {
+      case Some(result) => println(result)
+      case None => println("Not found")
+    }
+
+    println("---- findForWithIndex")
+    sResult = findForWithIndex[String,String](Array("abc", "cde", "efg"))
+    {(value, index, break) =>
+      println("[" + index + "]=" + value)
+      if(value == "cde") break(value)
+    }
+    sResult match {
+      case Some(result) => println(result)
+      case None => println("Not found")
+    }
+
+    i = 0
+    iResult = findWhile[Int](i < 10) {break =>
       if(i == 20)
         break(i)
@@ -99 +187 @@
         i += 1
     }
-    result2 match {
-      case Some(result) => println(result)
-      case None => println("Not found")
-    }
-
-    i = 0
-    val result3 = findDoWhile[Int]({i += 1; i < 10}) {break =>
+    iResult match {
+      case Some(result) => println(result)
+      case None => println("Not found")
+    }
+
+    i = 0
+    iResult = findDoWhile[Int]({i += 1; i < 10}) {break =>
       if(i == 5) break(i)
     }
-    result3 match {
-      case Some(result) => println(result)
-      case None => println("Not found")
-    }
-
-    val result4 = findFor[String, String](
-      Array("aaa", "bbb", "ccc")) {(value, break) =>
-      if(value == "ddd")
-        break(value)
-    }
-    println(result4)
-
-    val result5 = findFor[String,String](Array("aaa", "bbb", "ccc"))
-    {(value, break) =>
-      if(value == "bbb")
-        break(value)
-    } match {
-      case Some(result) => println(result)
-      case None => println("Not found")
-    }
-
-    val result6 = findFor[Int,Int](1 to 10) {(i, break) =>
-      if(i % 2 == 1) break(i)
-    }
-    result6 match {
+    iResult match {
       case Some(result) => println(result)
       case None => println("Not found")