From be5a70d3aa1c30d7c86d77649b747de2838566ce Mon Sep 17 00:00:00 2001
From: sienkiew <sienkiew@d34015c8-bcbb-4646-8ac8-8ba5febf221d>
Date: Thu, 21 Jul 2011 15:17:58 +0000
Subject: initial import of yapps from debian sources

git-svn-id: http://svn.stsci.edu/svn/ssb/etal/exyapps/trunk@356 d34015c8-bcbb-4646-8ac8-8ba5febf221d
---
 examples/lisp.g | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 examples/lisp.g

(limited to 'examples/lisp.g')

diff --git a/examples/lisp.g b/examples/lisp.g
new file mode 100644
index 0000000..551e6f9
--- /dev/null
+++ b/examples/lisp.g
@@ -0,0 +1,13 @@
+parser Lisp:
+    ignore:      r'\s+'
+    token NUM:   r'[0-9]+'
+    token ID:    r'[-+*/!@$%^&=.a-zA-Z0-9_]+'
+    token STR:   r'"([^\\"]+|\\.)*"'
+
+    rule expr:   ID              {{ return ('id',ID) }}
+               | STR             {{ return ('str',eval(STR)) }}
+               | NUM             {{ return ('num',int(NUM)) }}
+               | r"\("           
+                        {{ e = [] }}             # initialize the list
+                 ( expr {{ e.append(expr) }} ) * # put each expr into the list
+                 r"\)"  {{ return e }}           # return the list
-- 
cgit