rajamesandJunie
a8b70e88d3
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>
53 lines
1.6 KiB
C
53 lines
1.6 KiB
C
/*
|
||
StarForth — Steady-State Virtual Machine Runtime
|
||
|
||
Copyright (c) 2023–2025 Robert A. James
|
||
All rights reserved.
|
||
|
||
Licensed under the StarForth License, Version 1.0
|
||
*/
|
||
|
||
/* scroll_words.c — REPL scrollback entry points (FABRIC-0.md item 4.4q).
|
||
* Kernel-only; no-op on hosted builds. */
|
||
|
||
#include "include/scroll_words.h"
|
||
#include "../../include/log.h"
|
||
#include "../../include/word_registry.h"
|
||
|
||
#ifdef __STARKERNEL__
|
||
#include "starkernel/console.h"
|
||
|
||
/* SCROLL-BACK ( n -- ) -- move the REPL scrollback view back n lines.
|
||
* Relies on vm_pop()'s own underflow guard (sets vm->error, logs, returns
|
||
* 0) rather than a separate dsp precheck -- this codebase has more than
|
||
* one dsp convention across older word_source files (some treat it as a
|
||
* top-of-stack index, some as a raw count); vm_pop() is the one this word
|
||
* actually calls, so deferring to its own check sidesteps the mismatch
|
||
* entirely instead of risking silently picking the wrong one. */
|
||
static void scroll_word_back(VM *vm) {
|
||
cell_t n = vm_pop(vm);
|
||
if (vm->error) return;
|
||
if (n < 0) n = 0;
|
||
console_fb_scroll_back((uint32_t)n);
|
||
}
|
||
|
||
/* SCROLL-FWD ( n -- ) -- move the REPL scrollback view forward n lines
|
||
* (toward live). Same underflow-handling rationale as SCROLL-BACK above. */
|
||
static void scroll_word_fwd(VM *vm) {
|
||
cell_t n = vm_pop(vm);
|
||
if (vm->error) return;
|
||
if (n < 0) n = 0;
|
||
console_fb_scroll_fwd((uint32_t)n);
|
||
}
|
||
#endif /* __STARKERNEL__ */
|
||
|
||
void register_scroll_words(VM *vm)
|
||
{
|
||
#ifdef __STARKERNEL__
|
||
register_word(vm, "SCROLL-BACK", scroll_word_back);
|
||
register_word(vm, "SCROLL-FWD", scroll_word_fwd);
|
||
#else
|
||
(void) vm;
|
||
#endif
|
||
}
|