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