big changes; no ints; things work better
Clyne Sullivan
7 years ago
parent
0fb67b8d66
commit
952cb2d6db
@ -1,225 +0,0 @@
|
||||
#include <parser.h>
|
||||
|
||||
#include <stdbool.h>
|
||||
#include <stdlib.h>
|
||||
|
||||
static const char *interpreter_operators = "=(";
|
||||
|
||||
bool strcmp(const char *a, const char *b)
|
||||
{
|
||||
int i = 0;
|
||||
for (; a[i] == b[i] && a[i] != '\0'; i++);
|
||||
return a[i] == b[i];
|
||||
}
|
||||
|
||||
bool strncmp(const char *a, const char *b, int count)
|
||||
{
|
||||
int i = 0;
|
||||
for (; a[i] == b[i] && i < count; i++);
|
||||
return i == count;
|
||||
}
|
||||
|
||||
uint8_t isalpha(char c)
|
||||
{
|
||||
return (c >= 'A' && c <= 'Z') || (c >= 'a' && c <= 'z');
|
||||
}
|
||||
|
||||
uint8_t isnum(char c)
|
||||
{
|
||||
return (c >= '0' && c <= '9');
|
||||
}
|
||||
|
||||
uint8_t isname(char c)
|
||||
{
|
||||
return isalpha(c) || isnum(c);
|
||||
}
|
||||
|
||||
uint8_t isspace(char c)
|
||||
{
|
||||
return (c == ' ' || c == '\t' || c == '\n');
|
||||
}
|
||||
|
||||
uint8_t isoper(char c)
|
||||
{
|
||||
for (uint8_t i = 0; i < sizeof(interpreter_operators); i++) {
|
||||
if (c == interpreter_operators[i])
|
||||
return 1;
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
void interpreter_init(interpreter *interp)
|
||||
{
|
||||
interp->status = READY;
|
||||
interp->vcount = 0;
|
||||
interp->vars = (variable *)calloc(32, sizeof(variable));
|
||||
interp->names = (char **)calloc(32, sizeof(char *));
|
||||
interp->stack = (stack_t *)calloc(64, sizeof(stack_t));
|
||||
}
|
||||
|
||||
void interpreter_define_value(interpreter *interp, const char *name, int32_t value)
|
||||
{
|
||||
interp->names[interp->vcount] = (char *)name;
|
||||
interp->vars[interp->vcount].nameidx = interp->vcount;
|
||||
interp->vars[interp->vcount].type = VALUE;
|
||||
interp->vars[interp->vcount].value = (uint32_t)value;
|
||||
interp->vcount++;
|
||||
}
|
||||
|
||||
void interpreter_define_cfunc(interpreter *interp, const char *name, func_t addr)
|
||||
{
|
||||
interp->names[interp->vcount] = (char *)name;
|
||||
interp->vars[interp->vcount].nameidx = interp->vcount;
|
||||
interp->vars[interp->vcount].type = CFUNCTION;
|
||||
interp->vars[interp->vcount].value = (uint32_t)addr;
|
||||
interp->vcount++;
|
||||
}
|
||||
|
||||
int32_t interpreter_get_value(interpreter *interp, const char *name)
|
||||
{
|
||||
for (uint16_t i = 0; i < interp->vcount; i++) {
|
||||
if (!strcmp(interp->names[i], name))
|
||||
return (int32_t)interp->vars[i].value;
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
/**
|
||||
* doline section
|
||||
*/
|
||||
|
||||
bool namencmp(const char *name, const char *s)
|
||||
{
|
||||
uint16_t i;
|
||||
for (i = 0; name[i] == s[i] && s[i] != '\0'; i++);
|
||||
return (name[i] == '\0' && !isname(s[i]));
|
||||
}
|
||||
|
||||
uint16_t spacecount(const char *s)
|
||||
{
|
||||
uint16_t i;
|
||||
for (i = 0; isspace(s[i]); i++);
|
||||
return i;
|
||||
}
|
||||
|
||||
char *copystr(const char *s, char end)
|
||||
{
|
||||
uint16_t len = 0;
|
||||
while (s[len++] != end);
|
||||
char *buf = (char *)malloc(len);
|
||||
for (uint16_t i = 0; i < len; i++)
|
||||
buf[i] = s[i];
|
||||
return buf;
|
||||
}
|
||||
|
||||
char *copysubstr(const char *s, int end)
|
||||
{
|
||||
char *buf = (char *)malloc(end);
|
||||
for (uint16_t i = 0; i < end; i++)
|
||||
buf[i] = s[i];
|
||||
return buf;
|
||||
}
|
||||
|
||||
variable *interpreter_getvar(interpreter *interp, const char *line)
|
||||
{
|
||||
for (uint16_t i = 0; i < interp->vcount; i++) {
|
||||
if (namencmp(interp->names[i], line))
|
||||
return &interp->vars[i];
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
int interpreter_doline(interpreter *interp, const char *line)
|
||||
{
|
||||
variable *bits[16];
|
||||
uint16_t offset = 0, boffset = 0;
|
||||
|
||||
// check for var/func set or usage
|
||||
int end;
|
||||
getvar:
|
||||
for (end = 0; isname(line[end]); end++);
|
||||
variable *var = interpreter_getvar(interp, line);
|
||||
|
||||
if (var != 0) {
|
||||
bits[boffset++] = var;
|
||||
} else {
|
||||
// defining new variable
|
||||
interpreter_define_value(interp, copysubstr(line, end), 0);
|
||||
goto getvar; // try again
|
||||
}
|
||||
|
||||
// skip whitespace/name
|
||||
offset += end;
|
||||
offset += spacecount(line + offset);
|
||||
|
||||
if (boffset == 0 && line[offset] != '=')
|
||||
return -1; // variable not found
|
||||
|
||||
// find operator
|
||||
if (line[offset] == '\0') {
|
||||
// print value
|
||||
return -99;
|
||||
} else if (line[offset] == '=') {
|
||||
// assignment/expression
|
||||
offset++;
|
||||
offset += spacecount(line + offset);
|
||||
bits[0]->value = (uint32_t)copystr(line + offset, '\0');
|
||||
} else if (line[offset] == '(') {
|
||||
// function call
|
||||
offset++;
|
||||
if (bits[0]->type != FUNCTION && bits[0]->type != CFUNCTION)
|
||||
return -2;
|
||||
offset += spacecount(line + offset);
|
||||
|
||||
// collect arg offsets
|
||||
uint16_t offsets[8];
|
||||
uint8_t ooffset = 0;
|
||||
while (line[offset] != ')' && line[offset] != '\0') {
|
||||
offsets[ooffset] = offset;
|
||||
offset += spacecount(line + offset);
|
||||
|
||||
uint8_t isvn = 1;
|
||||
do {
|
||||
if (line[offset] == ' ' || line[offset] == '\t') {
|
||||
offset += spacecount(line + offset);
|
||||
isvn = 0;
|
||||
}
|
||||
|
||||
if (line[offset] == ',') {
|
||||
offset++;
|
||||
ooffset++;
|
||||
break;
|
||||
} else if (line[offset] == ')') {
|
||||
ooffset++;
|
||||
break;
|
||||
} else if (isvn == 0) {
|
||||
return -3;
|
||||
}
|
||||
} while (++offset);
|
||||
}
|
||||
|
||||
// populate stack
|
||||
for (uint8_t i = 0; i < ooffset; i++) {
|
||||
uint16_t j;
|
||||
for (j = offsets[i]; line[j] != ' ' && line[j] != '\t' &&
|
||||
line[j] != ',' && line[j] != ')'; j++);
|
||||
j -= offsets[i];
|
||||
|
||||
variable *var = interpreter_getvar(interp, line + offsets[i]);
|
||||
if (var != 0)
|
||||
interp->stack[i] = copystr((char *)var->value, '\0');
|
||||
else
|
||||
interp->stack[i] = copysubstr(line + offsets[i], j);
|
||||
}
|
||||
|
||||
((func_t)bits[0]->value)(interp->stack);
|
||||
} else {
|
||||
return -2; // invalid operation
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
@ -1,31 +0,0 @@
|
||||
#ifndef PARSER_H_
|
||||
#define PARSER_H_
|
||||
|
||||
#include <variable.h>
|
||||
|
||||
typedef void *stack_t;
|
||||
|
||||
typedef struct {
|
||||
uint16_t status;
|
||||
uint16_t vcount;
|
||||
variable *vars;
|
||||
char **names;
|
||||
stack_t *stack;
|
||||
} interpreter;
|
||||
|
||||
enum status {
|
||||
READY = 0
|
||||
};
|
||||
|
||||
typedef void (*func_t)(stack_t *);
|
||||
|
||||
void interpreter_init(interpreter *);
|
||||
|
||||
void interpreter_define_value(interpreter *, const char *, int32_t);
|
||||
void interpreter_define_cfunc(interpreter *, const char *, func_t);
|
||||
|
||||
int32_t interpreter_get_value(interpreter *, const char *);
|
||||
|
||||
int interpreter_doline(interpreter *, const char *);
|
||||
|
||||
#endif // PARSER_H_
|
||||
@ -1,24 +0,0 @@
|
||||
#ifndef TOKEN_H_
|
||||
#define TOKEN_H_
|
||||
|
||||
#include <stdint.h>
|
||||
|
||||
typedef struct {
|
||||
uint16_t nameidx;
|
||||
uint8_t type;
|
||||
uint8_t info;
|
||||
uint32_t value;
|
||||
} variable;
|
||||
|
||||
#define INFO_ARGS(x) ((x) & 0x07)
|
||||
#define INFO_RET (1 << 3)
|
||||
|
||||
enum vartype {
|
||||
VALUE = 0,
|
||||
VARIABLE,
|
||||
OPERATOR,
|
||||
FUNCTION,
|
||||
CFUNCTION
|
||||
};
|
||||
|
||||
#endif // TOKEN_H_
|
||||
@ -1,121 +0,0 @@
|
||||
#include <parser.h>
|
||||
#include <builtins.h>
|
||||
|
||||
#include "stack.h"
|
||||
|
||||
#include <memory.h>
|
||||
#include <stdio.h>
|
||||
//#include <stdlib.h>
|
||||
#include <string.h>
|
||||
|
||||
extern int rand(void);
|
||||
|
||||
int s_put(interpreter *it)
|
||||
{
|
||||
char *s = igetarg_string(it, 0);
|
||||
printf("%s", s);
|
||||
return 0;
|
||||
}
|
||||
|
||||
int s_type(interpreter *it)
|
||||
{
|
||||
variable *v = (variable *)it->stack[0];
|
||||
switch (v->valtype) {
|
||||
case STRING:
|
||||
puts("string");
|
||||
break;
|
||||
case INTEGER:
|
||||
puts("integer");
|
||||
break;
|
||||
case FLOAT:
|
||||
puts("float");
|
||||
break;
|
||||
case FUNC:
|
||||
puts("func");
|
||||
break;
|
||||
default:
|
||||
puts("unknown");
|
||||
break;
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
int input(interpreter *it)
|
||||
{
|
||||
variable *v = igetarg(it, 0);
|
||||
v->valtype = STRING;
|
||||
v->svalue = malloc(128);
|
||||
unsigned int unused;
|
||||
getline(&v->svalue, &unused, stdin);
|
||||
*strchr(v->svalue, '\n') = '\0';
|
||||
return 0;
|
||||
}
|
||||
|
||||
int concat(interpreter *it)
|
||||
{
|
||||
variable *v = igetarg(it, 0);
|
||||
char *s = igetarg_string(it, 1);
|
||||
char *new = malloc(strlen(v->svalue) + strlen(s) + 1);
|
||||
strcpy(new, v->svalue);
|
||||
strcpy(new + strlen(v->svalue), s);
|
||||
new[strlen(v->svalue) + strlen(s)] = 0;
|
||||
v->svalue = new;
|
||||
return 0;
|
||||
}
|
||||
|
||||
int script_rand(interpreter *it)
|
||||
{
|
||||
static variable v;
|
||||
v.valtype = INTEGER;
|
||||
unsigned int mod = igetarg_integer(it, 0);
|
||||
unsigned int val = rand();
|
||||
INT(&v) = val % mod;
|
||||
isetstr(&v);
|
||||
iret(it, &v);
|
||||
return 0;
|
||||
}
|
||||
|
||||
int line(interpreter *it)
|
||||
{
|
||||
(void)it;
|
||||
return 0;
|
||||
}
|
||||
|
||||
int main(int argc, char **argv)
|
||||
{
|
||||
interpreter interp;
|
||||
|
||||
if (argc != 2) {
|
||||
printf("Usage: %s file\n", argv[0]);
|
||||
return -1;
|
||||
}
|
||||
|
||||
FILE *fp = fopen(argv[1], "r");
|
||||
if (fp == 0) {
|
||||
printf("Could not open file: %s\n", argv[1]);
|
||||
return -1;
|
||||
}
|
||||
|
||||
iinit(&interp);
|
||||
inew_cfunc(&interp, "print", s_put);
|
||||
inew_cfunc(&interp, "tp", s_type);
|
||||
inew_cfunc(&interp, "gets", input);
|
||||
inew_cfunc(&interp, "concat", concat);
|
||||
inew_cfunc(&interp, "rand", script_rand);
|
||||
inew_cfunc(&interp, "line", line);
|
||||
|
||||
|
||||
char *line = 0;
|
||||
unsigned int size;
|
||||
int result;
|
||||
while (getline(&line, &size, fp) != -1) {
|
||||
*strchr(line, '\n') = '\0';
|
||||
result = idoline(&interp, line);
|
||||
if (result != 0)
|
||||
printf("Error: %d\n", result);
|
||||
}
|
||||
|
||||
fclose(fp);
|
||||
iend(&interp);
|
||||
return 0;
|
||||
}
|
||||
Loading…
Reference in New Issue