Claude
3bd81097e1
The header scan (Captain Bob, 2026-11-10): 788 source files -- 351 with the
SL-1.0 header, 12 with the old name (docs/working/experiments, kept by
ruling), 31 under someone else's licence (tools/kconfig, Linux's, GPL-2.0:
kept), and 394 with none. Ruled: the SPDX form; capsules (.4th, .f18) and
proofs (.thy) left for a ruling of their own (mkcapsule's 64x16 block format,
content-addressed capsules).
253 files now begin
SPDX-License-Identifier: LicenseRef-Starship-1.0
Copyright (c) 2023-2026 Robert A. James
as a /* */ block (C, headers, assembly, linker scripts) or # lines (scripts,
Makefiles, Kconfig; below a shebang or a coding line); tools/mkcapsule.c,
which had the copyright line, gets the SPDX line only.
Not touched: docs/working/ (archive and old campaign material, as the
ruling kept the experiments); v4/system/post_cases.c (generated by
v4/tools/mkpost.py, "do not edit" -- the generator has the header).
Comments only: the kernel builds on amd64, aarch64, riscv64; make -C v4
test-32: 39 programs, 0 failures; every changed script parses.
Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01GE3SDvQn5EoxdGufk84zz2
86 lines
2.6 KiB
Bash
Executable File
86 lines
2.6 KiB
Bash
Executable File
#!/bin/sh
|
|
# SPDX-License-Identifier: LicenseRef-Starship-1.0
|
|
# Copyright (c) 2023-2026 Robert A. James
|
|
# Hermes v1 hosted smoke test — prints values for manual inspection
|
|
# Run: bash tools/hermes_smoke.sh
|
|
SF=./build/amd64/standard/starforth
|
|
CORE_INIT=./capsules/core/init.4th
|
|
HERMES=./capsules/hermes/init.4th
|
|
BACKUP=${CORE_INIT}.smoke_bak
|
|
|
|
cleanup() {
|
|
if [ -f "$BACKUP" ]; then
|
|
mv "$BACKUP" "$CORE_INIT"
|
|
fi
|
|
}
|
|
trap cleanup EXIT INT TERM
|
|
|
|
# Back up real init.4th
|
|
cp "$CORE_INIT" "$BACKUP"
|
|
|
|
# Build combined init: core block 1 + all hermes blocks + smoke test block
|
|
# NOTE: use BACKUP (not CORE_INIT) as source — redirect > truncates CORE_INIT first
|
|
{
|
|
cat "$BACKUP"
|
|
cat "$HERMES"
|
|
cat <<'SMOKEBLOCK'
|
|
Block 9998
|
|
( Hermes v1 Smoke Part 1 )
|
|
." >>> CD-INIT" CR
|
|
CD-INIT
|
|
." >>> COMMON-CH (expect non-0): " COMMON-CH @ . CR
|
|
." >>> COMMON state (expect 1=OPEN): " COMMON-CH @ CH-STATE@ . CR
|
|
." >>> COMMON heat (expect 65536=Q.1): " COMMON-CH @ CH-HEAT@ . CR
|
|
." >>> MSG-ALLOC #1: " MSG-ALLOC DUP . CR
|
|
VARIABLE SLOT1 SLOT1 !
|
|
." >>> SLOT1 type before set (expect 0): " SLOT1 @ MSG-TYPE@ . CR
|
|
42 SLOT1 @ MSG-TYPE!
|
|
." >>> SLOT1 type after set (expect 42): " SLOT1 @ MSG-TYPE@ . CR
|
|
99 SLOT1 @ MSG-FROM!
|
|
." >>> SLOT1 from (expect 99): " SLOT1 @ MSG-FROM@ . CR
|
|
7 SLOT1 @ MSG-TO!
|
|
." >>> SLOT1 to (expect 7): " SLOT1 @ MSG-TO@ . CR
|
|
Q.1 SLOT1 @ MSG-HEAT!
|
|
." >>> SLOT1 heat before cool (expect 65536): " SLOT1 @ MSG-HEAT@ . CR
|
|
SLOT1 @ MSG-COOL-ONE
|
|
." >>> SLOT1 heat after cool (expect <65536): " SLOT1 @ MSG-HEAT@ . CR
|
|
." >>> MSG-ALLOC #2: " MSG-ALLOC DUP . CR
|
|
VARIABLE SLOT2 SLOT2 !
|
|
." >>> MSG-REAP (SLOT1 still warm): " MSG-REAP
|
|
." SLOT1 type after reap (expect 42): " SLOT1 @ MSG-TYPE@ . CR
|
|
0 SLOT1 @ MSG-HEAT!
|
|
MSG-REAP
|
|
Block 9999
|
|
( Hermes v1 Smoke Part 2 )
|
|
." >>> SLOT1 type after reap (expect 0): " SLOT1 @ MSG-TYPE@ . CR
|
|
." >>> CH-ALLOC #1: " CH-ALLOC DUP . CR
|
|
VARIABLE CH1 CH1 !
|
|
CH-OPEN CH1 @ CH-STATE!
|
|
Q.1 CH1 @ CH-HEAT!
|
|
CH-ACTIVE @ CH1 @ CH-NEXT!
|
|
CH1 @ CH-ACTIVE !
|
|
." >>> CH1 state (expect 1=OPEN): " CH1 @ CH-STATE@ . CR
|
|
." >>> CH1 heat before cool (expect 65536): " CH1 @ CH-HEAT@ . CR
|
|
CH-COOL-ALL
|
|
." >>> CH1 heat after cool (expect <65536): " CH1 @ CH-HEAT@ . CR
|
|
." >>> MBR-ALLOC #1: " MBR-ALLOC DUP . CR
|
|
VARIABLE MBR1 MBR1 !
|
|
55 MBR1 @ 1 CELLS + !
|
|
." >>> MBR1 vm-id (expect 55): " MBR1 @ MBR-VM@ . CR
|
|
MBR1 @ MBR-FREE-NODE
|
|
." >>> MBR-FREE-NODE ok" CR
|
|
." >>> EVENT-EMIT 77" CR
|
|
77 EVENT-EMIT
|
|
." >>> EVENT-WAIT (expect 77): " EVENT-WAIT . CR
|
|
EVENT-DRAIN
|
|
." >>> MSG-ARENA type after DRAIN (expect 0): " MSG-ARENA MSG-TYPE@ . CR
|
|
." >>> HERMES-TICK" CR
|
|
HERMES-TICK
|
|
." >>> HERMES-TICK ok" CR
|
|
." >>> === Hermes smoke test complete ===" CR
|
|
BYE
|
|
SMOKEBLOCK
|
|
} > "$CORE_INIT"
|
|
|
|
$SF --log-none 2>&1 | grep '^>>>'
|