Data commit

Task/Distributed-programming/E/distributed-programming-1.e

@@ -0,0 +1,19 @@
+def storage := [].diverge()
+
+def logService {
+  to log(line :String) {
+    storage.push([timer.now(), line])
+  }
+  to search(substring :String) {
+    var matches := []
+    for [time, line] ? (line.startOf(substring) != -1) in storage {
+      matches with= [time, line]
+    }
+    return matches
+  }
+}
+
+introducer.onTheAir()
+def sturdyRef := makeSturdyRef.temp(logService)
+println(<captp>.sturdyToURI(sturdyRef))
+interp.blockAtTop()

Task/Distributed-programming/E/distributed-programming-2.e

@@ -0,0 +1,14 @@
+def [uri] := interp.getArgs()
+introducer.onTheAir()
+def sturdyRef := <captp>.sturdyFromURI(uri)
+def logService := sturdyRef.getRcvr()
+
+logService <- log("foot")
+logService <- log("shoe")
+
+println("Searching...")
+when (def result := logService <- search("foo")) -> {
+  for [time, line] in result {
+    println(`At $time: $line`)
+  }
+}