Robert Allan JamesandClaude Sonnet 5
2b9fa02354
Phase 7 complete, closing out §H.12's punch list. MSG-DELIVER turned out to VM-EXEC payload text directly rather than dispatching by type, so the "handler" is ELEVATE-GRANT, a word the delivered text calls. New Hera-only C primitives (ZUSE-ELIGIBLE?, NAME>XT, ELEVATE-PUBKEY-UNPACK) stay plain and unconditional; capsules/zuse-eligibility.4th composes the actual eligibility check + ACL-ALLOW!/ACL-TTL! grant in FORTH. SEND-ELEVATE-REQUEST (common:messaging.4th) builds the payload text and sends it via the item-20-gated CH-REQUEST. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01QgooKd5hJNtTYqB6CyK5f9
26 lines
616 B
Forth
26 lines
616 B
Forth
Block 2057
|
|
( BOOT-BANNER - LithosAnanke REPL greeting )
|
|
: .SEP ." ================================================" CR ;
|
|
: BOOT-BANNER
|
|
CR .SEP
|
|
." LithosAnanke — FORTH-79 bare-metal kernel" CR
|
|
." Stadium step one: Hera alone" CR
|
|
.SEP
|
|
." Hera [live]" CR
|
|
.SEP CR ;
|
|
Block 2049
|
|
( Hera init — Mama VM personality )
|
|
: VM-TREE ( -- ) ." Hera[0]" CR ;
|
|
: VM-PARENT ( -- id ) 0 ;
|
|
: VM-CHILDREN ( -- ) ." (none)" CR ;
|
|
S" ACL.4th" EXEC
|
|
S" block-acl.4th" EXEC
|
|
S" zuse-eligibility.4th" EXEC
|
|
S" lib.4th" EXEC
|
|
S" fabric.4th" EXEC
|
|
S" font.4th" EXEC
|
|
Block 2050
|
|
( Hera boot — banner )
|
|
BOOT-BANNER
|
|
STARTUP-BANNER
|