Claude
16b9747d33
347 headers said "Licensed under the StarForth License, Version 1.0" -- a shortening (Captain Bob, 2026-11-08: "License file SL I think I shortened accidently"); LICENSE is, and has been since the first commit, the Starship License 1.0 (SL-1.0, SPDX LicenseRef-Starship-1.0). 349 files, 566 occurrences, now "Starship License, Version 1.0 (SL-1.0)". Left as they are, pending a ruling: docs/patent/ (the patent figures), docs/formal/ (the citable volumes) and the generated reports under docs/working/experiments/ (32 files). Comments and license text only: the amd64 kernel builds, every changed script parses. Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01GE3SDvQn5EoxdGufk84zz2
144 lines
4.7 KiB
C
144 lines
4.7 KiB
C
/*
|
||
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 Starship License, Version 1.0 (SL-1.0) (the "License");
|
||
you may not use this file except in compliance with the License.
|
||
|
||
You may obtain a copy of the License at:
|
||
https://github.com/star.4th@proton.me/StarForth/LICENSE.txt
|
||
|
||
This software is provided "AS IS", WITHOUT WARRANTY OF ANY KIND,
|
||
express or implied, including but not limited to the warranties of
|
||
merchantability, fitness for a particular purpose, and noninfringement.
|
||
|
||
See the License for the specific language governing permissions and
|
||
limitations under the License.
|
||
|
||
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 Starship License, Version 1.0 (SL-1.0) (the "License");
|
||
you may not use this file except in compliance with the License.
|
||
|
||
You may obtain a copy of the License at:
|
||
https://github.com/star.4th@proton.me/StarForth/LICENSE.txt
|
||
|
||
This software is provided "AS IS", WITHOUT WARRANTY OF ANY KIND,
|
||
express or implied, including but not limited to the warranties of
|
||
merchantability, fitness for a particular purpose, and noninfringement.
|
||
|
||
See the License for the specific language governing permissions and
|
||
limitations under the License.
|
||
|
||
*/
|
||
|
||
#include "../include/repl.h"
|
||
#include "../include/log.h"
|
||
#include "../include/vm.h"
|
||
#include <stdio.h>
|
||
|
||
/**
|
||
* @brief Extension point for non-recoverable VM errors (weak symbol).
|
||
*
|
||
* Called by the REPL when @c EMERGENCY_CONSOLE_ENABLED = 0 and an error
|
||
* occurs. The default implementation logs the fault at @c LOG_ERROR level
|
||
* and sets @c vm->halted = 1, causing the REPL loop to exit cleanly.
|
||
*
|
||
* Platforms that need hardware reset, watchdog kick, or JTAG debug-probe
|
||
* integration should provide a strong definition in a platform-specific file
|
||
* (e.g., @c starkernel/hal/fault.c) to override this weak default.
|
||
*
|
||
* @param vm Active VM whose @c vm->error triggered the fault path
|
||
*/
|
||
__attribute__((weak)) void vm_fault_handler(VM *vm) {
|
||
log_message(LOG_ERROR, "VM fault — emergency console disabled; halting");
|
||
vm->halted = 1;
|
||
}
|
||
|
||
/**
|
||
* @brief Starts the Forth REPL (Read-Eval-Print Loop)
|
||
*
|
||
* @param vm Pointer to the VM structure
|
||
* @param script_mode If 1, suppress prompts and "ok" output (for piped input)
|
||
*
|
||
* @details This function implements an interactive REPL for the Forth interpreter.
|
||
* It continuously reads input from the user, interprets it, and prints the result
|
||
* until the VM is halted or an error occurs.
|
||
*
|
||
* In interactive mode (script_mode=0):
|
||
* - Prints colored prompt "ok> "
|
||
* - Acknowledges successful commands with " ok"
|
||
* - Reports errors with " ERROR"
|
||
*
|
||
* In script mode (script_mode=1):
|
||
* - Suppresses all prompts and status messages
|
||
* - Suitable for piped input (heredoc, pipes, redirects)
|
||
*/
|
||
void vm_repl(VM *vm, int script_mode) {
|
||
if (!script_mode) {
|
||
log_message(LOG_INFO, "Starting Forth REPL");
|
||
}
|
||
|
||
char input[256];
|
||
while (!vm->halted && !vm->error) {
|
||
/* Print prompt only in interactive mode */
|
||
if (!script_mode) {
|
||
if (vm->zuse_session)
|
||
printf("\033[36mzuse)ok>\033[0m \033[92m");
|
||
else
|
||
printf("\033[36mok>\033[0m \033[92m");
|
||
fflush(stdout);
|
||
}
|
||
|
||
if (!fgets(input, sizeof(input), stdin)) {
|
||
if (!script_mode) {
|
||
printf("\033[0m");
|
||
fflush(stdout);
|
||
}
|
||
break;
|
||
}
|
||
|
||
if (!script_mode) {
|
||
printf("\033[0m");
|
||
fflush(stdout);
|
||
}
|
||
|
||
vm_interpret(vm, input);
|
||
|
||
/* ABORT stops mid-line (see vm_interpret/execute_colon_word) but the
|
||
* flag is left set for the caller to consume -- this REPL line is
|
||
* that boundary. Clear it here so the next line isn't silently
|
||
* refused by vm_interpret's own abort_requested check. */
|
||
vm->abort_requested = 0;
|
||
|
||
if (!script_mode) {
|
||
/* Print status only in interactive mode */
|
||
if (!vm->error) {
|
||
printf(" ok\n");
|
||
} else {
|
||
printf(" ERROR\n");
|
||
#if EMERGENCY_CONSOLE_ENABLED
|
||
vm->error = 0; /* recover: allow next input */
|
||
#else
|
||
vm_fault_handler(vm); /* non-recoverable: extension point */
|
||
#endif
|
||
}
|
||
} else {
|
||
if (vm->error) {
|
||
#if EMERGENCY_CONSOLE_ENABLED
|
||
vm->error = 0;
|
||
#else
|
||
vm_fault_handler(vm);
|
||
#endif
|
||
}
|
||
}
|
||
}
|
||
} |