/*	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