Robert Allan JamesandClaude Sonnet 5
b031b802e3
FABRIC.md -> FABRIC-0.md FABRIC-2.md -> FABRIC-1.md FABRIC-3.md -> FABRIC-2.md (the current/living document) FABRIC-4.md unchanged (new #3 to follow separately) Every cross-reference repo-wide updated to match, including doc-comment citations inside kernel source (.c/.h) files -- done via an ordered placeholder substitution (FABRIC-3.md->placeholder2, FABRIC-2.md-> placeholder1, FABRIC.md->placeholder0, then placeholders resolved to final names) in a single pass per file to avoid double-shifting already-renamed references. One line in capsules/font.4th grew past the 64-char block-format limit as a side effect of the longer filename; shortened it and reverified with mkcapsule --lint (34/34 pass) before rebuilding. Verified 3-arch boot to ok> (amd64/aarch64/riscv64, each in the foreground) after the fix; logs and DoE CSVs from this session's verification runs included per this repo's own audit-artifact convention. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_019YcT3H2PQeyujrzjqS3Var
26 lines
980 B
Forth
26 lines
980 B
Forth
Block 4019
|
|
( block-acl.4th - Block-Level Access Control BMAPFMT )
|
|
( C prims: BLK-ACL-ALLOW@ BLK-ACL-ALLOW! BLK-ACL-TTL@ )
|
|
( BLK-ACL-TTL! BLK-OWNER@ )
|
|
( Policy words this file: BLK-ACL-CHECK )
|
|
( Mirrors ACL.4th's C-primitive/FORTH-policy split, )
|
|
( applied to blocks instead of words. )
|
|
( FABRIC-2.md H.12 step 16, 2026-09-03. )
|
|
256 CONSTANT BLK-ACL-BASE-TTL
|
|
|
|
Block 4020
|
|
( BLK-ACL-CHECK block# -- allow? )
|
|
( Fast-deny check, vm.c 611-624's pattern applied to )
|
|
( a block. First touch: default-permissive claim -- )
|
|
( allow=1, TTL=BLK-ACL-BASE-TTL -- matching the word )
|
|
( card's own default. No automatic TTL decrement loop )
|
|
( exists for blocks yet -- words decrement per word )
|
|
( dispatch, blocks have no equivalent hot path -- but )
|
|
( this is a real, working fast-deny gate either way. )
|
|
: BLK-ACL-CHECK ( block# -- allow? )
|
|
DUP BLK-ACL-TTL@ 0= IF
|
|
DUP BLK-ACL-BASE-TTL SWAP BLK-ACL-TTL!
|
|
DUP 1 SWAP BLK-ACL-ALLOW!
|
|
THEN
|
|
BLK-ACL-ALLOW@ ;
|