blob: fb449bee7a6243d241acddbae867ee4e0512cd63 (
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
|
;
; Table generated from the file action.l by SILex 1.0
;
(define action-tables
(vector
'all
(lambda (yycontinue yygetc yyungetc)
(lambda (yytext yyline yycolumn yyoffset)
(make-tok eof-tok yytext yyline yycolumn)
))
(lambda (yycontinue yygetc yyungetc)
(lambda (yytext yyline yycolumn yyoffset)
(begin
(display "Error: Invalid token.")
(newline)
'error)
))
(vector
#t
(lambda (yycontinue yygetc yyungetc)
(lambda (yytext yyline yycolumn yyoffset)
(make-tok hblank-tok yytext yyline yycolumn)
))
#t
(lambda (yycontinue yygetc yyungetc)
(lambda (yytext yyline yycolumn yyoffset)
(make-tok vblank-tok yytext yyline yycolumn)
))
#t
(lambda (yycontinue yygetc yyungetc)
(lambda (yytext yyline yycolumn yyoffset)
(make-tok char-tok yytext yyline yycolumn)
)))
'tagged-chars-lists
0
0
'#((((#f #\ #\space) . 4)
((#f #\;) . 3)
((#f #\newline) . 2)
((#t #\ #\newline #\space #\;) . 1))
(((#t #\newline) . 1))
()
(((#t #\newline) . 3))
(((#f #\ #\space) . 4)
((#f #\;) . 3)
((#t #\ #\newline #\space #\;) . 1)))
'#((#f . #f) (2 . 2) (1 . 1) (0 . 0) (0 . 0))))
|
