cabd93caea
* tests: automated headless FreeDOS QEMU smoke Fully-automated counterpart to the manual run_freedos_qemu.sh: overlays the FreeDOS image (no mutation), stages the interpreter and a SYSTEM-terminated smoke on C:, injects the run plus poweroff into the image's startup batch, boots headless, and diffs OUT.TXT against the golden file. Local-dev only (needs qemu, a FreeDOS qcow2, mtools, nbd, and passwordless sudo); CI keeps using the DOSBox-X path. Exercises the binary on a real FreeDOS install rather than DOSBox-X emulation. * Release 0.18.0 Cross-language linking (link BASIC into C/Fortran, call C from BASIC via '$EXTERN), the v0.18 codegen/perf batch (paren string-comparison fix, --no-gc-check/--fast-math, larger 32-bit caps, process-local DATE$/TIME$), and the automated FreeDOS QEMU smoke. Bumps GW_VERSION and updates the banners, CHANGES.TXT, and the development history table. --------- Co-authored-by: Eremey Valetov <evvaletov@users.noreply.github.com>
101 lines
2.5 KiB
C
101 lines
2.5 KiB
C
#ifndef GWBASIC_H
|
|
#define GWBASIC_H
|
|
|
|
#include "types.h"
|
|
#include "tokens.h"
|
|
#include "error.h"
|
|
#include "hal.h"
|
|
#include "interp.h"
|
|
#include "eval.h"
|
|
#include "gw_math.h"
|
|
#include "strings.h"
|
|
|
|
#define GW_VERSION "0.18.0"
|
|
#define GW_BANNER "GW-BASIC " GW_VERSION
|
|
|
|
/* Tokenizer */
|
|
int gw_crunch(const char *text, uint8_t *out, int outsize);
|
|
void gw_list_line(uint8_t *tokens, int len, char *out, int outsize);
|
|
|
|
/* PRINT statement */
|
|
void gw_stmt_print(void);
|
|
void gw_print_value(gw_value_t *v);
|
|
void gw_print_newline(void);
|
|
|
|
/* LPRINT / LLIST (print.c) */
|
|
void gw_stmt_lprint(void);
|
|
void gw_stmt_llist(void);
|
|
void gw_lpt_set_path(const char *path);
|
|
void gw_lpt_close(void);
|
|
|
|
/* Line number parsing helper (interp.c) */
|
|
bool read_linenum(uint16_t *out);
|
|
|
|
/* Variables (vars.c) */
|
|
gw_valtype_t gw_parse_varname(char name_out[2]);
|
|
var_entry_t *gw_var_find_or_create(const char name[2], gw_valtype_t type);
|
|
void gw_var_assign(var_entry_t *var, gw_value_t *val);
|
|
void gw_vars_clear(void);
|
|
void gw_stmt_deftype(gw_valtype_t type);
|
|
void gw_stmt_swap(void);
|
|
|
|
/* Arrays (arrays.c) */
|
|
void gw_stmt_dim(void);
|
|
gw_value_t *gw_array_element(const char name[2], gw_valtype_t type);
|
|
void gw_stmt_erase(void);
|
|
void gw_stmt_option(void);
|
|
void gw_arrays_clear(void);
|
|
|
|
/* Input (input.c) */
|
|
void gw_stmt_input(void);
|
|
void gw_stmt_line_input(void);
|
|
|
|
/* DEF FN evaluation (interp.c) */
|
|
gw_value_t gw_eval_fn_call(void);
|
|
|
|
/* File I/O (fileio.c) */
|
|
file_entry_t *gw_file_get(int num);
|
|
void gw_file_close_all(void);
|
|
void gw_stmt_open(void);
|
|
void gw_stmt_close(void);
|
|
void gw_stmt_print_file(void);
|
|
void gw_stmt_write_file(void);
|
|
void gw_stmt_input_file(void);
|
|
void gw_stmt_line_input_file(void);
|
|
int gw_file_eof(int num);
|
|
|
|
/* Program I/O (program_io.c) */
|
|
void gw_stmt_save(void);
|
|
void gw_stmt_load(void);
|
|
void gw_stmt_merge(void);
|
|
void gw_stmt_load_internal(const char *filename, bool clear);
|
|
|
|
/* PRINT USING (print_using.c) */
|
|
void gw_print_using(FILE *fp);
|
|
|
|
/* MID$ assignment (interp.c) */
|
|
void gw_stmt_mid_assign(void);
|
|
|
|
/* Random-access file I/O (fileio.c) */
|
|
void gw_stmt_field(void);
|
|
void gw_stmt_lset(void);
|
|
void gw_stmt_rset(void);
|
|
void gw_stmt_put(void);
|
|
void gw_stmt_get(void);
|
|
|
|
/* MBF conversion functions (fileio.c) */
|
|
gw_value_t gw_fn_cvi(gw_value_t *s);
|
|
gw_value_t gw_fn_cvs(gw_value_t *s);
|
|
gw_value_t gw_fn_cvd(gw_value_t *s);
|
|
gw_value_t gw_fn_mki(int16_t n);
|
|
gw_value_t gw_fn_mks(float f);
|
|
gw_value_t gw_fn_mkd(double d);
|
|
|
|
/* CHAIN (interp.c) */
|
|
void gw_stmt_chain(void);
|
|
|
|
/* Error recovery for run loop */
|
|
extern jmp_buf gw_run_jmp;
|
|
|
|
#endif
|