colm-0.12.0HEADcolm-0.12.0master

1 files changed, 47 insertions, 0 deletions

diff --git a/test/btscan1.lm b/test/btscan1.lm
new file mode 100644
index 0000000..558b890
--- /dev/null
+++ b/test/btscan1.lm
@@ -0,0 +1,47 @@
+##### LM #####
+#
+# R1
+#
+namespace r1
+
+	lex
+		literal `! `a `b
+		ignore /[ \n\t]+/
+	end
+
+	def line [ `! `a `b `b `a]
+
+end # r1
+
+#
+# R2
+#
+namespace r2
+
+	lex
+		literal `!
+		token id /[a-zA-Z_]+/
+		ignore /[ \n\t]+/
+	end
+
+	def line [ `! id ]
+
+end # r2
+
+def item 
+	[r1::line]
+|	[r2::line]
+
+def btscan 
+	[item*]
+
+parse P: btscan[ stdin ]
+
+match P ~!abb !abba !aab
+print_xml(P)
+print( '\n' )
+##### IN #####
+!abb !abba !aab
+
+##### EXP #####
+<btscan><_repeat_item><item><r2::line><r2::_literal_0009>!</r2::_literal_0009><r2::id>abb</r2::id></r2::line></item><item><r1::line><r1::_literal_0001>!</r1::_literal_0001><r1::_literal_0003>a</r1::_literal_0003><r1::_literal_0005>b</r1::_literal_0005><r1::_literal_0005>b</r1::_literal_0005><r1::_literal_0003>a</r1::_literal_0003></r1::line></item><item><r2::line><r2::_literal_0009>!</r2::_literal_0009><r2::id>aab</r2::id></r2::line></item></_repeat_item></btscan>