Reorganize source tree: kernel/, v3/, v4/ split and board infrastructure

Source tree reorganization: - Move StarForth v3 engine to v3/ (src/, include/, Makefile) - Move kernel to kernel/ (src/, include/, linker/, Makefile) - Create v4/ skeleton for F18-ISA golden model (DECOMPOSITION.md, JUSTIFICATION.md) - Move FABRIC-0..4.md to docs/fabric/ - Move ONTOLOGY.md and ROADMAP.md to docs/ Board infrastructure: - Add boards/ser5/, boards/raspi/, boards/milkv/, boards/zynq7020/ - Each board has board.mk (ISA, CPU flags, boot recipe) and README.md - Root Makefile becomes thin dispatcher: boot_image, all, clean, docs take TARGET - make boot_image TARGET=SER5|RASPI|MILKV builds one GPT/MBR image per board - ZYNQ7020 target exists but stops with clear error (ARMv7 port not built yet) - scripts/mkdiskimage.sh builds disk images for all boards Docs pipeline: - docs/book/ with LaTeX master (main.tex) and Makefile - pandoc converts Markdown to LaTeX at build time - Two Lua filters: table-widths.lua (wide tables wrap), code-breaks.lua (inline code breaks) - make docs builds single PDF (754 pages, 0 missing characters) - make docs TARGET=<board> adds board appendix - build/docs/<book|board>/meta.tex stamps git commit into PDF Bug fixes: - 42 include paths that only worked by accident now use correct relative paths - clang-18 hardcode replaced with configurable CC variable (fixed aarch64 build) - Pi 5: kernel_2712.img linked at 0x80000, .bss zeroed, memory reserved - Doxyfile, .clang-tidy, README.md, Kconfig paths updated Verified: - Hosted v3 build passes 1012 tests, 0 failures - SER5 image boots in QEMU (OVMF), POST passes, K exact (65536 = Q48_ONE) - Milk-V image boots in QEMU (OpenSBI + U-Boot + bootefi), POST passes - make clean TARGET=<board> removes only that board and its ISA objects - make all builds all boards, hosted v3, and docs in one run Co-authored-by: Junie <junie@jetbrains.com>
2026-10-01 15:40:09 -04:00
parent 3c709c115b
commit a8b70e88d3
630 changed files with 2646 additions and 2036 deletions
@@ -0,0 +1,105 @@
+/*
+  StarForth — Steady-State Virtual Machine Runtime
+
+  Copyright (c) 2023–2025 Robert A. James
+  All rights reserved.
+
+  This file is part of the StarForth project.
+
+  Licensed under the StarForth License, Version 1.0 (the "License");
+  you may not use this file except in compliance with the License.
+*/
+
+/**
+ * capsule_find.c - Capsule Lookup (M7.1)
+ *
+ * Lookup functions for capsule descriptors by ID, name, and role.
+ * Freestanding - no libc dependency.
+ */
+
+#include "starkernel/capsule.h"
+
+/*===========================================================================
+ * Internal: string comparison (no libc)
+ *===========================================================================*/
+
+static int capsule_streq(const char *a, const char *b) {
+    while (*a && *b) {
+        if (*a != *b) return 0;
+        a++;
+        b++;
+    }
+    return *a == *b;
+}
+
+/*===========================================================================
+ * capsule_find_by_id
+ *===========================================================================*/
+
+const CapsuleDesc *capsule_find_by_id(
+    const CapsuleDirHeader *dir,
+    const CapsuleDesc      *descs,
+    uint64_t                id)
+{
+    if (!dir || !descs) return (void *)0;
+
+    uint32_t i;
+    for (i = 0; i < dir->desc_count; i++) {
+        if (descs[i].capsule_id == id) {
+            return &descs[i];
+        }
+    }
+    return (void *)0;
+}
+
+/*===========================================================================
+ * capsule_find_by_name
+ *===========================================================================*/
+
+const CapsuleDesc *capsule_find_by_name(
+    const CapsuleDirHeader *dir,
+    const CapsuleDesc      *descs,
+    const CapsuleNameEntry *names,
+    const char             *name)
+{
+    if (!dir || !descs || !names || !name) return (void *)0;
+
+    uint32_t i;
+    for (i = 0; i < dir->desc_count; i++) {
+        if (capsule_streq(names[i].name, name)) {
+            return &descs[i];
+        }
+    }
+    return (void *)0;
+}
+
+/*===========================================================================
+ * capsule_find_mama_init
+ *===========================================================================*/
+
+const CapsuleDesc *capsule_find_mama_init(
+    const CapsuleDirHeader *dir,
+    const CapsuleDesc      *descs)
+{
+    if (!dir || !descs) return (void *)0;
+
+    uint32_t i;
+    for (i = 0; i < dir->desc_count; i++) {
+        if (CAPSULE_IS_MAMA_INIT(descs[i].flags)) {
+            return &descs[i];
+        }
+    }
+    return (void *)0;
+}
+
+/*===========================================================================
+ * capsule_get_payload
+ *===========================================================================*/
+
+const uint8_t *capsule_get_payload(
+    const CapsuleDesc *desc,
+    const uint8_t     *arena_base)
+{
+    if (!desc || !arena_base) return (void *)0;
+    return arena_base + desc->offset;
+}