From 5d689e732d7201a601df060a5e8fb3a902d4ea4e Mon Sep 17 00:00:00 2001
From: James Cash <james.nvc@gmail.com>
Date: Sun, 27 Apr 2008 23:12:18 -0400
Subject: [PATCH] Adding requisite files to lisp.parser
---
extra/lisp/parser/authors.txt | 1 +
extra/lisp/parser/parser-tests.factor | 34 +++++++++++++++++++++++++++
extra/lisp/parser/summary.txt | 1 +
extra/lisp/parser/tags.txt | 2 ++
4 files changed, 38 insertions(+)
create mode 100644 extra/lisp/parser/authors.txt
create mode 100644 extra/lisp/parser/parser-tests.factor
create mode 100644 extra/lisp/parser/summary.txt
create mode 100644 extra/lisp/parser/tags.txt
diff --git a/extra/lisp/parser/authors.txt b/extra/lisp/parser/authors.txt
new file mode 100644
index 0000000000..4b7af4aac0
--- /dev/null
+++ b/extra/lisp/parser/authors.txt
@@ -0,0 +1 @@
+James Cash
diff --git a/extra/lisp/parser/parser-tests.factor b/extra/lisp/parser/parser-tests.factor
new file mode 100644
index 0000000000..025b45e60d
--- /dev/null
+++ b/extra/lisp/parser/parser-tests.factor
@@ -0,0 +1,34 @@
+! Copyright (C) 2008 James Cash
+! See http://factorcode.org/license.txt for BSD license.
+USING: lisp.parser tools.test ;
+
+IN: lisp.parser.tests
+
+{ 1234 } [
+ "1234" "atom" \ lisp-expr rule parse parse-result-ast
+] unit-test
+
+{ 123.98 } [
+ "123.98" "atom" \ lisp-expr rule parse parse-result-ast
+] unit-test
+
+{ "aoeu" } [
+ "\"aoeu\"" "atom" \ lisp-expr rule parse parse-result-ast
+] unit-test
+
+{ "aoeu\"de" } [
+ "\"aoeu\\\"de\"" "atom" \ lisp-expr rule parse parse-result-ast
+] unit-test
+
+{ T{ lisp-symbol f "foobar" } } [
+ "foobar" "atom" \ lisp-expr rule parse parse-result-ast
+] unit-test
+
+{ T{ lisp-symbol f "+" } } [
+ "+" "atom" \ lisp-expr rule parse parse-result-ast
+] unit-test
+
+{ T{ s-exp f
+ V{ T{ lisp-symbol f "foo" } 1 2 "aoeu" } } } [
+ "(foo 1 2 \"aoeu\")"
+] unit-test
\ No newline at end of file
diff --git a/extra/lisp/parser/summary.txt b/extra/lisp/parser/summary.txt
new file mode 100644
index 0000000000..aa407b3dfb
--- /dev/null
+++ b/extra/lisp/parser/summary.txt
@@ -0,0 +1 @@
+EBNF grammar for parsing Lisp
diff --git a/extra/lisp/parser/tags.txt b/extra/lisp/parser/tags.txt
new file mode 100644
index 0000000000..d1f6fa1ef3
--- /dev/null
+++ b/extra/lisp/parser/tags.txt
@@ -0,0 +1,2 @@
+lisp
+parsing