Andrew Kesterson
a428b905da
Added basic PRINT and REM commands. Added solver tests which had been around for a while and not committed. All execution is still immediate mode.
81 lines
2.9 KiB
C
81 lines
2.9 KiB
C
#include "types.h"
|
|
#include "basic.h"
|
|
#include "string.h"
|
|
#include <stdio.h>
|
|
|
|
/* extern basic_line basic_memory_lines[BASIC_MAX_LINES]; */
|
|
|
|
int main(void)
|
|
{
|
|
struct basic_expr *expr;
|
|
char *line;
|
|
/*struct basic_line *retline;
|
|
struct basic_line *arrayline;*/
|
|
|
|
/* Store a line */
|
|
/* expr = basic_parse_expr("10 =1 + 1");
|
|
if ( expr == NULL ) return 1;
|
|
if ( expr->lval_type != BASIC_LVAL_CONST_INT ) return 2;
|
|
if ( expr->rval_type != BASIC_RVAL_PTR ) return 3;
|
|
if ( expr->lval.i != 10 ) return 4;
|
|
if ( expr->rval.ptr == NULL ) return 5;
|
|
if ( expr->type != BASIC_OPTP_STOR ) return 6;
|
|
*/
|
|
/* Parse the stored line */
|
|
/* retline = (basic_line *)expr->rval.ptr;
|
|
expr = basic_parse_expr(retline->content);*/
|
|
expr = basic_parse_expr("1 + 1");
|
|
if ( expr == NULL ) return 7;
|
|
if ( expr->lval_type != BASIC_LVAL_CONST_INT ) return 8;
|
|
if ( expr->rval_type != BASIC_RVAL_CONST_INT ) return 9;
|
|
if ( expr->lval.i != 1 ) return 10;
|
|
if ( expr->rval.i != 1 ) return 11;
|
|
if ( expr->type != BASIC_OPTP_ADD ) return 12;
|
|
|
|
line = "REM This is a comment that gets ignored";
|
|
expr = basic_parse_expr(line);
|
|
printf("%s\n", line);
|
|
printf("token = %s\n", tokenizer_token());
|
|
printf("errno = %d\n", basic_errno);
|
|
if ( expr == NULL ) return 13;
|
|
if ( expr->type != BASIC_OPTP_CMD ) return 14;
|
|
if ( expr->lval_type != BASIC_LVAL_CMDPTR ) return 15;
|
|
if ( expr->lval.cmd_ptr != &basic_cmd_rem ) return 16;
|
|
|
|
line = "PRINT 10";
|
|
expr = basic_parse_expr(line);
|
|
printf("%s\n", line);
|
|
printf("token = %s\n", tokenizer_token());
|
|
printf("errno = %d\n", basic_errno);
|
|
printf("rval.ptr = '%s'\n", (char *)expr->rval.ptr);
|
|
if ( expr == NULL ) return 17;
|
|
if ( expr->type != BASIC_OPTP_CMD ) return 18;
|
|
if ( expr->lval_type != BASIC_LVAL_CMDPTR ) return 19;
|
|
if ( expr->lval.cmd_ptr != &basic_cmd_print ) return 20;
|
|
if ( expr->rval_type != BASIC_RVAL_PTR ) return 21;
|
|
if ( expr->rval.ptr == NULL ) return 22;
|
|
if ( strcmp((char *)expr->rval.ptr, " 10") != 0 ) return 23;
|
|
|
|
line = " 10"; /* ... continuing logic from the previous */
|
|
expr = basic_parse_expr(line);
|
|
printf("%s\n", line);
|
|
printf("token = %s\n", tokenizer_token());
|
|
printf("errno = %d\n", basic_errno);
|
|
printf("expr.type = %d\n", expr->type);
|
|
printf("expr->lval_type = %d\n", expr->lval_type);
|
|
if ( expr == NULL ) return 24;
|
|
if ( expr->type != BASIC_OPTP_NONE ) return 25;
|
|
if ( expr->lval_type != BASIC_LVAL_CONST_INT ) return 26;
|
|
if ( expr->lval.i != 10 ) return 27;
|
|
|
|
|
|
/*
|
|
arrayline = &basic_memory_lines[0];
|
|
if ( retline != arrayline) return 13;
|
|
printf("Line 10 in memory is %d : %s (%p)\n", arrayline->lineno, (char *)&arrayline->content, (void *)arrayline->nextline);
|
|
if ( arrayline->lineno != 10 ) return 14;
|
|
if ( strcmp((char *)&arrayline->content, "=1 + 1") != 0) return 15;
|
|
if ( arrayline->nextline != NULL ) return 16;
|
|
*/
|
|
return 0;
|
|
} |