Слушатели событий с продолжением Scala

Question

Предположим, мне нужно написать код GUI следующим образом:

widget1.addListener(event1 =>
   handle1(event1)
   widget2.addListener(event2 =>
     handle2(event2)
     widget3.addListener(event3 => handle3(event3))
   )
)

Как бы вы написали это в стиле CPS, используя продолжения Scala?

Answer 1

Просто хотел привести рабочий пример в дополнение к другим ответам. С продолжениями Scala это может выглядеть так:

import scala.util.continuations._

object ContinuationsExample extends App {
  val widget1 = Widget()
  val widget2 = Widget()

  reset {
    val event1 = widget1.getEvent
    println("Handling first event: " + event1)
    val event2 = widget2.getEvent
    println("Handling second event: " + event2)
  }

  widget2 fireEvent Event("should not be handled")
  widget1 fireEvent Event("event for first widget")
  widget2 fireEvent Event("event for second widget")
  widget1 fireEvent Event("one more event")
}

case class Event(text: String)

case class Widget() {
  type Listener = Event => Unit
  var listeners : List[Listener] = Nil

  def getEvent = shift { (l: Listener) =>
    listeners = l +: listeners
  }

  def fireEvent(event: Event) = listeners.foreach(_(event))
}

Этот код на самом деле компилируется и запускается, так что вы можете попробовать его самостоятельно. Вы должны получить следующий вывод:

Handling first event: Event(event for first widget)
Handling second event: Event(event for second widget)
Handling first event: Event(one more event) 

Если вы скомпилируете этот пример, не забудьте включить продолжения, предоставив -P:continuations:enable аргумент для компилятора Scala.

Answer 2

Смысл наличия продолжений заключается в возможности использовать прямой стиль кодирования, даже если обычно меня заставляют кодировать более сложным способом (например, в стиле, управляемом событиями).

Так что код клиента, который я хотел бы написать, был бы таким:

reset {
    val event1 = widget1.waitForEvent()
    handle1(event1)
    val event2 = widget2.waitForEvent()
    handle2(event2)
    val event3 = widget3.waitForEvent()
    handle3(event3)
}

Так что слушатели будут скрыты от меня. Но, конечно, слушатели все равно должны быть где-то внизу. Я бы спрятал их в методе waitForEvent() виджета (либо добавленном в класс Widget, либо доступным через неявное преобразование). Метод будет выглядеть так:

def waitForEvent() = shift { k =>
    this.addListener(event => k(event))
    k
}

Это как минимум на концептуальном уровне. Чтобы это работало, вам, вероятно, нужно добавить аннотации типа и / или @cps.

Answer 3

Вот простой рабочий пример:

reset{
  shift { (k: Unit => Unit) => widget1 addListener(handle1 _ andThen k)}
  shift { (k: Unit => Unit) => widget2 addListener(handle2 _ andThen k)}
  widget3 addListener(handle3 _)
}