add builder.server

extra/builder/server/server.factor

@@ -0,0 +1,68 @@
+
+USING: kernel continuations namespaces threads match bake concurrency builder ;
+
+IN: builder.server
+
+! : build-server ( -- )
+!   receive
+!   {
+!     {
+!       "start"
+!       [ [ build ] in-thread ]
+!     }
+
+!     {
+!       { ?from ?tag "status" }
+!       [ `{ ?tag ,[ build-status get ] } ?from send ]
+!     }
+!   }
+!   match-cond
+!   build-server ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+! : build-server ( -- )
+!   receive
+!   {
+!     {
+!       "start"
+!       [
+!         [ [ build ] [ drop ] recover "idle" build-status set-global ] in-thread
+!       ]
+!     }
+
+!     {
+!       { ?from ?tag "status" }
+!       [ `{ ?tag ,[ build-status get ] } ?from send ]
+!     }
+!   }
+!   match-cond
+!   build-server ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: build-server ( -- )
+  receive
+  {
+    {
+      "start"
+      [
+        build-status get "idle" =
+        build-status get f      =
+        or
+        [
+          [ [ build ] [ drop ] recover "idle" build-status set-global ]
+          in-thread
+        ]
+        when
+      ]
+    }
+
+    {
+      { ?from ?tag "status" }
+      [ `{ ?tag ,[ build-status get ] } ?from send ]
+    }
+  }
+  match-cond
+  build-server ;
+