www.artulab.com Git - guile-orca/blob - examples/rpc-scatter-messages.scm

   1 #!/usr/bin/env -S guile -s
   2 !#
   3
   4 (add-to-load-path "..")
   5 (use-modules (orca))
   6
   7 (define (construct-message message) (format #f "process ~d ~a" (rpc-worker-process-id) message))
   8
   9 (rpc-start)
  10
  11 (format #t "I'm master process. Received ~s ~%"
  12   (rpc-scatter (list '(construct-message ("selam" ("mehmet"))) '(construct-message "hi")
  13                      '(construct-message "hallo") '(construct-message "konnichiwa"))))
  14
  15 (rpc-finalize)