blob: f258d3e372c2f4df67d53dfeaaa74b17a673d822 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
(use-modules (c lex2)
(srfi srfi-1)
(srfi srfi-88)
(c to-token)
(c cpp-types))
(define (tok s)
(map preprocessing-token->token (remove whitespace-token? (lex s))))
(define* (parse tokens optional: (parser make-parser))
((parser)
(build-lexical-analyzer tokens)
error))
(define (mm)
(lalr-parser
(x)
(y (x))
))
|