giles
f8722b3b08
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 45s
(remote-failover addrs fn local) tries fn on each peer in order, moves to the next on any raised error, and runs the local node if every peer fails. Threads input, composes in sequences. Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
26 lines
2.1 KiB
Plaintext
26 lines
2.1 KiB
Plaintext
;; lib/flow/remote.sx — distributed nodes via fed-sx (Phase 4).
|
|
;;
|
|
;; A node can execute on a federation peer. The transport is the fed-sx boundary;
|
|
;; it is MOCKED in tests by a peer registry mapping addr -> function table. In
|
|
;; production flow-transport would issue a fed-sx call; here it dispatches locally.
|
|
;;
|
|
;; (flow-peer-register! addr table) — register a mock peer. table is a list of
|
|
;; (fn-name proc) entries — the functions that peer exposes.
|
|
;; (flow-transport addr fn input) — invoke fn on the peer with input. Raises
|
|
;; (flow-remote-unreachable) if the addr is unknown, (flow-remote-no-fn) if the
|
|
;; peer does not expose fn.
|
|
;; (remote-node addr fn) — a node that runs fn on the peer at addr.
|
|
;; (remote-failover addrs fn local) — try fn on each peer in addrs in order; on a
|
|
;; raised error move to the next peer; if every peer fails, run the `local`
|
|
;; node as a fallback. Threads the input through unchanged.
|
|
|
|
(define
|
|
flow-remote-src
|
|
"(define flow-peers (list))\n (define (flow-assoc key alist)\n (if (null? alist)\n #f\n (if (eq? (car (car alist)) key) (car (cdr (car alist))) (flow-assoc key (cdr alist)))))\n (define (flow-peer-register! addr table) (set! flow-peers (cons (list addr table) flow-peers)))\n (define (flow-transport addr fn input)\n (let ((table (flow-assoc addr flow-peers)))\n (if table\n (let ((proc (flow-assoc fn table)))\n (if proc (proc input) (raise (quote flow-remote-no-fn))))\n (raise (quote flow-remote-unreachable)))))\n (define (remote-node addr fn) (lambda (input) (flow-transport addr fn input)))\n (define (flow-failover-step addrs fn input local)\n (if (null? addrs)\n (local input)\n (guard (e (#t (flow-failover-step (cdr addrs) fn input local)))\n (flow-transport (car addrs) fn input))))\n (define (remote-failover addrs fn local)\n (lambda (input) (flow-failover-step addrs fn input local)))")
|
|
|
|
(define
|
|
flow-load-remote!
|
|
(fn
|
|
(env)
|
|
(begin (scheme-eval-program (scheme-parse-all flow-remote-src) env) env)))
|