summaryrefslogtreecommitdiff
path: root/examples/big/MAP/Lisp.cf
diff options
context:
space:
mode:
Diffstat (limited to 'examples/big/MAP/Lisp.cf')
-rw-r--r--examples/big/MAP/Lisp.cf20
1 files changed, 20 insertions, 0 deletions
diff --git a/examples/big/MAP/Lisp.cf b/examples/big/MAP/Lisp.cf
new file mode 100644
index 000000000..e0fd0de88
--- /dev/null
+++ b/examples/big/MAP/Lisp.cf
@@ -0,0 +1,20 @@
+-- Lisp as used in the Alvey grammar
+
+entrypoints Prog, Exp ;
+
+Pro. Prog ::= [Exp] ;
+
+App. Exp ::= "(" [Exp] ")" ;
+At. Exp ::= Id ;
+IdPlus. Exp ::= IdPl ;
+IdStr. Exp ::= String ;
+Plus. Exp ::= "+" ;
+Minus. Exp ::= "-" ;
+Num. Exp ::= Integer ;
+
+token IdPl ('+' letter (letter | digit | '-' | '_')*) ;
+token Id (letter (letter | digit | '-' | '_')*) ;
+
+terminator Exp "" ;
+
+comment ";;" ;