Tidy.

git-svn-id: http://svn.drobilla.net/resp/tuplr@85 ad02d1e2-f140-0410-9f75-f8b11f17cedd

1 files changed, 28 insertions, 0 deletions

diff --git a/tuplr.cpp b/tuplr.cpp
index 2cf2e63..bfd6192 100644
--- a/tuplr.cpp
+++ b/tuplr.cpp
@@ -103,6 +103,34 @@ readExpression(Cursor& cur, istream& in)
 
 
 /***************************************************************************
+ * Parser Functions                                                        *
+ ***************************************************************************/
+
+template<typename C>
+inline AST*
+parseCall(PEnv& penv, const SExp& exp, void* arg)
+{
+	return new C(exp, penv.parseTuple(exp));
+}
+
+template<typename T>
+inline AST*
+parseLiteral(PEnv& penv, const SExp& exp, void* arg)
+{
+	return new ALiteral<T>(*reinterpret_cast<T*>(arg), exp.loc);
+}
+
+inline AST*
+parseFn(PEnv& penv, const SExp& exp, void* arg)
+{
+	SExp::List::const_iterator a = exp.list.begin(); ++a;
+	return new AClosure(exp.loc, penv.sym("fn"),
+			new ATuple(penv.parseTuple(*a++)),
+			penv.parse(*a++));
+}
+
+
+/***************************************************************************
  * Standard Definitions                                                    *
  ***************************************************************************/