diff options
| -rw-r--r-- | toys/pending/bc.c | 9297 |
1 files changed, 0 insertions, 9297 deletions
diff --git a/toys/pending/bc.c b/toys/pending/bc.c deleted file mode 100644 index bd48b029..00000000 --- a/toys/pending/bc.c +++ /dev/null @@ -1,9297 +0,0 @@ -/* bc.c - An implementation of POSIX bc. - * - * Copyright 2018 Gavin D. Howard <yzena.tech@gmail.com> - * - * See http://pubs.opengroup.org/onlinepubs/9699919799/utilities/bc.html - -USE_BC(NEWTOY(bc, "cilqsw", TOYFLAG_USR|TOYFLAG_BIN|TOYFLAG_LOCALE)) - -config BC - bool "bc" - default n - help - usage: bc [-cilqsw] [file ...] - - bc is a command-line calculator with a Turing-complete language. - - options: - - -c print generated code (for debugging) - -i force interactive mode - -l use predefined math routines: - - s(expr) = sine of expr in radians - c(expr) = cosine of expr in radians - a(expr) = arctangent of expr, returning radians - l(expr) = natural log of expr - e(expr) = raises e to the power of expr - j(n, x) = Bessel function of integer order n of x - - -q don't print version and copyright - -s error if any non-POSIX extensions are used - -w warn if any non-POSIX extensions are used - -*/ - -#include <assert.h> -#include <stdbool.h> - -#define FOR_bc -#include "toys.h" - -GLOBALS( - long bc_code; - long bc_interactive; - long bc_std; - long bc_warn; - - long bc_signal; -) - -#define BC_BASE_MAX_DEF (99) -#define BC_DIM_MAX_DEF (2048) -#define BC_SCALE_MAX_DEF (99) -#define BC_STRING_MAX_DEF (1024) - -typedef enum BcStatus { - - BC_STATUS_SUCCESS, - - BC_STATUS_MALLOC_FAIL, - BC_STATUS_IO_ERR, - - BC_STATUS_INVALID_PARAM, - - BC_STATUS_INVALID_OPTION, - - BC_STATUS_NO_LIMIT, - BC_STATUS_INVALID_LIMIT, - - BC_STATUS_VEC_OUT_OF_BOUNDS, - - BC_STATUS_VECO_OUT_OF_BOUNDS, - BC_STATUS_VECO_ITEM_EXISTS, - - BC_STATUS_LEX_INVALID_TOKEN, - BC_STATUS_LEX_NO_STRING_END, - BC_STATUS_LEX_NO_COMMENT_END, - BC_STATUS_LEX_EOF, - - BC_STATUS_PARSE_INVALID_TOKEN, - BC_STATUS_PARSE_INVALID_EXPR, - BC_STATUS_PARSE_INVALID_PRINT, - BC_STATUS_PARSE_INVALID_FUNC, - BC_STATUS_PARSE_INVALID_ASSIGN, - BC_STATUS_PARSE_NO_AUTO, - BC_STATUS_PARSE_LIMITS, - BC_STATUS_PARSE_QUIT, - BC_STATUS_PARSE_MISMATCH_NUM_FUNCS, - BC_STATUS_PARSE_DUPLICATE_LOCAL, - BC_STATUS_PARSE_EOF, - BC_STATUS_PARSE_BUG, - - BC_STATUS_MATH_NEGATIVE, - BC_STATUS_MATH_NON_INTEGER, - BC_STATUS_MATH_OVERFLOW, - BC_STATUS_MATH_DIVIDE_BY_ZERO, - BC_STATUS_MATH_NEG_SQRT, - BC_STATUS_MATH_INVALID_STRING, - BC_STATUS_MATH_INVALID_TRUNCATE, - - BC_STATUS_EXEC_FILE_ERR, - BC_STATUS_EXEC_MISMATCHED_PARAMS, - BC_STATUS_EXEC_UNDEFINED_FUNC, - BC_STATUS_EXEC_UNDEFINED_VAR, - BC_STATUS_EXEC_UNDEFINED_ARRAY, - BC_STATUS_EXEC_FILE_NOT_EXECUTABLE, - BC_STATUS_EXEC_SIGACTION_FAIL, - BC_STATUS_EXEC_INVALID_SCALE, - BC_STATUS_EXEC_INVALID_IBASE, - BC_STATUS_EXEC_INVALID_OBASE, - BC_STATUS_EXEC_INVALID_STMT, - BC_STATUS_EXEC_INVALID_EXPR, - BC_STATUS_EXEC_INVALID_STRING, - BC_STATUS_EXEC_STRING_LEN, - BC_STATUS_EXEC_INVALID_NAME, - BC_STATUS_EXEC_ARRAY_LENGTH, - BC_STATUS_EXEC_INVALID_READ_EXPR, - BC_STATUS_EXEC_RECURSIVE_READ, - BC_STATUS_EXEC_PRINT_ERR, - BC_STATUS_EXEC_INVALID_CONSTANT, - BC_STATUS_EXEC_INVALID_LVALUE, - BC_STATUS_EXEC_INVALID_RETURN, - BC_STATUS_EXEC_INVALID_LABEL, - BC_STATUS_EXEC_INVALID_TYPE, - BC_STATUS_EXEC_INVALID_STACK, - BC_STATUS_EXEC_HALT, - - BC_STATUS_POSIX_NAME_LEN, - BC_STATUS_POSIX_SCRIPT_COMMENT, - BC_STATUS_POSIX_INVALID_KEYWORD, - BC_STATUS_POSIX_DOT_LAST, - BC_STATUS_POSIX_RETURN_PARENS, - BC_STATUS_POSIX_BOOL_OPS, - BC_STATUS_POSIX_REL_OUTSIDE, - BC_STATUS_POSIX_MULTIPLE_REL, - BC_STATUS_POSIX_MISSING_FOR_INIT, - BC_STATUS_POSIX_MISSING_FOR_COND, - BC_STATUS_POSIX_MISSING_FOR_UPDATE, - BC_STATUS_POSIX_FUNC_HEADER_LEFT_BRACE, - -} BcStatus; - -typedef void (*BcFreeFunc)(void*); -typedef BcStatus (*BcCopyFunc)(void*, void*); - -// ** Exclude start. -typedef struct BcGlobals { - - long bc_code; - long bc_interactive; - long bc_std; - long bc_warn; - - long bc_signal; - -} BcGlobals; - -void bc_error(BcStatus status); -void bc_error_file(BcStatus status, const char *file, uint32_t line); - -BcStatus bc_posix_error(BcStatus status, const char *file, - uint32_t line, const char *msg); - -#define BC_VEC_INITIAL_CAP (32) - -typedef int (*BcVecCmpFunc)(void*, void*); - -typedef struct BcVec { - - uint8_t *array; - size_t len; - size_t cap; - size_t size; - - BcFreeFunc dtor; - -} BcVec; - -typedef struct BcVecO { - - BcVec vec; - BcVecCmpFunc cmp; - -} BcVecO; - -typedef signed char BcDigit; - -typedef struct BcNum { - - BcDigit *num; - size_t rdx; - size_t len; - size_t cap; - bool neg; - -} BcNum; - -#define BC_NUM_MIN_BASE (2) - -#define BC_NUM_MAX_INPUT_BASE (16) - -#define BC_NUM_MAX_OUTPUT_BASE (99) - -#define BC_NUM_DEF_SIZE (16) - -#define BC_NUM_FROM_CHAR(c) ((c) -'0') - -#define BC_NUM_TO_CHAR(n) ((n) + '0') - -#define BC_NUM_PRINT_WIDTH (69) - -#define BC_NUM_ZERO(n) (!(n)->len) - -#define BC_NUM_ONE(n) ((n)->len == 1 && (n)->rdx == 0 && (n)->num[0] == 1) - -#define BC_NUM_POS_ONE(n) (BC_NUM_ONE(n) && !(n)->neg) -#define BC_NUM_NEG_ONE(n) (BC_NUM_ONE(n) && (n)->neg) - -typedef BcStatus (*BcNumUnaryFunc)(BcNum*, BcNum*, size_t); -typedef BcStatus (*BcNumBinaryFunc)(BcNum*, BcNum*, BcNum*, size_t); - -typedef BcStatus (*BcNumDigitFunc)(unsigned long, size_t, size_t*, FILE*); - -BcStatus bc_num_init(BcNum *n, size_t request); - -BcStatus bc_num_expand(BcNum *n, size_t request); - -void bc_num_free(void *num); - -BcStatus bc_num_copy(void *dest, void *src); - -BcStatus bc_num_long(BcNum *n, long *result); -BcStatus bc_num_ulong(BcNum *n, unsigned long *result); - -BcStatus bc_num_long2num(BcNum *n, long val); -BcStatus bc_num_ulong2num(BcNum *n, unsigned long val); - -BcStatus bc_num_truncate(BcNum *n); - -BcStatus bc_num_add(BcNum *a, BcNum *b, BcNum *result, size_t scale); -BcStatus bc_num_sub(BcNum *a, BcNum *b, BcNum *result, size_t scale); -BcStatus bc_num_mul(BcNum *a, BcNum *b, BcNum *result, size_t scale); -BcStatus bc_num_div(BcNum *a, BcNum *b, BcNum *result, size_t scale); -BcStatus bc_num_mod(BcNum *a, BcNum *b, BcNum *result, size_t scale); - -int bc_num_compare(BcNum *a, BcNum *b); - -void bc_num_zero(BcNum *n); -void bc_num_one(BcNum *n); -void bc_num_ten(BcNum *n); - -#define BC_PROGRAM_MAX_STMTS (128) - -#define BC_PROGRAM_DEF_SIZE (16) - -typedef enum BcExprType { - - BC_EXPR_INC_PRE, - BC_EXPR_DEC_PRE, - - BC_EXPR_INC_POST, - BC_EXPR_DEC_POST, - - BC_EXPR_NEGATE, - - BC_EXPR_POWER, - - BC_EXPR_MULTIPLY, - BC_EXPR_DIVIDE, - BC_EXPR_MODULUS, - - BC_EXPR_PLUS, - BC_EXPR_MINUS, - - BC_EXPR_REL_EQUAL, - BC_EXPR_REL_LESS_EQ, - BC_EXPR_REL_GREATER_EQ, - BC_EXPR_REL_NOT_EQ, - BC_EXPR_REL_LESS, - BC_EXPR_REL_GREATER, - - BC_EXPR_BOOL_NOT, - - BC_EXPR_BOOL_OR, - BC_EXPR_BOOL_AND, - - BC_EXPR_ASSIGN_POWER, - BC_EXPR_ASSIGN_MULTIPLY, - BC_EXPR_ASSIGN_DIVIDE, - BC_EXPR_ASSIGN_MODULUS, - BC_EXPR_ASSIGN_PLUS, - BC_EXPR_ASSIGN_MINUS, - BC_EXPR_ASSIGN, - - BC_EXPR_NUMBER, - BC_EXPR_VAR, - BC_EXPR_ARRAY_ELEM, - - BC_EXPR_FUNC_CALL, - - BC_EXPR_SCALE_FUNC, - BC_EXPR_SCALE, - BC_EXPR_IBASE, - BC_EXPR_OBASE, - BC_EXPR_LAST, - BC_EXPR_LENGTH, - BC_EXPR_READ, - BC_EXPR_SQRT, - - BC_EXPR_PRINT, - -} BcExprType; - -typedef struct BcEntry { - - char *name; - size_t idx; - -} BcEntry; - -typedef struct BcAuto { - - char *name; - bool var; - - union { - - BcNum num; - BcVec array; - - } data; - -} BcAuto; - -typedef struct BcFunc { - - BcVec code; - - BcVec labels; - - BcVec params; - - BcVec autos; - -} BcFunc; - -typedef BcNum BcVar; - -typedef BcVec BcArray; - -typedef enum BcResultType { - - BC_RESULT_INTERMEDIATE, - - BC_RESULT_CONSTANT, - - BC_RESULT_VAR, - BC_RESULT_ARRAY, - - BC_RESULT_SCALE, - BC_RESULT_LAST, - BC_RESULT_IBASE, - BC_RESULT_OBASE, - - BC_RESULT_ONE, - -} BcResultType; - -typedef struct BcResult { - - BcResultType type; - - union { - - BcNum num; - - struct { - - char *name; - size_t idx; - - } id; - - } data; - -} BcResult; - -typedef struct BcInstPtr { - - size_t func; - size_t idx; - size_t len; - -} BcInstPtr; - -typedef BcStatus (*BcDataInitFunc)(void*); - -BcStatus bc_auto_init(void *auto1, char *name, bool var); -void bc_auto_free(void *auto1); - -#define BC_INST_CALL ((uint8_t) 'C') -#define BC_INST_RETURN ((uint8_t) 'R') -#define BC_INST_RETURN_ZERO ((uint8_t) '$') - -#define BC_INST_READ ((uint8_t) 'r') - -#define BC_INST_JUMP ((uint8_t) 'J') -#define BC_INST_JUMP_NOT_ZERO ((uint8_t) 'n') -#define BC_INST_JUMP_ZERO ((uint8_t) 'z') - -#define BC_INST_PUSH_VAR ((uint8_t) 'V') -#define BC_INST_PUSH_ARRAY ((uint8_t) 'A') - -#define BC_INST_PUSH_LAST ((uint8_t) 'L') -#define BC_INST_PUSH_SCALE ((uint8_t) '.') -#define BC_INST_PUSH_IBASE ((uint8_t) 'I') -#define BC_INST_PUSH_OBASE ((uint8_t) 'O') - -#define BC_INST_SCALE_FUNC ((uint8_t) 'a') -#define BC_INST_LENGTH ((uint8_t) 'l') -#define BC_INST_SQRT ((uint8_t) 'q') - -#define BC_INST_PUSH_NUM ((uint8_t) 'N') -#define BC_INST_POP ((uint8_t) 'P') -#define BC_INST_INC_DUP ((uint8_t) 'E') -#define BC_INST_DEC_DUP ((uint8_t) 'D') - -#define BC_INST_INC ((uint8_t) 'e') -#define BC_INST_DEC ((uint8_t) 'd') - -#define BC_INST_HALT ((uint8_t) 'H') - -#define BC_INST_PRINT ((uint8_t) 'p') -#define BC_INST_PRINT_EXPR ((uint8_t) 'Q') -#define BC_INST_STR ((uint8_t) 's') -#define BC_INST_PRINT_STR ((uint8_t) 'S') - -#define BC_INST_OP_POWER ((uint8_t) '^') -#define BC_INST_OP_MULTIPLY ((uint8_t) '*') -#define BC_INST_OP_DIVIDE ((uint8_t) '/') -#define BC_INST_OP_MODULUS ((uint8_t) '%') -#define BC_INST_OP_PLUS ((uint8_t) '+') -#define BC_INST_OP_MINUS ((uint8_t) '-') - -#define BC_INST_OP_REL_EQUAL ((uint8_t) '=') -#define BC_INST_OP_REL_LESS_EQ ((uint8_t) ';') -#define BC_INST_OP_REL_GREATER_EQ ((uint8_t) '?') -#define BC_INST_OP_REL_NOT_EQ ((uint8_t) '~') -#define BC_INST_OP_REL_LESS ((uint8_t) '<') -#define BC_INST_OP_REL_GREATER ((uint8_t) '>') - -#define BC_INST_OP_BOOL_NOT ((uint8_t) '!') - -#define BC_INST_OP_BOOL_OR ((uint8_t) '|') -#define BC_INST_OP_BOOL_AND ((uint8_t) '&') - -#define BC_INST_OP_NEGATE ((uint8_t) '_') - -#define BC_INST_OP_ASSIGN_POWER ((uint8_t) '`') -#define BC_INST_OP_ASSIGN_MULTIPLY ((uint8_t) '{') -#define BC_INST_OP_ASSIGN_DIVIDE ((uint8_t) '}') -#define BC_INST_OP_ASSIGN_MODULUS ((uint8_t) '@') -#define BC_INST_OP_ASSIGN_PLUS ((uint8_t) '[') -#define BC_INST_OP_ASSIGN_MINUS ((uint8_t) ']') -#define BC_INST_OP_ASSIGN ((uint8_t) ',') - -typedef int (*BcIoGetc)(void*); - -#define bc_io_gets(buf, n) bc_io_fgets((buf), (n), stdin) -#define bc_io_getline(p, n) bc_io_fgetline((p), (n), stdin) - -#define BC_LEX_GEN_ENUM(ENUM) ENUM, -#define BC_LEX_GEN_STR(STRING) #STRING, - -// BC_LEX_OP_NEGATE is not used in lexing; -// it is only for parsing. -#define BC_LEX_TOKEN_FOREACH(TOKEN) \ - TOKEN(BC_LEX_OP_INC) \ - TOKEN(BC_LEX_OP_DEC) \ - \ - TOKEN(BC_LEX_OP_NEGATE) \ - \ - TOKEN(BC_LEX_OP_POWER) \ - \ - TOKEN(BC_LEX_OP_MULTIPLY) \ - TOKEN(BC_LEX_OP_DIVIDE) \ - TOKEN(BC_LEX_OP_MODULUS) \ - \ - TOKEN(BC_LEX_OP_PLUS) \ - TOKEN(BC_LEX_OP_MINUS) \ - \ - TOKEN(BC_LEX_OP_REL_EQUAL) \ - TOKEN(BC_LEX_OP_REL_LESS_EQ) \ - TOKEN(BC_LEX_OP_REL_GREATER_EQ) \ - TOKEN(BC_LEX_OP_REL_NOT_EQ) \ - TOKEN(BC_LEX_OP_REL_LESS) \ - TOKEN(BC_LEX_OP_REL_GREATER) \ - \ - TOKEN(BC_LEX_OP_BOOL_NOT) \ - \ - TOKEN(BC_LEX_OP_BOOL_OR) \ - TOKEN(BC_LEX_OP_BOOL_AND) \ - \ - TOKEN(BC_LEX_OP_ASSIGN_POWER) \ - TOKEN(BC_LEX_OP_ASSIGN_MULTIPLY) \ - TOKEN(BC_LEX_OP_ASSIGN_DIVIDE) \ - TOKEN(BC_LEX_OP_ASSIGN_MODULUS) \ - TOKEN(BC_LEX_OP_ASSIGN_PLUS) \ - TOKEN(BC_LEX_OP_ASSIGN_MINUS) \ - TOKEN(BC_LEX_OP_ASSIGN) \ - \ - TOKEN(BC_LEX_NEWLINE) \ - \ - TOKEN(BC_LEX_WHITESPACE) \ - \ - TOKEN(BC_LEX_LEFT_PAREN) \ - TOKEN(BC_LEX_RIGHT_PAREN) \ - \ - TOKEN(BC_LEX_LEFT_BRACKET) \ - TOKEN(BC_LEX_RIGHT_BRACKET) \ - \ - TOKEN(BC_LEX_LEFT_BRACE) \ - TOKEN(BC_LEX_RIGHT_BRACE) \ - \ - TOKEN(BC_LEX_COMMA) \ - TOKEN(BC_LEX_SEMICOLON) \ - \ - TOKEN(BC_LEX_STRING) \ - TOKEN(BC_LEX_NAME) \ - TOKEN(BC_LEX_NUMBER) \ - \ - TOKEN(BC_LEX_KEY_AUTO) \ - TOKEN(BC_LEX_KEY_BREAK) \ - TOKEN(BC_LEX_KEY_CONTINUE) \ - TOKEN(BC_LEX_KEY_DEFINE) \ - TOKEN(BC_LEX_KEY_ELSE) \ - TOKEN(BC_LEX_KEY_FOR) \ - TOKEN(BC_LEX_KEY_HALT) \ - TOKEN(BC_LEX_KEY_IBASE) \ - TOKEN(BC_LEX_KEY_IF) \ - TOKEN(BC_LEX_KEY_LAST) \ - TOKEN(BC_LEX_KEY_LENGTH) \ - TOKEN(BC_LEX_KEY_LIMITS) \ - TOKEN(BC_LEX_KEY_OBASE) \ - TOKEN(BC_LEX_KEY_PRINT) \ - TOKEN(BC_LEX_KEY_QUIT) \ - TOKEN(BC_LEX_KEY_READ) \ - TOKEN(BC_LEX_KEY_RETURN) \ - TOKEN(BC_LEX_KEY_SCALE) \ - TOKEN(BC_LEX_KEY_SQRT) \ - TOKEN(BC_LEX_KEY_WHILE) \ - \ - TOKEN(BC_LEX_EOF) \ - \ - TOKEN(BC_LEX_INVALID) \ - -typedef enum BcLexTokenType { - BC_LEX_TOKEN_FOREACH(BC_LEX_GEN_ENUM) -} BcLexTokenType; - -typedef struct BcLexToken { - - BcLexTokenType type; - char *string; - -} BcLexToken; - -typedef struct BcLex { - - const char *buffer; - size_t idx; - uint32_t line; - bool newline; - const char *file; - size_t len; - -} BcLex; - -typedef struct BcLexKeyword { - - const char name[9]; - const unsigned char len; - const bool posix; - -} BcLexKeyword; - -#define KW_TABLE_ENTRY(a, b, c) { .name = a, .len = b, .posix = c } - -#define BC_PROGRAM_BUF_SIZE (1024) - -typedef struct BcProgram { - - BcVec ip_stack; - - size_t scale; - - BcNum ibase; - size_t ibase_t; - BcNum obase; - size_t obase_t; - - long base_max; - long dim_max; - long scale_max; - long string_max; - - BcVec expr_stack; - - BcVec stack; - - BcVec funcs; - - BcVecO func_map; - - BcVec vars; - - BcVecO var_map; - - BcVec arrays; - - BcVecO array_map; - - BcVec strings; - - BcVec constants; - - const char *file; - - BcNum last; - - BcNum zero; - BcNum one; - - char *num_buf; - size_t buf_size; - -} BcProgram; - -#define BC_PROGRAM_CHECK_STACK(p) ((p)->stack.len > 1) -#define BC_PROGRAM_CHECK_EXPR_STACK(p, l) ((p)->expr_stack.len >= (l)) - -#define BC_PROGRAM_MAIN_FUNC (0) -#define BC_PROGRAM_READ_FUNC (1) - -#define BC_PROGRAM_SEARCH_VAR (1<<0) -#define BC_PROGRAM_SEARCH_ARRAY_ONLY (1<<1) - -typedef BcStatus (*BcProgramExecFunc)(BcProgram*); -typedef unsigned long (*BcProgramBuiltInFunc)(BcNum*); -typedef void (*BcNumInitFunc)(BcNum*); - -BcStatus bc_program_func_add(BcProgram *p, char *name, size_t *idx); -BcStatus bc_program_exec(BcProgram *p); - -#define BC_PARSE_TOP_FLAG_PTR(parse) \ - ((uint8_t*) bc_vec_top(&(parse)->flags)) - -#define BC_PARSE_TOP_FLAG(parse) \ - (*(BC_PARSE_TOP_FLAG_PTR(parse))) - -#define BC_PARSE_FLAG_FUNC_INNER (0x01) - -#define BC_PARSE_FUNC_INNER(parse) \ - (BC_PARSE_TOP_FLAG(parse) & BC_PARSE_FLAG_FUNC_INNER) - -#define BC_PARSE_FLAG_FUNC (0x02) - -#define BC_PARSE_FUNC(parse) \ - (BC_PARSE_TOP_FLAG(parse) & BC_PARSE_FLAG_FUNC) - -#define BC_PARSE_FLAG_BODY (0x04) - -#define BC_PARSE_BODY(parse) \ - (BC_PARSE_TOP_FLAG(parse) & BC_PARSE_FLAG_BODY) - -#define BC_PARSE_FLAG_LOOP (0x08) - -#define BC_PARSE_LOOP(parse) \ - (BC_PARSE_TOP_FLAG(parse) & BC_PARSE_FLAG_LOOP) - -#define BC_PARSE_FLAG_LOOP_INNER (0x10) - -#define BC_PARSE_LOOP_INNER(parse) \ - (BC_PARSE_TOP_FLAG(parse) & BC_PARSE_FLAG_LOOP_INNER) - -#define BC_PARSE_FLAG_IF (0x20) - -#define BC_PARSE_IF(parse) \ - (BC_PARSE_TOP_FLAG(parse) & BC_PARSE_FLAG_IF) - -#define BC_PARSE_FLAG_ELSE (0x40) - -#define BC_PARSE_ELSE(parse) \ - (BC_PARSE_TOP_FLAG(parse) & BC_PARSE_FLAG_ELSE) - -#define BC_PARSE_FLAG_IF_END (0x80) - -#define BC_PARSE_IF_END(parse) \ - (BC_PARSE_TOP_FLAG(parse) & BC_PARSE_FLAG_IF_END) - -#define BC_PARSE_CAN_EXEC(parse) \ - (!(BC_PARSE_TOP_FLAG(parse) & (BC_PARSE_FLAG_FUNC_INNER | \ - BC_PARSE_FLAG_FUNC | \ - BC_PARSE_FLAG_BODY | \ - BC_PARSE_FLAG_LOOP | \ - BC_PARSE_FLAG_LOOP_INNER | \ - BC_PARSE_FLAG_IF | \ - BC_PARSE_FLAG_ELSE | \ - BC_PARSE_FLAG_IF_END))) - -// We can calculate the conversion between tokens and exprs -// by subtracting the position of the first operator in the -// lex enum and adding the position of the first in the expr -// enum. Note: This only works for binary operators. -#define BC_PARSE_TOKEN_TO_EXPR(type) ((type) - BC_LEX_OP_POWER + BC_EXPR_POWER) - -typedef struct BcOp { - - uint8_t prec; - bool left; - -} BcOp; - -typedef struct BcParse { - - BcLex lex; - BcLexToken token; - - BcVec flags; - - BcVec exit_labels; - - BcVec cond_labels; - - BcVec ops; - - BcProgram *program; - size_t func; - - uint32_t num_braces; - - bool auto_part; - -} BcParse; - -#define BC_PARSE_EXPR_POSIX_REL (1<<0) -#define BC_PARSE_EXPR_PRINT (1<<1) -#define BC_PARSE_EXPR_NO_CALL (1<<2) -#define BC_PARSE_EXPR_NO_READ (1<<3) - -BcStatus bc_parse_expr(BcParse *parse, BcVec *code, uint8_t flags); - -#define BC_VM_BUF_SIZE (1024) - -typedef struct BcVm { - - BcProgram program; - BcParse parse; - - int filec; - const char** filev; - -} BcVm; - -const char *bc_version = "0.1"; - -const char *bc_copyright = "bc copyright (c) 2018 Gavin D. Howard"; - -const char *bc_warranty_short = - "This is free software with ABSOLUTELY NO WARRANTY."; - -const char *bc_version_fmt = "bc %s\n%s\n\n%s\n\n"; - -const char *bc_err_types[] = { - - NULL, - - "bc", - "bc", - - "bc", - - "bc", - - "bc", - "bc", - - "vector", - - "ordered vector", - "ordered vector", - - "Lex", - "Lex", - "Lex", - "Lex", - - "Parse", - "Parse", - "Parse", - "Parse", - "Parse", - "Parse", - "Parse", - "Parse", - "Parse", - "Parse", - "Parse", - "Parse", - - "Math", - "Math", - "Math", - "Math", - "Math", - "Math", - "Math", - - "Runtime", - "Runtime", - "Runtime", - "Runtime", - "Runtime", - "Runtime", - "Runtime", - "Runtime", - "Runtime", - "Runtime", - "Runtime", - "Runtime", - "Runtime", - "Runtime", - "Runtime", - "Runtime", - "Runtime", - "Runtime", - "Runtime", - "Runtime", - "Runtime", - "Runtime", - "Runtime", - "Runtime", - "Runtime", - "Runtime", - - "POSIX", - "POSIX", - "POSIX", - "POSIX", - "POSIX", - "POSIX", - "POSIX", - "POSIX", - "POSIX", - "POSIX", - "POSIX", - "POSIX", - -}; - -const char *bc_err_descs[] = { - - NULL, - - "memory allocation error", - "I/O error", - - "invalid parameter", - - "invalid option", - - "one or more limits not specified", - "invalid limit; this is a bug in bc", - - "index is out of bounds for the vector and error was not caught; " - "this is probably a bug in bc", - - "index is out of bounds for the ordered vector and error was not caught; " - "this is probably a bug in bc", - "item already exists in ordered vector and error was not caught; " - "this is probably a bug in bc", - - "invalid token", - "string end could not be found", - "comment end could not be found", - "end of file", - - "invalid token", - "invalid expression", - "invalid print statement", - "invalid function definition", - "invalid assignment: must assign to scale, " - "ibase, obase, last, a variable, or an array element", - "no auto variable found", - "limits statement in file not handled correctly; " - "this is most likely a bug in bc", - "quit statement in file not exited correctly; " - "this is most likely a bug in bc", - "number of functions does not match the number of entries " - "in the function map; this is most likely a bug in bc", - "function parameter or auto var has the same name as another", - "end of file", - "bug in parser", - - "negative number", - "non integer number", - "overflow", - "divide by zero", - "negative square root", - "invalid number string", - "cannot truncate more places than exist after the decimal point", - - "couldn't open file", - "mismatched parameters", - "undefined function", - "undefined variable", - "undefined array", - "file is not executable", - "could not install signal handler", - "invalid value for scale; must be an integer in the range [0, BC_SCALE_MAX]", - "invalid value for ibase; must be an integer in the range [2, 16]", - "invalid value for obase; must be an integer in the range [2, BC_BASE_MAX]", - "invalid statement; this is most likely a bug in bc", - "invalid expression; this is most likely a bug in bc", - "invalid string", - "string too long: length must be in the range [0, BC_STRING_MAX]", - "invalid name/identifier", - "invalid array length; must be an integer in the range [1, BC_DIM_MAX]", - "invalid read() expression", - "read() call inside of a read() call", - "print error", - "invalid constant", - "invalid lvalue; cannot assign to constants or intermediate values", - "cannot return from function; no function to return from", - "invalid label; this is probably a bug in bc", - "variable is wrong type", - "invalid stack; this is probably a bug in bc", - "bc was not halted correctly; this is a bug in bc", - - "POSIX only allows one character names; the following is invalid:", - "POSIX does not allow '#' script comments", - "POSIX does not allow the following keyword:", - "POSIX does not allow a period ('.') as a shortcut for the last result", - "POSIX requires parentheses around return expressions", - "POSIX does not allow boolean operators; the following is invalid:", - "POSIX does not allow comparison operators outside if or loops", - "POSIX does not allow more than one comparison operator per condition", - "POSIX does not allow an empty init expression in a for loop", - "POSIX does not allow an empty condition expression in a for loop", - "POSIX does not allow an empty update expression in a for loop", - "POSIX requires the left brace be on the same line as the function header", - -}; - -const char *bc_lang_func_main = "(main)"; -const char *bc_lang_func_read = "(read)"; - -const char *bc_lex_token_type_strs[] = { - BC_LEX_TOKEN_FOREACH(BC_LEX_GEN_STR) -}; - -const BcLexKeyword bc_lex_keywords[20] = { - KW_TABLE_ENTRY("auto", 4, true), - KW_TABLE_ENTRY("break", 5, true), - KW_TABLE_ENTRY("continue", 8, false), - KW_TABLE_ENTRY("define", 6, true), - KW_TABLE_ENTRY("else", 4, false), - KW_TABLE_ENTRY("for", 3, true), - KW_TABLE_ENTRY("halt", 4, false), - KW_TABLE_ENTRY("ibase", 5, true), - KW_TABLE_ENTRY("if", 2, true), - KW_TABLE_ENTRY("last", 4, false), - KW_TABLE_ENTRY("length", 6, true), - KW_TABLE_ENTRY("limits", 6, false), - KW_TABLE_ENTRY("obase", 5, true), - KW_TABLE_ENTRY("print", 5, false), - KW_TABLE_ENTRY("quit", 4, true), - KW_TABLE_ENTRY("read", 4, false), - KW_TABLE_ENTRY("return", 6, true), - KW_TABLE_ENTRY("scale", 5, true), - KW_TABLE_ENTRY("sqrt", 4, true), - KW_TABLE_ENTRY("while", 5, true), -}; - -const char bc_num_hex_digits[] = "0123456789ABCDEF"; - -// This is an array that corresponds to token types. An entry is -// true if the token is valid in an expression, false otherwise. -const bool bc_parse_token_exprs[] = { - - true, - true, - - true, - - true, - true, - true, - - true, - true, - - true, - true, - true, - true, - true, - true, - true, - - true, - true, - true, - true, - true, - true, - - true, - - true, - true, - - true, - - false, - - false, - - true, - true, - - false, - false, - - false, - false, - - false, - false, - - false, - true, - true, - - false, - false, - false, - false, - false, - false, - false, - true, - false, - true, - true, - true, - true, - false, - false, - true, - false, - true, - true, - false, - - false, - - false, -}; - -// This is an array of data for operators that correspond to token types. -// The last corresponds to BC_PARSE_OP_NEGATE_IDX since it doesn't have -// its own token type (it is the same token at the binary minus operator). -const BcOp bc_parse_ops[] = { - - { 0, false }, - { 0, false }, - - { 1, false }, - - { 2, false }, - - { 3, true }, - { 3, true }, - { 3, true }, - - { 4, true }, - { 4, true }, - - { 6, true }, - { 6, true }, - { 6, true }, - { 6, true }, - { 6, true }, - { 6, true }, - - { 7, false }, - - { 8, true }, - { 8, true }, - - { 5, false }, - { 5, false }, - { 5, false }, - { 5, false }, - { 5, false }, - { 5, false }, - { 5, false }, - -}; - -const uint8_t bc_parse_insts[] = { - - BC_INST_OP_NEGATE, - - BC_INST_OP_POWER, - - BC_INST_OP_MULTIPLY, - BC_INST_OP_DIVIDE, - BC_INST_OP_MODULUS, - - BC_INST_OP_PLUS, - BC_INST_OP_MINUS, - - BC_INST_OP_REL_EQUAL, - BC_INST_OP_REL_LESS_EQ, - BC_INST_OP_REL_GREATER_EQ, - BC_INST_OP_REL_NOT_EQ, - BC_INST_OP_REL_LESS, - BC_INST_OP_REL_GREATER, - - BC_INST_OP_BOOL_NOT, - - BC_INST_OP_BOOL_NOT, - BC_INST_OP_BOOL_AND, - - BC_INST_OP_ASSIGN_POWER, - BC_INST_OP_ASSIGN_MULTIPLY, - BC_INST_OP_ASSIGN_DIVIDE, - BC_INST_OP_ASSIGN_MODULUS, - BC_INST_OP_ASSIGN_PLUS, - BC_INST_OP_ASSIGN_MINUS, - BC_INST_OP_ASSIGN, - -}; - -const char *bc_program_byte_fmt = "%02x"; - -const BcNumBinaryFunc bc_program_math_ops[] = { - - bc_num_mod, - NULL, // & - NULL, // ' - NULL, // ( - NULL, // ) - bc_num_mul, - bc_num_add, - NULL, // , - bc_num_sub, - NULL, // . - bc_num_div, - -}; - -const char *bc_program_stdin_name = "<stdin>"; - -const char *bc_program_ready_prompt = "ready for more input\n\n"; - -const char *bc_program_sigint_msg = "\n\ninterrupt (type \"quit\" to exit)\n\n"; -const char *bc_lib_name = "lib.bc"; - -const unsigned char bc_lib[] = { - 115,99,97,108,101,61,50,48,10,100,101,102,105,110,101,32,101,40,120,41,123, - 10,9,97,117,116,111,32,98,44,115,44,110,44,114,44,100,44,105,44,112,44,102, - 44,118,10,9,98,61,105,98,97,115,101,10,9,105,98,97,115,101,61,65,10,9,105,102, - 40,120,60,48,41,123,10,9,9,110,61,49,10,9,9,120,61,45,120,10,9,125,10,9,115, - 61,115,99,97,108,101,10,9,114,61,115,43,55,43,48,46,52,53,42,120,10,9,115,99, - 97,108,101,61,115,99,97,108,101,40,120,41,43,49,10,9,119,104,105,108,101,40, - 120,62,49,41,123,10,9,9,100,43,61,49,10,9,9,120,47,61,50,10,9,9,115,99,97,108, - 101,43,61,49,10,9,125,10,9,115,99,97,108,101,61,114,10,9,114,61,120,43,49,10, - 9,112,61,120,10,9,102,61,49,10,9,102,111,114,40,105,61,50,59,49,59,43,43,105, - 41,123,10,9,9,112,42,61,120,59,10,9,9,102,42,61,105,10,9,9,118,61,112,47,102, - 10,9,9,105,102,40,101,61,61,48,41,98,114,101,97,107,10,9,9,114,43,61,118,10, - 9,125,10,9,119,104,105,108,101,40,102,45,45,41,114,42,61,114,10,9,115,99,97, - 108,101,61,115,10,9,105,98,97,115,101,61,98,10,9,105,102,40,109,41,114,101, - 116,117,114,110,40,49,47,114,41,10,9,114,101,116,117,114,110,40,114,47,49,41, - 10,125,10,100,101,102,105,110,101,32,108,40,120,41,123,10,9,97,117,116,111, - 32,98,44,115,44,114,44,112,44,97,44,113,44,105,44,118,10,9,98,61,105,98,97, - 115,101,10,9,105,98,97,115,101,61,65,10,9,105,102,40,120,60,61,48,41,123,10, - 9,9,114,61,40,49,45,49,48,94,115,99,97,108,101,41,47,49,10,9,9,105,98,97,115, - 101,61,98,10,9,9,114,101,116,117,114,110,40,114,41,10,9,125,10,9,115,61,115, - 99,97,108,101,10,9,115,99,97,108,101,43,61,55,10,9,112,61,50,10,9,119,104,105, - 108,101,40,120,62,61,50,41,123,10,9,9,112,42,61,50,10,9,9,120,61,115,113,114, - 116,40,120,41,10,9,125,10,9,119,104,105,108,101,40,120,60,61,48,46,53,41,123, - 10,9,9,112,42,61,50,10,9,9,120,61,115,113,114,116,40,120,41,10,9,125,10,9,114, - 61,97,61,40,120,45,49,41,47,40,120,43,49,41,10,9,113,61,97,42,97,10,9,102,111, - 114,40,105,61,51,59,49,59,105,43,61,50,41,123,10,9,9,110,42,61,109,10,9,9,118, - 61,110,47,105,10,9,9,105,102,40,101,61,61,48,41,98,114,101,97,107,10,9,9,114, - 43,61,118,10,9,125,10,9,114,42,61,112,10,9,115,99,97,108,101,61,115,10,9,105, - 98,97,115,101,61,98,10,9,114,101,116,117,114,110,40,114,47,49,41,10,125,10, - 100,101,102,105,110,101,32,115,40,120,41,123,10,9,97,117,116,111,32,98,44,115, - 44,114,44,110,44,97,44,113,44,105,10,9,98,61,105,98,97,115,101,10,9,105,98, - 97,115,101,61,65,10,9,115,61,115,99,97,108,101,10,9,115,99,97,108,101,61,49, - 46,51,42,115,43,50,10,9,97,61,97,40,49,41,10,9,105,102,40,120,60,48,41,123, - 10,9,9,110,61,49,10,9,9,120,61,45,120,10,9,125,10,9,115,99,97,108,101,61,48, - 10,9,113,61,40,120,47,97,43,50,41,47,52,10,9,120,45,61,52,42,113,42,97,10,9, - 105,102,40,113,37,50,41,120,61,45,120,10,9,115,99,97,108,101,61,115,43,50,10, - 9,114,61,97,61,120,10,9,113,61,45,120,42,120,10,9,102,111,114,40,105,61,51, - 59,49,59,105,43,61,50,41,123,10,9,9,97,42,61,113,47,40,105,42,40,105,45,49, - 41,41,10,9,9,105,102,40,97,61,61,48,41,98,114,101,97,107,10,9,9,114,43,61,97, - 10,9,125,10,9,115,99,97,108,101,61,115,10,9,105,98,97,115,101,61,98,10,9,105, - 102,40,110,41,114,101,116,117,114,110,40,45,114,47,49,41,10,9,114,101,116,117, - 114,110,40,114,47,49,41,10,125,10,100,101,102,105,110,101,32,99,40,120,41,123, - 10,9,97,117,116,111,32,98,44,115,10,9,98,61,105,98,97,115,101,10,9,105,98,97, - 115,101,61,65,10,9,115,61,115,99,97,108,101,10,9,115,99,97,108,101,43,61,49, - 10,9,120,61,115,40,50,42,97,40,49,41,43,120,41,10,9,115,99,97,108,101,61,115, - 10,9,105,98,97,115,101,61,98,10,9,114,101,116,117,114,110,40,120,47,49,41,10, - 125,10,100,101,102,105,110,101,32,97,40,120,41,123,10,9,97,117,116,111,32,98, - 44,115,44,114,44,110,44,97,44,109,44,116,44,102,44,105,44,117,10,9,98,61,105, - 98,97,115,101,10,9,105,98,97,115,101,61,65,10,9,110,61,49,10,9,105,102,40,120, - 60,48,41,123,10,9,9,110,61,45,49,10,9,9,120,61,45,120,10,9,125,10,9,105,102, - 40,120,61,61,49,41,123,10,9,9,105,102,40,115,99,97,108,101,60,61,54,52,41,123, - 10,9,9,9,114,101,116,117,114,110,40,46,55,56,53,51,57,56,49,54,51,51,57,55, - 52,52,56,51,48,57,54,49,53,54,54,48,56,52,53,56,49,57,56,55,53,55,50,49,48, - 52,57,50,57,50,51,52,57,56,52,51,55,55,54,52,53,53,50,52,51,55,51,54,49,52, - 56,48,47,110,41,10,9,9,125,10,9,125,10,9,105,102,40,120,61,61,46,50,54,55,41, - 123,10,9,9,105,102,40,115,99,97,108,101,60,61,54,52,41,123,10,9,9,9,114,101, - 116,117,114,110,40,46,50,54,48,57,49,51,53,54,57,50,51,50,57,52,48,53,55,57, - 53,57,54,55,56,53,50,54,55,55,55,55,57,56,54,53,54,51,57,55,55,52,55,52,48, - 50,51,57,56,56,50,52,52,53,56,50,50,51,50,57,56,56,50,57,49,55,47,110,41,10, - 9,9,125,10,9,125,10,9,115,61,115,99,97,108,101,10,9,105,102,40,120,62,46,50, - 54,55,41,123,10,9,9,115,99,97,108,101,43,61,53,10,9,9,97,61,97,40,46,50,54, - 55,41,10,9,125,10,9,115,99,97,108,101,61,115,43,51,10,9,119,104,105,108,101, - 40,120,62,46,50,54,55,41,123,10,9,9,109,43,61,49,10,9,9,120,61,40,120,45,46, - 50,54,55,41,47,40,49,43,46,50,54,55,42,120,41,10,9,125,10,9,114,61,117,61,120, - 10,9,102,61,45,120,42,120,10,9,102,111,114,40,105,61,51,59,49,59,105,43,61, - 50,41,123,10,9,9,117,42,61,102,10,9,9,116,61,117,47,105,10,9,9,105,102,40,116, - 61,61,48,41,98,114,101,97,107,10,9,9,114,43,61,116,10,9,125,10,9,115,99,97, - 108,101,61,115,10,9,105,98,97,115,101,61,98,10,9,114,101,116,117,114,110,40, - 40,109,42,97,43,114,41,47,110,41,10,125,10,100,101,102,105,110,101,32,106,40, - 110,44,120,41,123,10,9,97,117,116,111,32,98,44,115,44,111,44,97,44,105,44,118, - 44,102,10,9,98,61,105,98,97,115,101,10,9,105,98,97,115,101,61,65,10,9,115,61, - 115,99,97,108,101,10,9,115,99,97,108,101,61,48,10,9,110,47,61,49,10,9,105,102, - 40,110,60,48,41,123,10,9,9,110,61,45,110,10,9,9,105,102,40,110,37,50,61,61, - 49,41,111,61,49,10,9,125,10,9,97,61,49,10,9,102,111,114,40,105,61,50,59,105, - 60,61,110,59,43,43,105,41,102,42,61,105,10,9,115,99,97,108,101,61,49,46,53, - 42,115,10,9,97,61,40,120,94,110,41,47,40,50,94,110,42,97,41,10,9,114,61,118, - 61,49,10,9,102,61,45,120,42,120,47,52,10,9,115,99,97,108,101,43,61,108,101, - 110,103,116,104,40,97,41,45,115,99,97,108,101,40,97,41,10,9,102,111,114,40, - 105,61,49,59,49,59,43,43,105,41,123,10,9,9,118,61,118,42,115,47,105,47,40,110, - 43,105,41,10,9,9,105,102,40,118,61,61,48,41,98,114,101,97,107,10,9,9,114,43, - 61,118,10,9,125,10,9,115,99,97,108,101,61,115,10,9,105,98,97,115,101,61,98, - 10,9,105,102,40,111,41,114,101,116,117,114,110,40,45,97,42,114,47,49,41,10, - 9,114,101,116,117,114,110,40,97,42,114,47,49,41,10,125,10,0 -}; - -BcStatus bc_vec_double(BcVec *vec) { - - uint8_t *ptr; - - ptr = realloc(vec->array, vec->size * (vec->cap * 2)); - - if (!ptr) return BC_STATUS_MALLOC_FAIL; - - vec->array = ptr; - vec->cap *= 2; - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_vec_init(BcVec *vec, size_t esize, BcFreeFunc dtor) { - - if (vec == NULL || esize == 0) return BC_STATUS_INVALID_PARAM; - - vec->size = esize; - vec->cap = BC_VEC_INITIAL_CAP; - vec->len = 0; - vec->dtor = dtor; - - vec->array = malloc(esize * BC_VEC_INITIAL_CAP); - - if (!vec->array) return BC_STATUS_MALLOC_FAIL; - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_vec_expand(BcVec *vec, size_t request) { - - uint8_t *ptr; - - if (!vec) return BC_STATUS_INVALID_PARAM; - - if (vec->cap >= request) return BC_STATUS_SUCCESS; - - ptr = realloc(vec->array, vec->size * request); - - if (!ptr) return BC_STATUS_MALLOC_FAIL; - - vec->array = ptr; - vec->cap = request; - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_vec_push(BcVec *vec, void *data) { - - BcStatus status; - size_t size; - - if (vec == NULL || data == NULL) return BC_STATUS_INVALID_PARAM; - - if (vec->len == vec->cap) { - - status = bc_vec_double(vec); - - if (status) return status; - } - - size = vec->size; - memmove(vec->array + (size * vec->len), data, size); - - ++vec->len; - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_vec_pushByte(BcVec *vec, uint8_t data) { - - BcStatus status; - - if (vec == NULL || vec->size != sizeof(uint8_t)) - return BC_STATUS_INVALID_PARAM; - - if (vec->len == vec->cap) { - - status = bc_vec_double(vec); - - if (status) return status; - } - - vec->array[vec->len] = data; - - ++vec->len; - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_vec_pushAt(BcVec *vec, void *data, size_t idx) { - - BcStatus status; - uint8_t *ptr; - size_t size; - - if (vec == NULL || data == NULL || idx > vec->len) - return BC_STATUS_INVALID_PARAM; - - if (idx == vec->len) return bc_vec_push(vec, data); - - if (vec->len == vec->cap) { - - status = bc_vec_double(vec); - - if (status) return status; - } - - size = vec->size; - ptr = vec->array + size * idx; - - memmove(ptr + size, ptr, size * (vec->len - idx)); - memmove(ptr, data, size); - - ++vec->len; - - return BC_STATUS_SUCCESS; -} - -void* bc_vec_top(const BcVec *vec) { - - if (vec == NULL || vec->len == 0) return NULL; - - return vec->array + vec->size * (vec->len - 1); -} - -void* bc_vec_item(const BcVec *vec, size_t idx) { - - if (vec == NULL || vec->len == 0 || idx >= vec->len) return NULL; - - return vec->array + vec->size * idx; -} - -void* bc_vec_item_rev(const BcVec *vec, size_t idx) { - - if (vec == NULL || vec->len == 0 || idx >= vec->len) return NULL; - - return vec->array + vec->size * (vec->len - idx - 1); -} - -BcStatus bc_vec_pop(BcVec *vec) { - - if (vec == NULL) return BC_STATUS_INVALID_PARAM; - - if (!vec->len) return BC_STATUS_VEC_OUT_OF_BOUNDS; - - --vec->len; - - if (vec->dtor) vec->dtor(vec->array + (vec->size * vec->len)); - - return BC_STATUS_SUCCESS; -} - -void bc_vec_free(void *vec) { - - BcVec *s; - size_t len; - size_t esize; - BcFreeFunc sfree; - uint8_t *array; - - s = (BcVec*) vec; - - if (s == NULL) return; - - sfree = s->dtor; - - if (sfree) { - size_t i; - - len = s->len; - array = s->array; - esize = s->size; - - for (i = 0; i < len; ++i) sfree(array + (i * esize)); - } - - free(s->array); - - s->size = 0; - s->array = NULL; - s->len = 0; - s->cap = 0; -} - -size_t bc_veco_find(const BcVecO* vec, void *data) { - - BcVecCmpFunc cmp; - size_t low, high; - - cmp = vec->cmp; - - low = 0; - high = vec->vec.len; - - while (low < high) { - - size_t mid; - int result; - uint8_t *ptr; - - mid = (low + high) / 2; - - ptr = bc_vec_item(&vec->vec, mid); - - result = cmp(data, ptr); - - if (!result) return mid; - - if (result < 0) high = mid; - else low = mid + 1; - } - - return low; -} - -BcStatus bc_veco_init(BcVecO* vec, size_t esize, - BcFreeFunc dtor, BcVecCmpFunc cmp) -{ - if (!vec || esize == 0 || !cmp) return BC_STATUS_INVALID_PARAM; - - vec->cmp = cmp; - - return bc_vec_init(&vec->vec, esize, dtor); -} - -BcStatus bc_veco_insert(BcVecO* vec, void *data, size_t *idx) { - - BcStatus status; - - if (!vec || !data) return BC_STATUS_INVALID_PARAM; - - *idx = bc_veco_find(vec, data); - - if (*idx > vec->vec.len) return BC_STATUS_VECO_OUT_OF_BOUNDS; - - if (*idx != vec->vec.len && !vec->cmp(data, bc_vec_item(&vec->vec, *idx))) - return BC_STATUS_VECO_ITEM_EXISTS; - - if (*idx >= vec->vec.len) { - *idx = vec->vec.len; - status = bc_vec_push(&vec->vec, data); - } - else status = bc_vec_pushAt(&vec->vec, data, *idx); - - return status; -} - -size_t bc_veco_index(const BcVecO* vec, void *data) { - - size_t idx; - - if (!vec || !data) return BC_STATUS_INVALID_PARAM; - - idx = bc_veco_find(vec, data); - - if (idx >= vec->vec.len || vec->cmp(data, bc_vec_item(&vec->vec, idx))) - return -1; - - return idx; -} - -void* bc_veco_item(const BcVecO* vec, size_t idx) { - return bc_vec_item(&vec->vec, idx); -} - -void bc_veco_free(BcVecO* vec) { - bc_vec_free(&vec->vec); -} - -int bc_num_compareDigits(BcNum *a, BcNum *b, size_t *digits) { - - size_t i; - size_t min; - BcDigit *max_num; - BcDigit *min_num; - bool a_max; - bool neg; - size_t a_int; - size_t b_int; - BcDigit *ptr_a; - BcDigit *ptr_b; - size_t diff; - int cmp; - BcDigit c; - - *digits = 0; - - if (!a) { - - if (!b) return 0; - else return b->neg ? 1 : -1; - } - else if (!b) return a->neg ? -1 : 1; - - neg = false; - - if (a->neg) { - - if (b->neg) neg = true; - else return -1; - } - else if (b->neg) return 1; - - if (BC_NUM_ZERO(a)) { - cmp = b->neg ? 1 : -1; - return BC_NUM_ZERO(b) ? 0 : cmp; - } - else if (BC_NUM_ZERO(b)) return a->neg ? -1 : 1; - - a_int = a->len - a->rdx; - b_int = b->len - b->rdx; - - if (a_int > b_int) return 1; - else if (b_int > a_int) return -1; - - ptr_a = a->num + a->rdx; - ptr_b = b->num + b->rdx; - - for (i = a_int - 1; i < a_int; --i, ++(*digits)) { - c = ptr_a[i] - ptr_b[i]; - if (c) return neg ? -c : c; - } - - a_max = a->rdx > b->rdx; - - if (a_max) { - - min = b->rdx; - - diff = a->rdx - b->rdx; - - max_num = a->num + diff; - min_num = b->num; - - for (i = min - 1; i < min; --i, ++(*digits)) { - c = max_num[i] - min_num[i]; - if (c) return neg ? -c : c; - } - - max_num -= diff; - - for (i = diff - 1; i < diff; --i) { - if (max_num[i]) return neg ? -1 : 1; - } - } - else { - - min = a->rdx; - - diff = b->rdx - a->rdx; - - max_num = b->num + diff; - min_num = a->num; - - for (i = min - 1; i < min; --i, ++(*digits)) { - c = max_num[i] - min_num[i]; - if (c) return neg ? c : -c; - } - - max_num -= diff; - - for (i = diff - 1; i < diff; --i) { - if (max_num[i]) return neg ? 1 : -1; - } - } - - return 0; -} - -int bc_num_compareArrays(BcDigit *array1, BcDigit *array2, size_t len) { - - size_t i; - BcDigit c; - - if (array1[len]) return 1; - - for (i = len - 1; i < len; --i) { - c = array1[i] - array2[i]; - if (c) return c; - } - - return 0; -} - -BcStatus bc_num_trunc(BcNum *n, size_t places) { - - BcDigit *ptr; - - if (places > n->rdx) return BC_STATUS_MATH_INVALID_TRUNCATE; - - if (places == 0) return BC_STATUS_SUCCESS; - - ptr = n->num + places; - - n->len -= places; - n->rdx -= places; - - memmove(n->num, ptr, n->len * sizeof(BcDigit)); - - memset(n->num + n->len, 0, sizeof(BcDigit) * (n->cap - n->len)); - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_num_extend(BcNum *n, size_t places) { - - BcStatus status; - BcDigit *ptr; - size_t len; - - if (places == 0) return BC_STATUS_SUCCESS; - - len = n->len + places; - - if (n->cap < len) { - - status = bc_num_expand(n, len); - - if (status) return status; - } - - ptr = n->num + places; - - memmove(ptr, n->num, sizeof(BcDigit) * n->len); - - memset(n->num, 0, sizeof(BcDigit) * places); - - n->len += places; - n->rdx += places; - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_num_alg_a(BcNum *a, BcNum *b, BcNum *c, size_t scale) { - - BcDigit *ptr; - BcDigit *ptr_a; - BcDigit *ptr_b; - BcDigit *ptr_c; - size_t i; - size_t max; - size_t min; - size_t diff; - size_t a_whole; - size_t b_whole; - BcDigit carry; - - (void) scale; - - c->neg = a->neg; - - memset(c->num, 0, c->cap * sizeof(BcDigit)); - - c->rdx = maxof(a->rdx, b->rdx); - - min = minof(a->rdx, b->rdx); - - c->len = 0; - - if (a->rdx > b->rdx) { - - diff = a->rdx - b->rdx; - - ptr = a->num; - ptr_a = a->num + diff; - ptr_b = b->num; - } - else { - - diff = b->rdx - a->rdx; - - ptr = b->num; - ptr_a = a->num; - ptr_b = b->num + diff; - } - - ptr_c = c->num; - - for (i = 0; i < diff; ++i) { - ptr_c[i] = ptr[i]; - ++c->len; - } - - ptr_c += diff; - - carry = 0; - - for (i = 0; i < min; ++i) { - - ptr_c[i] = ptr_a[i] + ptr_b[i] + carry; - ++c->len; - - if (ptr_c[i] >= 10) { - carry = ptr_c[i] / 10; - ptr_c[i] %= 10; - } - else carry = 0; - } - - c->rdx = c->len; - - a_whole = a->len - a->rdx; - b_whole = b->len - b->rdx; - - min = minof(a_whole, b_whole); - - ptr_a = a->num + a->rdx; - ptr_b = b->num + b->rdx; - ptr_c = c->num + c->rdx; - - for (i = 0; i < min; ++i) { - - ptr_c[i] = ptr_a[i] + ptr_b[i] + carry; - ++c->len; - - if (ptr_c[i] >= 10) { - carry = ptr_c[i] / 10; - ptr_c[i] %= 10; - } - else carry = 0; - } - - if (a_whole > b_whole) { - max = a_whole; - ptr = ptr_a; - } - else { - max = b_whole; - ptr = ptr_b; - } - - for (; i < max; ++i) { - - ptr_c[i] += ptr[i] + carry; - ++c->len; - - if (ptr_c[i] >= 10) { - carry = ptr_c[i] / 10; - ptr_c[i] %= 10; - } - else carry = 0; - } - - if (carry) { - ++c->len; - ptr_c[i] = carry; - } - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_num_alg_s(BcNum *a, BcNum *b, BcNum *c, size_t sub) { - - BcStatus status; - int cmp; - BcNum *minuend; - BcNum *subtrahend; - size_t i, j, start; - bool aneg, bneg, neg; - - // Because this function doesn't need to use scale (per the bc spec), - // I am hijacking it to tell this function whether it is doing an add - // or a subtract. - - if (BC_NUM_ZERO(a)) { - status = bc_num_copy(c, b); - c->neg = !b->neg; - return status; - } - else if (BC_NUM_ZERO(b)) return bc_num_copy(c, a); - - aneg = a->neg; - bneg = b->neg; - - a->neg = b->neg = false; - - cmp = bc_num_compare(a, b); - - a->neg = aneg; - b->neg = bneg; - - if (!cmp) { - bc_num_zero(c); - return BC_STATUS_SUCCESS; - } - else if (cmp > 0) { - neg = sub ? a->neg : !a->neg; - minuend = a; - subtrahend = b; - } - else { - neg = sub ? !b->neg : b->neg; - minuend = b; - subtrahend = a; - } - - status = bc_num_copy(c, minuend); - - if (status) return status; - - c->neg = neg; - - if (c->rdx < subtrahend->rdx) { - status = bc_num_extend(c, subtrahend->rdx - c->rdx); - if (status) return status; - start = 0; - } - else start = c->rdx - subtrahend->rdx; - - for (i = 0; i < subtrahend->len; ++i) { - - c->num[i + start] -= subtrahend->num[i]; - - for (j = 0; c->num[i + j + start] < 0;) { - - c->num[i + j + start] += 10; - ++j; - - if (j >= c->len - start) return BC_STATUS_MATH_OVERFLOW; - - c->num[i + j + start] -= 1; - } - } - - // Remove leading zeros. - while (c->len > c->rdx && !c->num[c->len - 1]) --c->len; - - return status; -} - -BcStatus bc_num_alg_m(BcNum *a, BcNum *b, BcNum *c, size_t scale) { - - BcStatus status; - BcDigit carry; - size_t i; - size_t j; - size_t len; - - if (BC_NUM_ZERO(a) || BC_NUM_ZERO(b)) { - bc_num_zero(c); - return BC_STATUS_SUCCESS; - } - else if (BC_NUM_ONE(a)) { - status = bc_num_copy(c, b); - if (a->neg) c->neg = !c->neg; - return status; - } - else if (BC_NUM_ONE(b)) { - status = bc_num_copy(c, a); - if (b->neg) c->neg = !c->neg; - return status; - } - - scale = maxof(scale, a->rdx); - scale = maxof(scale, b->rdx); - c->rdx = a->rdx + b->rdx; - - memset(c->num, 0, sizeof(BcDigit) * c->cap); - c->len = 0; - - carry = 0; - len = 0; - - for (i = 0; i < b->len; ++i) { - - for (j = 0; j < a->len; ++j) { - - c->num[i + j] += a->num[j] * b->num[i] + carry; - - carry = c->num[i + j] / 10; - c->num[i + j] %= 10; - } - - if (carry) { - c->num[i + j] += carry; - carry = 0; - len = maxof(len, i + j + 1); - } - else len = maxof(len, i + j); - } - - c->len = maxof(len, c->rdx); - - c->neg = !a->neg != !b->neg; - - if (scale < c->rdx) status = bc_num_trunc(c, c->rdx - scale); - else status = BC_STATUS_SUCCESS; - - // Remove leading zeros. - while (c->len > c->rdx && !c->num[c->len - 1]) --c->len; - - return status; -} - -BcStatus bc_num_alg_d(BcNum *a, BcNum *b, BcNum *c, size_t scale) { - - BcStatus status; - BcDigit *ptr; - BcDigit *bptr; - size_t len; - size_t end; - size_t i; - BcNum copy; - - if (BC_NUM_ZERO(b)) return BC_STATUS_MATH_DIVIDE_BY_ZERO; - else if (BC_NUM_ZERO(a)) { - bc_num_zero(c); - return BC_STATUS_SUCCESS; - } - else if (BC_NUM_ONE(b)) { - status = bc_num_copy(c, a); - if (b->neg) c->neg = !c->neg; - status = bc_num_extend(c, scale); - return status; - } - - status = bc_num_init(©, a->len + b->rdx + scale + 1); - - if (status) return status; - - status = bc_num_copy(©, a); - - if (status) goto err; - - len = b->len; - - if (len > copy.len) { - - status = bc_num_expand(©, len + 2); - - if (status) goto err; - - status = bc_num_extend(©, len - copy.len); - - if (status) goto err; - } - - if (b->rdx > copy.rdx) { - status = bc_num_extend(©, b->rdx - copy.rdx); - if (status) goto err; - } - - copy.rdx -= b->rdx; - - if (scale > copy.rdx) { - status = bc_num_extend(©, scale - copy.rdx); - if (status) goto err; - } - - if (b->rdx == b->len) { - - bool zero; - - zero = true; - - for (i = 0; zero && i < len; ++i) zero = b->num[len - i - 1] == 0; - - if (i == len) return BC_STATUS_MATH_DIVIDE_BY_ZERO; - - len -= i - 1; - } - - if (copy.cap == copy.len) { - status = bc_num_expand(©, copy.len + 1); - if (status) goto err; - } - - // We want an extra zero in front to make things simpler. - copy.num[copy.len] = 0; - ++copy.len; - - end = copy.len - len; - - status = bc_num_expand(c, copy.len); - - if (status) goto err; - - bc_num_zero(c); - c->rdx = copy.rdx; - c->len = copy.len; - - bptr = b->num; - - for (i = end - 1; i < end; --i) { - - size_t j; - size_t k; - BcDigit quotient; - - ptr = copy.num + i; - - quotient = 0; - - while (bc_num_compareArrays(ptr, bptr, len) >= 0) { - - for (j = 0; j < len; ++j) { - - ptr[j] -= bptr[j]; - - k = j; - - while (ptr[k] < 0) { - - ptr[k] += 10; - ++k; - - if (k > len) return BC_STATUS_MATH_OVERFLOW; - - ptr[k] -= 1; - } - } - - ++quotient; - } - - c->num[i] = quotient; - } - - c->neg = !a->neg != !b->neg; - - // Remove leading zeros. - while (c->len > c->rdx && !c->num[c->len - 1]) --c->len; - - if (c->rdx > scale) status = bc_num_trunc(c, c->rdx - scale); - -err: - - bc_num_free(©); - - return status; -} - -BcStatus bc_num_alg_mod(BcNum *a, BcNum *b, BcNum *c, size_t scale) { - - BcStatus status; - BcNum c1; - BcNum c2; - size_t len; - - len = a->len + b->len + scale; - - status = bc_num_init(&c1, len); - - if (status) return status; - - status = bc_num_init(&c2, len); - - if (status) goto c2_err; - - status = bc_num_div(a, b, &c1, scale); - - if (status) goto err; - - c->rdx = maxof(scale + b->rdx, a->rdx); - - status = bc_num_mul(&c1, b, &c2, scale); - - if (status) goto err; - - status = bc_num_sub(a, &c2, c, scale); - -err: - - bc_num_free(&c2); - -c2_err: - - bc_num_free(&c1); - - return status; -} - -BcStatus bc_num_alg_p(BcNum *a, BcNum *b, BcNum *c, size_t scale) { - - BcStatus status; - BcNum copy; - BcNum one; - long pow; - unsigned long upow; - size_t i; - size_t powrdx; - size_t resrdx; - bool neg; - bool zero; - - if (b->rdx) return BC_STATUS_MATH_NON_INTEGER; - - status = bc_num_long(b, &pow); - - if (status) return status; - - if (pow == 0) { - bc_num_one(c); - return BC_STATUS_SUCCESS; - } - else if (BC_NUM_ZERO(a)) { - bc_num_zero(c); - return BC_STATUS_SUCCESS; - } - else if (pow == 1) { - return bc_num_copy(c, a); - } - else if (pow == -1) { - - status = bc_num_init(&one, BC_NUM_DEF_SIZE); - - if (status) return status; - - bc_num_one(&one); - - status = bc_num_div(&one, a, c, scale); - - bc_num_free(&one); - - return status; - } - else if (pow < 0) { - neg = true; - upow = -pow; - } - else { - neg = false; - upow = pow; - scale = minof(a->rdx * upow, maxof(scale, a->rdx)); - } - - status = bc_num_init(©, a->len); - - if (status) return status; - - status = bc_num_copy(©, a); - - if (status) goto err; - - powrdx = a->rdx; - - while (!(upow & 1)) { - - powrdx <<= 1; - - status = bc_num_mul(©, ©, ©, powrdx); - - if (status) goto err; - - upow >>= 1; - } - - status = bc_num_copy(c, ©); - - if (status) goto err; - - resrdx = powrdx; - upow >>= 1; - - while (upow != 0) { - - powrdx <<= 1; - - status = bc_num_mul(©, ©, ©, powrdx); - - if (status) goto err; - - if (upow & 1) { - resrdx += powrdx; - bc_num_mul(c, ©, c, resrdx); - } - - upow >>= 1; - } - - if (neg) { - - status = bc_num_init(&one, BC_NUM_DEF_SIZE); - - if (status) goto err; - - bc_num_one(&one); - - status = bc_num_div(&one, c, c, scale); - - bc_num_free(&one); - - if (status) goto err; - } - - if (c->rdx > scale) { - status = bc_num_trunc(c, c->rdx - scale); - if (status) goto err; - } - - for (zero = true, i = 0; zero && i < c->len; ++i) zero = c->num[i] == 0; - - if (zero) bc_num_zero(c); - -err: - - bc_num_free(©); - - return status; -} - -BcStatus bc_num_sqrt_newton(BcNum *a, BcNum *b, size_t scale) { - - BcStatus status; - BcNum num1; - BcNum num2; - BcNum two; - BcNum *x0; - BcNum *x1; - BcNum *temp; - size_t pow; - BcNum f; - BcNum fprime; - size_t len; - size_t digits; - size_t resrdx; - int cmp; - - if (BC_NUM_ZERO(a)) { - bc_num_zero(b); - return BC_STATUS_SUCCESS; - } - else if (BC_NUM_POS_ONE(a)) { - bc_num_one(b); - return bc_num_extend(b, scale); - } - else if (a->neg) return BC_STATUS_MATH_NEG_SQRT; - - memset(b->num, 0, b->cap * sizeof(BcDigit)); - - scale = maxof(scale, a->rdx) + 1; - - len = a->len; - - status = bc_num_init(&num1, len); - - if (status) return status; - - status = bc_num_init(&num2, num1.len); - - if (status) goto num2_err; - - status = bc_num_init(&two, BC_NUM_DEF_SIZE); - - if (status) goto two_err; - - bc_num_one(&two); - two.num[0] = 2; - - len += scale; - - status = bc_num_init(&f, len); - - if (status) goto f_err; - - status = bc_num_init(&fprime, len + scale); - - if (status) goto fprime_err; - - x0 = &num1; - x1 = &num2; - - bc_num_one(x0); - - pow = a->len - a->rdx; - - if (pow) { - - if (pow & 1) { - x0->num[0] = 2; - pow -= 1; - } - else { - x0->num[0] = 6; - pow -= 2; - } - - status = bc_num_extend(x0, pow); - - if (status) goto err; - } - - cmp = 1; - x0->rdx = 0; - digits = 0; - resrdx = scale + 1; - len = (x0->len - x0->rdx) + resrdx; - - while (cmp && digits <= len) { - - status = bc_num_mul(x0, x0, &f, resrdx); - - if (status) goto err; - - status = bc_num_sub(&f, a, &f, resrdx); - - if (status) goto err; - - status = bc_num_mul(x0, &two, &fprime, resrdx); - - if (status) goto err; - - status = bc_num_div(&f, &fprime, &f, resrdx); - - if (status) goto err; - - status = bc_num_sub(x0, &f, x1, resrdx); - - if (status) goto err; - - cmp = bc_num_compareDigits(x1, x0, &digits); - - temp = x0; - x0 = x1; - x1 = temp; - } - - status = bc_num_copy(b, x0); - - if (status) goto err; - - --scale; - - if (b->rdx > scale) status = bc_num_trunc(b, b->rdx - scale); - else if (b->rdx < scale) status = bc_num_extend(b, scale - b->rdx); - -err: - - bc_num_free(&fprime); - -fprime_err: - - bc_num_free(&f); - -f_err: - - bc_num_free(&two); - -two_err: - - bc_num_free(&num2); - -num2_err: - - bc_num_free(&num1); - - return status; -} - -BcStatus bc_num_binary(BcNum *a, BcNum *b, BcNum *c, size_t scale, - BcNumBinaryFunc op, size_t req) -{ - BcStatus status; - BcNum num2; - BcNum *ptr_a; - BcNum *ptr_b; - bool init; - - if (!a || !b || !c || !op) return BC_STATUS_INVALID_PARAM; - - init = false; - - if (c == a) { - memcpy(&num2, c, sizeof(BcNum)); - ptr_a = &num2; - init = true; - } - else ptr_a = a; - - if (c == b) { - - if (c == a) { - ptr_b = ptr_a; - } - else { - memcpy(&num2, c, sizeof(BcNum)); - ptr_b = &num2; - init = true; - } - } - else ptr_b = b; - - if (init) status = bc_num_init(c, req); - else status = bc_num_expand(c, req); - - if (status) return status; - - status = op(ptr_a, ptr_b, c, scale); - - if (c == a || c == b) bc_num_free(&num2); - - return status; -} - -BcStatus bc_num_unary(BcNum *a, BcNum *b, size_t scale, - BcNumUnaryFunc op, size_t req) -{ - BcStatus status; - BcNum a2; - BcNum *ptr_a; - - if (!a || !b || !op) return BC_STATUS_INVALID_PARAM; - - if (b == a) { - - memcpy(&a2, b, sizeof(BcNum)); - ptr_a = &a2; - - status = bc_num_init(b, req); - } - else { - ptr_a = a; - status = bc_num_expand(b, req); - } - - if (status) return status; - - status = op(ptr_a, b, scale); - - if (b == a) bc_num_free(&a2); - - return status; -} - -bool bc_num_strValid(const char *val, size_t base) { - - size_t len; - size_t i; - BcDigit c; - BcDigit b; - bool radix; - - radix = false; - - len = strlen(val); - - if (!len) return true; - - if (base <= 10) { - - b = base + '0'; - - for (i = 0; i < len; ++i) { - - c = val[i]; - - if (c == '.') { - - if (radix) return false; - - radix = true; - continue; - } - - if (c < '0' || c >= b) return false; - } - } - else { - - b = base - 9 + 'A'; - - for (i = 0; i < len; ++i) { - - c = val[i]; - - if (c == '.') { - - if (radix) return false; - - radix = true; - continue; - } - - if (!((c >= '0' && c <= '9') || (c >= 'A' && c <= b))) return false; - } - } - - return true; -} - -BcStatus bc_num_parseDecimal(BcNum *n, const char *val) { - - BcStatus status; - size_t len; - size_t i; - const char *ptr; - size_t radix; - size_t end; - BcDigit *num; - - for (i = 0; val[i] == '0'; ++i); - - val += i; - - len = strlen(val); - - bc_num_zero(n); - - if (len) { - - bool zero; - - zero = true; - - for (i = 0; zero && i < len; ++i) { - if (val[i] != '0' && val[i] != '.') zero = false; - } - - if (zero) { - memset(n->num, 0, sizeof(BcDigit) * n->cap); - n->neg = false; - return BC_STATUS_SUCCESS; - } - - status = bc_num_expand(n, len); - - if (status) return status; - - } - else { - memset(n->num, 0, sizeof(BcDigit) * n->cap); - n->neg = false; - return BC_STATUS_SUCCESS; - } - - ptr = strchr(val, '.'); - - if (ptr) { - radix = ptr - val; - ++ptr; - n->rdx = (val + len) - ptr; - } - else { - radix = len; - n->rdx = 0; - } - - end = n->rdx - 1; - - for (i = 0; i < n->rdx; ++i) { - n->num[i] = BC_NUM_FROM_CHAR(ptr[end - i]); - n->len += 1; - } - - if (i >= len) return BC_STATUS_SUCCESS; - - num = n->num + n->len; - end = radix - 1; - - for (i = 0; i < radix; ++i) { - num[i] = BC_NUM_FROM_CHAR(val[end - i]); - ++n->len; - } - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_num_parseBase(BcNum *n, const char *val, BcNum *base) { - - BcStatus status; - BcNum temp; - BcNum mult; - BcNum result; - size_t i; - size_t len; - size_t digits; - BcDigit c; - bool zero; - - len = strlen(val); - - zero = true; - - for (i = 0; zero && i < len; ++i) { - c = val[i]; - zero = (c == '.' || c == '0'); - } - - if (zero) { - bc_num_zero(n); - return BC_STATUS_SUCCESS; - } - - status = bc_num_init(&temp, BC_NUM_DEF_SIZE); - - if (status) return status; - - status = bc_num_init(&mult, BC_NUM_DEF_SIZE); - - if (status) goto mult_err; - - bc_num_zero(n); - - for (i = 0; i < len && (c = val[i]) != '.'; ++i) { - - long v; - - status = bc_num_mul(n, base, &mult, 0); - - if (status) goto int_err; - - if (c <= '9') v = c - '0'; - else v = c - 'A' + 10; - - status = bc_num_long2num(&temp, v); - - if (status) goto int_err; - - status = bc_num_add(&mult, &temp, n, 0); - - if (status) goto int_err; - } - - if (i == len) c = val[i]; - - if (c == '\0') goto int_err; - - assert(c == '.'); - - status = bc_num_init(&result, base->len); - - if (status) goto int_err; - - ++i; - bc_num_zero(&result); - bc_num_one(&mult); - - for (digits = 0; i < len; ++i, ++digits) { - - c = val[i]; - - status = bc_num_mul(&result, base, &result, 0); - - if (status) goto err; - - status = bc_num_long2num(&temp, (long) c); - - if (status) goto err; - - status = bc_num_add(&result, &temp, &result, 0); - - if (status) goto err; - - status = bc_num_mul(&mult, base, &mult, 0); - - if (status) goto err; - } - - status = bc_num_div(&result, &mult, &result, digits); - - if (status) goto err; - - status = bc_num_add(n, &result, n, 0); - -err: - - bc_num_free(&result); - -int_err: - - bc_num_free(&mult); - -mult_err: - - bc_num_free(&temp); - - return status; -} - -BcStatus bc_num_printRadix(size_t *nchars, FILE *f) { - - if (*nchars + 1 >= BC_NUM_PRINT_WIDTH) { - if (fputc('\\', f) == EOF) return BC_STATUS_IO_ERR; - if (fputc('\n', f) == EOF) return BC_STATUS_IO_ERR; - *nchars = 0; - } - - if (fputc('.', f) == EOF) return BC_STATUS_IO_ERR; - - *nchars = *nchars + 1; - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_num_printDigits(unsigned long num, size_t width, - size_t *nchars, FILE *f) -{ - if (*nchars + width + 1 >= BC_NUM_PRINT_WIDTH) { - if (fputc('\\', f) == EOF) return BC_STATUS_IO_ERR; - if (fputc('\n', f) == EOF) return BC_STATUS_IO_ERR; - *nchars = 0; - } - else { - if (fputc(' ', f) == EOF) return BC_STATUS_IO_ERR; - ++(*nchars); - } - - if (fprintf(f, "%0*lu", (unsigned int) width, num) < 0) - return BC_STATUS_IO_ERR; - - *nchars = *nchars + width; - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_num_printHex(unsigned long num, size_t width, - size_t *nchars, FILE *f) -{ - if (*nchars + width >= BC_NUM_PRINT_WIDTH) { - if (fputc('\\', f) == EOF) return BC_STATUS_IO_ERR; - if (fputc('\n', f) == EOF) return BC_STATUS_IO_ERR; - *nchars = 0; - } - - if (fputc(bc_num_hex_digits[num], f) == EOF) return BC_STATUS_IO_ERR; - - *nchars = *nchars + width; - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_num_printDecimal(BcNum *n, FILE *f) { - - BcStatus status; - size_t i; - size_t nchars; - - nchars = 0; - - if (n->neg) { - if (fputc('-', f) == EOF) return BC_STATUS_IO_ERR; - ++nchars; - } - - status = BC_STATUS_SUCCESS; - - for (i = n->len - 1; !status && i >= n->rdx && i < n->len; --i) - status = bc_num_printHex(n->num[i], 1, &nchars, f); - - if (status || !n->rdx) return status; - - status = bc_num_printRadix(&nchars, f); - - if (status) return status; - - for (; !status && i < n->len; --i) - status = bc_num_printHex(n->num[i], 1, &nchars, f); - - return status; -} - -BcStatus bc_num_printBase(BcNum *n, BcNum *base, size_t base_t, FILE* f) { - - BcStatus status; - BcVec stack; - BcNum intp; - BcNum fracp; - BcNum digit; - BcNum frac_len; - size_t nchars; - size_t width; - BcNumDigitFunc print; - size_t i; - - nchars = 0; - - if (n->neg) { - if (fputc('-', f) == EOF) return BC_STATUS_IO_ERR; - ++nchars; - } - - if (base_t <= 16) { - width = 1; - print = bc_num_printHex; - } - else { - width = (size_t) floor(log10((double) (base_t - 1)) + 1.0); - print = bc_num_printDigits; - } - - status = bc_vec_init(&stack, sizeof(unsigned long), NULL); - - if (status) return status; - - status = bc_num_init(&intp, n->len); - - if (status) goto int_err; - - status = bc_num_init(&fracp, n->rdx); - - if (status) goto frac_err; - - status = bc_num_init(&digit, width); - - if (status) goto digit_err; - - status = bc_num_copy(&intp, n); - - if (status) goto frac_len_err; - - status = bc_num_truncate(&intp); - - if (status) goto frac_len_err; - - status = bc_num_sub(n, &intp, &fracp, 0); - - if (status) goto frac_len_err; - - while (!BC_NUM_ZERO(&intp)) { - - unsigned long dig; - - status = bc_num_mod(&intp, base, &digit, 0); - - if (status) goto frac_len_err; - - status = bc_num_ulong(&digit, &dig); - - if (status) goto frac_len_err; - - status = bc_vec_push(&stack, &dig); - - if (status) goto frac_len_err; - - status = bc_num_div(&intp, base, &intp, 0); - - if (status) goto frac_len_err; - } - - for (i = 0; i < stack.len; ++i) { - - unsigned long *ptr; - - ptr = bc_vec_item_rev(&stack, i); - - status = print(*ptr, width, &nchars, f); - - if (status) goto frac_len_err; - } - - if (!n->rdx) goto frac_len_err; - - status = bc_num_printRadix(&nchars, f); - - if (status) goto frac_len_err; - - status = bc_num_init(&frac_len, n->len - n->rdx); - - if (status) goto frac_len_err; - - bc_num_one(&frac_len); - - while (frac_len.len <= n->len) { - - unsigned long fdigit; - - status = bc_num_mul(&fracp, base, &fracp, n->rdx); - - if (status) goto err; - - status = bc_num_ulong(&fracp, &fdigit); - - if (status) goto err; - - status = bc_num_ulong2num(&intp, fdigit); - - if (status) goto err; - - status = bc_num_sub(&fracp, &intp, &fracp, 0); - - if (status) goto err; - - status = print(fdigit, width, &nchars, f); - - if (status) goto err; - - status = bc_num_mul(&frac_len, base, &frac_len, 0); - - if (status) goto err; - } - -err: - - bc_num_free(&frac_len); - -frac_len_err: - - bc_num_free(&digit); - -digit_err: - - bc_num_free(&fracp); - -frac_err: - - bc_num_free(&intp); - -int_err: - - bc_vec_free(&stack); - - return status; -} - -BcStatus bc_num_init(BcNum *n, size_t request) { - - if (!n) return BC_STATUS_INVALID_PARAM; - - memset(n, 0, sizeof(BcNum)); - - request = request >= BC_NUM_DEF_SIZE ? request : BC_NUM_DEF_SIZE; - - n->num = malloc(request); - - if (!n->num) return BC_STATUS_MALLOC_FAIL; - - n->cap = request; - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_num_expand(BcNum *n, size_t request) { - - if (!n || !request) return BC_STATUS_INVALID_PARAM; - - if (request > n->cap) { - - BcDigit *temp; - - temp = realloc(n->num, request); - - if (!temp) return BC_STATUS_MALLOC_FAIL; - - memset(temp + n->cap, 0, sizeof(char) * (request - n->cap)); - - n->num = temp; - n->cap = request; - } - - return BC_STATUS_SUCCESS; -} - -void bc_num_free(void *num) { - - BcNum *n; - - if (!num) return; - - n = (BcNum*) num; - - if (n->num) free(n->num); - - memset(n, 0, sizeof(BcNum)); -} - -BcStatus bc_num_copy(void *dest, void *src) { - - BcStatus status; - - BcNum *d; - BcNum *s; - - if (!dest || !src) return BC_STATUS_INVALID_PARAM; - - if (dest == src) return BC_STATUS_SUCCESS; - - d = (BcNum*) dest; - s = (BcNum*) src; - - status = bc_num_expand(d, s->cap); - - if (status) return status; - - d->len = s->len; - d->neg = s->neg; - d->rdx = s->rdx; - - memcpy(d->num, s->num, sizeof(char) * d->len); - memset(d->num + d->len, 0, sizeof(char) * (d->cap - d->len)); - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_num_parse(BcNum *n, const char *val, BcNum *base, size_t base_t) { - - BcStatus status; - - if (!n || !val) return BC_STATUS_INVALID_PARAM; - - if (base_t < BC_NUM_MIN_BASE || base_t > BC_NUM_MAX_INPUT_BASE) - return BC_STATUS_EXEC_INVALID_IBASE; - - if (!bc_num_strValid(val, base_t)) return BC_STATUS_MATH_INVALID_STRING; - - if (base_t == 10) status = bc_num_parseDecimal(n, val); - else status = bc_num_parseBase(n, val, base); - - return status; -} - -BcStatus bc_num_fprint(BcNum *n, BcNum *base, size_t base_t, - bool newline, FILE *f) -{ - BcStatus status; - - if (!n || !f) return BC_STATUS_INVALID_PARAM; - - if (base_t < BC_NUM_MIN_BASE || base_t > BC_NUM_MAX_OUTPUT_BASE) - return BC_STATUS_EXEC_INVALID_OBASE; - - if (BC_NUM_ZERO(n)) { - if (fputc('0', f) == EOF) return BC_STATUS_IO_ERR; - status = BC_STATUS_SUCCESS; - } - else if (base_t == 10) status = bc_num_printDecimal(n, f); - else status = bc_num_printBase(n, base, base_t, f); - - if (status) return status; - - if (newline) { - if (fputc('\n', f) == EOF) return BC_STATUS_IO_ERR; - } - - return status; -} - -BcStatus bc_num_print(BcNum *n, BcNum *base, size_t base_t, bool newline) { - return bc_num_fprint(n, base, base_t, newline, stdout); -} - -BcStatus bc_num_long(BcNum *n, long *result) { - - size_t i; - unsigned long temp; - unsigned long prev; - unsigned long pow; - - if (!n || !result) return BC_STATUS_INVALID_PARAM; - - temp = 0; - pow = 1; - - for (i = n->rdx; i < n->len; ++i) { - - prev = temp; - - temp += n->num[i] * pow; - - pow *= 10; - - if (temp < prev) return BC_STATUS_MATH_OVERFLOW; - } - - if (n->neg) temp = -temp; - - *result = temp; - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_num_ulong(BcNum *n, unsigned long *result) { - - size_t i; - unsigned long prev; - unsigned long pow; - - if (!n || !result) return BC_STATUS_INVALID_PARAM; - - if (n->neg) return BC_STATUS_MATH_NEGATIVE; - - *result = 0; - pow = 1; - - for (i = n->rdx; i < n->len; ++i) { - - prev = *result; - - *result += n->num[i] * pow; - - pow *= 10; - - if (*result < prev) return BC_STATUS_MATH_OVERFLOW; - } - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_num_long2num(BcNum *n, long val) { - - BcStatus status; - size_t len; - size_t i; - BcDigit *ptr; - BcDigit carry; - - if (!n) return BC_STATUS_INVALID_PARAM; - - bc_num_zero(n); - - if (!val) { - memset(n->num, 0, sizeof(char) * n->cap); - return BC_STATUS_SUCCESS; - } - - carry = 0; - - if (val < 0) { - - if (val == LONG_MIN) { - carry = 1; - val += 1; - } - - val = -val; - n->neg = true; - } - - len = (size_t) ceil(log10(((double) ULONG_MAX) + 1.0f)); - - status = bc_num_expand(n, len); - - if (status) return status; - - ptr = n->num; - - for (i = 0; val; ++i) { - ++n->len; - ptr[i] = (char) (val % 10); - val /= 10; - } - - if (carry) ptr[i - 1] += carry; - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_num_ulong2num(BcNum *n, unsigned long val) { - - BcStatus status; - size_t len; - size_t i; - BcDigit *ptr; - - if (!n) return BC_STATUS_INVALID_PARAM; - - bc_num_zero(n); - - if (!val) { - memset(n->num, 0, sizeof(char) * n->cap); - return BC_STATUS_SUCCESS; - } - - len = (size_t) ceil(log10(((double) ULONG_MAX) + 1.0f)); - - status = bc_num_expand(n, len); - - if (status) return status; - - ptr = n->num; - - for (i = 0; val; ++i) { - ++n->len; - ptr[i] = (char) (val % 10); - val /= 10; - } - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_num_truncate(BcNum *n) { - if (!n) return BC_STATUS_INVALID_PARAM; - return bc_num_trunc(n, n->rdx); -} - -BcStatus bc_num_add(BcNum *a, BcNum *b, BcNum *result, size_t scale) { - - BcNumBinaryFunc op; - - (void) scale; - - if ((a->neg && b->neg) || (!a->neg && !b->neg)) op = bc_num_alg_a; - else op = bc_num_alg_s; - - return bc_num_binary(a, b, result, false, op, a->len + b->len + 1); -} - -BcStatus bc_num_sub(BcNum *a, BcNum *b, BcNum *result, size_t scale) { - - BcNumBinaryFunc op; - - (void) scale; - - if (a->neg && b->neg) op = bc_num_alg_s; - else if (a->neg || b->neg) op = bc_num_alg_a; - else op = bc_num_alg_s; - - return bc_num_binary(a, b, result, true, op, a->len + b->len + 1); -} - -BcStatus bc_num_mul(BcNum *a, BcNum *b, BcNum *result, size_t scale) { - return bc_num_binary(a, b, result, scale, bc_num_alg_m, - a->len + b->len + scale + 1); -} - -BcStatus bc_num_div(BcNum *a, BcNum *b, BcNum *result, size_t scale) { - return bc_num_binary(a, b, result, scale, bc_num_alg_d, - a->len + b->len + scale + 1); -} - -BcStatus bc_num_mod(BcNum *a, BcNum *b, BcNum *result, size_t scale) { - return bc_num_binary(a, b, result, scale, bc_num_alg_mod, - a->len + b->len + scale + 1); -} - -BcStatus bc_num_pow(BcNum *a, BcNum *b, BcNum *result, size_t scale) { - return bc_num_binary(a, b, result, scale, bc_num_alg_p, - (a->len + 1) * (b->len + 1)); -} - -BcStatus bc_num_sqrt(BcNum *a, BcNum *result, size_t scale) { - return bc_num_unary(a, result, scale, bc_num_sqrt_newton, - a->rdx + (a->len - a->rdx) * 2 + 1); -} - -int bc_num_compare(BcNum *a, BcNum *b) { - size_t digits; - return bc_num_compareDigits(a, b, &digits); -} - -void bc_num_zero(BcNum *n) { - - if (!n) return; - - memset(n->num, 0, n->cap * sizeof(char)); - - n->neg = false; - n->len = 0; - n->rdx = 0; -} - -void bc_num_one(BcNum *n) { - - if (!n) return; - - bc_num_zero(n); - - n->len = 1; - n->num[0] = 1; -} - -void bc_num_ten(BcNum *n) { - - if (!n) return; - - bc_num_zero(n); - - n->len = 2; - n->num[0] = 0; - n->num[1] = 1; -} - -BcStatus bc_func_insert(BcFunc *func, char *name, bool var, BcVec *vec) { - - BcStatus status; - BcAuto a; - size_t i; - BcAuto *ptr; - - if (!func || !name || !vec) return BC_STATUS_INVALID_PARAM; - - for (i = 0; i < func->params.len; ++i) { - ptr = bc_vec_item(&func->params, i); - if (!strcmp(name, ptr->name)) - return BC_STATUS_PARSE_DUPLICATE_LOCAL; - } - - for (i = 0; i < func->autos.len; ++i) { - ptr = bc_vec_item(&func->autos, i); - if (!strcmp(name, ptr->name)) - return BC_STATUS_PARSE_DUPLICATE_LOCAL; - } - - status = bc_auto_init(&a, name, var); - - if (status) return status; - - status = bc_vec_push(vec, &a); - - if (status) return status; - - return status; -} - -BcStatus bc_func_init(BcFunc *func) { - - BcStatus status; - - if (!func) return BC_STATUS_INVALID_PARAM; - - status = bc_vec_init(&func->code, sizeof(uint8_t), NULL); - - if (status) return status; - - status = bc_vec_init(&func->params, sizeof(BcAuto), bc_auto_free); - - if (status) goto param_err; - - status = bc_vec_init(&func->autos, sizeof(BcAuto), bc_auto_free); - - if (status) goto auto_err; - - status = bc_vec_init(&func->labels, sizeof(size_t), NULL); - - if (status) goto label_err; - - return BC_STATUS_SUCCESS; - -label_err: - - bc_vec_free(&func->autos); - -auto_err: - - bc_vec_free(&func->params); - -param_err: - - bc_vec_free(&func->code); - - return status; -} - -void bc_func_free(void *func) { - - BcFunc *f; - - f = (BcFunc*) func; - - if (f == NULL) return; - - bc_vec_free(&f->code); - bc_vec_free(&f->params); - bc_vec_free(&f->autos); - bc_vec_free(&f->labels); -} - -BcStatus bc_var_init(void *var) { - - if (!var) return BC_STATUS_INVALID_PARAM; - - return bc_num_init((BcVar*) var, BC_NUM_DEF_SIZE); -} - -void bc_var_free(void *var) { - - BcVar *v; - - v = (BcVar*) var; - - if (v == NULL) return; - - bc_num_free(v); -} - -BcStatus bc_array_init(void *array) { - - if (!array) return BC_STATUS_INVALID_PARAM; - - return bc_vec_init((BcArray*) array, sizeof(BcNum), bc_num_free); -} - -BcStatus bc_array_copy(void *dest, void *src) { - - BcStatus status; - size_t i; - BcNum *dnum; - BcNum *snum; - - BcArray *d; - BcArray *s; - - d = (BcArray*) dest; - s = (BcArray*) src; - - if (!d || !s || d == s || d->size != s->size || d->dtor != s->dtor) - return BC_STATUS_INVALID_PARAM; - - while (d->len) { - status = bc_vec_pop(d); - if (status) return status; - } - - status = bc_vec_expand(d, s->cap); - - if (status) return status; - - d->len = s->len; - - for (i = 0; i < s->len; ++i) { - - dnum = bc_vec_item(d, i); - snum = bc_vec_item(s, i); - - if (!dnum || !snum) return BC_STATUS_VEC_OUT_OF_BOUNDS; - - status = bc_num_init(dnum, snum->len); - - if (status) return status; - - status = bc_num_copy(dnum, snum); - - if (status) { - bc_num_free(dnum); - return status; - } - } - - return status; -} - -BcStatus bc_array_zero(BcArray *a) { - - BcStatus status; - - status = BC_STATUS_SUCCESS; - - while (!status && a->len) status = bc_vec_pop(a); - - return status; -} - -BcStatus bc_array_expand(BcArray *a, size_t len) { - - BcStatus status; - - status = BC_STATUS_SUCCESS; - - while (len > a->len) { - - BcNum num; - - status = bc_num_init(&num, BC_NUM_DEF_SIZE); - - if (status) return status; - - bc_num_zero(&num); - - status = bc_vec_push(a, &num); - - if (status) { - bc_num_free(&num); - return status; - } - } - - return status; -} - -void bc_array_free(void *array) { - - BcArray *a; - - a = (BcArray*) array; - - if (a == NULL) return; - - bc_vec_free(a); -} - -void bc_string_free(void *string) { - - char *s; - - s = *((char**) string); - - free(s); -} - -int bc_entry_cmp(void *entry1, void *entry2) { - - BcEntry *e1; - BcEntry *e2; - int cmp; - - e1 = (BcEntry*) entry1; - e2 = (BcEntry*) entry2; - - if (!strcmp(e1->name, bc_lang_func_main)) { - if (!strcmp(e2->name, bc_lang_func_main)) cmp = 0; - else cmp = -1; - } - else if (!strcmp(e1->name, bc_lang_func_read)) { - if (!strcmp(e2->name, bc_lang_func_main)) cmp = 1; - else if (!strcmp(e2->name, bc_lang_func_read)) cmp = 0; - else cmp = -1; - } - else if (!strcmp(e2->name, bc_lang_func_main)) cmp = 1; - else cmp = strcmp(e1->name, e2->name); - - return cmp; -} - -void bc_entry_free(void *entry) { - - BcEntry *e; - - if (!entry) return; - - e = (BcEntry*) entry; - - free(e->name); -} - -BcStatus bc_auto_init(void *auto1, char *name, bool var) { - - BcStatus status; - BcAuto *a; - - if (!auto1) return BC_STATUS_INVALID_PARAM; - - a = (BcAuto*) auto1; - - a->var = var; - a->name = name; - - if (var) status = bc_num_init(&a->data.num, BC_NUM_DEF_SIZE); - else status = bc_vec_init(&a->data.array, sizeof(BcNum), bc_num_free); - - return status; -} - -void bc_auto_free(void *auto1) { - - BcAuto *a; - - if (!auto1) return; - - a = (BcAuto*) auto1; - - if (a->name) free(a->name); - - if (a->var) bc_num_free(&a->data.num); - else bc_vec_free(&a->data.array); -} - -void bc_result_free(void *result) { - - BcResult *r; - - if (!result) return; - - r = (BcResult*) result; - - switch (r->type) { - - case BC_RESULT_INTERMEDIATE: - case BC_RESULT_SCALE: - { - bc_num_free(&r->data.num); - break; - } - - case BC_RESULT_VAR: - case BC_RESULT_ARRAY: - { - if (r->data.id.name) free(r->data.id.name); - break; - } - - default: - { - // Do nothing. - break; - } - } -} - -void bc_constant_free(void *constant) { - - char *c; - - if (!constant) return; - - c = *((char**) constant); - - free(c); -} - -long bc_io_frag(char *buf, long len, int term, BcIoGetc bcgetc, void *ctx) { - - long i; - int c; - - if (!buf || len < 0 || !bcgetc) return -1; - - for (c = (~term) | 1, i = 0; i < len; i++) { - - if (c == (int) '\0' || c == term || (c = bcgetc(ctx)) == EOF) { - buf[i] = '\0'; - break; - } - - buf[i] = (char) c; - } - - return i; -} - -int bc_io_xfgetc(void *ctx) { - return fgetc((FILE *) ctx); -} - -long bc_io_fgets(char * buf, int n, FILE* fp) { - - long len; - - if (!buf) return -1; - - if (n == 1) { - buf[0] = '\0'; - return 0; - } - - if (n < 1 || !fp) return -1; - - len = bc_io_frag(buf, n - 1, (int) '\n', bc_io_xfgetc, fp); - - if (len >= 0) buf[len] = '\0'; - - return len; -} - -BcStatus bc_io_fgetline(char** p, size_t *n, FILE* fp) { - - size_t mlen, slen, dlen, len; - char *s; - char *t; - - if (!p || !n || !fp) return BC_STATUS_INVALID_PARAM; - - if (!p) { - - char blk[64]; - - for (slen = 0; ; slen += 64) { - - len = (size_t) bc_io_frag(blk, 64, (int) '\n', bc_io_xfgetc, fp); - - if (len != 64 || blk[len - 1] == '\n' || blk[len - 1] == '\0') - return slen + len; - } - } - - mlen = 8; - slen = 0; - - s = *p; - - for (;;) { - - mlen += mlen; - - if ((t = realloc(s, mlen)) == NULL) break; - - s = t; - dlen = mlen - slen - 1; - - len = (size_t) bc_io_frag(s + slen, dlen, (int) '\n', bc_io_xfgetc, fp); - - slen += len; - - if (len < dlen || t[slen - 1] == '\n' || t[slen - 1] == '\0') { - - s[slen] = '\0'; - *p = s; - *n = slen; - - return BC_STATUS_SUCCESS; - } - } - - return BC_STATUS_IO_ERR; -} - -BcStatus bc_io_fread(const char *path, char** buf) { - - BcStatus status; - FILE* f; - size_t size; - size_t read; - - f = fopen(path, "r"); - - if (!f) return BC_STATUS_EXEC_FILE_ERR; - - fseek(f, 0, SEEK_END); - size = ftell(f); - - fseek(f, 0, SEEK_SET); - - *buf = malloc(size + 1); - - if (!*buf) { - status = BC_STATUS_MALLOC_FAIL; - goto malloc_err; - } - - read = fread(*buf, 1, size, f); - - if (read != size) { - status = BC_STATUS_IO_ERR; - goto read_err; - } - - (*buf)[size] = '\0'; - - fclose(f); - - return BC_STATUS_SUCCESS; - -read_err: - - free(*buf); - -malloc_err: - - fclose(f); - - return status; -} - -BcStatus bc_lex_whitespace(BcLex *lex, BcLexToken *token) { - - char c; - - token->type = BC_LEX_WHITESPACE; - - c = lex->buffer[lex->idx]; - - while ((isspace(c) && c != '\n') || c == '\\') { - ++lex->idx; - c = lex->buffer[lex->idx]; - } - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_lex_string(BcLex *lex, BcLexToken *token) { - - const char *start; - uint32_t newlines; - size_t len; - size_t i, j; - char c; - - newlines = 0; - - token->type = BC_LEX_STRING; - - i = lex->idx; - c = lex->buffer[i]; - - while (c != '"' && c != '\0') { - if (c == '\n') ++newlines; - c = lex->buffer[++i]; - } - - if (c == '\0') { - lex->idx = i; - return BC_STATUS_LEX_NO_STRING_END; - } - - len = i - lex->idx; - - token->string = malloc(len + 1); - - if (!token->string) return BC_STATUS_MALLOC_FAIL; - - start = lex->buffer + lex->idx; - - for (j = 0; j < len; ++j) token->string[j] = start[j]; - - token->string[len] = '\0'; - - lex->idx = i + 1; - lex->line += newlines; - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_lex_comment(BcLex *lex, BcLexToken *token) { - - uint32_t newlines; - bool end; - size_t i; - const char *buffer; - char c; - - newlines = 0; - - token->type = BC_LEX_WHITESPACE; - - ++lex->idx; - - i = lex->idx; - buffer = lex->buffer; - - end = false; - - while (!end) { - - c = buffer[i]; - - while (c != '*' && c != '\0') { - if (c == '\n') ++newlines; - c = buffer[++i]; - } - - if (c == '\0' || buffer[i + 1] == '\0') { - lex->idx = i; - return BC_STATUS_LEX_NO_COMMENT_END; - } - - end = buffer[i + 1] == '/'; - i += end ? 0 : 1; - } - - lex->idx = i + 2; - lex->line += newlines; - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_lex_number(BcLex *lex, BcLexToken *token, char start) { - - const char *buffer; - const char *buf; - size_t backslashes; - size_t len; - size_t hits; - size_t i, j; - char c; - bool point; - - token->type = BC_LEX_NUMBER; - - point = start == '.'; - - buffer = lex->buffer + lex->idx; - - backslashes = 0; - i = 0; - c = buffer[i]; - - while (c && ((c >= '0' && c <= '9') || (c >= 'A' && c <= 'F') || - (c == '.' && !point) || (c == '\\' && buffer[i + 1] == '\n'))) - { - if (c == '\\') { - ++i; - backslashes += 1; - } - - c = buffer[++i]; - } - - len = i + 1; - - token->string = malloc(len - backslashes + 1); - - if (!token->string) return BC_STATUS_MALLOC_FAIL; - - token->string[0] = start; - - buf = buffer - 1; - hits = 0; - - for (j = 1; j < len; ++j) { - - c = buf[j]; - - // If we have hit a backslash, skip it. - // We don't have to check for a newline - // because it's guaranteed. - if (hits < backslashes && c == '\\') { - ++hits; - ++j; - continue; - } - - token->string[j - (hits * 2)] = c; - } - - token->string[len] = '\0'; - - lex->idx += i; - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_lex_name(BcLex *lex, BcLexToken *token) { - - BcStatus status; - const char *buffer; - size_t i; - char c; - - buffer = lex->buffer + lex->idx - 1; - - for (i = 0; i < sizeof(bc_lex_keywords) / sizeof(bc_lex_keywords[0]); ++i) { - - if (!strncmp(buffer, bc_lex_keywords[i].name, bc_lex_keywords[i].len)) { - - token->type = BC_LEX_KEY_AUTO + i; - - if (!bc_lex_keywords[i].posix && - (status = bc_posix_error(BC_STATUS_POSIX_INVALID_KEYWORD, - lex->file, lex->line, - bc_lex_keywords[i].name))) - { - return status; - } - - // We need to minus one because the - // index has already been incremented. - lex->idx += bc_lex_keywords[i].len - 1; - - return BC_STATUS_SUCCESS; - } - } - - token->type = BC_LEX_NAME; - - i = 0; - c = buffer[i]; - - while ((c >= 'a' && c<= 'z') || (c >= '0' && c <= '9') || c == '_') { - ++i; - c = buffer[i]; - } - - if (i > 1 && (status = bc_posix_error(BC_STATUS_POSIX_NAME_LEN, - lex->file, lex->line, buffer))) - { - return status; - } - - token->string = malloc(i + 1); - - if (!token->string) return BC_STATUS_MALLOC_FAIL; - - strncpy(token->string, buffer, i); - token->string[i] = '\0'; - - // Increment the index. It is minus one - // because it has already been incremented. - lex->idx += i - 1; - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_lex_token(BcLex *lex, BcLexToken *token) { - - BcStatus status; - char c; - char c2; - - status = BC_STATUS_SUCCESS; - - c = lex->buffer[lex->idx]; - - ++lex->idx; - - // This is the workhorse of the lexer. - switch (c) { - - case '\0': - { - token->type = BC_LEX_EOF; - break; - } - - case '\t': - { - status = bc_lex_whitespace(lex, token); - break; - } - - case '\n': - { - lex->newline = true; - token->type = BC_LEX_NEWLINE; - break; - } - - case '\v': - case '\f': - case '\r': - case ' ': - { - status = bc_lex_whitespace(lex, token); - break; - } - - case '!': - { - c2 = lex->buffer[lex->idx]; - - if (c2 == '=') { - ++lex->idx; - token->type = BC_LEX_OP_REL_NOT_EQ; - } - else { - - if ((status = bc_posix_error(BC_STATUS_POSIX_BOOL_OPS, - lex->file, lex->line, "!"))) - { - return status; - } - - token->type = BC_LEX_OP_BOOL_NOT; - } - - break; - } - - case '"': - { - status = bc_lex_string(lex, token); - break; - } - - case '#': - { - if ((status = bc_posix_error(BC_STATUS_POSIX_SCRIPT_COMMENT, - lex->file, lex->line, NULL))) - { - return status; - } - - token->type = BC_LEX_WHITESPACE; - - ++lex->idx; - while (lex->idx < lex->len && lex->buffer[lex->idx] != '\n') ++lex->idx; - - break; - } - - case '%': - { - c2 = lex->buffer[lex->idx]; - - if (c2 == '=') { - ++lex->idx; - token->type = BC_LEX_OP_ASSIGN_MODULUS; - } - else token->type = BC_LEX_OP_MODULUS; - - break; - } - - case '&': - { - c2 = lex->buffer[lex->idx]; - - if (c2 == '&') { - - if ((status = bc_posix_error(BC_STATUS_POSIX_BOOL_OPS, - lex->file, lex->line, "&&"))) - { - return status; - } - - ++lex->idx; - token->type = BC_LEX_OP_BOOL_AND; - } - else { - token->type = BC_LEX_INVALID; - status = BC_STATUS_LEX_INVALID_TOKEN; - } - - break; - } - - case '(': - { - token->type = BC_LEX_LEFT_PAREN; - break; - } - - case ')': - { - token->type = BC_LEX_RIGHT_PAREN; - break; - } - - case '*': - { - c2 = lex->buffer[lex->idx]; - - if (c2 == '=') { - ++lex->idx; - token->type = BC_LEX_OP_ASSIGN_MULTIPLY; - } - else token->type = BC_LEX_OP_MULTIPLY; - - break; - } - - case '+': - { - c2 = lex->buffer[lex->idx]; - - if (c2 == '=') { - ++lex->idx; - token->type = BC_LEX_OP_ASSIGN_PLUS; - } - else if (c2 == '+') { - ++lex->idx; - token->type = BC_LEX_OP_INC; - } - else token->type = BC_LEX_OP_PLUS; - - break; - } - - case ',': - { - token->type = BC_LEX_COMMA; - break; - } - - case '-': - { - c2 = lex->buffer[lex->idx]; - - if (c2 == '=') { - ++lex->idx; - token->type = BC_LEX_OP_ASSIGN_MINUS; - } - else if (c2 == '-') { - ++lex->idx; - token->type = BC_LEX_OP_DEC; - } - else token->type = BC_LEX_OP_MINUS; - - break; - } - - case '.': - { - c2 = lex->buffer[lex->idx]; - - if (isdigit(c2)) { - status = bc_lex_number(lex, token, c); - } - else { - - status = bc_posix_error(BC_STATUS_POSIX_DOT_LAST, - lex->file, lex->line, NULL); - - token->type = BC_LEX_KEY_LAST; - } - - break; - } - - case '/': - { - c2 = lex->buffer[lex->idx]; - - if (c2 == '=') { - ++lex->idx; - token->type = BC_LEX_OP_ASSIGN_DIVIDE; - } - else if (c2 == '*') status = bc_lex_comment(lex, token); - else token->type = BC_LEX_OP_DIVIDE; - - break; - } - - case '0': - case '1': - case '2': - case '3': - case '4': - case '5': - case '6': - case '7': - case '8': - case '9': - { - status = bc_lex_number(lex, token, c); - break; - } - - case ';': - { - token->type = BC_LEX_SEMICOLON; - break; - } - - case '<': - { - c2 = lex->buffer[lex->idx]; - - if (c2 == '=') { - ++lex->idx; - token->type = BC_LEX_OP_REL_LESS_EQ; - } - else token->type = BC_LEX_OP_REL_LESS; - - break; - } - - case '=': - { - c2 = lex->buffer[lex->idx]; - - if (c2 == '=') { - ++lex->idx; - token->type = BC_LEX_OP_REL_EQUAL; - } - else token->type = BC_LEX_OP_ASSIGN; - - break; - } - - case '>': - { - c2 = lex->buffer[lex->idx]; - - if (c2 == '=') { - ++lex->idx; - token->type = BC_LEX_OP_REL_GREATER_EQ; - } - else token->type = BC_LEX_OP_REL_GREATER; - - break; - } - - case 'A': - case 'B': - case 'C': - case 'D': - case 'E': - case 'F': - { - status = bc_lex_number(lex, token, c); - break; - } - - case '[': - { - token->type = BC_LEX_LEFT_BRACKET; - break; - } - - case '\\': - { - status = bc_lex_whitespace(lex, token); - break; - } - - case ']': - { - token->type = BC_LEX_RIGHT_BRACKET; - break; - } - - case '^': - { - c2 = lex->buffer[lex->idx]; - - if (c2 == '=') { - ++lex->idx; - token->type = BC_LEX_OP_ASSIGN_POWER; - } - else token->type = BC_LEX_OP_POWER; - - break; - } - - case 'a': - case 'b': - case 'c': - case 'd': - case 'e': - case 'f': - case 'g': - case 'h': - case 'i': - case 'j': - case 'k': - case 'l': - case 'm': - case 'n': - case 'o': - case 'p': - case 'q': - case 'r': - case 's': - case 't': - case 'u': - case 'v': - case 'w': - case 'x': - case 'y': - case 'z': - { - status = bc_lex_name(lex, token); - break; - } - - case '{': - { - token->type = BC_LEX_LEFT_BRACE; - break; - } - - case '|': - { - c2 = lex->buffer[lex->idx]; - - if (c2 == '|') { - - if ((status = bc_posix_error(BC_STATUS_POSIX_BOOL_OPS, - lex->file, lex->line, "||"))) - { - return status; - } - - ++lex->idx; - token->type = BC_LEX_OP_BOOL_OR; - } - else { - token->type = BC_LEX_INVALID; - status = BC_STATUS_LEX_INVALID_TOKEN; - } - - break; - } - - case '}': - { - token->type = BC_LEX_RIGHT_BRACE; - break; - } - - default: - { - token->type = BC_LEX_INVALID; - status = BC_STATUS_LEX_INVALID_TOKEN; - break; - } - } - - return status; -} - -BcStatus bc_lex_printToken(BcLexToken *token) { - - printf("<%s", bc_lex_token_type_strs[token->type]); - - switch (token->type) { - - case BC_LEX_STRING: - case BC_LEX_NAME: - case BC_LEX_NUMBER: - { - printf(":%s", token->string); - break; - } - - default: - { - // Do nothing. - break; - } - } - - putchar('>'); - putchar('\n'); - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_lex_init(BcLex *lex, const char *file) { - - if (lex == NULL ) return BC_STATUS_INVALID_PARAM; - - lex->line = 1; - lex->newline = false; - lex->file = file; - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_lex_text(BcLex *lex, const char *text) { - - if (lex == NULL || text == NULL) return BC_STATUS_INVALID_PARAM; - - lex->buffer = text; - lex->idx = 0; - lex->len = strlen(text); - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_lex_next(BcLex *lex, BcLexToken *token) { - - BcStatus status; - - if (lex == NULL || token == NULL) return BC_STATUS_INVALID_PARAM; - - if (lex->idx == lex->len) { - token->type = BC_LEX_EOF; - return BC_STATUS_LEX_EOF; - } - - if (lex->newline) { - ++lex->line; - lex->newline = false; - } - - // Loop until failure or we don't have whitespace. This - // is so the parser doesn't get inundated with whitespace. - do { - token->string = NULL; - status = bc_lex_token(lex, token); - } while (!status && token->type == BC_LEX_WHITESPACE); - - return status; -} - -BcStatus bc_parse_else(BcParse *parse, BcVec *code); -BcStatus bc_parse_semicolonListEnd(BcParse *parse, BcVec *code); -BcStatus bc_parse_stmt(BcParse *parse, BcVec *code); - -BcStatus bc_parse_pushName(BcVec *code, char *name) { - - BcStatus status; - size_t len, i; - - status = BC_STATUS_SUCCESS; - len = strlen(name); - - for (i = 0; !status && i < len; ++i) - status = bc_vec_pushByte(code, (uint8_t) name[i]); - - if (status) return status; - - free(name); - - return bc_vec_pushByte(code, (uint8_t) ':'); -} - -BcStatus bc_parse_pushIndex(BcVec *code, size_t idx) { - - BcStatus status; - uint8_t amt; - uint8_t nums[sizeof(size_t)]; - uint32_t i; - - amt = 0; - i = 0; - - while (idx) { - nums[amt] = (uint8_t) idx; - idx &= ~(0xFF); - idx >>= sizeof(uint8_t) * CHAR_BIT; - ++amt; - } - - status = bc_vec_pushByte(code, amt); - - if (status) return status; - - while (!status && i < amt) { - status = bc_vec_pushByte(code, nums[i]); - ++i; - } - - return status; -} - -BcStatus bc_parse_operator(BcParse *parse, BcVec *code, BcVec *ops, - BcLexTokenType t, uint32_t *num_exprs, - bool next) -{ - BcStatus status; - BcLexTokenType top; - BcLexTokenType *ptr; - uint8_t lp; - uint8_t rp; - bool rleft; - - rp = bc_parse_ops[t].prec; - rleft = bc_parse_ops[t].left; - - if (ops->len != 0) { - - ptr = bc_vec_top(ops); - top = *ptr; - - if (top != BC_LEX_LEFT_PAREN) { - - lp = bc_parse_ops[top].prec; - - while (lp < rp || (lp == rp && rleft)) { - - status = bc_vec_pushByte(code, bc_parse_insts[top - BC_LEX_OP_NEGATE]); - - if (status) return status; - - status = bc_vec_pop(ops); - - if (status) return status; - - *num_exprs -= top != BC_LEX_OP_BOOL_NOT && - top != BC_LEX_OP_NEGATE ? 1 : 0; - - if (ops->len == 0) break; - - ptr = bc_vec_top(ops); - top = *ptr; - - if (top == BC_LEX_LEFT_PAREN) break; - - lp = bc_parse_ops[top].prec; - } - } - } - - status = bc_vec_push(ops, &t); - - if (status) return status; - - if (next && (status = bc_lex_next(&parse->lex, &parse->token))) goto err; - - return status; - -err: - - if (parse->token.string) free(parse->token.string); - - return status; -} - -BcStatus bc_parse_rightParen(BcParse *parse, BcVec *code, - BcVec *ops, uint32_t *nexs) -{ - BcStatus status; - BcLexTokenType top; - BcLexTokenType *ptr; - - if (ops->len == 0) return BC_STATUS_PARSE_INVALID_EXPR; - - ptr = bc_vec_top(ops); - top = *ptr; - - while (top != BC_LEX_LEFT_PAREN) { - - status = bc_vec_pushByte(code, bc_parse_insts[top - BC_LEX_OP_NEGATE]); - - if (status) return status; - - status = bc_vec_pop(ops); - - if (status) return status; - - *nexs -= top != BC_LEX_OP_BOOL_NOT && - top != BC_LEX_OP_NEGATE ? 1 : 0; - - if (ops->len == 0) return BC_STATUS_PARSE_INVALID_EXPR; - - ptr = bc_vec_top(ops); - top = *ptr; - } - - status = bc_vec_pop(ops); - - if (status) return status; - - return bc_lex_next(&parse->lex, &parse->token); -} - -BcStatus bc_parse_params(BcParse *parse, BcVec *code, uint8_t flags) { - - BcStatus status; - bool comma; - size_t nparams; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - if (parse->token.type == BC_LEX_RIGHT_PAREN) { - - status = bc_vec_pushByte(code, BC_INST_CALL); - - if (status) return status; - - return bc_vec_pushByte(code, 0); - } - - nparams = 0; - - do { - - ++nparams; - - status = bc_parse_expr(parse, code, flags & ~(BC_PARSE_EXPR_PRINT)); - - if (status) return status; - - if (parse->token.type == BC_LEX_COMMA) { - - comma = true; - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - } - else comma = false; - - } while (!status && parse->token.type != BC_LEX_RIGHT_PAREN); - - if (status) return status; - - if (comma) return BC_STATUS_PARSE_INVALID_TOKEN; - - status = bc_vec_pushByte(code, BC_INST_CALL); - - if (status) return status; - - return bc_parse_pushIndex(code, nparams); -} - -BcStatus bc_parse_call(BcParse *parse, BcVec *code, - char *name, uint8_t flags) -{ - BcStatus status; - BcEntry entry; - BcEntry *entry_ptr; - size_t idx; - - entry.name = name; - - status = bc_parse_params(parse, code, flags); - - if (status) goto err; - - if (parse->token.type != BC_LEX_RIGHT_PAREN) { - status = BC_STATUS_PARSE_INVALID_TOKEN; - goto err; - } - - idx = bc_veco_index(&parse->program->func_map, &entry); - - if (idx == -1) { - - status = bc_program_func_add(parse->program, name, &idx); - - if (status) return status; - - name = NULL; - } - else free(name); - - entry_ptr = bc_veco_item(&parse->program->func_map, idx); - - if (!entry_ptr) return BC_STATUS_EXEC_UNDEFINED_FUNC; - - status = bc_parse_pushIndex(code, entry_ptr->idx); - - if (status) return status; - - return bc_lex_next(&parse->lex, &parse->token); - -err: - - if (name) free(name); - - return status; -} - -BcStatus bc_parse_expr_name(BcParse *parse, BcVec *code, - BcExprType *type, uint8_t flags) -{ - BcStatus status; - char *name; - - name = parse->token.string; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) goto err; - - if (parse->token.type == BC_LEX_LEFT_BRACKET) { - - *type = BC_EXPR_ARRAY_ELEM; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) goto err; - - status = bc_parse_expr(parse, code, flags); - - if (status) goto err; - - if (parse->token.type != BC_LEX_RIGHT_BRACKET) { - status = BC_STATUS_PARSE_INVALID_TOKEN; - goto err; - } - - status = bc_vec_pushByte(code, BC_INST_PUSH_ARRAY); - - if (status) goto err; - - status = bc_parse_pushName(code, name); - } - else if (parse->token.type == BC_LEX_LEFT_PAREN) { - - if (flags & BC_PARSE_EXPR_NO_CALL) { - status = BC_STATUS_PARSE_INVALID_TOKEN; - goto err; - } - - *type = BC_EXPR_FUNC_CALL; - - status = bc_parse_call(parse, code, name, flags); - } - else { - - *type = BC_EXPR_VAR; - - status = bc_vec_pushByte(code, BC_INST_PUSH_VAR); - - if (status) goto err; - - status = bc_parse_pushName(code, name); - } - - return status; - -err: - - free(name); - - return status; -} - -BcStatus bc_parse_read(BcParse *parse, BcVec *code) { - - BcStatus status; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - if (parse->token.type != BC_LEX_LEFT_PAREN) - return BC_STATUS_PARSE_INVALID_TOKEN; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - if (parse->token.type != BC_LEX_RIGHT_PAREN) - return BC_STATUS_PARSE_INVALID_TOKEN; - - status = bc_vec_pushByte(code, BC_INST_READ); - - if (status) return status; - - return bc_lex_next(&parse->lex, &parse->token); -} - -BcStatus bc_parse_builtin(BcParse *parse, BcVec *code, - BcLexTokenType type, uint8_t flags) -{ - BcStatus status; - uint8_t inst; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - if (parse->token.type != BC_LEX_LEFT_PAREN) - return BC_STATUS_PARSE_INVALID_TOKEN; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - status = bc_parse_expr(parse, code, flags & ~(BC_PARSE_EXPR_PRINT)); - - if (status) return status; - - if (parse->token.type != BC_LEX_RIGHT_PAREN) - return BC_STATUS_PARSE_INVALID_TOKEN; - - inst = type == BC_LEX_KEY_LENGTH ? BC_INST_LENGTH : BC_INST_SQRT; - - status = bc_vec_pushByte(code, inst); - - if (status) return status; - - return bc_lex_next(&parse->lex, &parse->token); -} - -BcStatus bc_parse_scale(BcParse *parse, BcVec *code, - BcExprType *type, uint8_t flags) -{ - BcStatus status; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - if (parse->token.type != BC_LEX_LEFT_PAREN) { - - *type = BC_EXPR_SCALE; - - return bc_vec_pushByte(code, BC_INST_PUSH_SCALE); - } - - *type = BC_EXPR_SCALE_FUNC; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - status = bc_parse_expr(parse, code, flags); - - if (status) return status; - - if (parse->token.type != BC_LEX_RIGHT_PAREN) - return BC_STATUS_PARSE_INVALID_TOKEN; - - status = bc_vec_pushByte(code, BC_INST_SCALE_FUNC); - - if (status) return status; - - return bc_lex_next(&parse->lex, &parse->token); -} - -BcStatus bc_parse_incdec(BcParse *parse, BcVec *code, BcExprType *prev, - uint32_t *nexprs, uint8_t flags) -{ - BcStatus status; - BcLexTokenType type; - BcExprType etype; - uint8_t inst; - - etype = *prev; - - if (etype == BC_EXPR_VAR || etype == BC_EXPR_ARRAY_ELEM || - etype == BC_EXPR_SCALE || etype == BC_EXPR_LAST || - etype == BC_EXPR_IBASE || etype == BC_EXPR_OBASE) - { - *prev = parse->token.type == BC_LEX_OP_INC ? - BC_EXPR_INC_POST : BC_EXPR_DEC_POST; - - inst = parse->token.type == BC_LEX_OP_INC ? - BC_INST_INC_DUP : BC_INST_DEC_DUP; - - status = bc_vec_pushByte(code, inst); - - if (status) return status; - - status = bc_lex_next(&parse->lex, &parse->token); - } - else { - - inst = parse->token.type == BC_LEX_OP_INC ? BC_INST_INC : BC_INST_DEC; - - *prev = parse->token.type == BC_LEX_OP_INC ? - BC_EXPR_INC_PRE : BC_EXPR_DEC_PRE; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - type = parse->token.type; - - // Because we parse the next part of the expression - // right here, we need to increment this. - *nexprs = *nexprs + 1; - - switch (type) { - - case BC_LEX_NAME: - { - status = bc_parse_expr_name(parse, code, prev, - flags | BC_PARSE_EXPR_NO_CALL); - break; - } - - case BC_LEX_KEY_IBASE: - { - status = bc_vec_pushByte(code, BC_INST_PUSH_IBASE); - - if (status) return status; - - status = bc_lex_next(&parse->lex, &parse->token); - - break; - } - - case BC_LEX_KEY_LAST: - { - status = bc_vec_pushByte(code, BC_INST_PUSH_LAST); - - if (status) return status; - - status = bc_lex_next(&parse->lex, &parse->token); - - break; - } - - case BC_LEX_KEY_OBASE: - { - status = bc_vec_pushByte(code, BC_INST_PUSH_OBASE); - - if (status) return status; - - status = bc_lex_next(&parse->lex, &parse->token); - - break; - } - - case BC_LEX_KEY_SCALE: - { - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - if (parse->token.type == BC_LEX_LEFT_PAREN) - return BC_STATUS_PARSE_INVALID_TOKEN; - - status = bc_vec_pushByte(code, BC_INST_PUSH_SCALE); - - break; - } - - default: - { - return BC_STATUS_PARSE_INVALID_TOKEN; - } - } - - if (status) return status; - - status = bc_vec_pushByte(code, inst); - } - - return status; -} - -BcStatus bc_parse_minus(BcParse *parse, BcVec *exs, BcVec *ops, - BcExprType *prev, bool rparen, uint32_t *nexprs) -{ - BcStatus status; - BcLexTokenType type; - BcExprType etype; - - etype = *prev; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - type = parse->token.type; - - if (type != BC_LEX_NAME && type != BC_LEX_NUMBER && - type != BC_LEX_KEY_SCALE && type != BC_LEX_KEY_LAST && - type != BC_LEX_KEY_IBASE && type != BC_LEX_KEY_OBASE && - type != BC_LEX_LEFT_PAREN && type != BC_LEX_OP_MINUS && - type != BC_LEX_OP_INC && type != BC_LEX_OP_DEC && - type != BC_LEX_OP_BOOL_NOT) - { - return BC_STATUS_PARSE_INVALID_TOKEN; - } - - type = rparen || etype == BC_EXPR_INC_POST || etype == BC_EXPR_DEC_POST || - (etype >= BC_EXPR_NUMBER && etype <= BC_EXPR_SQRT) ? - BC_LEX_OP_MINUS : BC_LEX_OP_NEGATE; - - *prev = BC_PARSE_TOKEN_TO_EXPR(type); - - if (type == BC_LEX_OP_MINUS) - status = bc_parse_operator(parse, exs, ops, type, nexprs, false); - else - // We can just push onto the op stack because this is the largest - // precedence operator that gets pushed. Inc/dec does not. - status = bc_vec_push(ops, &type); - - return status; -} - -BcStatus bc_parse_string(BcParse *parse, BcVec *code) { - - BcStatus status; - size_t len; - - len = parse->program->strings.len; - - status = bc_vec_push(&parse->program->strings, &parse->token.string); - - if (status) return status; - - status = bc_vec_pushByte(code, BC_INST_STR); - - if (status) return status; - - status = bc_parse_pushIndex(code, len); - - if (status) return status; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - return bc_parse_semicolonListEnd(parse, code); -} - -BcStatus bc_parse_print(BcParse *parse, BcVec *code) { - - BcStatus status; - BcLexTokenType type; - bool comma; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - type = parse->token.type; - - if (type == BC_LEX_SEMICOLON || type == BC_LEX_NEWLINE) - return BC_STATUS_PARSE_INVALID_PRINT; - - comma = false; - - while (!status && type != BC_LEX_SEMICOLON && type != BC_LEX_NEWLINE) { - - if (type == BC_LEX_STRING) { - - size_t len; - - len = parse->program->strings.len; - - status = bc_vec_push(&parse->program->strings, &parse->token.string); - - if (status) return status; - - status = bc_vec_pushByte(code, BC_INST_PRINT_STR); - - if (status) return status; - - status = bc_parse_pushIndex(code, len); - } - else { - - status = bc_parse_expr(parse, code, 0); - - if (status) return status; - - status = bc_vec_pushByte(code, BC_INST_PRINT_EXPR); - } - - if (status) return status; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - if (parse->token.type == BC_LEX_COMMA) { - comma = true; - status = bc_lex_next(&parse->lex, &parse->token); - } - else comma = false; - - type = parse->token.type; - } - - if (status) return status; - - if (comma) return BC_STATUS_PARSE_INVALID_TOKEN; - - return bc_lex_next(&parse->lex, &parse->token); -} - -BcStatus bc_parse_return(BcParse *parse, BcVec *code) { - - BcStatus status; - - if (!BC_PARSE_FUNC(parse)) return BC_STATUS_PARSE_INVALID_TOKEN; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - if (parse->token.type != BC_LEX_NEWLINE && - parse->token.type != BC_LEX_SEMICOLON && - parse->token.type != BC_LEX_LEFT_PAREN && - (status = bc_posix_error(BC_STATUS_POSIX_RETURN_PARENS, - parse->lex.file, parse->lex.line, NULL))) - { - return status; - } - - if (parse->token.type == BC_LEX_NEWLINE || - parse->token.type == BC_LEX_SEMICOLON) - { - status = bc_vec_pushByte(code, BC_INST_RETURN_ZERO); - } - else { - - status = bc_parse_expr(parse, code, 0); - - if (status) return status; - - status = bc_vec_pushByte(code, BC_INST_RETURN); - } - - return status; -} - -BcStatus bc_parse_endBody(BcParse *parse, BcVec *code, bool brace) { - - BcStatus status; - uint8_t *flag_ptr; - - if (parse->flags.len <= 1 || parse->num_braces == 0) - return BC_STATUS_PARSE_INVALID_TOKEN; - - flag_ptr = bc_vec_top(&parse->flags); - - if (!flag_ptr) return BC_STATUS_PARSE_BUG; - - if (brace) { - - if (parse->token.type == BC_LEX_RIGHT_BRACE) { - - if (!parse->num_braces) return BC_STATUS_PARSE_INVALID_TOKEN; - - --parse->num_braces; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - } - else return BC_STATUS_PARSE_INVALID_TOKEN; - } - - if (BC_PARSE_IF(parse)) { - - while (parse->token.type == BC_LEX_NEWLINE) { - status = bc_lex_next(&parse->lex, &parse->token); - if (status) return status; - } - - status = bc_vec_pop(&parse->flags); - - if (status) return status; - - flag_ptr = BC_PARSE_TOP_FLAG_PTR(parse); - *flag_ptr = (*flag_ptr | BC_PARSE_FLAG_IF_END); - - if (parse->token.type == BC_LEX_KEY_ELSE) - status = bc_parse_else(parse, code); - } - else if (BC_PARSE_FUNC_INNER(parse)) { - - parse->func = 0; - - status = bc_vec_pushByte(code, BC_INST_RETURN_ZERO); - - if (status) return status; - - status = bc_vec_pop(&parse->flags); - } - else { - - BcInstPtr *ip; - BcFunc *func; - size_t *label; - - ip = bc_vec_top(&parse->exit_labels); - - if (!ip) return BC_STATUS_PARSE_BUG; - - status = bc_vec_pushByte(code, BC_INST_JUMP); - - if (status) return status; - - label = bc_vec_top(&parse->cond_labels); - - if (!label) return BC_STATUS_PARSE_BUG; - - status = bc_parse_pushIndex(code, *label); - - if (status) return status; - - func = bc_vec_item(&parse->program->funcs, parse->func); - - if (!func) return BC_STATUS_PARSE_BUG; - - label = bc_vec_item(&func->labels, ip->idx); - - if (!label) return BC_STATUS_PARSE_BUG; - - *label = code->len; - - status = bc_vec_pop(&parse->flags); - } - - return status; -} - -BcStatus bc_parse_startBody(BcParse *parse, uint8_t flags) { - - uint8_t *flag_ptr; - - flag_ptr = BC_PARSE_TOP_FLAG_PTR(parse); - - if (!flag_ptr) return BC_STATUS_PARSE_BUG; - - flags |= (*flag_ptr & (BC_PARSE_FLAG_FUNC | BC_PARSE_FLAG_LOOP)); - flags |= BC_PARSE_FLAG_BODY; - - return bc_vec_push(&parse->flags, &flags); -} - -BcStatus bc_parse_noElse(BcParse *parse, BcVec *code) { - - uint8_t *flag_ptr; - BcInstPtr *ip; - BcFunc *func; - size_t *label; - - flag_ptr = BC_PARSE_TOP_FLAG_PTR(parse); - *flag_ptr = (*flag_ptr & ~(BC_PARSE_FLAG_IF_END)); - - ip = bc_vec_top(&parse->exit_labels); - - if (!ip || ip->func || ip->len) return BC_STATUS_PARSE_BUG; - - func = bc_vec_item(&parse->program->funcs, parse->func); - - if (!func || code != &func->code) return BC_STATUS_PARSE_BUG; - - label = bc_vec_item(&func->labels, ip->idx); - - if (!label) return BC_STATUS_PARSE_BUG; - - *label = code->len; - - return bc_vec_pop(&parse->exit_labels); -} - -BcStatus bc_parse_if(BcParse *parse, BcVec *code) { - - BcStatus status; - BcInstPtr ip; - BcFunc *func; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - if (parse->token.type != BC_LEX_LEFT_PAREN) - return BC_STATUS_PARSE_INVALID_TOKEN; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - status = bc_parse_expr(parse, code, BC_PARSE_EXPR_POSIX_REL); - - if (status) return status; - - if (parse->token.type != BC_LEX_RIGHT_PAREN) - return BC_STATUS_PARSE_INVALID_TOKEN; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - status = bc_vec_pushByte(code, BC_INST_JUMP_ZERO); - - if (status) return status; - - func = bc_vec_item(&parse->program->funcs, parse->func); - - if (!func) return BC_STATUS_EXEC_UNDEFINED_FUNC; - - ip.idx = func->labels.len; - ip.func = 0; - ip.len = 0; - - status = bc_parse_pushIndex(code, ip.idx); - - if (status) return status; - - status = bc_vec_push(&parse->exit_labels, &ip); - - if (status) return status; - - status = bc_vec_push(&func->labels, &ip.idx); - - if (status) return status; - - return bc_parse_startBody(parse, BC_PARSE_FLAG_IF); -} - -BcStatus bc_parse_else(BcParse *parse, BcVec *code) { - - BcStatus status; - BcInstPtr ip; - BcFunc *func; - - if (!BC_PARSE_IF_END(parse)) return BC_STATUS_PARSE_INVALID_TOKEN; - - func = bc_vec_item(&parse->program->funcs, parse->func); - - if (!func) return BC_STATUS_PARSE_BUG; - - ip.idx = func->labels.len; - ip.func = 0; - ip.len = 0; - - status = bc_vec_pushByte(code, BC_INST_JUMP); - - if (status) return status; - - status = bc_parse_pushIndex(code, ip.idx); - - if (status) return status; - - status = bc_parse_noElse(parse, code); - - if (status) return status; - - status = bc_vec_push(&parse->exit_labels, &ip); - - if (status) return status; - - status = bc_vec_push(&func->labels, &ip.idx); - - if (status) return status; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - return bc_parse_startBody(parse, BC_PARSE_FLAG_ELSE); -} - -BcStatus bc_parse_while(BcParse *parse, BcVec *code) { - - BcStatus status; - uint8_t flags; - BcFunc *func; - BcInstPtr ip; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - if (parse->token.type != BC_LEX_LEFT_PAREN) - return BC_STATUS_PARSE_INVALID_TOKEN; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - func = bc_vec_item(&parse->program->funcs, parse->func); - - if (!func) return BC_STATUS_EXEC_UNDEFINED_FUNC; - - ip.idx = func->labels.len; - - status = bc_vec_push(&func->labels, &code->len); - - if (status) return status; - - status = bc_vec_push(&parse->cond_labels, &ip.idx); - - if (status) return status; - - ip.idx = func->labels.len; - ip.func = 1; - ip.len = 0; - - status = bc_vec_push(&parse->exit_labels, &ip); - - if (status) return status; - - status = bc_vec_push(&func->labels, &ip.idx); - - if (status) return status; - - status = bc_parse_expr(parse, code, BC_PARSE_EXPR_POSIX_REL); - - if (status) return status; - - if (parse->token.type != BC_LEX_RIGHT_PAREN) - return BC_STATUS_PARSE_INVALID_TOKEN; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - status = bc_vec_pushByte(code, BC_INST_JUMP_ZERO); - - if (status) return status; - - status = bc_parse_pushIndex(code, ip.idx); - - if (status) return status; - - flags = BC_PARSE_FLAG_LOOP | BC_PARSE_FLAG_LOOP_INNER; - - return bc_parse_startBody(parse, flags); -} - -BcStatus bc_parse_for(BcParse *parse, BcVec *code) { - - BcStatus status; - BcFunc *func; - BcInstPtr ip; - size_t cond_idx, exit_idx, body_idx, update_idx; - uint8_t flags; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - if (parse->token.type != BC_LEX_LEFT_PAREN) - return BC_STATUS_PARSE_INVALID_TOKEN; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - if (parse->token.type != BC_LEX_SEMICOLON) - status = bc_parse_expr(parse, code, 0); - else - status = bc_posix_error(BC_STATUS_POSIX_MISSING_FOR_INIT, - parse->lex.file, parse->lex.line, NULL); - - if (status) return status; - - if (parse->token.type != BC_LEX_SEMICOLON) - return BC_STATUS_PARSE_INVALID_TOKEN; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - func = bc_vec_item(&parse->program->funcs, parse->func); - - if (!func) return BC_STATUS_PARSE_BUG; - - cond_idx = func->labels.len; - update_idx = cond_idx + 1; - body_idx = update_idx + 1; - exit_idx = body_idx + 1; - - status = bc_vec_push(&func->labels, &code->len); - - if (status) return status; - - if (parse->token.type != BC_LEX_SEMICOLON) - status = bc_parse_expr(parse, code, BC_PARSE_EXPR_POSIX_REL); - else status = bc_posix_error(BC_STATUS_POSIX_MISSING_FOR_COND, - parse->lex.file, parse->lex.line, NULL); - - if (status) return status; - - if (parse->token.type != BC_LEX_SEMICOLON) - return BC_STATUS_PARSE_INVALID_TOKEN; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - status = bc_vec_pushByte(code, BC_INST_JUMP_ZERO); - - if (status) return status; - - status = bc_parse_pushIndex(code, exit_idx); - - if (status) return status; - - status = bc_vec_pushByte(code, BC_INST_JUMP); - - if (status) return status; - - status = bc_parse_pushIndex(code, body_idx); - - if (status) return status; - - ip.idx = func->labels.len; - - status = bc_vec_push(&parse->cond_labels, &update_idx); - - if (status) return status; - - status = bc_vec_push(&func->labels, &code->len); - - if (status) return status; - - if (parse->token.type != BC_LEX_RIGHT_PAREN) - status = bc_parse_expr(parse, code, 0); - else - status = bc_posix_error(BC_STATUS_POSIX_MISSING_FOR_UPDATE, - parse->lex.file, parse->lex.line, NULL); - - if (status) return status; - - if (parse->token.type != BC_LEX_RIGHT_PAREN) { - status = bc_parse_expr(parse, code, BC_PARSE_EXPR_POSIX_REL); - if (status) return status; - } - - if (parse->token.type != BC_LEX_RIGHT_PAREN) - return BC_STATUS_PARSE_INVALID_TOKEN; - - status = bc_vec_pushByte(code, BC_INST_JUMP); - - if (status) return status; - - status = bc_parse_pushIndex(code, cond_idx); - - if (status) return status; - - status = bc_vec_push(&func->labels, &code->len); - - if (status) return status; - - ip.idx = exit_idx; - ip.func = 1; - ip.len = 0; - - status = bc_vec_push(&parse->exit_labels, &ip); - - if (status) return status; - - status = bc_vec_push(&func->labels, &ip.idx); - - if (status) return status; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - flags = BC_PARSE_FLAG_LOOP | BC_PARSE_FLAG_LOOP_INNER; - - return bc_parse_startBody(parse, flags); -} - -BcStatus bc_parse_loopExit(BcParse *parse, BcVec *code, - BcLexTokenType type) -{ - BcStatus status; - size_t idx; - - if (!BC_PARSE_LOOP(parse)) - return BC_STATUS_PARSE_INVALID_TOKEN; - - if (type == BC_LEX_KEY_BREAK) { - - size_t top; - BcInstPtr *ip; - - top = parse->exit_labels.len - 1; - ip = bc_vec_item(&parse->exit_labels, top); - - while (top < parse->exit_labels.len && ip && !ip->func) { - ip = bc_vec_item(&parse->exit_labels, top); - --top; - } - - if (top >= parse->exit_labels.len || !ip) return BC_STATUS_PARSE_BUG; - - idx = ip->idx; - } - else { - - size_t *ptr; - - ptr = bc_vec_top(&parse->cond_labels); - - if (!ptr) return BC_STATUS_PARSE_BUG; - - idx = *ptr; - } - - status = bc_vec_pushByte(code, BC_INST_JUMP); - - if (status) return status; - - status = bc_parse_pushIndex(code, idx); - - if (status) return status; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - if (parse->token.type != BC_LEX_SEMICOLON && - parse->token.type != BC_LEX_NEWLINE) - { - return BC_STATUS_PARSE_INVALID_TOKEN; - } - - return bc_lex_next(&parse->lex, &parse->token); -} - -BcStatus bc_parse_func(BcParse *parse) { - - BcLexTokenType type; - BcStatus status; - BcFunc *fptr; - bool comma; - uint8_t flags; - char *name; - bool var; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - name = parse->token.string; - - if (parse->token.type != BC_LEX_NAME) { - status = BC_STATUS_PARSE_INVALID_FUNC; - goto err; - } - - if (parse->program->funcs.len != parse->program->func_map.vec.len) { - status = BC_STATUS_PARSE_MISMATCH_NUM_FUNCS; - goto err; - } - - status = bc_program_func_add(parse->program, name, &parse->func); - - if (status) goto err; - - if (!parse->func) return BC_STATUS_PARSE_BUG; - - fptr = bc_vec_item(&parse->program->funcs, parse->func); - - if (!fptr) return BC_STATUS_EXEC_UNDEFINED_FUNC; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - if (parse->token.type != BC_LEX_LEFT_PAREN) - return BC_STATUS_PARSE_INVALID_FUNC; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - comma = false; - - type = parse->token.type; - name = parse->token.string; - - while (!status && type != BC_LEX_RIGHT_PAREN) { - - if (type != BC_LEX_NAME) { - status = BC_STATUS_PARSE_INVALID_FUNC; - goto err; - } - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) goto err; - - if (parse->token.type == BC_LEX_LEFT_BRACKET) { - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) goto err; - - if (parse->token.type != BC_LEX_RIGHT_BRACKET) - return BC_STATUS_PARSE_INVALID_FUNC; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) goto err; - - var = false; - } - else { - var = true; - } - - if (parse->token.type == BC_LEX_COMMA) { - - comma = true; - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) goto err; - } - else comma = false; - - status = bc_func_insert(fptr, name, var, &fptr->params); - - if (status) goto err; - - type = parse->token.type; - name = parse->token.string; - } - - if (comma) return BC_STATUS_PARSE_INVALID_FUNC; - - flags = BC_PARSE_FLAG_FUNC | BC_PARSE_FLAG_FUNC_INNER | BC_PARSE_FLAG_BODY; - - status = bc_parse_startBody(parse, flags); - - if (status) return status; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - if (parse->token.type != BC_LEX_LEFT_BRACE) - return bc_posix_error(BC_STATUS_POSIX_FUNC_HEADER_LEFT_BRACE, - parse->lex.file, parse->lex.line, NULL); - - return status; - -err: - - free(name); - - return status; -} - -BcStatus bc_parse_auto(BcParse *parse) { - - BcLexTokenType type; - BcStatus status; - bool comma; - char *name; - bool var; - bool one; - BcFunc *func; - - if (!parse->auto_part) return BC_STATUS_PARSE_INVALID_TOKEN; - - parse->auto_part = false; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - comma = false; - one = false; - - func = bc_vec_item(&parse->program->funcs, parse->func); - - if (!func) return BC_STATUS_EXEC_UNDEFINED_FUNC; - - type = parse->token.type; - - while (!status && type == BC_LEX_NAME) { - - name = parse->token.string; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - one = true; - - if (parse->token.type == BC_LEX_LEFT_BRACKET) { - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) goto err; - - if (parse->token.type != BC_LEX_RIGHT_BRACKET) - return BC_STATUS_PARSE_INVALID_FUNC; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) goto err; - - var = false; - } - else var = true; - - if (parse->token.type == BC_LEX_COMMA) { - - comma = true; - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) goto err; - } - else comma = false; - - status = bc_func_insert(func, name, var, &func->autos); - - if (status) goto err; - - type = parse->token.type; - } - - if (status) return status; - - if (comma) return BC_STATUS_PARSE_INVALID_FUNC; - - if (!one) return BC_STATUS_PARSE_NO_AUTO; - - if (type != BC_LEX_NEWLINE && type != BC_LEX_SEMICOLON) - return BC_STATUS_PARSE_INVALID_TOKEN; - - return bc_lex_next(&parse->lex, &parse->token); - -err: - - free(name); - - return status; -} - -BcStatus bc_parse_body(BcParse *parse, BcVec *code, bool brace) { - - BcStatus status; - uint8_t *flag_ptr; - uint8_t flags; - - if (parse->flags.len < 2) return BC_STATUS_PARSE_BUG; - - flag_ptr = bc_vec_top(&parse->flags); - - if (!flag_ptr) return BC_STATUS_PARSE_BUG; - - *flag_ptr &= ~(BC_PARSE_FLAG_BODY); - - flags = *flag_ptr; - - if (flags & BC_PARSE_FLAG_FUNC_INNER) { - if (!brace) return BC_STATUS_PARSE_INVALID_TOKEN; - parse->auto_part = true; - status = bc_lex_next(&parse->lex, &parse->token); - } - else if (flags) { - - status = bc_parse_stmt(parse, code); - - if (!brace) { - - if (status) return status; - - status = bc_parse_endBody(parse, code, false); - } - } - else status = BC_STATUS_PARSE_BUG; - - return status; -} - -BcStatus bc_parse_semicolonList(BcParse *parse, BcVec *code) { - - BcStatus status; - - status = BC_STATUS_SUCCESS; - - switch (parse->token.type) { - - case BC_LEX_OP_INC: - case BC_LEX_OP_DEC: - case BC_LEX_OP_MINUS: - case BC_LEX_OP_BOOL_NOT: - case BC_LEX_LEFT_PAREN: - case BC_LEX_STRING: - case BC_LEX_NAME: - case BC_LEX_NUMBER: - case BC_LEX_KEY_BREAK: - case BC_LEX_KEY_CONTINUE: - case BC_LEX_KEY_FOR: - case BC_LEX_KEY_HALT: - case BC_LEX_KEY_IBASE: - case BC_LEX_KEY_IF: - case BC_LEX_KEY_LAST: - case BC_LEX_KEY_LENGTH: - case BC_LEX_KEY_LIMITS: - case BC_LEX_KEY_OBASE: - case BC_LEX_KEY_PRINT: - case BC_LEX_KEY_QUIT: - case BC_LEX_KEY_READ: - case BC_LEX_KEY_RETURN: - case BC_LEX_KEY_SCALE: - case BC_LEX_KEY_SQRT: - case BC_LEX_KEY_WHILE: - { - status = bc_parse_stmt(parse, code); - break; - } - - case BC_LEX_NEWLINE: - { - status = bc_lex_next(&parse->lex, &parse->token); - break; - } - - case BC_LEX_SEMICOLON: - { - status = bc_parse_semicolonListEnd(parse, code); - break; - } - - case BC_LEX_EOF: - { - if (parse->flags.len > 0) status = BC_STATUS_PARSE_EOF; - break; - } - - default: - { - status = BC_STATUS_PARSE_INVALID_TOKEN; - break; - } - } - - return status; -} - -BcStatus bc_parse_semicolonListEnd(BcParse *parse, BcVec *code) { - - BcStatus status; - - if (parse->token.type == BC_LEX_SEMICOLON) { - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - status = bc_parse_semicolonList(parse, code); - } - else if (parse->token.type == BC_LEX_NEWLINE) - status = bc_lex_next(&parse->lex, &parse->token); - else if (parse->token.type == BC_LEX_EOF) - status = BC_STATUS_SUCCESS; - else - status = BC_STATUS_PARSE_INVALID_TOKEN; - - return status; -} - -BcStatus bc_parse_stmt(BcParse *parse, BcVec *code) { - - BcStatus status; - - switch (parse->token.type) { - - case BC_LEX_NEWLINE: - { - status = bc_lex_next(&parse->lex, &parse->token); - return status; - } - - case BC_LEX_KEY_ELSE: - { - parse->auto_part = false; - break; - } - - case BC_LEX_LEFT_BRACE: - { - ++parse->num_braces; - - if (!BC_PARSE_BODY(parse)) return BC_STATUS_PARSE_INVALID_TOKEN; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - return bc_parse_body(parse, code, true); - } - - case BC_LEX_KEY_AUTO: - { - return bc_parse_auto(parse); - } - - default: - { - parse->auto_part = false; - - if (BC_PARSE_IF_END(parse)) return bc_parse_noElse(parse, code); - else if (BC_PARSE_BODY(parse)) return bc_parse_body(parse, code, false); - - break; - } - } - - switch (parse->token.type) { - - case BC_LEX_OP_INC: - case BC_LEX_OP_DEC: - case BC_LEX_OP_MINUS: - case BC_LEX_OP_BOOL_NOT: - case BC_LEX_LEFT_PAREN: - case BC_LEX_NAME: - case BC_LEX_NUMBER: - case BC_LEX_KEY_IBASE: - case BC_LEX_KEY_LAST: - case BC_LEX_KEY_LENGTH: - case BC_LEX_KEY_OBASE: - case BC_LEX_KEY_READ: - case BC_LEX_KEY_SCALE: - case BC_LEX_KEY_SQRT: - { - status = bc_parse_expr(parse, code, BC_PARSE_EXPR_PRINT); - - if (status) break; - - status = bc_parse_semicolonListEnd(parse, code); - - break; - } - - case BC_LEX_KEY_ELSE: - { - status = bc_parse_else(parse, code); - break; - } - - case BC_LEX_RIGHT_BRACE: - { - status = bc_parse_endBody(parse, code, true); - break; - } - - case BC_LEX_STRING: - { - status = bc_parse_string(parse, code); - break; - } - - case BC_LEX_KEY_BREAK: - case BC_LEX_KEY_CONTINUE: - { - status = bc_parse_loopExit(parse, code, parse->token.type); - break; - } - - case BC_LEX_KEY_FOR: - { - status = bc_parse_for(parse, code); - break; - } - - case BC_LEX_KEY_HALT: - { - status = bc_vec_pushByte(code, BC_INST_HALT); - - if (status) return status; - - status = bc_lex_next(&parse->lex, &parse->token); - - if (status) return status; - - status = bc_parse_semicolonListEnd(parse, code); - - break; - } - - case BC_LEX_KEY_IF: - { - status = bc_parse_if(parse, code); - break; - } - - case BC_LEX_KEY_LIMITS: - { - status = bc_lex_next(&parse->lex, &parse->token); - - if (status && status != BC_STATUS_LEX_EOF) return status; - - status = bc_parse_semicolonListEnd(parse, code); - - if (status && status != BC_STATUS_LEX_EOF) return status; - - status = BC_STATUS_PARSE_LIMITS; - - break; - } - - case BC_LEX_KEY_PRINT: - { - status = bc_parse_print(parse, code); - break; - } - - case BC_LEX_KEY_QUIT: - { - // Quit is a compile-time command, - // so we send an exit command. We - // don't exit directly, so the vm - // can clean up. - status = BC_STATUS_PARSE_QUIT; - break; - } - - case BC_LEX_KEY_RETURN: - { - status = bc_parse_return(parse, code); - - if (status) return status; - - status = bc_parse_semicolonListEnd(parse, code); - - break; - } - - case BC_LEX_KEY_WHILE: - { - status = bc_parse_while(parse, code); - break; - } - - default: - { - status = BC_STATUS_PARSE_INVALID_TOKEN; - break; - } - } - - return status; -} - -BcStatus bc_parse_init(BcParse *parse, BcProgram *program) { - - BcStatus status; - - if (parse == NULL || program == NULL) return BC_STATUS_INVALID_PARAM; - - status = bc_vec_init(&parse->flags, sizeof(uint8_t), NULL); - - if (status != BC_STATUS_SUCCESS) return status; - - status = bc_vec_init(&parse->exit_labels, sizeof(BcInstPtr), NULL); - - if (status) goto exit_label_err; - - status = bc_vec_init(&parse->cond_labels, sizeof(size_t), NULL); - - if (status) goto cond_label_err; - - uint8_t flags = 0; - - status = bc_vec_push(&parse->flags, &flags); - - if (status != BC_STATUS_SUCCESS) goto push_err; - - status = bc_vec_init(&parse->ops, sizeof(BcLexTokenType), NULL); - - if (status) goto push_err; - - parse->program = program; - parse->func = 0; - parse->num_braces = 0; - parse->auto_part = false; - - return status; - -push_err: - - bc_vec_free(&parse->cond_labels); - -cond_label_err: - - bc_vec_free(&parse->exit_labels); - -exit_label_err: - - bc_vec_free(&parse->flags); - - return status; -} - -BcStatus bc_parse_file(BcParse *parse, const char *file) { - - if (parse == NULL || file == NULL) return BC_STATUS_INVALID_PARAM; - - return bc_lex_init(&parse->lex, file); -} - -BcStatus bc_parse_text(BcParse *parse, const char *text) { - - BcStatus status; - - if (parse == NULL || text == NULL) return BC_STATUS_INVALID_PARAM; - - status = bc_lex_text(&parse->lex, text); - - if (status) return status; - - return bc_lex_next(&parse->lex, &parse->token); -} - -BcStatus bc_parse_parse(BcParse *parse) { - - BcStatus status; - - if (parse == NULL) return BC_STATUS_INVALID_PARAM; - - switch (parse->token.type) { - - case BC_LEX_NEWLINE: - { - status = bc_lex_next(&parse->lex, &parse->token); - break; - } - - case BC_LEX_KEY_DEFINE: - { - if (!BC_PARSE_CAN_EXEC(parse)) - return BC_STATUS_PARSE_INVALID_TOKEN; - - status = bc_parse_func(parse); - - break; - } - - case BC_LEX_EOF: - { - status = BC_STATUS_PARSE_EOF; - break; - } - - default: - { - BcFunc *func; - - func = bc_vec_item(&parse->program->funcs, parse->func); - - if (!func) return BC_STATUS_EXEC_UNDEFINED_FUNC; - - status = bc_parse_stmt(parse, &func->code); - - break; - } - } - - return status; -} - -void bc_parse_free(BcParse *parse) { - - if (!parse) { - return; - } - - bc_vec_free(&parse->flags); - bc_vec_free(&parse->exit_labels); - bc_vec_free(&parse->cond_labels); - bc_vec_free(&parse->ops); - - switch (parse->token.type) { - - case BC_LEX_STRING: - case BC_LEX_NAME: - case BC_LEX_NUMBER: - { - if (parse->token.string) { - free(parse->token.string); - } - - break; - } - - default: - { - // We don't have have to free anything. - break; - } - } -} - -BcStatus bc_parse_expr(BcParse *parse, BcVec *code, uint8_t flags) { - - BcStatus status; - uint32_t nexprs, nparens, ops_start, nrelops; - bool paren_first, paren_expr, rparen, done, get_token, assign; - BcExprType prev; - BcLexTokenType type, top; - BcLexTokenType *ptr; - - status = BC_STATUS_SUCCESS; - - ops_start = parse->ops.len; - - prev = BC_EXPR_PRINT; - - paren_first = parse->token.type == BC_LEX_LEFT_PAREN; - - nexprs = 0; - nparens = 0; - paren_expr = false; - rparen = false; - done = false; - get_token = false; - assign = false; - nrelops = 0; - - type = parse->token.type; - - while (!status && !done && bc_parse_token_exprs[type]) { - - switch (type) { - - case BC_LEX_OP_INC: - case BC_LEX_OP_DEC: - { - status = bc_parse_incdec(parse, code, &prev, &nexprs, flags); - rparen = false; - get_token = false; - break; - } - - case BC_LEX_OP_MINUS: - { - status = bc_parse_minus(parse, code, &parse->ops, &prev, - rparen, &nexprs); - rparen = false; - get_token = false; - break; - } - - case BC_LEX_OP_ASSIGN_POWER: - case BC_LEX_OP_ASSIGN_MULTIPLY: - case BC_LEX_OP_ASSIGN_DIVIDE: - case BC_LEX_OP_ASSIGN_MODULUS: - case BC_LEX_OP_ASSIGN_PLUS: - case BC_LEX_OP_ASSIGN_MINUS: - case BC_LEX_OP_ASSIGN: - if (prev != BC_EXPR_VAR && prev != BC_EXPR_ARRAY_ELEM && - prev != BC_EXPR_SCALE && prev != BC_EXPR_IBASE && - prev != BC_EXPR_OBASE && prev != BC_EXPR_LAST) - { - status = BC_STATUS_PARSE_INVALID_ASSIGN; - break; - } - // Fallthrough. - case BC_LEX_OP_POWER: - case BC_LEX_OP_MULTIPLY: - case BC_LEX_OP_DIVIDE: - case BC_LEX_OP_MODULUS: - case BC_LEX_OP_PLUS: - case BC_LEX_OP_REL_EQUAL: - case BC_LEX_OP_REL_LESS_EQ: - case BC_LEX_OP_REL_GREATER_EQ: - case BC_LEX_OP_REL_NOT_EQ: - case BC_LEX_OP_REL_LESS: - case BC_LEX_OP_REL_GREATER: - case BC_LEX_OP_BOOL_NOT: - case BC_LEX_OP_BOOL_OR: - case BC_LEX_OP_BOOL_AND: - { - if (type >= BC_LEX_OP_REL_EQUAL && type <= BC_LEX_OP_REL_GREATER) - nrelops += 1; - - prev = BC_PARSE_TOKEN_TO_EXPR(type); - status = bc_parse_operator(parse, code, &parse->ops, - type, &nexprs, true); - rparen = false; - get_token = false; - - break; - } - - case BC_LEX_LEFT_PAREN: - { - ++nparens; - paren_expr = false; - rparen = false; - get_token = true; - status = bc_vec_push(&parse->ops, &type); - break; - } - - case BC_LEX_RIGHT_PAREN: - { - if (nparens == 0) { - status = BC_STATUS_SUCCESS; - done = true; - get_token = false; - break; - } - else if (!paren_expr) { - status = BC_STATUS_PARSE_INVALID_EXPR; - goto err; - } - - --nparens; - paren_expr = true; - rparen = true; - get_token = false; - - status = bc_parse_rightParen(parse, code, &parse->ops, &nexprs); - - break; - } - - case BC_LEX_NAME: - { - paren_expr = true; - rparen = false; - get_token = false; - status = bc_parse_expr_name(parse, code, &prev, - flags & ~(BC_PARSE_EXPR_NO_CALL)); - ++nexprs; - break; - } - - case BC_LEX_NUMBER: - { - size_t idx; - - idx = parse->program->constants.len; - - status = bc_vec_push(&parse->program->constants, &parse->token.string); - - if (status) goto err; - - status = bc_vec_pushByte(code, BC_INST_PUSH_NUM); - - if (status) return status; - - status = bc_parse_pushIndex(code, idx); - - if (status) return status; - - paren_expr = true; - rparen = false; - get_token = true; - ++nexprs; - prev = BC_EXPR_NUMBER; - - break; - } - - case BC_LEX_KEY_IBASE: - { - status = bc_vec_pushByte(code, BC_INST_PUSH_IBASE); - - paren_expr = true; - rparen = false; - get_token = true; - ++nexprs; - prev = BC_EXPR_IBASE; - - break; - } - - case BC_LEX_KEY_LENGTH: - case BC_LEX_KEY_SQRT: - { - status = bc_parse_builtin(parse, code, type, flags); - paren_expr = true; - rparen = false; - get_token = false; - ++nexprs; - prev = type == BC_LEX_KEY_LENGTH ? BC_EXPR_LENGTH : BC_EXPR_SQRT; - break; - } - - case BC_LEX_KEY_OBASE: - { - status = bc_vec_pushByte(code, BC_INST_PUSH_OBASE); - - paren_expr = true; - rparen = false; - get_token = true; - ++nexprs; - prev = BC_EXPR_OBASE; - - break; - } - - case BC_LEX_KEY_READ: - { - if (flags & BC_PARSE_EXPR_NO_READ) - status = BC_STATUS_EXEC_RECURSIVE_READ; - else status = bc_parse_read(parse, code); - - paren_expr = true; - rparen = false; - get_token = false; - ++nexprs; - prev = BC_EXPR_READ; - - break; - } - - case BC_LEX_KEY_SCALE: - { - status = bc_parse_scale(parse, code, &prev, flags); - paren_expr = true; - rparen = false; - get_token = false; - ++nexprs; - prev = BC_EXPR_SCALE; - break; - } - - default: - { - status = BC_STATUS_PARSE_INVALID_TOKEN; - break; - } - } - - if (status && status != BC_STATUS_LEX_EOF) goto err; - - if (get_token) status = bc_lex_next(&parse->lex, &parse->token); - - type = parse->token.type; - } - - if (status && status != BC_STATUS_LEX_EOF) goto err; - - status = BC_STATUS_SUCCESS; - - while (!status && parse->ops.len > ops_start) { - - ptr = bc_vec_top(&parse->ops); - top = *ptr; - - assign = top >= BC_LEX_OP_ASSIGN_POWER && top <= BC_LEX_OP_ASSIGN; - - if (top == BC_LEX_LEFT_PAREN || top == BC_LEX_RIGHT_PAREN) { - status = BC_STATUS_PARSE_INVALID_EXPR; - goto err; - } - - status = bc_vec_pushByte(code, bc_parse_insts[top - BC_LEX_OP_NEGATE]); - - if (status) goto err; - - nexprs -= top != BC_LEX_OP_BOOL_NOT && top != BC_LEX_OP_NEGATE ? 1 : 0; - - status = bc_vec_pop(&parse->ops); - - if (status) goto err; - } - - if (nexprs != 1) { - status = BC_STATUS_PARSE_INVALID_EXPR; - goto err; - } - - if (!(flags & BC_PARSE_EXPR_POSIX_REL) && nrelops && - (status = bc_posix_error(BC_STATUS_POSIX_REL_OUTSIDE, - parse->lex.file, parse->lex.line, NULL))) - { - goto err; - } - else if (nrelops > 1 && - (status = bc_posix_error(BC_STATUS_POSIX_REL_OUTSIDE, - parse->lex.file, parse->lex.line, NULL))) - { - goto err; - } - - if (flags & BC_PARSE_EXPR_PRINT) { - if (paren_first || !assign) status = bc_vec_pushByte(code, BC_INST_PRINT); - else status = bc_vec_pushByte(code, BC_INST_POP); - } - - return type == BC_LEX_EOF ? BC_STATUS_LEX_EOF : status; - -err: - - if (parse->token.string) free(parse->token.string); - - return status; -} - -BcStatus bc_program_searchVec(const BcVec *vec, const BcResult *result, - BcNum **ret, uint8_t flags) -{ - BcStatus status; - BcAuto *a; - size_t i; - - for (i = 0; i < vec->len; ++i) { - - a = bc_vec_item(vec, i); - - if (!a) return BC_STATUS_EXEC_UNDEFINED_VAR; - - if (!strcmp(a->name, result->data.id.name)) { - - uint8_t cond; - - cond = flags & BC_PROGRAM_SEARCH_VAR; - - if (!a->var != !cond) - return BC_STATUS_EXEC_INVALID_TYPE; - - if (cond) *ret = &a->data.num; - else if (flags & BC_PROGRAM_SEARCH_ARRAY_ONLY) - *ret = (BcNum*) &a->data.array; - else { - - status = bc_array_expand(&a->data.array, result->data.id.idx + 1); - - if (status) return status; - - *ret = bc_vec_item(&a->data.array, result->data.id.idx); - } - - return BC_STATUS_SUCCESS; - } - } - - return BC_STATUS_EXEC_UNDEFINED_VAR; -} - -BcStatus bc_program_search(BcProgram *p, BcResult *result, - BcNum **ret, uint8_t flags) -{ - BcStatus status; - BcFunc *func; - BcInstPtr *ip; - BcEntry entry; - BcVec *vec; - BcVecO *veco; - size_t idx; - BcEntry *entry_ptr; - - // We use this as either a number or an array, since - // a BcAuto has a union inside that has both. - BcAuto a; - - ip = bc_vec_top(&p->stack); - - if (!ip) return BC_STATUS_EXEC_INVALID_STACK; - - if (ip->func == BC_PROGRAM_READ_FUNC) { - ip = bc_vec_item_rev(&p->stack, 1); - if (!ip) return BC_STATUS_EXEC_INVALID_STACK; - } - - if (ip->func != BC_PROGRAM_MAIN_FUNC) { - - func = bc_vec_item(&p->funcs, ip->func); - - if (!func) return BC_STATUS_EXEC_INVALID_STACK; - - status = bc_program_searchVec(&func->params, result, ret, flags); - - if (status != BC_STATUS_EXEC_UNDEFINED_VAR) return status; - - status = bc_program_searchVec(&func->autos, result, ret, flags); - - if (status != BC_STATUS_EXEC_UNDEFINED_VAR) return status; - } - - vec = (flags & BC_PROGRAM_SEARCH_VAR) ? &p->vars : &p->arrays; - veco = (flags & BC_PROGRAM_SEARCH_VAR) ? &p->var_map : &p->array_map; - - entry.name = result->data.id.name; - entry.idx = vec->len; - - status = bc_veco_insert(veco, &entry, &idx); - - if (status != BC_STATUS_VECO_ITEM_EXISTS) { - - size_t len; - - if (status) return status; - - len = strlen(entry.name) + 1; - - result->data.id.name = malloc(len); - - if (!result->data.id.name) return BC_STATUS_MALLOC_FAIL; - - strcpy(result->data.id.name, entry.name); - - status = bc_auto_init(&a, NULL, flags & BC_PROGRAM_SEARCH_VAR); - - if (status) return status; - - status = bc_vec_push(vec, &a.data); - - if (status) return status; - } - - entry_ptr = bc_veco_item(veco, idx); - - if (!entry_ptr) return BC_STATUS_VECO_OUT_OF_BOUNDS; - - if (flags & BC_PROGRAM_SEARCH_VAR) { - *ret = bc_vec_item(vec, entry_ptr->idx); - if (!(*ret)) return BC_STATUS_EXEC_UNDEFINED_VAR; - } - else { - - BcArray *aptr; - - aptr = bc_vec_item(vec, entry_ptr->idx); - - if (!aptr) return BC_STATUS_EXEC_UNDEFINED_ARRAY; - - if (flags & BC_PROGRAM_SEARCH_ARRAY_ONLY) { - *ret = (BcNum*) aptr; - return BC_STATUS_SUCCESS; - } - - status = bc_array_expand(aptr, result->data.id.idx + 1); - - if (status) return status; - - *ret = bc_vec_item(aptr, result->data.id.idx); - } - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_program_num(BcProgram *p, BcResult *result, - BcNum** num, bool ibase) -{ - - BcStatus status; - - status = BC_STATUS_SUCCESS; - - switch (result->type) { - - case BC_RESULT_INTERMEDIATE: - case BC_RESULT_SCALE: - { - *num = &result->data.num; - break; - } - - case BC_RESULT_CONSTANT: - { - char** s; - size_t idx; - size_t len; - size_t base; - - idx = result->data.id.idx; - - s = bc_vec_item(&p->constants, idx); - - if (!s) return BC_STATUS_EXEC_INVALID_CONSTANT; - - len = strlen(*s); - - status = bc_num_init(&result->data.num, len); - - if (status) return status; - - base = ibase && len == 1 ? 16 : p->ibase_t; - - status = bc_num_parse(&result->data.num, *s, &p->ibase, base); - - if (status) return status; - - *num = &result->data.num; - - result->type = BC_RESULT_INTERMEDIATE; - - break; - } - - case BC_RESULT_VAR: - case BC_RESULT_ARRAY: - { - uint8_t flags; - - flags = result->type == BC_RESULT_VAR ? BC_PROGRAM_SEARCH_VAR : 0; - - status = bc_program_search(p, result, num, flags); - - break; - } - - case BC_RESULT_LAST: - { - *num = &p->last; - break; - } - - case BC_RESULT_IBASE: - { - *num = &p->ibase; - break; - } - - case BC_RESULT_OBASE: - { - *num = &p->obase; - break; - } - - case BC_RESULT_ONE: - { - *num = &p->one; - break; - } - - default: - { - status = BC_STATUS_EXEC_INVALID_EXPR; - break; - } - } - - return status; -} - -BcStatus bc_program_binaryOpPrep(BcProgram *p, BcResult **left, - BcNum **lval, BcResult **right, - BcNum **rval) -{ - BcStatus status; - BcResult *l; - BcResult *r; - - if (!BC_PROGRAM_CHECK_EXPR_STACK(p, 2)) return BC_STATUS_EXEC_INVALID_EXPR; - - r = bc_vec_item_rev(&p->expr_stack, 0); - l = bc_vec_item_rev(&p->expr_stack, 1); - - if (!r || !l) return BC_STATUS_EXEC_INVALID_EXPR; - - status = bc_program_num(p, l, lval, false); - - if (status) return status; - - status = bc_program_num(p, r, rval, l->type == BC_RESULT_IBASE); - - if (status) return status; - - *left = l; - *right = r; - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_program_binaryOpRetire(BcProgram *p, BcResult *result, - BcResultType type) -{ - BcStatus status; - - result->type = type; - - status = bc_vec_pop(&p->expr_stack); - - if (status) return status; - - status = bc_vec_pop(&p->expr_stack); - - if (status) return status; - - return bc_vec_push(&p->expr_stack, result); -} - -BcStatus bc_program_unaryOpPrep(BcProgram *p, BcResult **result, - BcNum **val) -{ - BcStatus status; - BcResult *r; - - if (!BC_PROGRAM_CHECK_EXPR_STACK(p, 1)) return BC_STATUS_EXEC_INVALID_EXPR; - - r = bc_vec_item_rev(&p->expr_stack, 0); - - if (!r) return BC_STATUS_EXEC_INVALID_EXPR; - - status = bc_program_num(p, r, val, false); - - if (status) return status; - - *result = r; - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_program_unaryOpRetire(BcProgram *p, BcResult *result, - BcResultType type) -{ - BcStatus status; - - result->type = type; - - status = bc_vec_pop(&p->expr_stack); - - if (status) return status; - - return bc_vec_push(&p->expr_stack, result); -} - -BcStatus bc_program_op(BcProgram *p, uint8_t inst) { - - BcStatus status; - BcResult *operand1; - BcResult *operand2; - BcResult result; - BcNum *num1; - BcNum *num2; - - status = bc_program_binaryOpPrep(p, &operand1, &num1, &operand2, &num2); - - if (status) return status; - - status = bc_num_init(&result.data.num, BC_NUM_DEF_SIZE); - - if (status) return status; - - if (inst != BC_INST_OP_POWER) { - - BcNumBinaryFunc op; - - op = bc_program_math_ops[inst - BC_INST_OP_MODULUS]; - - status = op(num1, num2, &result.data.num, p->scale); - } - else status = bc_num_pow(num1, num2, &result.data.num, p->scale); - - if (status) goto err; - - status = bc_program_binaryOpRetire(p, &result, BC_RESULT_INTERMEDIATE); - - if (status) goto err; - - return status; - -err: - - bc_num_free(&result.data.num); - - return status; -} - -BcStatus bc_program_read(BcProgram *p) { - - BcStatus status; - BcParse parse; - char *buffer; - size_t size; - BcFunc *func; - BcInstPtr ip; - - func = bc_vec_item(&p->funcs, BC_PROGRAM_READ_FUNC); - - if (!func) return BC_STATUS_EXEC_UNDEFINED_FUNC; - - func->code.len = 0; - - buffer = malloc(BC_PROGRAM_BUF_SIZE + 1); - - if (!buffer) return BC_STATUS_MALLOC_FAIL; - - size = BC_PROGRAM_BUF_SIZE; - - status = bc_io_getline(&buffer, &size); - - if (status) goto io_err; - - status = bc_parse_init(&parse, p); - - if (status) goto io_err; - - status = bc_parse_file(&parse, "<stdin>"); - - if (status) goto exec_err; - - status = bc_parse_text(&parse, buffer); - - if (status) goto exec_err; - - status = bc_parse_expr(&parse, &func->code, BC_PARSE_EXPR_NO_READ); - - if (status != BC_STATUS_LEX_EOF && - status != BC_STATUS_PARSE_EOF && - parse.token.type != BC_LEX_NEWLINE) - { - status = status ? status : BC_STATUS_EXEC_INVALID_READ_EXPR; - goto exec_err; - } - - ip.func = BC_PROGRAM_READ_FUNC; - ip.idx = 0; - ip.len = p->expr_stack.len; - - status = bc_vec_push(&p->stack, &ip); - - if (status) goto exec_err; - - status = bc_program_exec(p); - - if (status) goto exec_err; - - status = bc_vec_pop(&p->stack); - -exec_err: - - bc_parse_free(&parse); - -io_err: - - free(buffer); - - return status; -} - -size_t bc_program_index(uint8_t *code, size_t *start) { - - uint8_t bytes; - uint8_t byte, i; - size_t result; - - bytes = code[(*start)++]; - byte = 1; - - result = 0; - - for (i = 0; byte && i < bytes; ++i) { - byte = code[(*start)++]; - result |= (((size_t) byte) << (i * 8)); - } - - return result; -} - -char* bc_program_name(uint8_t *code, size_t *start) { - - char byte; - char *s; - char *string; - char *ptr; - size_t len; - size_t i; - - string = (char*) (code + *start); - - ptr = strchr((char*) string, ':'); - - if (ptr) len = ((unsigned long) ptr) - ((unsigned long) string); - else len = strlen(string); - - s = malloc(len + 1); - - if (!s) return NULL; - - byte = code[(*start)++]; - i = 0; - - while (byte && byte != ':') { - s[i++] = byte; - byte = code[(*start)++]; - } - - s[i] = '\0'; - - return s; -} - -BcStatus bc_program_printIndex(uint8_t *code, size_t *start) { - - uint8_t bytes; - uint8_t byte, i; - - bytes = code[(*start)++]; - byte = 1; - - if (printf(bc_program_byte_fmt, bytes) < 0) return BC_STATUS_IO_ERR; - - for (i = 0; byte && i < bytes; ++i) { - byte = code[(*start)++]; - if (printf(bc_program_byte_fmt, byte) < 0) return BC_STATUS_IO_ERR; - } - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_program_printName(uint8_t *code, size_t *start) { - - BcStatus status; - char byte; - - status = BC_STATUS_SUCCESS; - byte = code[(*start)++]; - - while (byte && byte != ':') { - if (putchar(byte) == EOF) return BC_STATUS_IO_ERR; - byte = code[(*start)++]; - } - - if (byte) { - if (putchar(byte) == EOF) status = BC_STATUS_IO_ERR; - } - else status = BC_STATUS_PARSE_BUG; - - return status; -} - -BcStatus bc_program_printString(const char *str) { - - char c; - char c2; - size_t len, i; - int err; - - err = 0; - - len = strlen(str); - - for (i = 0; i < len; ++i) { - - c = str[i]; - - if (c != '\\') err = fputc(c, stdout); - else { - - ++i; - - if (i >= len) return BC_STATUS_EXEC_INVALID_STRING; - - c2 = str[i]; - - switch (c2) { - - case 'a': - { - err = fputc('\a', stdout); - break; - } - - case 'b': - { - err = fputc('\b', stdout); - break; - } - - case 'e': - { - err = fputc('\\', stdout); - break; - } - - case 'f': - { - err = fputc('\f', stdout); - break; - } - - case 'n': - { - err = fputc('\n', stdout); - break; - } - - case 'r': - { - err = fputc('\r', stdout); - break; - } - - case 'q': - { - fputc('"', stdout); - break; - } - - case 't': - { - err = fputc('\t', stdout); - break; - } - - default: - { - // Do nothing. - err = 0; - break; - } - } - } - - if (err == EOF) return BC_STATUS_EXEC_PRINT_ERR; - } - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_program_push(BcProgram *p, uint8_t *code, - size_t *start, bool var) -{ - BcStatus status; - BcResult result; - char *s; - - s = bc_program_name(code, start); - - if (!s) return BC_STATUS_EXEC_UNDEFINED_VAR; - - result.data.id.name = s; - - if (var) { - result.type = BC_RESULT_VAR; - status = bc_vec_push(&p->expr_stack, &result); - } - else { - - BcResult *operand; - BcNum *num; - unsigned long temp; - - status = bc_program_unaryOpPrep(p, &operand, &num); - - if (status) goto err; - - status = bc_num_ulong(num, &temp); - - if (status) goto err; - - result.data.id.idx = (size_t) temp; - - status = bc_program_unaryOpRetire(p, &result, BC_RESULT_ARRAY); - } - - if (status) goto err; - - return status; - -err: - - free(s); - - return status; -} - -BcStatus bc_program_negate(BcProgram *p) { - - BcStatus status; - BcResult result; - BcResult *ptr; - BcNum *num; - - status = bc_program_unaryOpPrep(p, &ptr, &num); - - if (status) return status; - - status = bc_num_init(&result.data.num, num->len); - - if (status) return status; - - status = bc_num_copy(&result.data.num, num); - - if (status) goto err; - - result.data.num.neg = !result.data.num.neg; - - status = bc_program_unaryOpRetire(p, &result, BC_RESULT_INTERMEDIATE); - - if (status) goto err; - - return status; - -err: - - bc_num_free(&result.data.num); - - return status; -} - -BcStatus bc_program_logical(BcProgram *p, uint8_t inst) { - - BcStatus status; - BcResult *operand1; - BcResult *operand2; - BcNum *num1; - BcNum *num2; - BcResult result; - BcNumInitFunc init; - bool cond; - int cmp; - - status = bc_program_binaryOpPrep(p, &operand1, &num1, &operand2, &num2); - - if (status) return status; - - status = bc_num_init(&result.data.num, BC_NUM_DEF_SIZE); - - if (status) return status; - - if (inst == BC_INST_OP_BOOL_AND) - cond = bc_num_compare(num1, &p->zero) && bc_num_compare(num2, &p->zero); - else if (inst == BC_INST_OP_BOOL_OR) - cond = bc_num_compare(num1, &p->zero) || bc_num_compare(num2, &p->zero); - else { - - cmp = bc_num_compare(num1, num2); - - switch (inst) { - case BC_INST_OP_REL_EQUAL: - { - cond = cmp == 0; - break; - } - - case BC_INST_OP_REL_LESS_EQ: - { - cond = cmp <= 0; - break; - } - - case BC_INST_OP_REL_GREATER_EQ: - { - cond = cmp >= 0; - break; - } - - case BC_INST_OP_REL_NOT_EQ: - { - cond = cmp != 0; - break; - } - - case BC_INST_OP_REL_LESS: - { - cond = cmp < 0; - break; - } - - case BC_INST_OP_REL_GREATER: - { - cond = cmp > 0; - break; - } - - default: - { - return BC_STATUS_EXEC_INVALID_EXPR; - } - } - } - - init = cond ? bc_num_one : bc_num_zero; - init(&result.data.num); - - status = bc_program_binaryOpRetire(p, &result, BC_RESULT_INTERMEDIATE); - - if (status) goto err; - - return status; - -err: - - bc_num_free(&result.data.num); - - return status; -} - -BcNumBinaryFunc bc_program_assignOp(uint8_t inst) { - - switch (inst) { - - case BC_INST_OP_ASSIGN_POWER: - { - return bc_num_pow; - } - - case BC_INST_OP_ASSIGN_MULTIPLY: - { - return bc_num_mul; - } - - case BC_INST_OP_ASSIGN_DIVIDE: - { - return bc_num_div; - } - - case BC_INST_OP_ASSIGN_MODULUS: - { - return bc_num_mod; - } - - case BC_INST_OP_ASSIGN_PLUS: - { - return bc_num_add; - } - - case BC_INST_OP_ASSIGN_MINUS: - { - return bc_num_sub; - } - - default: - { - return NULL; - } - } -} - -BcStatus bc_program_assignScale(BcProgram *p, BcNum *scale, - BcNum *rval, uint8_t inst) -{ - BcStatus status; - unsigned long result; - - switch (inst) { - - case BC_INST_OP_ASSIGN_POWER: - case BC_INST_OP_ASSIGN_MULTIPLY: - case BC_INST_OP_ASSIGN_DIVIDE: - case BC_INST_OP_ASSIGN_MODULUS: - case BC_INST_OP_ASSIGN_PLUS: - case BC_INST_OP_ASSIGN_MINUS: - { - BcNumBinaryFunc op; - - op = bc_program_assignOp(inst); - - status = op(scale, rval, scale, p->scale); - - if (status) return status; - - break; - } - - case BC_INST_OP_ASSIGN: - { - status = bc_num_copy(scale, rval); - if (status) return status; - break; - } - - default: - { - return BC_STATUS_EXEC_INVALID_EXPR; - } - } - - status = bc_num_ulong(scale, &result); - - if (status) return status; - - p->scale = (size_t) result; - - return status; -} - -BcStatus bc_program_assign(BcProgram *p, uint8_t inst) { - - BcStatus status; - BcResult *left; - BcResult *right; - BcResult result; - BcNum *lval; - BcNum *rval; - - status = bc_program_binaryOpPrep(p, &left, &lval, &right, &rval); - - if (status) return status; - - if (left->type == BC_RESULT_CONSTANT || left->type == BC_RESULT_INTERMEDIATE) - return BC_STATUS_EXEC_INVALID_LVALUE; - - if (inst == BC_EXPR_ASSIGN_DIVIDE && !bc_num_compare(rval, &p->zero)) - return BC_STATUS_MATH_DIVIDE_BY_ZERO; - - if (left->type != BC_RESULT_SCALE) { - - if (status) return status; - - switch (inst) { - - case BC_INST_OP_ASSIGN_POWER: - case BC_INST_OP_ASSIGN_MULTIPLY: - case BC_INST_OP_ASSIGN_DIVIDE: - case BC_INST_OP_ASSIGN_MODULUS: - case BC_INST_OP_ASSIGN_PLUS: - case BC_INST_OP_ASSIGN_MINUS: - { - BcNumBinaryFunc op; - - op = bc_program_assignOp(inst); - status = op(lval, rval, lval, p->scale); - - break; - } - - case BC_INST_OP_ASSIGN: - { - status = bc_num_copy(lval, rval); - break; - } - - default: - { - status = BC_STATUS_EXEC_INVALID_EXPR; - break; - } - } - - if (status) return status; - - if (left->type == BC_RESULT_IBASE || left->type == BC_RESULT_OBASE) { - - unsigned long base; - size_t *ptr; - - ptr = left->type == BC_RESULT_IBASE ? &p->ibase_t : &p->obase_t; - - status = bc_num_ulong(lval, &base); - - if (status) return status; - - *ptr = (size_t) base; - } - } - else { - status = bc_program_assignScale(p, lval, rval, inst); - if (status) return status; - } - - status = bc_num_init(&result.data.num, lval->len); - - if (status) return status; - - status = bc_num_copy(&result.data.num, lval); - - if (status) goto err; - - status = bc_program_binaryOpRetire(p, &result, BC_RESULT_INTERMEDIATE); - - if (status) goto err; - - return status; - -err: - - bc_num_free(&result.data.num); - - return status; -} - -BcStatus bc_program_call(BcProgram *p, uint8_t *code, size_t *idx) { - - BcStatus status; - BcInstPtr ip; - size_t nparams; - BcFunc *func; - BcAuto *auto_ptr; - BcResult *param; - size_t i; - - nparams = bc_program_index(code, idx); - - ip.idx = 0; - ip.len = p->expr_stack.len; - - ip.func = bc_program_index(code, idx); - - func = bc_vec_item(&p->funcs, ip.func); - - if (!func) return BC_STATUS_EXEC_UNDEFINED_FUNC; - - if (func->params.len != nparams) return BC_STATUS_EXEC_MISMATCHED_PARAMS; - - for (i = 0; i < func->autos.len; ++i) { - - auto_ptr = bc_vec_item(&func->autos, i); - - if (!auto_ptr) return BC_STATUS_EXEC_UNDEFINED_VAR; - - if (auto_ptr->var) bc_num_zero(&auto_ptr->data.num); - else { - status = bc_array_zero(&auto_ptr->data.array); - if (status) return status; - } - } - - for (i = 0; i < func->params.len; ++i) { - - auto_ptr = bc_vec_item_rev(&func->params, i); - param = bc_vec_item_rev(&p->expr_stack, i); - - if (!auto_ptr || !param) return BC_STATUS_EXEC_UNDEFINED_VAR; - - if (auto_ptr->var) { - - BcNum *num; - - status = bc_program_num(p, param, &num, false); - - if (status) return status; - - status = bc_num_copy(&auto_ptr->data.num, num); - } - else { - - BcArray *array; - - if (param->type != BC_RESULT_VAR || param->type != BC_RESULT_ARRAY) - return BC_STATUS_EXEC_INVALID_TYPE; - - status = bc_program_search(p, param, (BcNum**) &array, - BC_PROGRAM_SEARCH_ARRAY_ONLY); - - if (status) return status; - - status = bc_array_copy(&auto_ptr->data.array, array); - } - - if (status) return status; - } - - return bc_vec_push(&p->stack, &ip); -} - -BcStatus bc_program_return(BcProgram *p, uint8_t inst) { - - BcStatus status; - BcResult result; - BcResult *operand; - size_t req; - BcInstPtr *ip; - BcFunc *func; - size_t len; - - if (!BC_PROGRAM_CHECK_STACK(p)) return BC_STATUS_EXEC_INVALID_RETURN; - - ip = bc_vec_top(&p->stack); - - if (!ip) return BC_STATUS_EXEC_INVALID_STACK; - - req = ip->len + (inst == BC_INST_RETURN ? 1 : 0); - - if (!BC_PROGRAM_CHECK_EXPR_STACK(p, req)) - return BC_STATUS_EXEC_INVALID_EXPR; - - func = bc_vec_item(&p->funcs, ip->func); - - if (!func) return BC_STATUS_EXEC_INVALID_STMT; - - result.type = BC_RESULT_INTERMEDIATE; - - if (inst == BC_INST_RETURN) { - - BcNum *num; - - operand = bc_vec_top(&p->expr_stack); - - if (!operand) return BC_STATUS_EXEC_INVALID_EXPR; - - status = bc_program_num(p, operand, &num, false); - - if (status) return status; - - status = bc_num_init(&result.data.num, num->len); - - if (status) return status; - - status = bc_num_copy(&result.data.num, num); - - if (status) goto err; - } - else { - - status = bc_num_init(&result.data.num, BC_NUM_DEF_SIZE); - - if (status) return status; - - bc_num_zero(&result.data.num); - } - - // We need to pop arguments as well, so this takes that into account. - len = ip->len - func->params.len; - while (p->expr_stack.len > len) { - status = bc_vec_pop(&p->expr_stack); - if (status) goto err; - } - - status = bc_vec_push(&p->expr_stack, &result); - - if (status) goto err; - - return bc_vec_pop(&p->stack); - -err: - - bc_num_free(&result.data.num); - - return status; -} - -unsigned long bc_program_scale(BcNum *n) { - return (unsigned long) n->rdx; -} - -unsigned long bc_program_length(BcNum *n) { - return (unsigned long) n->len; -} - -BcStatus bc_program_builtin(BcProgram *p, uint8_t inst) { - - BcStatus status; - BcResult *operand; - BcNum *num1; - BcResult result; - - status = bc_program_unaryOpPrep(p, &operand, &num1); - - if (status) return status; - - status = bc_num_init(&result.data.num, BC_NUM_DEF_SIZE); - - if (status) return status; - - if (inst == BC_INST_SQRT) { - status = bc_num_sqrt(num1, &result.data.num, p->scale); - } - else { - - BcProgramBuiltInFunc func; - unsigned long ans; - - func = inst == BC_INST_LENGTH ? bc_program_length : bc_program_scale; - - ans = func(num1); - - status = bc_num_ulong2num(&result.data.num, ans); - } - - if (status) goto err; - - status = bc_program_unaryOpRetire(p, &result, BC_RESULT_INTERMEDIATE); - - if (status) goto err; - - return status; - -err: - - bc_num_free(&result.data.num); - - return status; -} - -BcStatus bc_program_pushScale(BcProgram *p) { - - BcStatus status; - BcResult result; - - result.type = BC_RESULT_SCALE; - status = bc_num_init(&result.data.num, BC_NUM_DEF_SIZE); - - if (status) return status; - - status = bc_num_ulong2num(&result.data.num, (unsigned long) p->scale); - - if (status) goto err; - - status = bc_vec_push(&p->expr_stack, &result); - - if (status) goto err; - - return status; - -err: - - bc_num_free(&result.data.num); - - return status; -} - -BcStatus bc_program_incdec(BcProgram *p, uint8_t inst) { - - BcStatus status; - BcResult *ptr; - BcNum *num; - BcResult copy; - uint8_t inst2; - BcResult result; - - status = bc_program_unaryOpPrep(p, &ptr, &num); - - if (status) return status; - - inst2 = inst == BC_INST_INC || inst == BC_INST_INC_DUP ? - BC_INST_OP_ASSIGN_PLUS : BC_INST_OP_ASSIGN_MINUS; - - if (inst == BC_INST_INC_DUP || inst == BC_INST_DEC_DUP) { - copy.type = BC_RESULT_INTERMEDIATE; - status = bc_num_init(©.data.num, num->len); - if (status) return status; - } - - result.type = BC_RESULT_ONE; - - status = bc_vec_push(&p->expr_stack, &result); - - if (status) goto err; - - status = bc_program_assign(p, inst2); - - if (status) goto err; - - if (inst == BC_INST_INC_DUP || inst == BC_INST_DEC_DUP) { - - status = bc_vec_pop(&p->expr_stack); - - if (status) goto err; - - status = bc_vec_push(&p->expr_stack, ©); - - if (status) goto err; - } - - return status; - -err: - - if (inst == BC_INST_INC_DUP || inst == BC_INST_DEC_DUP) - bc_num_free(©.data.num); - - return status; -} - -BcStatus bc_program_init(BcProgram *p) { - - BcStatus s; - size_t idx; - char *name; - char *read_name; - BcInstPtr ip; - - if (p == NULL) return BC_STATUS_INVALID_PARAM; - - name = NULL; - -#ifdef _POSIX_BC_BASE_MAX - p->base_max = _POSIX_BC_BASE_MAX; -#elif defined(_BC_BASE_MAX) - p->base_max = _BC_BASE_MAX; -#else - errno = 0; - p->base_max = sysconf(_SC_BC_BASE_MAX); - - if (p->base_max == -1) { - if (errno) return BC_STATUS_NO_LIMIT; - p->base_max = BC_BASE_MAX_DEF; - } - else if (p->base_max > BC_BASE_MAX_DEF) return BC_STATUS_INVALID_LIMIT; -#endif - -#ifdef _POSIX_BC_DIM_MAX - p->dim_max = _POSIX_BC_DIM_MAX; -#elif defined(_BC_DIM_MAX) - p->dim_max = _BC_DIM_MAX; -#else - errno = 0; - p->dim_max = sysconf(_SC_BC_DIM_MAX); - - if (p->dim_max == -1) { - if (errno) return BC_STATUS_NO_LIMIT; - p->dim_max = BC_DIM_MAX_DEF; - } - else if (p->dim_max > BC_DIM_MAX_DEF) return BC_STATUS_INVALID_LIMIT; -#endif - -#ifdef _POSIX_BC_SCALE_MAX - p->scale_max = _POSIX_BC_SCALE_MAX; -#elif defined(_BC_SCALE_MAX) - p->scale_max = _BC_SCALE_MAX; -#else - errno = 0; - p->scale_max = sysconf(_SC_BC_SCALE_MAX); - - if (p->scale_max == -1) { - if (errno) return BC_STATUS_NO_LIMIT; - p->scale_max = BC_SCALE_MAX_DEF; - } - else if (p->scale_max > BC_SCALE_MAX_DEF) return BC_STATUS_INVALID_LIMIT; -#endif - -#ifdef _POSIX_BC_STRING_MAX - p->string_max = _POSIX_BC_STRING_MAX; -#elif defined(_BC_STRING_MAX) - p->string_max = _BC_STRING_MAX; -#else - errno = 0; - p->string_max = sysconf(_SC_BC_STRING_MAX); - - if (p->string_max == -1) { - if (errno) return BC_STATUS_NO_LIMIT; - p->string_max = BC_STRING_MAX_DEF; - } - else if (p->string_max > BC_STRING_MAX_DEF) return BC_STATUS_INVALID_LIMIT; -#endif - - p->scale = 0; - - s = bc_num_init(&p->ibase, BC_NUM_DEF_SIZE); - - if (s) return s; - - bc_num_ten(&p->ibase); - p->ibase_t = 10; - - s = bc_num_init(&p->obase, BC_NUM_DEF_SIZE); - - if (s) goto obase_err; - - bc_num_ten(&p->obase); - p->obase_t = 10; - - s = bc_num_init(&p->last, BC_NUM_DEF_SIZE); - - if (s) goto last_err; - - bc_num_zero(&p->last); - - s = bc_num_init(&p->zero, BC_NUM_DEF_SIZE); - - if (s) goto zero_err; - - bc_num_zero(&p->zero); - - s = bc_num_init(&p->one, BC_NUM_DEF_SIZE); - - if (s) goto one_err; - - bc_num_one(&p->one); - - p->num_buf = malloc(BC_PROGRAM_BUF_SIZE + 1); - - if (!p->num_buf) { - s = BC_STATUS_MALLOC_FAIL; - goto num_buf_err; - } - - p->buf_size = BC_PROGRAM_BUF_SIZE; - - s = bc_vec_init(&p->funcs, sizeof(BcFunc), bc_func_free); - - if (s) goto func_err; - - s = bc_veco_init(&p->func_map, sizeof(BcEntry), bc_entry_free, bc_entry_cmp); - - if (s) goto func_map_err; - - name = malloc(strlen(bc_lang_func_main) + 1); - - if (!name) { - s = BC_STATUS_MALLOC_FAIL; - goto name_err; - } - - strcpy(name, bc_lang_func_main); - - s = bc_program_func_add(p, name, &idx); - - name = NULL; - - if (s || idx != BC_PROGRAM_MAIN_FUNC) goto read_err; - - read_name = malloc(strlen(bc_lang_func_read) + 1); - - if (!read_name) { - s = BC_STATUS_MALLOC_FAIL; - goto read_err; - } - - strcpy(read_name, bc_lang_func_read); - - s = bc_program_func_add(p, read_name, &idx); - - read_name = NULL; - - if (s || idx != BC_PROGRAM_READ_FUNC) goto var_err; - - s = bc_vec_init(&p->vars, sizeof(BcVar), bc_var_free); - - if (s) goto var_err; - - s = bc_veco_init(&p->var_map, sizeof(BcEntry), bc_entry_free, bc_entry_cmp); - - if (s) goto var_map_err; - - s = bc_vec_init(&p->arrays, sizeof(BcArray), bc_array_free); - - if (s) goto array_err; - - s = bc_veco_init(&p->array_map, sizeof(BcEntry), bc_entry_free, bc_entry_cmp); - - if (s) goto array_map_err; - - s = bc_vec_init(&p->strings, sizeof(char*), bc_string_free); - - if (s) goto string_err; - - s = bc_vec_init(&p->constants, sizeof(char*), bc_constant_free); - - if (s) goto const_err; - - s = bc_vec_init(&p->expr_stack, sizeof(BcResult), bc_result_free); - - if (s) goto expr_err; - - s = bc_vec_init(&p->stack, sizeof(BcInstPtr), NULL); - - if (s) goto stack_err; - - ip.idx = 0; - ip.func = 0; - ip.len = 0; - - s = bc_vec_push(&p->stack, &ip); - - if (s) goto push_err; - - return s; - -push_err: - - bc_vec_free(&p->stack); - -stack_err: - - bc_vec_free(&p->expr_stack); - -expr_err: - - bc_vec_free(&p->constants); - -const_err: - - bc_vec_free(&p->strings); - -string_err: - - bc_veco_free(&p->array_map); - -array_map_err: - - bc_vec_free(&p->arrays); - -array_err: - - bc_veco_free(&p->var_map); - -var_map_err: - - bc_vec_free(&p->vars); - -var_err: - - if (read_name) free(read_name); - -read_err: - - if (name) free(name); - -name_err: - - bc_veco_free(&p->func_map); - -func_map_err: - - bc_vec_free(&p->funcs); - -func_err: - - free(p->num_buf); - -num_buf_err: - - bc_num_free(&p->one); - -one_err: - - bc_num_free(&p->zero); - -zero_err: - - bc_num_free(&p->last); - -last_err: - - bc_num_free(&p->obase); - -obase_err: - - bc_num_free(&p->ibase); - - return s; -} - -void bc_program_limits(BcProgram *p) { - - putchar('\n'); - - printf("BC_BASE_MAX = %ld\n", p->base_max); - printf("BC_DIM_MAX = %ld\n", p->dim_max); - printf("BC_SCALE_MAX = %ld\n", p->scale_max); - printf("BC_STRING_MAX = %ld\n", p->string_max); - printf("Max Exponent = %ld\n", LONG_MAX); - printf("Number of Vars = %u\n", UINT32_MAX); - - putchar('\n'); -} - -BcStatus bc_program_func_add(BcProgram *p, char *name, size_t *idx) { - - BcStatus status; - BcEntry entry; - BcEntry *entry_ptr; - BcFunc f; - - if (!p || !name || !idx) return BC_STATUS_INVALID_PARAM; - - entry.name = name; - entry.idx = p->funcs.len; - - status = bc_veco_insert(&p->func_map, &entry, idx); - - if (status) { - free(name); - if (status != BC_STATUS_VECO_ITEM_EXISTS) return status; - } - - entry_ptr = bc_veco_item(&p->func_map, *idx); - - if (!entry_ptr) return BC_STATUS_EXEC_UNDEFINED_FUNC; - - *idx = entry_ptr->idx; - - if (status == BC_STATUS_VECO_ITEM_EXISTS) { - - BcFunc *func; - - func = bc_vec_item(&p->funcs, entry_ptr->idx); - - if (!func) return BC_STATUS_EXEC_UNDEFINED_FUNC; - - status = BC_STATUS_SUCCESS; - - // We need to reset these so the function can be repopulated. - while (!status && func->autos.len) status = bc_vec_pop(&func->autos); - while (!status && func->params.len) status = bc_vec_pop(&func->params); - } - else { - - status = bc_func_init(&f); - - if (status) return status; - - status = bc_vec_push(&p->funcs, &f); - } - - return status; -} - -BcStatus bc_program_var_add(BcProgram *p, char *name, size_t *idx) { - - BcStatus status; - BcEntry entry; - BcVar v; - - if (!p || !name || !idx) return BC_STATUS_INVALID_PARAM; - - entry.name = name; - entry.idx = p->vars.len; - - status = bc_veco_insert(&p->var_map, &entry, idx); - - if (status) return status == BC_STATUS_VECO_ITEM_EXISTS ? - BC_STATUS_SUCCESS : status; - - status = bc_var_init(&v); - - if (status) return status; - - return bc_vec_push(&p->vars, &v); -} - -BcStatus bc_program_array_add(BcProgram *p, char *name, size_t *idx) { - - BcStatus status; - BcEntry entry; - BcArray a; - - if (!p || !name || !idx) return BC_STATUS_INVALID_PARAM; - - entry.name = name; - entry.idx = p->arrays.len; - - status = bc_veco_insert(&p->array_map, &entry, idx); - - if (status) return status == BC_STATUS_VECO_ITEM_EXISTS ? - BC_STATUS_SUCCESS : status; - - status = bc_array_init(&a); - - if (status) return status; - - return bc_vec_push(&p->arrays, &a); -} - -BcStatus bc_program_exec(BcProgram *p) { - - BcStatus status; - uint8_t *code; - size_t idx; - int pchars; - BcResult result; - BcFunc *func; - BcInstPtr *ip; - bool cond; - - ip = bc_vec_top(&p->stack); - - if (!ip) return BC_STATUS_EXEC_INVALID_STACK; - - func = bc_vec_item(&p->funcs, ip->func); - - if (!func) return BC_STATUS_EXEC_INVALID_STACK; - - status = BC_STATUS_SUCCESS; - - code = func->code.array; - cond = false; - - while (ip->idx < func->code.len) { - - uint8_t inst; - - inst = code[(ip->idx)++]; - - switch (inst) { - - case BC_INST_CALL: - { - status = bc_program_call(p, code, &ip->idx); - break; - } - - case BC_INST_RETURN: - case BC_INST_RETURN_ZERO: - { - status = bc_program_return(p, inst); - break; - } - - case BC_INST_READ: - { - status = bc_program_read(p); - break; - } - - case BC_INST_JUMP_NOT_ZERO: - case BC_INST_JUMP_ZERO: - { - BcResult *operand; - BcNum *num; - - status = bc_program_unaryOpPrep(p, &operand, &num); - - if (status) return status; - - cond = bc_num_compare(num, &p->zero) == 0; - - status = bc_vec_pop(&p->expr_stack); - - if (status) return status; - - // Fallthrough. - } - case BC_INST_JUMP: - { - size_t idx; - size_t *addr; - - idx = bc_program_index(code, &ip->idx); - addr = bc_vec_item(&func->labels, idx); - - if (!addr) return BC_STATUS_EXEC_INVALID_LABEL; - - if (inst == BC_INST_JUMP || - (inst == BC_INST_JUMP_ZERO && cond) || - (inst == BC_INST_JUMP_NOT_ZERO && !cond)) - { - ip->idx = *addr; - } - - break; - } - - case BC_INST_PUSH_VAR: - case BC_INST_PUSH_ARRAY: - { - status = bc_program_push(p, code, &ip->idx, inst == BC_INST_PUSH_VAR); - break; - } - - case BC_INST_PUSH_LAST: - { - result.type = BC_RESULT_LAST; - status = bc_vec_push(&p->expr_stack, &result); - break; - } - - case BC_INST_PUSH_SCALE: - { - status = bc_program_pushScale(p); - break; - } - - case BC_INST_PUSH_IBASE: - { - result.type = BC_RESULT_IBASE; - status = bc_vec_push(&p->expr_stack, &result); - break; - } - - case BC_INST_PUSH_OBASE: - { - result.type = BC_RESULT_OBASE; - status = bc_vec_push(&p->expr_stack, &result); - break; - } - - case BC_INST_SCALE_FUNC: - case BC_INST_LENGTH: - case BC_INST_SQRT: - { - status = bc_program_builtin(p, inst); - break; - } - - case BC_INST_PUSH_NUM: - { - BcResult result; - - result.type = BC_RESULT_CONSTANT; - result.data.id.idx = bc_program_index(code, &ip->idx); - - status = bc_vec_push(&p->expr_stack, &result); - - break; - } - - case BC_INST_POP: - { - status = bc_vec_pop(&p->expr_stack); - break; - } - - case BC_INST_INC_DUP: - case BC_INST_DEC_DUP: - case BC_INST_INC: - case BC_INST_DEC: - { - status = bc_program_incdec(p, inst); - break; - } - - case BC_INST_HALT: - { - status = BC_STATUS_EXEC_HALT; - break; - } - - case BC_INST_PRINT: - case BC_INST_PRINT_EXPR: - { - BcResult *operand; - BcNum *num; - - status = bc_program_unaryOpPrep(p, &operand, &num); - - if (status) return status; - - status = bc_num_print(num, &p->obase, p->obase_t, - inst == BC_INST_PRINT); - - fflush(stdout); - - if (status) return status; - - status = bc_num_copy(&p->last, num); - - if (status) return status; - - status = bc_vec_pop(&p->expr_stack); - - break; - } - - case BC_INST_STR: - { - const char *string; - - idx = bc_program_index(code, &ip->idx); - - if (idx >= p->strings.len) return BC_STATUS_EXEC_INVALID_STRING; - - string = bc_vec_item(&p->strings, idx); - - pchars = fprintf(stdout, "%s", string); - status = pchars > 0 ? BC_STATUS_SUCCESS : - BC_STATUS_EXEC_PRINT_ERR; - - break; - } - - case BC_INST_PRINT_STR: - { - const char **string; - - idx = bc_program_index(code, &ip->idx); - - if (idx >= p->strings.len) return BC_STATUS_EXEC_INVALID_STRING; - - string = bc_vec_item(&p->strings, idx); - - if (!string) return BC_STATUS_EXEC_INVALID_STRING; - - status = bc_program_printString(*string); - - break; - } - - case BC_INST_OP_POWER: - case BC_INST_OP_MULTIPLY: - case BC_INST_OP_DIVIDE: - case BC_INST_OP_MODULUS: - case BC_INST_OP_PLUS: - case BC_INST_OP_MINUS: - { - status = bc_program_op(p, inst); - break; - } - - case BC_INST_OP_REL_EQUAL: - case BC_INST_OP_REL_LESS_EQ: - case BC_INST_OP_REL_GREATER_EQ: - case BC_INST_OP_REL_NOT_EQ: - case BC_INST_OP_REL_LESS: - case BC_INST_OP_REL_GREATER: - { - status = bc_program_logical(p, inst); - break; - } - - case BC_INST_OP_BOOL_NOT: - { - BcResult *ptr; - BcNum *num; - - status = bc_program_unaryOpPrep(p, &ptr, &num); - - if (status) return status; - - status = bc_num_init(&result.data.num, BC_NUM_DEF_SIZE); - - if (status) return status; - - if (bc_num_compare(num, &p->zero)) bc_num_one(&result.data.num); - else bc_num_zero(&result.data.num); - - status = bc_program_unaryOpRetire(p, &result, BC_RESULT_INTERMEDIATE); - - if (status) bc_num_free(&result.data.num); - - break; - } - - case BC_INST_OP_BOOL_OR: - case BC_INST_OP_BOOL_AND: - { - status = bc_program_logical(p, inst); - break; - } - - case BC_INST_OP_NEGATE: - { - status = bc_program_negate(p); - break; - } - - case BC_INST_OP_ASSIGN_POWER: - case BC_INST_OP_ASSIGN_MULTIPLY: - case BC_INST_OP_ASSIGN_DIVIDE: - case BC_INST_OP_ASSIGN_MODULUS: - case BC_INST_OP_ASSIGN_PLUS: - case BC_INST_OP_ASSIGN_MINUS: - case BC_INST_OP_ASSIGN: - { - status = bc_program_assign(p, inst); - break; - } - - default: - { - status = BC_STATUS_EXEC_INVALID_STMT; - break; - } - } - - if (status) return status; - - // We keep getting these because if the size of the - // stack changes, pointers may end up being invalid. - ip = bc_vec_top(&p->stack); - - if (!ip) return BC_STATUS_EXEC_INVALID_STACK; - - func = bc_vec_item(&p->funcs, ip->func); - - if (!func) return BC_STATUS_EXEC_INVALID_STACK; - - code = func->code.array; - } - - return status; -} - -BcStatus bc_program_print(BcProgram *p) { - - BcStatus status; - BcFunc *func; - uint8_t *code; - BcInstPtr ip; - size_t i; - - status = BC_STATUS_SUCCESS; - - for (i = 0; !status && i < p->funcs.len; ++i) { - - ip.idx = 0; - ip.func = i; - ip.len = 0; - - func = bc_vec_item(&p->funcs, ip.func); - - if (!func) return BC_STATUS_EXEC_INVALID_STACK; - - code = func->code.array; - - if (printf("func[%zu]: ", ip.func) < 0) return BC_STATUS_IO_ERR; - - while (ip.idx < func->code.len) { - - uint8_t inst; - - inst = code[ip.idx++]; - - switch (inst) { - - case BC_INST_PUSH_VAR: - case BC_INST_PUSH_ARRAY: - { - if (putchar(inst) == EOF) return BC_STATUS_IO_ERR; - status = bc_program_printName(code, &ip.idx); - break; - } - - case BC_INST_CALL: - { - if (putchar(inst) == EOF) return BC_STATUS_IO_ERR; - - status = bc_program_printIndex(code, &ip.idx); - - if (status) return status; - - status = bc_program_printIndex(code, &ip.idx); - - break; - } - - case BC_INST_JUMP: - case BC_INST_JUMP_NOT_ZERO: - case BC_INST_JUMP_ZERO: - case BC_INST_PUSH_NUM: - case BC_INST_STR: - case BC_INST_PRINT_STR: - { - if (putchar(inst) == EOF) return BC_STATUS_IO_ERR; - bc_program_printIndex(code, &ip.idx); - break; - } - - default: - { - if (putchar(inst) == EOF) return BC_STATUS_IO_ERR; - break; - } - } - } - - if (status) return status; - - if (putchar('\n') == EOF) status = BC_STATUS_IO_ERR; - } - - return status; -} - -void bc_program_free(BcProgram *p) { - - if (p == NULL) return; - - free(p->num_buf); - - bc_num_free(&p->ibase); - bc_num_free(&p->obase); - - bc_vec_free(&p->funcs); - bc_veco_free(&p->func_map); - - bc_vec_free(&p->vars); - bc_veco_free(&p->var_map); - - bc_vec_free(&p->arrays); - bc_veco_free(&p->array_map); - - bc_vec_free(&p->strings); - bc_vec_free(&p->constants); - - bc_vec_free(&p->expr_stack); - bc_vec_free(&p->stack); - - bc_num_free(&p->last); - bc_num_free(&p->zero); - bc_num_free(&p->one); - - memset(p, 0, sizeof(BcProgram)); -} - -void bc_vm_sigint(int sig) { - - struct sigaction act; - ssize_t err; - - sigemptyset(&act.sa_mask); - act.sa_handler = bc_vm_sigint; - - sigaction(SIGINT, &act, NULL); - - if (sig == SIGINT) { - err = write(STDERR_FILENO, bc_program_sigint_msg, - strlen(bc_program_sigint_msg)); - if (err >= 0) TT.bc_signal = 1; - } -} - -BcStatus bc_vm_signal(BcVm *vm) { - - BcStatus status; - BcFunc *func; - BcInstPtr *ip; - - TT.bc_signal = 0; - - while (vm->program.stack.len > 1) { - - status = bc_vec_pop(&vm->program.stack); - - if (status) return status; - } - - func = bc_vec_item(&vm->program.funcs, 0); - - if (!func) return BC_STATUS_EXEC_UNDEFINED_FUNC; - - ip = bc_vec_top(&vm->program.stack); - - if (!ip) return BC_STATUS_EXEC_INVALID_STMT; - - ip->idx = func->code.len; - - return BC_STATUS_SUCCESS; -} - -BcStatus bc_vm_execFile(BcVm *vm, int idx) { - - BcStatus status; - const char *file; - char *data; - BcProgramExecFunc exec; - - exec = TT.bc_code ? bc_program_print : bc_program_exec; - - file = vm->filev[idx]; - vm->program.file = file; - - status = bc_io_fread(file, &data); - - if (status) return status; - - status = bc_parse_file(&vm->parse, file); - - if (status) goto read_err; - - status = bc_parse_text(&vm->parse, data); - - if (status) goto read_err; - - do { - - status = bc_parse_parse(&vm->parse); - - if (status && status != BC_STATUS_LEX_EOF && status != BC_STATUS_PARSE_EOF) - { - bc_error_file(status, vm->parse.lex.file, vm->parse.lex.line); - goto err; - } - - if (TT.bc_signal) { - if (!TT.bc_interactive) goto read_err; - else { - status = bc_vm_signal(vm); - if (status) goto read_err; - } - } - - if (status) { - - if (status != BC_STATUS_LEX_EOF && - status != BC_STATUS_PARSE_EOF && - status != BC_STATUS_PARSE_QUIT && - status != BC_STATUS_PARSE_LIMITS) - { - bc_error_file(status, vm->program.file, vm->parse.lex.line); - goto err; - } - else if (status == BC_STATUS_PARSE_QUIT) { - break; - } - else if (status == BC_STATUS_PARSE_LIMITS) { - bc_program_limits(&vm->program); - status = BC_STATUS_SUCCESS; - continue; - } - - while (!status && vm->parse.token.type != BC_LEX_NEWLINE && - vm->parse.token.type != BC_LEX_SEMICOLON) - { - status = bc_lex_next(&vm->parse.lex, &vm->parse.token); - } - } - - } while (!status); - - if (status != BC_STATUS_PARSE_EOF && - status != BC_STATUS_LEX_EOF && - status != BC_STATUS_PARSE_QUIT) - { - goto read_err; - } - - if (BC_PARSE_CAN_EXEC(&vm->parse)) { - - status = exec(&vm->program); - - if (status) goto read_err; - - if (TT.bc_interactive) { - - fflush(stdout); - - if (TT.bc_signal) { - - status = bc_vm_signal(vm); - - fprintf(stderr, "%s", bc_program_ready_prompt); - fflush(stderr); - } - } - else if (TT.bc_signal) { - status = bc_vm_signal(vm); - goto read_err; - } - } - else status = BC_STATUS_EXEC_FILE_NOT_EXECUTABLE; - -read_err: - - bc_error(status); - -err: - - free(data); - - return status; -} - -BcStatus bc_vm_execStdin(BcVm *vm) { - - BcStatus status; - char *buf; - char *buffer; - char *temp; - size_t n; - size_t bufn; - size_t slen; - size_t total_len; - bool string; - bool comment; - - vm->program.file = bc_program_stdin_name; - - status = bc_parse_file(&vm->parse, bc_program_stdin_name); - - if (status) return status; - - n = BC_VM_BUF_SIZE; - bufn = BC_VM_BUF_SIZE; - buffer = malloc(BC_VM_BUF_SIZE + 1); - - if (!buffer) return BC_STATUS_MALLOC_FAIL; - - buffer[0] = '\0'; - - buf = malloc(BC_VM_BUF_SIZE + 1); - - if (!buf) { - status = BC_STATUS_MALLOC_FAIL; - goto buf_err; - } - - string = false; - comment = false; - - // The following loop is complicated because the vm tries - // not to send any lines that end with a backslash to the - // parser. The reason for that is because the parser treats - // a backslash newline combo as whitespace, per the bc spec. - // Thus, the parser will expect more stuff. That is also - // the case with strings and comments. - while ((!status || status != BC_STATUS_PARSE_QUIT) && - !(status = bc_io_getline(&buf, &bufn))) - { - size_t len; - - len = strlen(buf); - slen = strlen(buffer); - total_len = slen + len; - - if (len == 1 && buf[0] == '"') string = !string; - else if (len > 1 || comment) { - uint32_t i; - - for (i = 0; i < len; ++i) { - - char c; - bool notend; - - notend = len > i + 1; - - c = buf[i]; - - if (c == '"') string = !string; - else if (c == '/' && notend && !comment && buf[i + 1] == '*') { - comment = true; - break; - } - else if (c == '*' && notend && comment && buf[i + 1] == '/') { - comment = false; - } - } - - if (string || comment || buf[len - 2] == '\\') { - - if (total_len > n) { - - temp = realloc(buffer, total_len + 1); - - if (!temp) { - status = BC_STATUS_MALLOC_FAIL; - goto exit_err; - } - - buffer = temp; - n = slen + len; - } - - strcat(buffer, buf); - - continue; - } - } - - if (total_len > n) { - - temp = realloc(buffer, total_len + 1); - - if (!temp) { - status = BC_STATUS_MALLOC_FAIL; - goto exit_err; - } - - buffer = temp; - n = slen + len; - } - - strcat(buffer, buf); - - status = bc_parse_text(&vm->parse, buffer); - - if (!TT.bc_signal) { - - if (status) { - - if (status == BC_STATUS_PARSE_QUIT || - status == BC_STATUS_LEX_EOF || - status == BC_STATUS_PARSE_EOF) - { - break; - } - else if (status == BC_STATUS_PARSE_LIMITS) { - bc_program_limits(&vm->program); - status = BC_STATUS_SUCCESS; - } - else { - bc_error(status); - goto exit_err; - } - } - } - else if (status == BC_STATUS_PARSE_QUIT) { - break; - } - else if (status == BC_STATUS_PARSE_LIMITS) { - bc_program_limits(&vm->program); - status = BC_STATUS_SUCCESS; - } - - while (!status) status = bc_parse_parse(&vm->parse); - - if (status == BC_STATUS_PARSE_QUIT) break; - else if (status == BC_STATUS_PARSE_LIMITS) { - bc_program_limits(&vm->program); - status = BC_STATUS_SUCCESS; - } - else if (status != BC_STATUS_LEX_EOF && status != BC_STATUS_PARSE_EOF) { - - BcFunc *func; - BcInstPtr *ip; - - bc_error_file(status, vm->program.file, vm->parse.lex.line); - - ip = bc_vec_item(&vm->program.stack, 0); - func = bc_vec_item(&vm->program.funcs, 0); - - if (ip && func) ip->idx = func->code.len; - - while (vm->parse.token.type != BC_LEX_NEWLINE && - vm->parse.token.type != BC_LEX_SEMICOLON) - { - status = bc_lex_next(&vm->parse.lex, &vm->parse.token); - - if (status && status != BC_STATUS_LEX_EOF) { - - bc_error_file(status, vm->program.file, vm->parse.lex.line); - - ip = bc_vec_item(&vm->program.stack, 0); - func = bc_vec_item(&vm->program.funcs, 0); - - if (ip && func) ip->idx = func->code.len; - - break; - } - else if (status == BC_STATUS_LEX_EOF) { - status = BC_STATUS_SUCCESS; - break; - } - } - } - - if (BC_PARSE_CAN_EXEC(&vm->parse)) { - - if (!TT.bc_code) { - - status = bc_program_exec(&vm->program); - - if (status) { - bc_error(status); - goto exit_err; - } - - if (TT.bc_interactive) { - - fflush(stdout); - - if (TT.bc_signal) { - status = bc_vm_signal(vm); - fprintf(stderr, "%s", bc_program_ready_prompt); - } - } - else if (TT.bc_signal) { - status = bc_vm_signal(vm); - goto exit_err; - } - } - else { - - bc_program_print(&vm->program); - - if (TT.bc_interactive) { - - fflush(stdout); - - if (TT.bc_signal) { - status = bc_vm_signal(vm); - fprintf(stderr, "%s", bc_program_ready_prompt); - } - } - else if (TT.bc_signal) { - status = bc_vm_signal(vm); - goto exit_err; - } - } - } - - buffer[0] = '\0'; - } - - status = !status || status == BC_STATUS_PARSE_QUIT || - status == BC_STATUS_EXEC_HALT || - status == BC_STATUS_LEX_EOF || - status == BC_STATUS_PARSE_EOF ? - BC_STATUS_SUCCESS : status; - -exit_err: - - free(buf); - -buf_err: - - free(buffer); - - return status; -} - -BcStatus bc_vm_init(BcVm *vm, int filec, const char *filev[]) { - - BcStatus status; - struct sigaction act; - - sigemptyset(&act.sa_mask); - act.sa_handler = bc_vm_sigint; - - if (sigaction(SIGINT, &act, NULL) < 0) return BC_STATUS_EXEC_SIGACTION_FAIL; - - status = bc_program_init(&vm->program); - - if (status) return status; - - status = bc_parse_init(&vm->parse, &vm->program); - - if (status) { - bc_program_free(&vm->program); - return status; - } - - vm->filec = filec; - vm->filev = filev; - - return BC_STATUS_SUCCESS; -} - -void bc_vm_free(BcVm *vm) { - bc_parse_free(&vm->parse); - bc_program_free(&vm->program); -} - -BcStatus bc_vm_exec(BcVm *vm) { - - BcStatus status; - int num_files, i; - - status = BC_STATUS_SUCCESS; - - num_files = vm->filec; - - for (i = 0; !status && i < num_files; ++i) status = bc_vm_execFile(vm, i); - - if (status != BC_STATUS_SUCCESS && - status != BC_STATUS_PARSE_QUIT && - status != BC_STATUS_EXEC_HALT) - { - return status; - } - - status = bc_vm_execStdin(vm); - - status = status == BC_STATUS_PARSE_QUIT || - status == BC_STATUS_EXEC_HALT ? - BC_STATUS_SUCCESS : status; - - return status; -} - -BcStatus bc_print_version() { - - int err; - - err = printf(bc_version_fmt, bc_version, bc_copyright, bc_warranty_short); - - return err < 0 ? BC_STATUS_IO_ERR : BC_STATUS_SUCCESS; -} - -void bc_error(BcStatus status) { - - if (!status || status == BC_STATUS_PARSE_QUIT || - status == BC_STATUS_EXEC_HALT || - status >= BC_STATUS_POSIX_NAME_LEN) - { - return; - } - - fprintf(stderr, "\n%s error: %s\n\n", - bc_err_types[status], bc_err_descs[status]); -} - -void bc_error_file(BcStatus status, const char *file, uint32_t line) { - - if (!status || status == BC_STATUS_PARSE_QUIT || - !file || status >= BC_STATUS_POSIX_NAME_LEN) - { - return; - } - - fprintf(stderr, "\n%s error: %s\n", bc_err_types[status], - bc_err_descs[status]); - - fprintf(stderr, " %s", file); - - if (line) fprintf(stderr, ":%d\n\n", line); - else fprintf(stderr, "\n\n"); -} - -BcStatus bc_posix_error(BcStatus status, const char *file, - uint32_t line, const char *msg) -{ - if (!(TT.bc_std || TT.bc_warn) || - status < BC_STATUS_POSIX_NAME_LEN || - !file) - { - return BC_STATUS_SUCCESS; - } - - fprintf(stderr, "\n%s %s: %s\n", bc_err_types[status], - TT.bc_std ? "error" : "warning", bc_err_descs[status]); - - if (msg) fprintf(stderr, " %s\n", msg); - - fprintf(stderr, " %s", file); - - if (line) fprintf(stderr, ":%d\n\n", line); - else fprintf(stderr, "\n\n"); - - return TT.bc_std ? status : BC_STATUS_SUCCESS; -} - -BcStatus bc_exec(unsigned int flags, unsigned int filec, const char *filev[]) { - - BcStatus status; - BcVm vm; - - if ((flags & FLAG_i) || (isatty(STDIN_FILENO) && isatty(STDOUT_FILENO))) { - TT.bc_interactive = 1; - } else TT.bc_interactive = 0; - - TT.bc_code = flags & FLAG_i; - TT.bc_std = flags & FLAG_s; - TT.bc_warn = flags & FLAG_w; - - if (!(flags & FLAG_q)) { - - status = bc_print_version(); - - if (status) return status; - } - - status = bc_vm_init(&vm, filec, filev); - - if (status) return status; - - if (flags & FLAG_l) { - - status = bc_parse_file(&vm.parse, bc_lib_name); - - if (status) goto err; - - status = bc_parse_text(&vm.parse, (const char*) bc_lib); - - if (status) goto err; - - while (!status) status = bc_parse_parse(&vm.parse); - - if (status != BC_STATUS_LEX_EOF && status != BC_STATUS_PARSE_EOF) goto err; - - // Make sure to execute the math library. - status = bc_program_exec(&vm.program); - - if (status) goto err; - } - - status = bc_vm_exec(&vm); - -err: - - bc_vm_free(&vm); - - return status; -} - -void bc_main(void) { - - unsigned int flags; - - flags = (unsigned int) toys.optflags; - - toys.exitval = (char) bc_exec(flags, toys.optc, (const char**) toys.optargs); -} |