Phase 6a: rename core vocabulary (game/main/component/archetype/system)

game/module -> program, main -> entry, component -> property,
archetype -> model, system -> handler. Done via a transitional self-hosting
bootstrap: parser accepts both -> reseed -> compiler source moved to new
keywords + parser tightened to new-only -> reseed (fixpoint holds). Old keywords
now rejected.

Token-safe corpus migration (tools/ludic-tools/rename_kw.c) leaves the LLVM
@main/entry: labels in emit strings untouched; goldens byte-identical. Editor
vocab (header/JetBrains/TextMate/emacs), check-docs wrapper, and doc fences
updated; error string 'unknown component' -> 'unknown property'. test.sh 14/14,
test-tools 28/0, check-vocabulary green. (Doc prose pass to follow.)

Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>

selfhost/bootstrap-cfree.sh

@@ -24,7 +24,7 @@ FRAGS="selfhost/str.ludic selfhost/buf.ludic selfhost/io.ludic selfhost/ast.ludi
 selfhost/lex.ludic selfhost/parse.ludic selfhost/parse_game.ludic selfhost/emit_core.ludic selfhost/emit_head.ludic
 selfhost/emit_addr.ludic selfhost/emit_intrin.ludic selfhost/emit_intrin2.ludic selfhost/emit_math.ludic selfhost/emit_new.ludic
 selfhost/emit_expr.ludic selfhost/emit_stmt.ludic selfhost/emit_ecs.ludic selfhost/emit_query.ludic selfhost/emit_spawn.ludic selfhost/emit_game.ludic selfhost/emit_machine.ludic selfhost/emit_save.ludic selfhost/emit_ui.ludic selfhost/emit_decl.ludic selfhost/main.ludic"
-{ echo "game SelfHost {"; for f in $FRAGS; do cat "$f"; echo; done; echo "}"; } > "$B/selfhost.ludic"
+{ echo "program SelfHost {"; for f in $FRAGS; do cat "$f"; echo; done; echo "}"; } > "$B/selfhost.ludic"
 
 # the seed-built compiler compiles its own source
 "$B/sh_seed" "$B/selfhost.ludic" > "$B/out.ll" 2>/dev/null || { echo "FAIL: seed compiler self-compile"; exit 1; }

selfhost/build.sh

@@ -33,7 +33,7 @@ selfhost/emit_ui.ludic
 selfhost/emit_decl.ludic
 selfhost/main.ludic"
 SRC=build/selfhost.ludic
-{ echo "game SelfHost {"; for f in $FRAGS; do cat "$f"; echo; done; echo "}"; } > "$SRC"
+{ echo "program SelfHost {"; for f in $FRAGS; do cat "$f"; echo; done; echo "}"; } > "$SRC"
 # the compiler emits IR to stdout; clang assembles and links it
 "$LC" "$SRC" > "$OUT.ll" 2>/dev/null && ${LUDIC_CC:-clang} "$OUT.ll" -o "$OUT" 2>/dev/null
 rc=$?; rm -f "$OUT.ll"; [ $rc -eq 0 ]

selfhost/emit_spawn.ludic

