diff options
Diffstat (limited to 'src/cli/runtime/RestFn2.cs')
-rw-r--r-- | src/cli/runtime/RestFn2.cs | 59 |
1 files changed, 59 insertions, 0 deletions
diff --git a/src/cli/runtime/RestFn2.cs b/src/cli/runtime/RestFn2.cs new file mode 100644 index 00000000..c0cdfe55 --- /dev/null +++ b/src/cli/runtime/RestFn2.cs @@ -0,0 +1,59 @@ +/** + * Copyright (c) Rich Hickey. All rights reserved. + * The use and distribution terms for this software are covered by the + * Common Public License 1.0 (http://opensource.org/licenses/cpl.php) + * which can be found in the file CPL.TXT at the root of this distribution. + * By using this software in any fashion, you are agreeing to be bound by + * the terms of this license. + * You must not remove this notice, or any other, from this software. + **/ + +/* rich Mar 27, 2006 8:05:10 PM */ + +using System;
+
+namespace org.clojure.runtime
+{ + +public abstract class RestFn2 : AFn{ + +protected abstract Object doInvoke(ThreadLocalData tld, Object arg1, Object arg2, Cons rest) /*throws Exception*/; + +override public Object applyTo(ThreadLocalData tld, Cons arglist) /*throws Exception*/ + { + if(RT.boundedLength(arglist, 2) < 2) + throwArity(); + return doInvoke(tld, arglist.first + , (arglist = arglist.rest).first + , arglist.rest); + + } + +override public Object invoke(ThreadLocalData tld, Object arg1, Object arg2) /*throws Exception*/ + { + return doInvoke(tld, arg1, arg2, null); + } + +override public Object invoke(ThreadLocalData tld, Object arg1, Object arg2, Object arg3) /*throws Exception*/ + { + return doInvoke(tld, arg1, arg2, RT.list(arg3)); + } + +override public Object invoke(ThreadLocalData tld, Object arg1, Object arg2, Object arg3, Object arg4) /*throws Exception*/ + { + return doInvoke(tld, arg1, arg2, RT.list(arg3, arg4)); + } + +override public Object invoke(ThreadLocalData tld, Object arg1, Object arg2, Object arg3, Object arg4, Object arg5) + /*throws Exception*/ + { + return doInvoke(tld, arg1, arg2, RT.list(arg3, arg4, arg5)); + } + +override public Object invoke(ThreadLocalData tld, Object arg1, Object arg2, Object arg3, Object arg4, Object arg5, Cons args) + /*throws Exception*/ + { + return doInvoke(tld, arg1, arg2, RT.listStar(arg3, arg4, arg5, args)); + } +} +} |