termite (historical revision 17081) - The CHICKEN Scheme wiki

Create a process running thunk and returns its pid and have it link to to (a pid). When either process dies, and exception is raised in the other process.

Distributed Operations

make-node

[procedure] (make-node HOST PORT)

Creates a node object for host:port and returns the node object.

node-init

[procedure] (node-init NODE)

Primary setup for creating a node to accept processes.

remote-spawn

[procedure] (remote-spawn NODE THUNK)

Run thunk on node, returns pid. Node needs to have done a node-init.

remote-spawn-link

[procedure] (remote-spawn-link NODE THUNK)

Run thunk on node and link to it, returns pid.

on

[procedure] (on NODE THUNK)

Run thunk on node, returns result of thunk.

Error Handling

with-exception-catcher

[procedure] (with-exception-catcher HANDLER BODY)

Installs a dynamically scoped exception handler handler for the duration of body. Resumes execution a the point where the handler was installed.

with-exception-handler

[procedure] (with-exception-handler HANDLER BODY)

Installs a dynamically scoped exception handler handler for the duration of body. Resumes execution a the point where the exception was raised.

raise

[procedure] (raise EXCEPTION)

Raises exception.

catch

[procedure] (catch HANDLER BODY)

Catches an exception with handler during execution of body.

Stopping

shutdown!

[procedure] (shutdown!)

Stops gracefully. Linked processes receive a "normal" exit message.

halt!

[procedure] (halt!)

Stops ungracefully. Linked processes are clueless as to what happened.

terminate!

[procedure] (terminate! VICTIM)

Forcefully terminate a local(!) process. Processed linked to victim get a terminated message.

Examples

Making a "server" process

(define pong-server
  (spawn
    (lambda ()
      (let loop ()
        (let ((msg (?)))
          (if (and (list? msg)
                   (= (length msg) 2)
                   (pid? (car msg))
                   (eq? (cadr msg) 'ping))
            (let ((from (car msg)))
              (! from 'pong)
              (loop))
            (loop)))))))

(! pong-server (list (self) 'ping))

(?)                 --> pong

Selective message retrieval

(! (self) 1)
(! (self) 2)
(! (self) 3)

(?)                 --> 1
(?? odd?)           --> 3
(?)                 --> 2

Distributed processing

On node a:

(node-init (make-node "a.example.org" 12345))

On node b:

(define node-a (make-node "a.example.org" 12345))
(on node-a host-name)    --> "a.example.org"

(define p (remote-spawn node-a
                        (lambda ()
                         (let loop ()
                          (let ((x (?)))
                            (! (car x) ((cdr x)))
                            (loop))))))
(! p (cons (self) host-name))
(?)                      --> "a.example.org"

termite

Documentation

Fundamental Operations

spawn

!

?

??

!?

recv

spawn-link

spawn-linked-to