@@ -4,7 +4,7 @@
 fn emit_init_component(e: ptr, comp: ptr, rec: Node) -> void {
   let me = itoa(MAX_ENT)
   let c = find_comp(comp)
-  if ptr_is_null(c) { perr(sconcat("spawn: unknown component ", comp)) }
+  if ptr_is_null(c) { perr(sconcat("spawn: unknown property ", comp)) }
   let hp = nreg();  emit("  ");  emit(hp);  emit(" = getelementptr inbounds [");  emit(me);  emit(" x i8], ptr @H_");  emit(comp);  emit(", i32 0, i32 ");  emit(e);  emit("\n")
   emit("  store i8 1, ptr ");  emit(hp);  emit("\n")
   let slot = nreg()

selfhost/main.ludic

@@ -51,7 +51,7 @@ fn die(msg: ptr) -> void {
   os_exit(1)
 }
 
-main {
+entry {
   let path = ptr_null()
   let out  = ptr_null()
   let want = 0            # 0 = auto, 1 = windowed, 2 = headless

selfhost/parse.ludic

@@ -297,15 +297,15 @@ fn parse_one_decl() -> void {
   }
   if is_id("struct") { push(prog, parse_struct()); return }
   if is_id("enum") { push(prog, parse_enum()); return }
-  if is_id("component") { push(prog, parse_component()); return }
-  if is_id("archetype") { push(prog, parse_archetype()); return }
-  if is_id("system") { push(prog, parse_system()); return }
+  if is_id("property") { push(prog, parse_component()); return }
+  if is_id("model") { push(prog, parse_archetype()); return }
+  if is_id("handler") { push(prog, parse_system()); return }
   if is_id("ui") { push(prog, parse_ui()); return }
   if is_id("var")    { push(prog, parse_var()); return }
   if is_id("const")  { push(prog, parse_const()); return }
   if is_id("fn") { let f = parse_fn(); if is_export { f.ival = 1 };  push(prog, f); return }
   if is_id("extern") { push(prog, parse_extern()); return }
-  if is_id("main")   { push(prog, parse_main()); return }
+  if is_id("entry")  { push(prog, parse_main()); return }
   perr("expected declaration")
 }
 
@@ -342,7 +342,7 @@ fn parse_program() -> void {
   g_game_name = "Ludic"
   # imports may precede the game block
   while is_id("import") { pi = pi + 1; let t = toks[pi];  let rel = t.text;  pi = pi + 1;  do_import(rel); skipnl() }
-  if is_id("game") or is_id("module") { pi = pi + 1; g_game_name = eat_id(); skipnl(); eat_op("{") }
+  if is_id("program") { pi = pi + 1; g_game_name = eat_id(); skipnl(); eat_op("{") }
   while true {
     skipnl()
     if toks[pi].kind == TK_EOF { break }

selfhost/reseed.sh

@@ -11,7 +11,7 @@ FRAGS="selfhost/str.ludic selfhost/buf.ludic selfhost/io.ludic selfhost/ast.ludi
 selfhost/lex.ludic selfhost/parse.ludic selfhost/parse_game.ludic selfhost/emit_core.ludic selfhost/emit_head.ludic
 selfhost/emit_addr.ludic selfhost/emit_intrin.ludic selfhost/emit_intrin2.ludic selfhost/emit_math.ludic selfhost/emit_new.ludic
 selfhost/emit_expr.ludic selfhost/emit_stmt.ludic selfhost/emit_ecs.ludic selfhost/emit_query.ludic selfhost/emit_spawn.ludic selfhost/emit_game.ludic selfhost/emit_machine.ludic selfhost/emit_save.ludic selfhost/emit_ui.ludic selfhost/emit_decl.ludic selfhost/main.ludic"
-{ echo "game SelfHost {"; for f in $FRAGS; do cat "$f"; echo; done; echo "}"; } > "$B/selfhost.ludic"
+{ echo "program SelfHost {"; for f in $FRAGS; do cat "$f"; echo; done; echo "}"; } > "$B/selfhost.ludic"
 if $CC selfhost/ludicc.seed.ll -o "$B/sh_old" 2>/dev/null; then
   # compile once with the old seed, then AGAIN with the freshly built one so the
   # seed is a fixed point of the NEW compiler, not a one-step image of the old.

selfhost/tests/control.ludic

@@ -1,6 +1,6 @@
-game T {
+program T {
   fn fib(n: int) -> int { if n < 2 { return n };  return fib(n-1) + fib(n-2) }
-  main {
+  entry {
     print_int(fib(10))                 # 55
     let s = 0
     for i in 0 .. 10 { if i == 5 { break };  if i % 2 == 0 { continue };  s = s + i }

selfhost/tests/fixed.ludic

@@ -1,5 +1,5 @@
-game T {
-  main {
+program T {
+  entry {
     let half = 0.5
     let a = 1.5
     print_int(flr(a + half))          # flr(2.0) = 2

selfhost/tests/match_bits.ludic

@@ -1,9 +1,9 @@
-game T {
+program T {
   fn classify(c: int) -> int {
     match c { 65, 66 => { return 1 };  67 => { return 2 };  _ => { return 9 } }
     return 0
   }
-  main {
+  entry {
     print_int(classify(65))          # 1
     print_int(classify(67))          # 2
     print_int(classify(90))          # 9

selfhost/tests/slices.ludic

@@ -1,5 +1,5 @@
-game T {
-  main {
+program T {
+  entry {
     let xs = new []int
     print_int(len(xs))       # 0
     for i in 0 .. 20 { push(xs, i * i) }

selfhost/tests/structs.ludic

@@ -1,7 +1,7 @@
-game T {
+program T {
   struct P { x: int = 0, y: int = 7, next: P }
   fn bump(p: P) -> void { p.x = p.x + 100 }
-  main {
+  entry {
     let a = new P
     print_int(a.y)            # 7 default
     a.x = 5