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
|
#include "slice.h"
#include "drain.h"
#include "lexer.h"
#include "token.h"
#include "group.h"
#include "identify.h"
#include "check.h"
#include "scope.h"
#include <stdio.h>
#include <stdlib.h>
static void
destroy_duplicates(Token **list, unsigned int type)
{
for (Token *e = (*list)->next; e != NULL; e = e->next)
if (e->type == type && e->prev->type == type)
token_delete(list, e->prev);
}
int
main(int argc, char **argv)
{
if (argc != 2) {
fprintf(stderr, "usage: %s <source.golem>\n", argv[0]);
return 1;
}
FILE *file = fopen(argv[1], "rb");
if (file == NULL) {
perror("main:fopen");
return 1;
}
Slice slice = slice_from_str(drain(file));
fclose(file);
Token *tokens = lexer(slice);
if (tokens != NULL) {
destroy_duplicates(&tokens, TOK_END);
do {
if (group_scope(&tokens) ||
group_atom(&tokens) ||
group_funcall(&tokens) ||
group_deref(&tokens)) {
fprintf(stderr, "a group operation failed\n");
break;
}
identify(tokens, identify_function, GROUP_FUNCTION);
identify(tokens, identify_let, GROUP_LET);
identify(tokens, identify_return, GROUP_RETURN);
identify(tokens, identify_assign, GROUP_ASSIGN);
identify(tokens, identify_if, GROUP_IF);
identify(tokens, identify_else, GROUP_ELSE);
identify(tokens, identify_while, GROUP_WHILE);
identify(tokens, identify_expression, GROUP_EXPRESSION);
if (check_atom(tokens)) {
fprintf(stderr, "unidentified atoms remain\n");
break;
}
Token *group = group_create(&tokens, tokens,
token_last(tokens));
if (group == NULL) {
fprintf(stderr, "group_create failed\n");
break;
}
group->group.type = GROUP_SCOPE;
scope_extract(tokens);
scope_function(tokens);
token_print(tokens, 1, 0);
} while(0);
token_destroy(tokens);
}
if (slice.str != NULL)
free(slice.str);
return 0;
}
|