Eremey Valetov
616259537a
Add variable storage (scalar and array), program line storage with RUN/LIST/NEW, and full control flow: FOR/NEXT, GOTO, GOSUB/RETURN, IF/THEN/ELSE, WHILE/WEND, ON GOTO/GOSUB, DATA/READ/RESTORE. New modules: interp.c (1445 lines - execution loop and statement dispatcher), vars.c, arrays.c, input.c. Version bumped to 0.2.0. 16 test programs pass including Leibniz pi and prime sieve.
101 lines
2.3 KiB
C
101 lines
2.3 KiB
C
#ifndef GW_TYPES_H
|
|
#define GW_TYPES_H
|
|
|
|
#include <stdint.h>
|
|
#include <stdbool.h>
|
|
|
|
/* Value types matching GW-BASIC's VALTYP */
|
|
typedef enum {
|
|
VT_INT = 2, /* 16-bit integer (%) */
|
|
VT_SNG = 4, /* single precision (!) */
|
|
VT_DBL = 8, /* double precision (#) */
|
|
VT_STR = 3, /* string ($) */
|
|
} gw_valtype_t;
|
|
|
|
/* String descriptor - matches original's 3-byte layout concept */
|
|
typedef struct {
|
|
uint8_t len;
|
|
char *data; /* malloc'd, NOT null-terminated */
|
|
} gw_string_t;
|
|
|
|
/* Unified value - the FAC (floating accumulator) equivalent */
|
|
typedef struct {
|
|
gw_valtype_t type;
|
|
union {
|
|
int16_t ival;
|
|
float fval;
|
|
double dval;
|
|
gw_string_t sval;
|
|
};
|
|
} gw_value_t;
|
|
|
|
/* Program line stored in memory */
|
|
typedef struct program_line {
|
|
struct program_line *next;
|
|
uint16_t num; /* line number 0-65529 */
|
|
uint16_t len; /* token data length */
|
|
uint8_t *tokens; /* tokenized line data */
|
|
} program_line_t;
|
|
|
|
/* Variable entry */
|
|
typedef struct {
|
|
char name[2]; /* 2-char name (original GW-BASIC limit) */
|
|
gw_valtype_t type;
|
|
gw_value_t val;
|
|
} var_entry_t;
|
|
|
|
/* Array entry */
|
|
typedef struct {
|
|
char name[2];
|
|
gw_valtype_t type;
|
|
int ndims;
|
|
int dims[8]; /* max dimensions per DIM */
|
|
int total_elements;
|
|
gw_value_t *data; /* malloc'd flat array */
|
|
} array_entry_t;
|
|
|
|
/* FOR stack entry */
|
|
typedef struct {
|
|
var_entry_t *var;
|
|
gw_value_t limit, step;
|
|
uint8_t *loop_text;
|
|
struct program_line *loop_line;
|
|
uint16_t line_num;
|
|
} for_entry_t;
|
|
|
|
/* GOSUB stack entry */
|
|
typedef struct {
|
|
uint8_t *ret_text;
|
|
struct program_line *ret_line;
|
|
uint16_t line_num;
|
|
} gosub_entry_t;
|
|
|
|
/* WHILE stack entry */
|
|
typedef struct {
|
|
uint8_t *while_text;
|
|
struct program_line *while_line;
|
|
uint16_t line_num;
|
|
} while_entry_t;
|
|
|
|
/* DEF FN entry */
|
|
typedef struct {
|
|
bool defined;
|
|
char param_name[2];
|
|
gw_valtype_t param_type, ret_type;
|
|
uint8_t *body_text;
|
|
struct program_line *body_line;
|
|
} fn_def_t;
|
|
|
|
/* MBF (Microsoft Binary Format) types for file compatibility */
|
|
typedef struct {
|
|
uint8_t mantissa[3];
|
|
uint8_t exponent;
|
|
} mbf_single_t;
|
|
|
|
typedef struct {
|
|
uint8_t mantissa[7];
|
|
uint8_t exponent;
|
|
} mbf_double_t;
|
|
|
|
#endif
|