summaryrefslogtreecommitdiff
path: root/web/yacco2/qa/TS_lab.lex
diff options
context:
space:
mode:
Diffstat (limited to 'web/yacco2/qa/TS_lab.lex')
-rw-r--r--web/yacco2/qa/TS_lab.lex39
1 files changed, 39 insertions, 0 deletions
diff --git a/web/yacco2/qa/TS_lab.lex b/web/yacco2/qa/TS_lab.lex
new file mode 100644
index 0000000000..c198ab4d70
--- /dev/null
+++ b/web/yacco2/qa/TS_lab.lex
@@ -0,0 +1,39 @@
+/*
+$echo FILE: TS_lab.lex
+$echo Purpose: test la expr with missing term: a + b + '-' + '+' - '-' + '-'
+$echo Note: dbl quotes for + and - as operands where the
+$echo unquoted + and - are considered operators.
+$echo Okay
+*/
+fsm
+(fsm-id "TS_lab.lex",fsm-filename TS_lab,fsm-namespace NS_TS_lab
+,fsm-class CTS_lab
+,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_lab
+ ***
+ parallel-la-boundary
+ a + b + "-" + "+" - "-" + "-"
+ ***
+)
+@"/usr/local/yacco2/compiler/grammars/yacco2_T_includes.T"
+
+/@
+@** Rules.\fbreak
+@/
+rules{
+Reol AD AB(){
+ -> Rdelimiters
+}
+
+
+Rdelimiters AD AB()
+{
+ -> "x0a"
+ -> "x0d" |.|
+ -> "x0d" "x0a"
+}
+}// end of rules