some cleanup in the pointer

1 files changed, 34 insertions, 0 deletions

diff --git a/test/pointer1.lm b/test/pointer1.lm
new file mode 100644
index 00000000..38677bd2
--- /dev/null
+++ b/test/pointer1.lm
@@ -0,0 +1,34 @@
+struct undo
+
+	lex
+		ignore /( ' ' | '\t')+/
+		literal `* `( `) `^ `;
+		token NL /'\n'/
+		token id /[a-zA-Z_]+/
+	end
+
+	struct foo
+		Start: start
+	end
+
+	def item 
+		[id]
+	|	[`( item* `)]
+
+	def start 
+		Foo: foo
+		[item* `; NL]
+
+end
+
+Undo: undo = new undo
+
+parse Input: undo::start(Undo)[ stdin ]
+
+Input.Foo = new undo::foo
+Input.Foo->Start = Input
+print( Input.Foo->Start )
+###### IN ######
+a b c ( d e ) f;
+###### EXP ######
+a b c ( d e ) f;