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
|
#include "repl.h"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <readline/readline.h>
#include <readline/history.h>
#include "interpreter.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 void repl_exec_command(context_t 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 (!interp_file(context, file)) context_print_var_table(context);
} 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) context_set_var(context, var, atoi(val));
else fprintf(stderr, "Usage: %%set <var> <val>\n");
} else if (strcmp(cmd, "%print") == 0) {
char *var = strtok(NULL, " \t");
if (var) printf("%s = %d\n", var, context_get_var(context, var));
else context_print_var_table(context);
} else if (strcmp(cmd, "%procedures") == 0) {
context_print_proc_table(context);
} else {
fprintf(stderr, "Unknown command: %s\n", cmd);
}
}
static void repl_exec_statement(context_t context, const char *statement) {
if (interp_str(context, statement)) {
fprintf(stderr, "Error interpreting statement: %s\n", statement);
return;
}
context_print_var_table(context);
}
void repl(void) {
context_t context = 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");
context_free(context);
}
|
