1 files changed, 32 insertions, 0 deletions

diff --git a/examples/listId2.lua b/examples/listId2.lua
new file mode 100644
index 0000000..4943368
--- /dev/null
+++ b/examples/listId2.lua
@@ -0,0 +1,32 @@
+local m = require'lpeglabel'
+
+local errUndef = 0
+local errId = 1
+local errComma = 2
+
+local terror = {
+        [errUndef] = "Error",
+        [errId] = "Error: expecting an identifier",
+        [errComma] = "Error: expecting ','",
+}
+
+local g = m.P{
+  "S",
+  S = m.V"Id" * m.V"List",
+  List = -m.P(1) + ("," + m.T(errComma)) * m.V"Id" * m.V"List",
+  Id = m.R'az'^1 + m.T(errId),
+}
+
+function mymatch (g, s)
+        local r, e = g:match(s)
+        if not r then
+                return r, terror[e]
+        end
+        return r
+end
+        
+print(mymatch(g, "a,b"))
+print(mymatch(g, "a b"))
+print(mymatch(g, ", b"))
+
+