Merge branch 'main' of gitlab.cs.wallawalla.edu:lustje/language-interpreter-lab into josh_11_7
This commit is contained in:
Josh
commit
866432d9c9
|
|
@ -1,7 +1,10 @@
|
||||||
.DS_Store
|
.DS_Store
|
||||||
*.out
|
lab-4/token.h
|
||||||
scanner.c
|
|
||||||
*.o
|
*.o
|
||||||
|
*.out
|
||||||
|
*.output
|
||||||
parser.c
|
parser.c
|
||||||
parser.h
|
parser.h
|
||||||
parser.output
|
scanner.c
|
||||||
|
test_print.txt
|
||||||
|
test_evaluate.txt
|
||||||
|
|
|
||||||
|
|
@ -25,3 +25,15 @@ lab_4_tests:
|
||||||
- echo "Lab 4 - Bison Parser"
|
- echo "Lab 4 - Bison Parser"
|
||||||
- make test
|
- make test
|
||||||
- ./parser_test.out
|
- ./parser_test.out
|
||||||
|
|
||||||
|
lab_5_tests:
|
||||||
|
stage: test
|
||||||
|
image: gitlab.cs.wallawalla.edu:5050/cs_department/docker-images/cpp
|
||||||
|
script:
|
||||||
|
- apt update
|
||||||
|
- apt install -y flex bison
|
||||||
|
- bison --version
|
||||||
|
- cd lab-5
|
||||||
|
- echo "Lab 5 - Interpreter"
|
||||||
|
- make test
|
||||||
|
- ./interpreter_test.out
|
||||||
|
|
|
||||||
|
|
@ -312,4 +312,273 @@ UTEST(scanner, quadratic) {
|
||||||
ASSERT_STREQ(tokens[index].p, yytext);
|
ASSERT_STREQ(tokens[index].p, yytext);
|
||||||
++index;
|
++index;
|
||||||
} while (t != TOKEN_EOF);
|
} while (t != TOKEN_EOF);
|
||||||
|
}
|
||||||
|
|
||||||
|
UTEST(scanner, sorting) {
|
||||||
|
struct token_st tokens[] = {
|
||||||
|
{TOKEN_IDENTIFICATION, "IDENTIFICATION"},
|
||||||
|
{TOKEN_KEYWORD_DIVISION, "DIVISION"},
|
||||||
|
{TOKEN_DOT, "."},
|
||||||
|
{TOKEN_PROGRAM_ID, "PROGRAM-ID"},
|
||||||
|
{TOKEN_DOT, "."},
|
||||||
|
{TOKEN_IDENT, "sorting"},
|
||||||
|
{TOKEN_DOT, "."},
|
||||||
|
{TOKEN_KEYWORD_DATA, "DATA"},
|
||||||
|
{TOKEN_KEYWORD_DIVISION, "DIVISION"},
|
||||||
|
{TOKEN_DOT, "."},
|
||||||
|
{TOKEN_WORKING_STORAGE, "WORKING-STORAGE"},
|
||||||
|
{TOKEN_KEYWORD_SECTION, "SECTION"},
|
||||||
|
{TOKEN_DOT, "."},
|
||||||
|
{TOKEN_INTEGER, "01"},
|
||||||
|
{TOKEN_IDENT, "WS-SORT-AREA"},
|
||||||
|
{TOKEN_DOT, "."},
|
||||||
|
{TOKEN_INTEGER, "05"},
|
||||||
|
{TOKEN_IDENT, "WS-SORT-TABLE"},
|
||||||
|
{TOKEN_DOT, "."},
|
||||||
|
{TOKEN_INTEGER, "10"},
|
||||||
|
{TOKEN_IDENT, "WS-SORT-ROW"},
|
||||||
|
{TOKEN_PICTURE, "PIC"},
|
||||||
|
{TOKEN_ALPHANUMERIC, "X"},
|
||||||
|
{TOKEN_LEFT_PARENTHESIS, "("},
|
||||||
|
{TOKEN_INTEGER, "10"},
|
||||||
|
{TOKEN_RIGHT_PARENTHESIS, ")"},
|
||||||
|
{TOKEN_KEYWORD_OCCURS, "OCCURS"},
|
||||||
|
{TOKEN_INTEGER, "100"},
|
||||||
|
{TOKEN_DOT, "."},
|
||||||
|
{TOKEN_INTEGER, "05"},
|
||||||
|
{TOKEN_IDENT, "WS-TEMP-ROW"},
|
||||||
|
{TOKEN_PICTURE, "PIC"},
|
||||||
|
{TOKEN_ALPHANUMERIC, "X"},
|
||||||
|
{TOKEN_LEFT_PARENTHESIS, "("},
|
||||||
|
{TOKEN_INTEGER, "10"},
|
||||||
|
{TOKEN_RIGHT_PARENTHESIS, ")"},
|
||||||
|
{TOKEN_DOT, "."},
|
||||||
|
{TOKEN_INTEGER, "05"},
|
||||||
|
{TOKEN_IDENT, "WS-ROW-MAX"},
|
||||||
|
{TOKEN_PICTURE, "PIC"},
|
||||||
|
{TOKEN_SIGNED_NUMERIC, "S9"},
|
||||||
|
{TOKEN_LEFT_PARENTHESIS, "("},
|
||||||
|
{TOKEN_INTEGER, "4"},
|
||||||
|
{TOKEN_RIGHT_PARENTHESIS, ")"},
|
||||||
|
{TOKEN_COMPUTATION_LEVEL_0, "COMP"},
|
||||||
|
{TOKEN_KEYWORD_VALUE, "VALUE"},
|
||||||
|
{TOKEN_INTEGER, "100"},
|
||||||
|
{TOKEN_DOT, "."},
|
||||||
|
{TOKEN_INTEGER, "05"},
|
||||||
|
{TOKEN_IDENT, "WS-SORT-MAX"},
|
||||||
|
{TOKEN_PICTURE, "PIC"},
|
||||||
|
{TOKEN_SIGNED_NUMERIC, "S9"},
|
||||||
|
{TOKEN_LEFT_PARENTHESIS, "("},
|
||||||
|
{TOKEN_INTEGER, "4"},
|
||||||
|
{TOKEN_RIGHT_PARENTHESIS, ")"},
|
||||||
|
{TOKEN_COMPUTATION_LEVEL_0, "COMP"},
|
||||||
|
{TOKEN_DOT, "."},
|
||||||
|
{TOKEN_INTEGER, "05"},
|
||||||
|
{TOKEN_IDENT, "WS-I"},
|
||||||
|
{TOKEN_PICTURE, "PIC"},
|
||||||
|
{TOKEN_SIGNED_NUMERIC, "S9"},
|
||||||
|
{TOKEN_LEFT_PARENTHESIS, "("},
|
||||||
|
{TOKEN_INTEGER, "4"},
|
||||||
|
{TOKEN_RIGHT_PARENTHESIS, ")"},
|
||||||
|
{TOKEN_COMPUTATION_LEVEL_0, "COMP"},
|
||||||
|
{TOKEN_DOT, "."},
|
||||||
|
{TOKEN_INTEGER, "05"},
|
||||||
|
{TOKEN_IDENT, "WS-J"},
|
||||||
|
{TOKEN_PICTURE, "PIC"},
|
||||||
|
{TOKEN_SIGNED_NUMERIC, "S9"},
|
||||||
|
{TOKEN_LEFT_PARENTHESIS, "("},
|
||||||
|
{TOKEN_INTEGER, "4"},
|
||||||
|
{TOKEN_RIGHT_PARENTHESIS, ")"},
|
||||||
|
{TOKEN_COMPUTATION_LEVEL_0, "COMP"},
|
||||||
|
{TOKEN_DOT, "."},
|
||||||
|
{TOKEN_INTEGER, "05"},
|
||||||
|
{TOKEN_IDENT, "WS-INDEX"},
|
||||||
|
{TOKEN_PICTURE, "PIC"},
|
||||||
|
{TOKEN_SIGNED_NUMERIC, "S9"},
|
||||||
|
{TOKEN_LEFT_PARENTHESIS, "("},
|
||||||
|
{TOKEN_INTEGER, "4"},
|
||||||
|
{TOKEN_RIGHT_PARENTHESIS, ")"},
|
||||||
|
{TOKEN_COMPUTATION_LEVEL_0, "COMP"},
|
||||||
|
{TOKEN_DOT, "."},
|
||||||
|
{TOKEN_PROCEDURE, "PROCEDURE"},
|
||||||
|
{TOKEN_KEYWORD_DIVISION, "DIVISION"},
|
||||||
|
{TOKEN_DOT, "."},
|
||||||
|
{TOKEN_COMMENT, "*> Initialize test data"},
|
||||||
|
{TOKEN_MOVE, "MOVE"},
|
||||||
|
{TOKEN_STRING, "\"30\""},
|
||||||
|
{TOKEN_KEYWORD_TO, "TO"},
|
||||||
|
{TOKEN_IDENT, "WS-SORT-ROW"},
|
||||||
|
{TOKEN_LEFT_PARENTHESIS, "("},
|
||||||
|
{TOKEN_INTEGER, "1"},
|
||||||
|
{TOKEN_RIGHT_PARENTHESIS, ")"},
|
||||||
|
{TOKEN_MOVE, "MOVE"},
|
||||||
|
{TOKEN_STRING, "\"10\""},
|
||||||
|
{TOKEN_KEYWORD_TO, "TO"},
|
||||||
|
{TOKEN_IDENT, "WS-SORT-ROW"},
|
||||||
|
{TOKEN_LEFT_PARENTHESIS, "("},
|
||||||
|
{TOKEN_INTEGER, "2"},
|
||||||
|
{TOKEN_RIGHT_PARENTHESIS, ")"},
|
||||||
|
{TOKEN_MOVE, "MOVE"},
|
||||||
|
{TOKEN_STRING, "\"50\""},
|
||||||
|
{TOKEN_KEYWORD_TO, "TO"},
|
||||||
|
{TOKEN_IDENT, "WS-SORT-ROW"},
|
||||||
|
{TOKEN_LEFT_PARENTHESIS, "("},
|
||||||
|
{TOKEN_INTEGER, "3"},
|
||||||
|
{TOKEN_RIGHT_PARENTHESIS, ")"},
|
||||||
|
{TOKEN_MOVE, "MOVE"},
|
||||||
|
{TOKEN_STRING, "\"20\""},
|
||||||
|
{TOKEN_KEYWORD_TO, "TO"},
|
||||||
|
{TOKEN_IDENT, "WS-SORT-ROW"},
|
||||||
|
{TOKEN_LEFT_PARENTHESIS, "("},
|
||||||
|
{TOKEN_INTEGER, "4"},
|
||||||
|
{TOKEN_RIGHT_PARENTHESIS, ")"},
|
||||||
|
{TOKEN_MOVE, "MOVE"},
|
||||||
|
{TOKEN_STRING, "\"40\""},
|
||||||
|
{TOKEN_KEYWORD_TO, "TO"},
|
||||||
|
{TOKEN_IDENT, "WS-SORT-ROW"},
|
||||||
|
{TOKEN_LEFT_PARENTHESIS, "("},
|
||||||
|
{TOKEN_INTEGER, "5"},
|
||||||
|
{TOKEN_RIGHT_PARENTHESIS, ")"},
|
||||||
|
{TOKEN_MOVE, "MOVE"},
|
||||||
|
{TOKEN_INTEGER, "5"},
|
||||||
|
{TOKEN_KEYWORD_TO, "TO"},
|
||||||
|
{TOKEN_IDENT, "WS-SORT-MAX"},
|
||||||
|
{TOKEN_COMMENT, "*> * Display original array"},
|
||||||
|
{TOKEN_DISPLAY, "DISPLAY"},
|
||||||
|
{TOKEN_STRING, "\"Original Array Contents:\""},
|
||||||
|
{TOKEN_DISPLAY, "DISPLAY"},
|
||||||
|
{TOKEN_STRING, "\"---------------------\""},
|
||||||
|
{TOKEN_PERFORM, "PERFORM"},
|
||||||
|
{TOKEN_VARYING, "VARYING"},
|
||||||
|
{TOKEN_IDENT, "WS-INDEX"},
|
||||||
|
{TOKEN_KEYWORD_FROM, "FROM"},
|
||||||
|
{TOKEN_INTEGER, "1"},
|
||||||
|
{TOKEN_KEYWORD_BY, "BY"},
|
||||||
|
{TOKEN_INTEGER, "1"},
|
||||||
|
{TOKEN_UNTIL, "UNTIL"},
|
||||||
|
{TOKEN_IDENT, "WS-INDEX"},
|
||||||
|
{TOKEN_GREATER_THAN, ">"},
|
||||||
|
{TOKEN_IDENT, "WS-SORT-MAX"},
|
||||||
|
{TOKEN_DISPLAY, "DISPLAY"},
|
||||||
|
{TOKEN_STRING, "\"Element \""},
|
||||||
|
{TOKEN_IDENT, "WS-INDEX"},
|
||||||
|
{TOKEN_STRING, "\": \""},
|
||||||
|
{TOKEN_IDENT, "WS-SORT-ROW"},
|
||||||
|
{TOKEN_LEFT_PARENTHESIS, "("},
|
||||||
|
{TOKEN_IDENT, "WS-INDEX"},
|
||||||
|
{TOKEN_RIGHT_PARENTHESIS, ")"},
|
||||||
|
{TOKEN_END_PERFORM, "END-PERFORM"},
|
||||||
|
{TOKEN_DISPLAY, "DISPLAY"},
|
||||||
|
{TOKEN_SPACE, "SPACE"},
|
||||||
|
{TOKEN_COMMENT, "*> * Simplified bubble sort"},
|
||||||
|
{TOKEN_PERFORM, "PERFORM"},
|
||||||
|
{TOKEN_VARYING, "VARYING"},
|
||||||
|
{TOKEN_IDENT, "WS-I"},
|
||||||
|
{TOKEN_KEYWORD_FROM, "FROM"},
|
||||||
|
{TOKEN_INTEGER, "1"},
|
||||||
|
{TOKEN_KEYWORD_BY, "BY"},
|
||||||
|
{TOKEN_INTEGER, "1"},
|
||||||
|
{TOKEN_UNTIL, "UNTIL"},
|
||||||
|
{TOKEN_IDENT, "WS-I"},
|
||||||
|
{TOKEN_GREATER_THAN, ">"},
|
||||||
|
{TOKEN_IDENT, "WS-SORT-MAX"},
|
||||||
|
{TOKEN_SUB, "-"},
|
||||||
|
{TOKEN_INTEGER, "1"},
|
||||||
|
{TOKEN_PERFORM, "PERFORM"},
|
||||||
|
{TOKEN_VARYING, "VARYING"},
|
||||||
|
{TOKEN_IDENT, "WS-J"},
|
||||||
|
{TOKEN_KEYWORD_FROM, "FROM"},
|
||||||
|
{TOKEN_INTEGER, "1"},
|
||||||
|
{TOKEN_KEYWORD_BY, "BY"},
|
||||||
|
{TOKEN_INTEGER, "1"},
|
||||||
|
{TOKEN_UNTIL, "UNTIL"},
|
||||||
|
{TOKEN_IDENT, "WS-J"},
|
||||||
|
{TOKEN_GREATER_THAN, ">"},
|
||||||
|
{TOKEN_IDENT, "WS-SORT-MAX"},
|
||||||
|
{TOKEN_SUB, "-"},
|
||||||
|
{TOKEN_IDENT, "WS-I"},
|
||||||
|
{TOKEN_IF, "IF"},
|
||||||
|
{TOKEN_IDENT, "WS-SORT-ROW"},
|
||||||
|
{TOKEN_LEFT_PARENTHESIS, "("},
|
||||||
|
{TOKEN_IDENT, "WS-J"},
|
||||||
|
{TOKEN_RIGHT_PARENTHESIS, ")"},
|
||||||
|
{TOKEN_GREATER_THAN, ">"},
|
||||||
|
{TOKEN_IDENT, "WS-SORT-ROW"},
|
||||||
|
{TOKEN_LEFT_PARENTHESIS, "("},
|
||||||
|
{TOKEN_IDENT, "WS-J"},
|
||||||
|
{TOKEN_ADD, "+"},
|
||||||
|
{TOKEN_INTEGER, "1"},
|
||||||
|
{TOKEN_RIGHT_PARENTHESIS, ")"},
|
||||||
|
{TOKEN_MOVE, "MOVE"},
|
||||||
|
{TOKEN_IDENT, "WS-SORT-ROW"},
|
||||||
|
{TOKEN_LEFT_PARENTHESIS, "("},
|
||||||
|
{TOKEN_IDENT, "WS-J"},
|
||||||
|
{TOKEN_RIGHT_PARENTHESIS, ")"},
|
||||||
|
{TOKEN_KEYWORD_TO, "TO"},
|
||||||
|
{TOKEN_IDENT, "WS-TEMP-ROW"},
|
||||||
|
{TOKEN_MOVE, "MOVE"},
|
||||||
|
{TOKEN_IDENT, "WS-SORT-ROW"},
|
||||||
|
{TOKEN_LEFT_PARENTHESIS, "("},
|
||||||
|
{TOKEN_IDENT, "WS-J"},
|
||||||
|
{TOKEN_ADD, "+"},
|
||||||
|
{TOKEN_INTEGER, "1"},
|
||||||
|
{TOKEN_RIGHT_PARENTHESIS, ")"},
|
||||||
|
{TOKEN_KEYWORD_TO, "TO"},
|
||||||
|
{TOKEN_IDENT, "WS-SORT-ROW"},
|
||||||
|
{TOKEN_LEFT_PARENTHESIS, "("},
|
||||||
|
{TOKEN_IDENT, "WS-J"},
|
||||||
|
{TOKEN_RIGHT_PARENTHESIS, ")"},
|
||||||
|
{TOKEN_MOVE, "MOVE"},
|
||||||
|
{TOKEN_IDENT, "WS-TEMP-ROW"},
|
||||||
|
{TOKEN_KEYWORD_TO, "TO"},
|
||||||
|
{TOKEN_IDENT, "WS-SORT-ROW"},
|
||||||
|
{TOKEN_LEFT_PARENTHESIS, "("},
|
||||||
|
{TOKEN_IDENT, "WS-J"},
|
||||||
|
{TOKEN_ADD, "+"},
|
||||||
|
{TOKEN_INTEGER, "1"},
|
||||||
|
{TOKEN_RIGHT_PARENTHESIS, ")"},
|
||||||
|
{TOKEN_END_IF, "END-IF"},
|
||||||
|
{TOKEN_END_PERFORM, "END-PERFORM"},
|
||||||
|
{TOKEN_END_PERFORM, "END-PERFORM"},
|
||||||
|
{TOKEN_COMMENT, "*> * Display sorted array"},
|
||||||
|
{TOKEN_DISPLAY, "DISPLAY"},
|
||||||
|
{TOKEN_STRING, "\"Sorted Array Contents:\""},
|
||||||
|
{TOKEN_DISPLAY, "DISPLAY"},
|
||||||
|
{TOKEN_STRING, "\"--------------------\""},
|
||||||
|
{TOKEN_PERFORM, "PERFORM"},
|
||||||
|
{TOKEN_VARYING, "VARYING"},
|
||||||
|
{TOKEN_IDENT, "WS-INDEX"},
|
||||||
|
{TOKEN_KEYWORD_FROM, "FROM"},
|
||||||
|
{TOKEN_INTEGER, "1"},
|
||||||
|
{TOKEN_KEYWORD_BY, "BY"},
|
||||||
|
{TOKEN_INTEGER, "1"},
|
||||||
|
{TOKEN_UNTIL, "UNTIL"},
|
||||||
|
{TOKEN_IDENT, "WS-INDEX"},
|
||||||
|
{TOKEN_GREATER_THAN, ">"},
|
||||||
|
{TOKEN_IDENT, "WS-SORT-MAX"},
|
||||||
|
{TOKEN_DISPLAY, "DISPLAY"},
|
||||||
|
{TOKEN_STRING, "\"Element \""},
|
||||||
|
{TOKEN_IDENT, "WS-INDEX"},
|
||||||
|
{TOKEN_STRING, "\": \""},
|
||||||
|
{TOKEN_IDENT, "WS-SORT-ROW"},
|
||||||
|
{TOKEN_LEFT_PARENTHESIS, "("},
|
||||||
|
{TOKEN_IDENT, "WS-INDEX"},
|
||||||
|
{TOKEN_RIGHT_PARENTHESIS, ")"},
|
||||||
|
{TOKEN_END_PERFORM, "END-PERFORM"},
|
||||||
|
{TOKEN_DOT, "."},
|
||||||
|
{TOKEN_STOP, "STOP"},
|
||||||
|
{TOKEN_RUN, "RUN"},
|
||||||
|
{TOKEN_DOT, "."},
|
||||||
|
{TOKEN_EOF, ""},
|
||||||
|
};
|
||||||
|
yyin = fopen("samples/sorting-snippet.cbl", "r");
|
||||||
|
ASSERT_TRUE(yyin);
|
||||||
|
int index = 0;
|
||||||
|
token_t t;
|
||||||
|
do {
|
||||||
|
printf("index: %d token: %d text: %s\n", index, t, yytext);
|
||||||
|
ASSERT_EQ(tokens[index].t, (t = yylex()));
|
||||||
|
ASSERT_STREQ(tokens[index].p, yytext);
|
||||||
|
++index;
|
||||||
|
} while (t != TOKEN_EOF);
|
||||||
}
|
}
|
||||||
|
|
@ -14,7 +14,6 @@ extern int yylineno;
|
||||||
|
|
||||||
UTEST_MAIN();
|
UTEST_MAIN();
|
||||||
|
|
||||||
|
|
||||||
UTEST(parser, math) {
|
UTEST(parser, math) {
|
||||||
// Must include the null character to terminate input
|
// Must include the null character to terminate input
|
||||||
char string[] = "1+8/4-3;\0";
|
char string[] = "1+8/4-3;\0";
|
||||||
|
|
@ -82,4 +81,57 @@ UTEST(parser, branching) {
|
||||||
|
|
||||||
// Assert the result to test correctness
|
// Assert the result to test correctness
|
||||||
ASSERT_EQ(result, 0);
|
ASSERT_EQ(result, 0);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
UTEST(parser, looping) {
|
||||||
|
char string[] = "PERFORM VARYING I FROM 1 BY 1 UNTIL I > 10 MOVE I TO A(I)\0";
|
||||||
|
YY_BUFFER_STATE buffer = yy_scan_buffer(string, sizeof(string));
|
||||||
|
|
||||||
|
yylineno = 1;
|
||||||
|
int result = yyparse();
|
||||||
|
|
||||||
|
yy_delete_buffer(buffer);
|
||||||
|
|
||||||
|
// Assert the result to test correctness
|
||||||
|
ASSERT_EQ(result, 0);
|
||||||
|
}
|
||||||
|
|
||||||
|
UTEST(parser, sorting) {
|
||||||
|
// Read sample file as input
|
||||||
|
yyin = fopen("samples/sorting-snippet.cbl", "r");
|
||||||
|
yyrestart(yyin);
|
||||||
|
ASSERT_TRUE(yyin);
|
||||||
|
|
||||||
|
yylineno = 1;
|
||||||
|
int result = yyparse();
|
||||||
|
|
||||||
|
// Assert the result to test correctness
|
||||||
|
ASSERT_EQ(result, 0);
|
||||||
|
}
|
||||||
|
|
||||||
|
UTEST(parser, quadratic) {
|
||||||
|
// Read sample file as input
|
||||||
|
yyin = fopen("samples/quadratic-snippet.cbl", "r");
|
||||||
|
yyrestart(yyin);
|
||||||
|
ASSERT_TRUE(yyin);
|
||||||
|
|
||||||
|
yylineno = 1;
|
||||||
|
int result = yyparse();
|
||||||
|
|
||||||
|
// Assert the result to test correctness
|
||||||
|
ASSERT_EQ(result, 0);
|
||||||
|
}
|
||||||
|
|
||||||
|
UTEST(parser, boolean) {
|
||||||
|
// Must include the null character to terminate input
|
||||||
|
char string[] = "IF A > B THEN Var = TRUE ELSE Var = FALSE\0";
|
||||||
|
YY_BUFFER_STATE buffer = yy_scan_buffer(string, sizeof(string));
|
||||||
|
|
||||||
|
yylineno = 1;
|
||||||
|
int result = yyparse();
|
||||||
|
|
||||||
|
yy_delete_buffer(buffer);
|
||||||
|
|
||||||
|
// Assert the result to test correctness
|
||||||
|
ASSERT_EQ(result, 0);
|
||||||
|
}
|
||||||
|
|
|
||||||
|
|
@ -1,9 +1,12 @@
|
||||||
|
|
||||||
# The top level rule indicates how to link everything together into calc
|
# The top level rule indicates how to link everything together into main
|
||||||
|
|
||||||
main: main.o symbol_map.o expr.o scanner.o parser.o
|
main: main.o symbol_map.o expr.o scanner.o parser.o
|
||||||
gcc main.o symbol_map.o expr.o scanner.o parser.o -o interpreter.out -lm
|
gcc main.o symbol_map.o expr.o scanner.o parser.o -o interpreter.out -lm
|
||||||
|
|
||||||
|
test: main_test.o symbol_map.o expr.o scanner.o parser.o
|
||||||
|
gcc main_test.o symbol_map.o expr.o scanner.o parser.o -o interpreter_test.out -lm
|
||||||
|
|
||||||
# This pattern indicates that any .o file depends
|
# This pattern indicates that any .o file depends
|
||||||
# upon the .c file of the same name, and all of the .h files.
|
# upon the .c file of the same name, and all of the .h files.
|
||||||
# So, if a .o file is needed, it is built automatically.
|
# So, if a .o file is needed, it is built automatically.
|
||||||
|
|
@ -22,5 +25,5 @@ parser.c parser.h: parser.bison
|
||||||
# clean causes all intermediate files to be deleted.
|
# clean causes all intermediate files to be deleted.
|
||||||
|
|
||||||
clean:
|
clean:
|
||||||
rm -f parser.c parser.output parser.h scanner.c *.o interpreter.out
|
rm -f parser.c parser.output parser.h scanner.c *.o interpreter.out interpreter_test.out test_evaluate.txt test_print.txt
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -0,0 +1,161 @@
|
||||||
|
// https://github.com/sheredom/utest.h/blob/master/utest.h
|
||||||
|
#include "utest.h"
|
||||||
|
#include "expr.h"
|
||||||
|
#include <stdio.h>
|
||||||
|
|
||||||
|
/* Clunky: Declare the parse function generated from parser.bison */
|
||||||
|
extern int yyparse();
|
||||||
|
|
||||||
|
/* Clunky: Declare the result of the parser from parser.bison */
|
||||||
|
extern struct stmt *parser_result;
|
||||||
|
|
||||||
|
typedef struct yy_buffer_state *YY_BUFFER_STATE;
|
||||||
|
extern int yyrestart();
|
||||||
|
extern YY_BUFFER_STATE yy_scan_buffer(char *str, int i);
|
||||||
|
extern YY_BUFFER_STATE yy_scan_string(char *str);
|
||||||
|
extern void yy_delete_buffer(YY_BUFFER_STATE buffer);
|
||||||
|
extern FILE *yyin;
|
||||||
|
extern int yylineno;
|
||||||
|
|
||||||
|
UTEST_MAIN();
|
||||||
|
|
||||||
|
void read_file(const char *filename, char *expected_output) {
|
||||||
|
// Read the expected output from a file
|
||||||
|
FILE *expected_file = fopen(filename, "r");
|
||||||
|
if (expected_file == NULL) {
|
||||||
|
perror("fopen");
|
||||||
|
exit(EXIT_FAILURE);
|
||||||
|
}
|
||||||
|
size_t n =
|
||||||
|
fread(expected_output, 1, sizeof(expected_output) - 1, expected_file);
|
||||||
|
expected_output[n] = '\0';
|
||||||
|
fclose(expected_file);
|
||||||
|
}
|
||||||
|
|
||||||
|
void redirect_stdout(const char *filename, int evalutate) {
|
||||||
|
// Redirect stdout to a temporary file
|
||||||
|
FILE *temp_file = fopen(filename, "w");
|
||||||
|
if (temp_file == NULL) {
|
||||||
|
perror("tmpfile");
|
||||||
|
exit(EXIT_FAILURE);
|
||||||
|
}
|
||||||
|
int temp_fd = fileno(temp_file);
|
||||||
|
int stdout_fd = dup(STDOUT_FILENO);
|
||||||
|
dup2(temp_fd, STDOUT_FILENO);
|
||||||
|
|
||||||
|
// Perform operations that generate output
|
||||||
|
if (evalutate != 0) {
|
||||||
|
stmt_evaluate(parser_result);
|
||||||
|
} else {
|
||||||
|
stmt_print(parser_result);
|
||||||
|
}
|
||||||
|
|
||||||
|
// Flush and close stdout
|
||||||
|
fflush(stdout);
|
||||||
|
dup2(stdout_fd, STDOUT_FILENO);
|
||||||
|
close(stdout_fd);
|
||||||
|
}
|
||||||
|
|
||||||
|
UTEST(interpreter, print) {
|
||||||
|
|
||||||
|
yyin = fopen("samples/multiple_statements.c", "r");
|
||||||
|
yyrestart(yyin);
|
||||||
|
ASSERT_TRUE(yyin);
|
||||||
|
|
||||||
|
// yylineno = 1;
|
||||||
|
yylineno = 1;
|
||||||
|
int result = yyparse();
|
||||||
|
|
||||||
|
if (result == 0) {
|
||||||
|
// Catch the standard output and compare with expected test result
|
||||||
|
redirect_stdout("test_print.txt", 0);
|
||||||
|
redirect_stdout("test_evaluate.txt", 1);
|
||||||
|
}
|
||||||
|
|
||||||
|
// Assert the result to test correctness
|
||||||
|
ASSERT_EQ(result, 0);
|
||||||
|
|
||||||
|
char actual_print[1024];
|
||||||
|
read_file("test_print.txt", actual_print);
|
||||||
|
char expected_print[1024];
|
||||||
|
read_file("samples/multiple_statements_print.txt", expected_print);
|
||||||
|
ASSERT_STREQ(actual_print, expected_print);
|
||||||
|
|
||||||
|
char actual_evaluate[1024];
|
||||||
|
read_file("test_evaluate.txt", actual_evaluate);
|
||||||
|
char expected_evaluate[1024];
|
||||||
|
read_file("samples/multiple_statements_evaluate.txt", expected_evaluate);
|
||||||
|
ASSERT_STREQ(actual_evaluate, expected_evaluate);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
UTEST(interpreter, program) {
|
||||||
|
yyin = fopen("samples/program.c", "r");
|
||||||
|
yyrestart(yyin);
|
||||||
|
ASSERT_TRUE(yyin);
|
||||||
|
|
||||||
|
yylineno = 1;
|
||||||
|
int result = yyparse();
|
||||||
|
|
||||||
|
if (result == 0) {
|
||||||
|
// Catch the standard output and compare with expected test result
|
||||||
|
redirect_stdout("test_print.txt", 0);
|
||||||
|
redirect_stdout("test_evaluate.txt", 1);
|
||||||
|
}
|
||||||
|
|
||||||
|
// Assert the result to test correctness
|
||||||
|
ASSERT_EQ(result, 0);
|
||||||
|
|
||||||
|
char actual_print[1024];
|
||||||
|
read_file("test_print.txt", actual_print);
|
||||||
|
char expected_print[1024];
|
||||||
|
read_file("samples/program_print.txt", expected_print);
|
||||||
|
ASSERT_STREQ(actual_print, expected_print);
|
||||||
|
|
||||||
|
char actual_evaluate[1024];
|
||||||
|
read_file("test_evaluate.txt", actual_evaluate);
|
||||||
|
char expected_evaluate[1024];
|
||||||
|
read_file("samples/program_evaluate.txt", expected_evaluate);
|
||||||
|
ASSERT_STREQ(actual_evaluate, expected_evaluate);
|
||||||
|
}
|
||||||
|
|
||||||
|
// UTEST(parser, missing_new_line) {
|
||||||
|
// // Must include the null character to terminate input
|
||||||
|
// char string[] = "1+8/4-3\0";
|
||||||
|
// YY_BUFFER_STATE buffer = yy_scan_buffer(string, sizeof(string));
|
||||||
|
|
||||||
|
// yylineno = 1;
|
||||||
|
// int result = yyparse();
|
||||||
|
|
||||||
|
// yy_delete_buffer(buffer);
|
||||||
|
|
||||||
|
// // Assert the result to test correctness
|
||||||
|
// ASSERT_EQ(result, 1);
|
||||||
|
// }
|
||||||
|
|
||||||
|
// UTEST(parser, hello_world) {
|
||||||
|
// // Read sample file as input
|
||||||
|
// yyin = fopen("samples/hello.py", "r");
|
||||||
|
// yyrestart(yyin);
|
||||||
|
// ASSERT_TRUE(yyin);
|
||||||
|
|
||||||
|
// yylineno = 1;
|
||||||
|
// int result = yyparse();
|
||||||
|
|
||||||
|
// // Assert the result to test correctness
|
||||||
|
// ASSERT_EQ(result, 0);
|
||||||
|
// }
|
||||||
|
|
||||||
|
// UTEST(parser, quadratic) {
|
||||||
|
// // Read sample file as input
|
||||||
|
// yyin = fopen("samples/quadratic.py", "r");
|
||||||
|
// yyrestart(yyin);
|
||||||
|
// ASSERT_TRUE(yyin);
|
||||||
|
|
||||||
|
// yylineno = 1;
|
||||||
|
// int result = yyparse();
|
||||||
|
|
||||||
|
// // Assert the result to test correctness
|
||||||
|
// ASSERT_EQ(result, 0);
|
||||||
|
// }
|
||||||
|
|
@ -0,0 +1 @@
|
||||||
|
56
|
||||||
|
|
@ -0,0 +1,2 @@
|
||||||
|
print 5;
|
||||||
|
print 6;
|
||||||
|
|
@ -0,0 +1 @@
|
||||||
|
2024
|
||||||
|
|
@ -0,0 +1,2 @@
|
||||||
|
a = ((101*20)+4);
|
||||||
|
print(a);
|
||||||
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue