git.iko.soy/elk
on 436f495 help sign in
elk/compiler/src/Generate/JavaScript/Functions.hs
96 lines 2.8 kB history raw
1{-# LANGUAGE OverloadedStrings #-}
2{-# LANGUAGE QuasiQuotes #-}
3module Generate.Functions
4 ( functions
5 )
6 where
9import qualified Data.ByteString.Builder as B
10import Text.RawString.QQ (r)
14-- FUNCTIONS
17functions :: B.Builder
18functions = [r|
20function F(arity, fun, wrapper) {
21 wrapper.a = arity;
22 wrapper.f = fun;
23 return wrapper;
26function F2(fun) {
27 return F(2, fun, function(a) { return function(b) { return fun(a,b); }; })
29function F3(fun) {
30 return F(3, fun, function(a) {
31 return function(b) { return function(c) { return fun(a, b, c); }; };
32 });
34function F4(fun) {
35 return F(4, fun, function(a) { return function(b) { return function(c) {
36 return function(d) { return fun(a, b, c, d); }; }; };
37 });
39function F5(fun) {
40 return F(5, fun, function(a) { return function(b) { return function(c) {
41 return function(d) { return function(e) { return fun(a, b, c, d, e); }; }; }; };
42 });
44function F6(fun) {
45 return F(6, fun, function(a) { return function(b) { return function(c) {
46 return function(d) { return function(e) { return function(f) {
47 return fun(a, b, c, d, e, f); }; }; }; }; };
48 });
50function F7(fun) {
51 return F(7, fun, function(a) { return function(b) { return function(c) {
52 return function(d) { return function(e) { return function(f) {
53 return function(g) { return fun(a, b, c, d, e, f, g); }; }; }; }; }; };
54 });
56function F8(fun) {
57 return F(8, fun, function(a) { return function(b) { return function(c) {
58 return function(d) { return function(e) { return function(f) {
59 return function(g) { return function(h) {
60 return fun(a, b, c, d, e, f, g, h); }; }; }; }; }; }; };
61 });
63function F9(fun) {
64 return F(9, fun, function(a) { return function(b) { return function(c) {
65 return function(d) { return function(e) { return function(f) {
66 return function(g) { return function(h) { return function(i) {
67 return fun(a, b, c, d, e, f, g, h, i); }; }; }; }; }; }; }; };
68 });
71function A2(fun, a, b) {
72 return fun.a === 2 ? fun.f(a, b) : fun(a)(b);
74function A3(fun, a, b, c) {
75 return fun.a === 3 ? fun.f(a, b, c) : fun(a)(b)(c);
77function A4(fun, a, b, c, d) {
78 return fun.a === 4 ? fun.f(a, b, c, d) : fun(a)(b)(c)(d);
80function A5(fun, a, b, c, d, e) {
81 return fun.a === 5 ? fun.f(a, b, c, d, e) : fun(a)(b)(c)(d)(e);
83function A6(fun, a, b, c, d, e, f) {
84 return fun.a === 6 ? fun.f(a, b, c, d, e, f) : fun(a)(b)(c)(d)(e)(f);
86function A7(fun, a, b, c, d, e, f, g) {
87 return fun.a === 7 ? fun.f(a, b, c, d, e, f, g) : fun(a)(b)(c)(d)(e)(f)(g);
89function A8(fun, a, b, c, d, e, f, g, h) {
90 return fun.a === 8 ? fun.f(a, b, c, d, e, f, g, h) : fun(a)(b)(c)(d)(e)(f)(g)(h);
92function A9(fun, a, b, c, d, e, f, g, h, i) {
93 return fun.a === 9 ? fun.f(a, b, c, d, e, f, g, h, i) : fun(a)(b)(c)(d)(e)(f)(g)(h)(i);
96|]