2 Commits

Author	SHA1	Message	Date
giles	8bf2b45cf9	fed-sx-m2: Step 8b-pure — retry-time bookkeeping + 11 tests + 2 Blockers ... delivery_worker state shape gains :next_retry proplist alongside the existing :attempts: [{peer, _}, {pending, _}, {attempts, [{Cid, N}]}, {next_retry, [{Cid, NextRetryAt}]}, {dead_letter, _}, {dispatch_fn, _}] New pure-functional exports: record_failure_pure/3(Cid, Now, State) Bumps :attempts for Cid. On the 6th failure (backoff_for returns dead_letter) moves the matching activity from :pending to :dead_letter and clears the :next_retry entry. Otherwise sets next_retry to Now + backoff_for(NewAttempts). record_success_pure/2(Cid, State) Clears both :attempts and :next_retry for Cid. next_due_pure/2(Now, State) Returns cids whose retry time has passed (insertion order preserved so the worker drains in FIFO retry order). attempts_for/2, next_retry_at/2, dead_letter_list/1 Read-side accessors. Internal helper move_to_dead_letter/2 + take_by_cid/4 walks :pending to find the matching activity by cid. 11/11 in next/tests/delivery_retry.sh covering: - fresh state: 0 attempts / undefined retry / [] dead_letter - record_failure bumps to 1 - record_failure sets next_retry_at = Now + 30 (slot 1) - second failure: attempts=2, NextRetryAt = Now + 300 (slot 2) - record_success clears both - next_due returns due cids - next_due empty before due - 6th failure -> dead-letter; activity out of :pending - dead-lettered cid removed from :next_retry - per-cid isolation: success on one doesn't disturb another delivery_worker.sh 17/17 unchanged (new exports are additive). Blockers added: #2 — Native http-request primitive missing in bin/sx_server.ml (briefing assumed it existed; only http-listen exists). Belongs to loops/fed-prims. Step 8e wrapper waits for the native. #3 — erlang:send_after-style timer primitive missing. Needed for the real retry loop. Belongs to loops/erlang. 8b-pure captures the semantics so 8b-timer is a 1-shot wiring when the primitive lands. Conformance preserved at 761/761.	2026-06-07 02:04:23 +00:00
giles	bf4e034c4e	fed-sx-m2: Step 8a — delivery_worker skeleton + 17 tests ... next/kernel/delivery_worker.erl is the gen_server-per-peer delivery queue per design §13.4. Step 8a lands the skeleton: pure-functional state shape + enqueue / drain / deliver_one helpers + backoff schedule + gen_server wrapper. No retry timer wiring yet (Step 8b), no persist projection yet (8c), no outbox dispatch wiring yet (8d), no httpc BIF yet (8e), no live HTTP yet (8f). State shape (pure): [{peer, PeerId}, {pending, [Activity, ...]}, %% FIFO queue {attempts, [{Cid, AttemptCount}]}, %% per-cid retry count {dead_letter, [Activity, ...]}, {dispatch_fn, fun/1 | undefined}] Pure-functional API: new/1 pending/1, peer/1 enqueue_pure/3 — append to FIFO drain_pure/1 — attempt every queued; returns {NewState, DeliveredCids, RetryCids} deliver_one_pure/2 — single dispatch via :dispatch_fn Backoff schedule (§13.4): 30s / 5m / 30m / 6h / 24h then dead_letter backoff_for/1 — attempt -> seconds | dead_letter schedule_for/1 — attempt -> {retry_in, Sec} | dead_letter gen_server (registered under peer-id atom): start_link/1, start_link/2(PeerId, DispatchFn) stop/1 enqueue/2 — sync call flush/1 — drain + reply with {ok, Delivered, Retry} pending_srv/1 set_dispatch_fn/2 — swap dispatch in flight dispatch_fn is a caller-supplied 1-arity fun so tests can stub the HTTP POST. Step 8f will plug in a closure over httpc:request/4 without touching the queue logic. 17/17 in next/tests/delivery_worker.sh covering: - new/peer/pending base cases - enqueue_pure FIFO append - drain_pure no-dispatch -> retry, queue intact - drain_pure ok dispatch -> queue empties + delivered list - drain_pure failing dispatch -> queue intact + retry list - deliver_one_pure {ok, Cid} and {error, _, no_dispatch_fn} - backoff_for slot values match §13.4 - backoff_for >=6 returns dead_letter - schedule_for wraps the slot or dead_letter - gen_server start_link + enqueue + pending_srv - gen_server flush with ok dispatch (delivered) - gen_server flush with failing dispatch (queue kept) - gen_server set_dispatch_fn in-flight swap Conformance 761/761.	2026-06-07 01:01:17 +00:00