Robert Allan JamesandClaude Sonnet 5
cb6e079a73
Added VARIABLE MY-CH-ID to messaging.4th (fail-closed -1 default) and set it per-VM in hermes/init.4th and artemis/init.4th. CH-REQUEST now refuses if the caller-supplied 'from' doesn't match the calling VM's own id, closing a real spoofing gap found while implementing this. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01QgooKd5hJNtTYqB6CyK5f9
24 lines
793 B
Forth
24 lines
793 B
Forth
Block 4855
|
|
( Hermes v1 -- WELCOME. Generic messaging vocab moved to )
|
|
( common:messaging.4th, FABRIC-3.md Phase C 2026-08-28. )
|
|
: WELCOME ( -- ) LOG-INFO" Hermes: loaded" ;
|
|
WELCOME
|
|
Block 4153
|
|
( LOAD-DOE: pulls in doe.4th's word-level DOE-WORK )
|
|
( workload, for doe-campaign.4th's remote VM-EXEC. )
|
|
: LOAD-DOE ( -- ) S" doe.4th" EXEC ;
|
|
Block 5116
|
|
( Hermes owns the one real, canonical COMMON-CH. Every )
|
|
( other VM subscribes into it via VM-EXEC (see Artemis's )
|
|
( and Hera's own init.4th); Hera always exists first, so )
|
|
( Hermes adds her here rather than Hera subscribing to a )
|
|
( VM that doesn't exist yet at Hera's own birth. )
|
|
S" common:messaging.4th" EXEC
|
|
MSG-CD-INIT
|
|
1 MY-CH-ID !
|
|
S" lib.4th" EXEC
|
|
1 COMMON-CH @ CH-ADD-MBR
|
|
0 COMMON-CH @ CH-ADD-MBR
|
|
LOG-INFO" Hermes: ready"
|
|
STARTUP-BANNER
|