blob: 6d57ae23784aeba5d4f3138ce3bbf9614aa57cc4 (
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
|
/* FILE: 1test.lex
dates: 17 Apr 2001
Purpose: see why merge does not work
*/
fsm
(fsm-id "test.lex",fsm-filename test,fsm-namespace NS_test
,fsm-class Cpas_keyword
,fsm-version "1.0",fsm-date "17 Apr 2001",fsm-debug "true"
,fsm-comments "Merge proplempascal Keyword recognizer")
parallel-parser
(
parallel-thread-function
TH_test
***
parallel-la-boundary
eolr
***
)
@"/pascalxlator/pas_include_files.T"
rules{
Rtest AD AB(){
-> Rtest_indiv
}
Rtest_indiv AD AB(){
-> Ra Rc
-> Rr Ra Rm
-> RE Ra Rt
}
Ra AD AB(){-> "a" -> "A"} Rc AD AB(){-> "c" } Rr AD AB(){-> "r" }
RE AD AB(){-> "e" } Rt AD AB(){-> "t" } Rm AD AB(){-> "m" }
}// end of rules
|