guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[no subject]


From: Ludovic Courtès
Date: Tue, 10 Oct 2023 18:05:45 -0400 (EDT)

branch: master
commit 343c92bbad793519939e2efd6ccb75ec22ccca0c
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Tue Oct 10 12:15:45 2023 +0200

    remote-server: Rename ‘zmq-start-proxy’.
    
    * src/cuirass/scripts/remote-server.scm (zmq-start-proxy): Rename to…
    (serve-build-requests): … this.  Update docstring.
    (cuirass-remote-server): Adjust accordingly.
---
 src/cuirass/scripts/remote-server.scm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/src/cuirass/scripts/remote-server.scm 
b/src/cuirass/scripts/remote-server.scm
index 3368696..40f4b96 100644
--- a/src/cuirass/scripts/remote-server.scm
+++ b/src/cuirass/scripts/remote-server.scm
@@ -454,10 +454,13 @@ requested received on its channel."
 all network interfaces."
   (string-append "tcp://*:" (number->string backend-port)))
 
-(define (zmq-start-proxy backend-port fetch-worker)
+(define (serve-build-requests backend-port fetch-worker)
   "Open a zmq socket on BACKEND-PORT and listen for messages coming from
-'cuirass remote-worker' messages.  When a message denoting a successful build
-is received, pass it on to FETCH-WORKER to download the build's output(s)."
+'cuirass remote-worker' processes, and reply to 'worker-request-work'
+messages: this is a \"work stealing\" strategy.
+
+When a message denoting a successful build is received, pass it on to
+FETCH-WORKER to download the build's output(s)."
   (let ((build-socket (zmq-create-socket %zmq-context ZMQ_ROUTER)))
 
     ;; Send bootstrap messages on worker connection to wake up the workers
@@ -640,7 +643,7 @@ exiting."
              (let ((fetch-worker (spawn-fetch-worker)))
                (catch 'zmq-error
                  (lambda ()
-                   (zmq-start-proxy backend-port fetch-worker))
+                   (serve-build-requests backend-port fetch-worker))
                  (lambda (key errno message . _)
                    (log-error (G_ "failed to start worker/database proxy: ~a")
                               message)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]