blob: 22d3f09f2a6f3fac35fbcb9239bfcb75e12af3ad (
plain)
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
|
Sh9Parser: module
{
PATH: con "/dis/lib/sh9parser.dis";
DESCR: con "Mostly generic parser for sh9";
mk_tok: fn(start: int, line: int, tok: string, typ: string) : ref TokNode;
set_last_tok: fn(last_tok: ref TokNode, toks: list of ref TokNode): (ref TokNode, list of ref TokNode);
print_toks: fn(toks: array of ref TokNode);
print_toks_short: fn(toks: array of ref TokNode);
check_grammar_node_match: fn(toks: array of ref TokNode, gn: ref GrammarNode): int;
replace_toks: fn(src: array of ref TokNode, replace_start: int, replace_len: int, replace_with: array of ref TokNode): array of ref TokNode;
parse_toks: fn(toks: array of ref TokNode, g: array of ref GrammarNode): array of ref TokNode;
init: fn();
TokNode: adt {
start: int;
line: int;
tok: string;
typ: string;
};
ModProc: adt {
name: string;
start: int;
};
ModVar: adt {
name: string;
val: string;
};
ShModule: adt {
name: string;
vars: list of ref ModVar;
procs: list of ref ModProc;
};
ParserCtx: adt {
modules: list of ref ShModule;
add_module: fn(ctx: self ref ParserCtx, name: string);
};
GrammarNode: adt {
expr: array of string;
transform: string;
callback: ref fn(ctx: ref ParserCtx, toks: array of ref TokNode): array of ref TokNode;
ctx: ref ParserCtx;
print_expr: fn(gn: self ref GrammarNode);
};
};
|
