Initial data commit

Task/Distributed-programming/OCaml/distributed-programming-1.ocaml

@@ -0,0 +1,23 @@
+open Printf
+
+let create_logger () =
+  def log(text) & logs(l) =
+      printf "Logged: %s\n%!" text;
+      logs((text, Unix.gettimeofday ())::l) & reply to log
+
+   or search(text) & logs(l) =
+      logs(l) & reply List.filter (fun (line, _) -> line = text) l to search
+  in
+    spawn logs([]);
+    (log, search)
+
+def wait() & finished() = reply to wait
+
+let register name service = Join.Ns.register Join.Ns.here name service
+
+let () =
+  let log, search = create_logger () in
+    register "log" log;
+    register "search" search;
+    Join.Site.listen (Unix.ADDR_INET (Join.Site.get_local_addr(), 12345));
+    wait ()

Task/Distributed-programming/OCaml/distributed-programming-2.ocaml

@@ -0,0 +1,21 @@
+open Printf
+
+let ns_there = Join.Ns.there (Unix.ADDR_INET (Join.Site.get_local_addr(), 12345))
+
+let lookup name = Join.Ns.lookup ns_there name
+
+let log : string -> unit = lookup "log"
+let search : string -> (string * float) list = lookup "search"
+
+let find txt =
+  printf "Looking for %s...\n" txt;
+  List.iter (fun (line, time) ->
+               printf "Found: '%s' at t = %f\n%!" (String.escaped line) time)
+    (search txt)
+
+let () =
+  log "bar";
+  find "foo";
+  log "foo";
+  log "shoe";
+  find "foo"