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
|
#ifndef ORYX_PARSER_H
#define ORYX_PARSER_H
#include <assert.h>
#include <stdbool.h>
#include <stddef.h>
#include <stdint.h>
#include "lexer.h"
#include "types.h"
enum {
/* The first four AST tokens are declarations. A declaration is any token T
for which ‘T <= _AST_DECLS_END’ holds. Declarations can also be made
public by using the ‘pub’ keyword, and you can tell if a declaration is
public by if the LSB is set. */
/* Variable declaration, lhs and rhs may be unused
‘x: lhs = rhs’ */
ASTDECL,
/* Public variable declaration, lhs and rhs may be unused
‘pub x: lhs = rhs’ */
ASTPDECL,
/* Constant declaration, lhs may be unused
‘x: lhs : rhs’ */
ASTCDECL,
/* Public constant declaration, lhs may be unused
‘pub x: lhs : rhs’ */
ASTPCDECL,
_AST_DECLS_END = ASTPCDECL,
/* Function prototype
‘(a: b, c: d) rhs’; aux[lhs].fnproto */
ASTFNPROTO,
/* Function
‘(…)@lhs {…}@rhs’ */
ASTFN,
/* Braced block, an empty block has lhs = AST_EMPTY and rhs = 0
{ stmt@lhs; …; stmt@rhs; } */
ASTBLK,
/* Identifier literal */
ASTIDENT,
/* Numeric literal */
ASTNUMLIT,
/* Typename */
ASTTYPE,
/* Return statement, rhs may be unused
‘return rhs’ */
ASTRET,
/* Binary add
‘lhs + rhs’ */
ASTBINADD = '+',
/* Binary sub
‘lhs - rhs’ */
ASTBINSUB = '-',
_AST_LAST_ENT,
};
typedef uint8_t ast_kind_t_;
static_assert(_AST_LAST_ENT - 1 <= (ast_kind_t_)-1,
"Too many AST tokens to fix in AST_KIND_T_");
#define AST_EMPTY ((idx_t_)-1)
#define AST_SOA_BLKSZ (sizeof(ast_kind_t_) + sizeof(idx_t_) * 3)
struct ast {
ast_kind_t_ *kinds;
idx_t_ *lexemes;
struct pair {
idx_t_ lhs, rhs;
} *kids;
size_t len, cap;
};
#define ast_free(x) free((x).kinds)
/* Parse the tokens in TOKS into an abstract syntax tree */
struct ast parsetoks(struct lexemes toks);
/* Starting from the node at indent I in AST, return the index of the next node
in AST that is of the same nest-depth as I */
idx_t_ fwdnode(struct ast ast, idx_t_ i);
#endif /* !ORYX_PARSER_H */
|
