1 files changed, 27 insertions, 0 deletions

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