blob: fb21a5ee31713c7248659469ccaf3fdff07cb9ca (
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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
/*
$echo FILE: TS_la6.lex
eolr - RNUMBERSPurpose: test la expr with existant rule
$echo la express: eolr - RNUMBERS
$echo Okay
*/
fsm
(fsm-id "TS_la6.lex",fsm-filename TS_la6,fsm-namespace NS_TS_la6
,fsm-class CTS_la6
,fsm-version "1.0" ,fsm-date "17 Juin 2003",fsm-debug "true"
,fsm-comments "end-of-line recognizer")
parallel-parser
(
parallel-thread-function
TH_TS_la6
***
parallel-la-boundary
eolr - RNUMBERS
***
)
@"/usr/local/yacco2/compiler/grammars/yacco2_T_includes.T"
/@
@** Rules.\fbreak
@/
rules{
Reol AD AB(){
-> Rdelimiters
}
Rdelimiters AD AB()
{
-> "x0a"
-> "x0d" |.|
-> "x0d" "x0a"
}
Rminus_la AD AB() {
-> "_"
-> "-"
-> RUPPER_A_M
-> RUPPER_N_Z
-> Rlower_a_m
-> Rlower_n_z
-> RNUMBERS
}
RUPPER_A_M AD AB (){
-> A -> B -> C -> D -> E -> F -> G -> H -> I -> J -> K -> L -> M
}
RUPPER_N_Z AD AB (){
-> N -> O -> P -> Q
-> "R" // considered a Rule when not quoted!
-> S -> T -> U -> V -> W -> X -> Y -> Z
}
Rlower_a_m AD AB (){
-> a -> b -> c -> d -> e -> f -> g -> h -> i -> j -> k -> l -> m
}
Rlower_n_z AD AB (){
-> n -> o -> p -> q -> r -> s -> t -> u -> v -> w -> x -> y -> z
}
RNUMBERS AD AB (){
-> 0 -> 1 -> 2 -> 3 -> 4 -> 5 -> 6 -> 7 -> 8 -> 9
}
}// end of rules
|