1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
#include "repl.h"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include <readline/readline.h>
#include <readline/history.h>
#include "interpreter_context.h"
#include "driver.h"
static void print_help(void) {
printf(
"IMP REPL (type IMP statements or commands starting with '%%')\n"
"Commands:\n"
" %%quit exit\n"
" %%run <program.imp> interpret program\n"
" %%set <var> <val> set variable\n"
" %%print [<var>] print variable, or all variables\n"
" %%procedures list declared procedures\n"
" %%help show this message\n");
}
static int is_valid_identifier(const char *var) {
if (!isalpha(var[0])) return 0;
for (int i = 1; var[i] != '\0'; ++i) {
if (!isalnum(var[i])) return 0;
}
return 1;
}
static void repl_exec_command(IMP_InterpreterContext *context, char *command) {
char *cmd = strtok(command, " \t");
if (strcmp(cmd, "%quit") == 0) {
exit(EXIT_SUCCESS);
} else if (strcmp(cmd, "%help") == 0) {
print_help();
} else if (strcmp(cmd, "%run") == 0) {
char *file = strtok(NULL, " \t");
if (file) {
if (!imp_driver_interpret_file(context, file)) imp_driver_print_var_table(context);
else fprintf(stderr, "Error interpreting file: %s\n", file);
} else {
fprintf(stderr, "Usage: %%run <path/to/file.imp>\n");
}
} else if (strcmp(cmd, "%set") == 0) {
char *var = strtok(NULL, " \t");
char *val = strtok(NULL, " \t");
if (var && val) {
if (is_valid_identifier(var)) {
imp_interpreter_context_var_set(context, var, atoi(val));
} else {
fprintf(stderr, "Invalid variable name: %s\n", var);
}
} else fprintf(stderr, "Usage: %%set <var> <val>\n");
} else if (strcmp(cmd, "%print") == 0) {
char *var = strtok(NULL, " \t");
if (var) {
if (is_valid_identifier(var)) {
printf("%s = %d\n", var, imp_interpreter_context_var_get(context, var));
} else {
fprintf(stderr, "Invalid variable name: %s\n", var);
}
} else imp_driver_print_var_table(context);
} else if (strcmp(cmd, "%procedures") == 0) {
imp_driver_print_proc_table(context);
} else {
fprintf(stderr, "Unknown command: %s\n", cmd);
}
}
static void repl_exec_statement(IMP_InterpreterContext *context, const char *statement) {
if (imp_driver_interpret_str(context, statement)) {
fprintf(stderr, "Error interpreting statement: %s\n", statement);
return;
}
imp_driver_print_var_table(context);
}
void imp_repl(void) {
IMP_InterpreterContext *context = imp_interpreter_context_create();
char *line;
print_help();
while ((line = readline("imp> ")) != NULL) {
if (*line) add_history(line);
if (line[0] == '%') repl_exec_command(context, line);
else if (*line) repl_exec_statement(context, line);
free(line);
}
printf("\n");
imp_interpreter_context_destroy(context);
}
|
