From daaed1b4e9b098859671c9499050ddf578c01bca Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Tue, 19 Feb 2008 13:53:55 -0600 Subject: [PATCH] remove builder.server --- extra/builder/server/server.factor | 68 ------------------------------ 1 file changed, 68 deletions(-) delete mode 100644 extra/builder/server/server.factor diff --git a/extra/builder/server/server.factor b/extra/builder/server/server.factor deleted file mode 100644 index f3ec349557..0000000000 --- a/extra/builder/server/server.factor +++ /dev/null @@ -1,68 +0,0 @@ - -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 ; -