527 lines
		
	
	
		
			12 KiB
		
	
	
	
		
			JavaScript
		
	
	
	
	
	
			
		
		
	
	
			527 lines
		
	
	
		
			12 KiB
		
	
	
	
		
			JavaScript
		
	
	
	
	
	
| 
 | |
| 
 | |
| import * as Caml_array from "./caml_array.js";
 | |
| 
 | |
| function app(_f, _args) {
 | |
|   while(true) {
 | |
|     var args = _args;
 | |
|     var f = _f;
 | |
|     var init_arity = f.length;
 | |
|     var arity = init_arity === 0 ? 1 : init_arity;
 | |
|     var len = args.length;
 | |
|     var d = arity - len | 0;
 | |
|     if (d === 0) {
 | |
|       return f.apply(null, args);
 | |
|     }
 | |
|     if (d >= 0) {
 | |
|       return (function(f,args){
 | |
|       return function (x) {
 | |
|         return app(f, args.concat([x]));
 | |
|       }
 | |
|       }(f,args));
 | |
|     }
 | |
|     _args = Caml_array.sub(args, arity, -d | 0);
 | |
|     _f = f.apply(null, Caml_array.sub(args, 0, arity));
 | |
|     continue ;
 | |
|   };
 | |
| }
 | |
| 
 | |
| function _1(o, a0) {
 | |
|   var arity = o.length;
 | |
|   if (arity === 1) {
 | |
|     return o(a0);
 | |
|   } else {
 | |
|     switch (arity) {
 | |
|       case 1 :
 | |
|           return o(a0);
 | |
|       case 2 :
 | |
|           return function (param) {
 | |
|             return o(a0, param);
 | |
|           };
 | |
|       case 3 :
 | |
|           return function (param, param$1) {
 | |
|             return o(a0, param, param$1);
 | |
|           };
 | |
|       case 4 :
 | |
|           return function (param, param$1, param$2) {
 | |
|             return o(a0, param, param$1, param$2);
 | |
|           };
 | |
|       case 5 :
 | |
|           return function (param, param$1, param$2, param$3) {
 | |
|             return o(a0, param, param$1, param$2, param$3);
 | |
|           };
 | |
|       case 6 :
 | |
|           return function (param, param$1, param$2, param$3, param$4) {
 | |
|             return o(a0, param, param$1, param$2, param$3, param$4);
 | |
|           };
 | |
|       case 7 :
 | |
|           return function (param, param$1, param$2, param$3, param$4, param$5) {
 | |
|             return o(a0, param, param$1, param$2, param$3, param$4, param$5);
 | |
|           };
 | |
|       default:
 | |
|         return app(o, [a0]);
 | |
|     }
 | |
|   }
 | |
| }
 | |
| 
 | |
| function __1(o) {
 | |
|   var arity = o.length;
 | |
|   if (arity === 1) {
 | |
|     return o;
 | |
|   } else {
 | |
|     return function (a0) {
 | |
|       return _1(o, a0);
 | |
|     };
 | |
|   }
 | |
| }
 | |
| 
 | |
| function _2(o, a0, a1) {
 | |
|   var arity = o.length;
 | |
|   if (arity === 2) {
 | |
|     return o(a0, a1);
 | |
|   } else {
 | |
|     switch (arity) {
 | |
|       case 1 :
 | |
|           return app(o(a0), [a1]);
 | |
|       case 2 :
 | |
|           return o(a0, a1);
 | |
|       case 3 :
 | |
|           return function (param) {
 | |
|             return o(a0, a1, param);
 | |
|           };
 | |
|       case 4 :
 | |
|           return function (param, param$1) {
 | |
|             return o(a0, a1, param, param$1);
 | |
|           };
 | |
|       case 5 :
 | |
|           return function (param, param$1, param$2) {
 | |
|             return o(a0, a1, param, param$1, param$2);
 | |
|           };
 | |
|       case 6 :
 | |
|           return function (param, param$1, param$2, param$3) {
 | |
|             return o(a0, a1, param, param$1, param$2, param$3);
 | |
|           };
 | |
|       case 7 :
 | |
|           return function (param, param$1, param$2, param$3, param$4) {
 | |
|             return o(a0, a1, param, param$1, param$2, param$3, param$4);
 | |
|           };
 | |
|       default:
 | |
|         return app(o, [
 | |
|                     a0,
 | |
|                     a1
 | |
|                   ]);
 | |
|     }
 | |
|   }
 | |
| }
 | |
| 
 | |
| function __2(o) {
 | |
|   var arity = o.length;
 | |
|   if (arity === 2) {
 | |
|     return o;
 | |
|   } else {
 | |
|     return function (a0, a1) {
 | |
|       return _2(o, a0, a1);
 | |
|     };
 | |
|   }
 | |
| }
 | |
| 
 | |
| function _3(o, a0, a1, a2) {
 | |
|   var arity = o.length;
 | |
|   if (arity === 3) {
 | |
|     return o(a0, a1, a2);
 | |
|   } else {
 | |
|     switch (arity) {
 | |
|       case 1 :
 | |
|           return app(o(a0), [
 | |
|                       a1,
 | |
|                       a2
 | |
|                     ]);
 | |
|       case 2 :
 | |
|           return app(o(a0, a1), [a2]);
 | |
|       case 3 :
 | |
|           return o(a0, a1, a2);
 | |
|       case 4 :
 | |
|           return function (param) {
 | |
|             return o(a0, a1, a2, param);
 | |
|           };
 | |
|       case 5 :
 | |
|           return function (param, param$1) {
 | |
|             return o(a0, a1, a2, param, param$1);
 | |
|           };
 | |
|       case 6 :
 | |
|           return function (param, param$1, param$2) {
 | |
|             return o(a0, a1, a2, param, param$1, param$2);
 | |
|           };
 | |
|       case 7 :
 | |
|           return function (param, param$1, param$2, param$3) {
 | |
|             return o(a0, a1, a2, param, param$1, param$2, param$3);
 | |
|           };
 | |
|       default:
 | |
|         return app(o, [
 | |
|                     a0,
 | |
|                     a1,
 | |
|                     a2
 | |
|                   ]);
 | |
|     }
 | |
|   }
 | |
| }
 | |
| 
 | |
| function __3(o) {
 | |
|   var arity = o.length;
 | |
|   if (arity === 3) {
 | |
|     return o;
 | |
|   } else {
 | |
|     return function (a0, a1, a2) {
 | |
|       return _3(o, a0, a1, a2);
 | |
|     };
 | |
|   }
 | |
| }
 | |
| 
 | |
| function _4(o, a0, a1, a2, a3) {
 | |
|   var arity = o.length;
 | |
|   if (arity === 4) {
 | |
|     return o(a0, a1, a2, a3);
 | |
|   } else {
 | |
|     switch (arity) {
 | |
|       case 1 :
 | |
|           return app(o(a0), [
 | |
|                       a1,
 | |
|                       a2,
 | |
|                       a3
 | |
|                     ]);
 | |
|       case 2 :
 | |
|           return app(o(a0, a1), [
 | |
|                       a2,
 | |
|                       a3
 | |
|                     ]);
 | |
|       case 3 :
 | |
|           return app(o(a0, a1, a2), [a3]);
 | |
|       case 4 :
 | |
|           return o(a0, a1, a2, a3);
 | |
|       case 5 :
 | |
|           return function (param) {
 | |
|             return o(a0, a1, a2, a3, param);
 | |
|           };
 | |
|       case 6 :
 | |
|           return function (param, param$1) {
 | |
|             return o(a0, a1, a2, a3, param, param$1);
 | |
|           };
 | |
|       case 7 :
 | |
|           return function (param, param$1, param$2) {
 | |
|             return o(a0, a1, a2, a3, param, param$1, param$2);
 | |
|           };
 | |
|       default:
 | |
|         return app(o, [
 | |
|                     a0,
 | |
|                     a1,
 | |
|                     a2,
 | |
|                     a3
 | |
|                   ]);
 | |
|     }
 | |
|   }
 | |
| }
 | |
| 
 | |
| function __4(o) {
 | |
|   var arity = o.length;
 | |
|   if (arity === 4) {
 | |
|     return o;
 | |
|   } else {
 | |
|     return function (a0, a1, a2, a3) {
 | |
|       return _4(o, a0, a1, a2, a3);
 | |
|     };
 | |
|   }
 | |
| }
 | |
| 
 | |
| function _5(o, a0, a1, a2, a3, a4) {
 | |
|   var arity = o.length;
 | |
|   if (arity === 5) {
 | |
|     return o(a0, a1, a2, a3, a4);
 | |
|   } else {
 | |
|     switch (arity) {
 | |
|       case 1 :
 | |
|           return app(o(a0), [
 | |
|                       a1,
 | |
|                       a2,
 | |
|                       a3,
 | |
|                       a4
 | |
|                     ]);
 | |
|       case 2 :
 | |
|           return app(o(a0, a1), [
 | |
|                       a2,
 | |
|                       a3,
 | |
|                       a4
 | |
|                     ]);
 | |
|       case 3 :
 | |
|           return app(o(a0, a1, a2), [
 | |
|                       a3,
 | |
|                       a4
 | |
|                     ]);
 | |
|       case 4 :
 | |
|           return app(o(a0, a1, a2, a3), [a4]);
 | |
|       case 5 :
 | |
|           return o(a0, a1, a2, a3, a4);
 | |
|       case 6 :
 | |
|           return function (param) {
 | |
|             return o(a0, a1, a2, a3, a4, param);
 | |
|           };
 | |
|       case 7 :
 | |
|           return function (param, param$1) {
 | |
|             return o(a0, a1, a2, a3, a4, param, param$1);
 | |
|           };
 | |
|       default:
 | |
|         return app(o, [
 | |
|                     a0,
 | |
|                     a1,
 | |
|                     a2,
 | |
|                     a3,
 | |
|                     a4
 | |
|                   ]);
 | |
|     }
 | |
|   }
 | |
| }
 | |
| 
 | |
| function __5(o) {
 | |
|   var arity = o.length;
 | |
|   if (arity === 5) {
 | |
|     return o;
 | |
|   } else {
 | |
|     return function (a0, a1, a2, a3, a4) {
 | |
|       return _5(o, a0, a1, a2, a3, a4);
 | |
|     };
 | |
|   }
 | |
| }
 | |
| 
 | |
| function _6(o, a0, a1, a2, a3, a4, a5) {
 | |
|   var arity = o.length;
 | |
|   if (arity === 6) {
 | |
|     return o(a0, a1, a2, a3, a4, a5);
 | |
|   } else {
 | |
|     switch (arity) {
 | |
|       case 1 :
 | |
|           return app(o(a0), [
 | |
|                       a1,
 | |
|                       a2,
 | |
|                       a3,
 | |
|                       a4,
 | |
|                       a5
 | |
|                     ]);
 | |
|       case 2 :
 | |
|           return app(o(a0, a1), [
 | |
|                       a2,
 | |
|                       a3,
 | |
|                       a4,
 | |
|                       a5
 | |
|                     ]);
 | |
|       case 3 :
 | |
|           return app(o(a0, a1, a2), [
 | |
|                       a3,
 | |
|                       a4,
 | |
|                       a5
 | |
|                     ]);
 | |
|       case 4 :
 | |
|           return app(o(a0, a1, a2, a3), [
 | |
|                       a4,
 | |
|                       a5
 | |
|                     ]);
 | |
|       case 5 :
 | |
|           return app(o(a0, a1, a2, a3, a4), [a5]);
 | |
|       case 6 :
 | |
|           return o(a0, a1, a2, a3, a4, a5);
 | |
|       case 7 :
 | |
|           return function (param) {
 | |
|             return o(a0, a1, a2, a3, a4, a5, param);
 | |
|           };
 | |
|       default:
 | |
|         return app(o, [
 | |
|                     a0,
 | |
|                     a1,
 | |
|                     a2,
 | |
|                     a3,
 | |
|                     a4,
 | |
|                     a5
 | |
|                   ]);
 | |
|     }
 | |
|   }
 | |
| }
 | |
| 
 | |
| function __6(o) {
 | |
|   var arity = o.length;
 | |
|   if (arity === 6) {
 | |
|     return o;
 | |
|   } else {
 | |
|     return function (a0, a1, a2, a3, a4, a5) {
 | |
|       return _6(o, a0, a1, a2, a3, a4, a5);
 | |
|     };
 | |
|   }
 | |
| }
 | |
| 
 | |
| function _7(o, a0, a1, a2, a3, a4, a5, a6) {
 | |
|   var arity = o.length;
 | |
|   if (arity === 7) {
 | |
|     return o(a0, a1, a2, a3, a4, a5, a6);
 | |
|   } else {
 | |
|     switch (arity) {
 | |
|       case 1 :
 | |
|           return app(o(a0), [
 | |
|                       a1,
 | |
|                       a2,
 | |
|                       a3,
 | |
|                       a4,
 | |
|                       a5,
 | |
|                       a6
 | |
|                     ]);
 | |
|       case 2 :
 | |
|           return app(o(a0, a1), [
 | |
|                       a2,
 | |
|                       a3,
 | |
|                       a4,
 | |
|                       a5,
 | |
|                       a6
 | |
|                     ]);
 | |
|       case 3 :
 | |
|           return app(o(a0, a1, a2), [
 | |
|                       a3,
 | |
|                       a4,
 | |
|                       a5,
 | |
|                       a6
 | |
|                     ]);
 | |
|       case 4 :
 | |
|           return app(o(a0, a1, a2, a3), [
 | |
|                       a4,
 | |
|                       a5,
 | |
|                       a6
 | |
|                     ]);
 | |
|       case 5 :
 | |
|           return app(o(a0, a1, a2, a3, a4), [
 | |
|                       a5,
 | |
|                       a6
 | |
|                     ]);
 | |
|       case 6 :
 | |
|           return app(o(a0, a1, a2, a3, a4, a5), [a6]);
 | |
|       case 7 :
 | |
|           return o(a0, a1, a2, a3, a4, a5, a6);
 | |
|       default:
 | |
|         return app(o, [
 | |
|                     a0,
 | |
|                     a1,
 | |
|                     a2,
 | |
|                     a3,
 | |
|                     a4,
 | |
|                     a5,
 | |
|                     a6
 | |
|                   ]);
 | |
|     }
 | |
|   }
 | |
| }
 | |
| 
 | |
| function __7(o) {
 | |
|   var arity = o.length;
 | |
|   if (arity === 7) {
 | |
|     return o;
 | |
|   } else {
 | |
|     return function (a0, a1, a2, a3, a4, a5, a6) {
 | |
|       return _7(o, a0, a1, a2, a3, a4, a5, a6);
 | |
|     };
 | |
|   }
 | |
| }
 | |
| 
 | |
| function _8(o, a0, a1, a2, a3, a4, a5, a6, a7) {
 | |
|   var arity = o.length;
 | |
|   if (arity === 8) {
 | |
|     return o(a0, a1, a2, a3, a4, a5, a6, a7);
 | |
|   } else {
 | |
|     switch (arity) {
 | |
|       case 1 :
 | |
|           return app(o(a0), [
 | |
|                       a1,
 | |
|                       a2,
 | |
|                       a3,
 | |
|                       a4,
 | |
|                       a5,
 | |
|                       a6,
 | |
|                       a7
 | |
|                     ]);
 | |
|       case 2 :
 | |
|           return app(o(a0, a1), [
 | |
|                       a2,
 | |
|                       a3,
 | |
|                       a4,
 | |
|                       a5,
 | |
|                       a6,
 | |
|                       a7
 | |
|                     ]);
 | |
|       case 3 :
 | |
|           return app(o(a0, a1, a2), [
 | |
|                       a3,
 | |
|                       a4,
 | |
|                       a5,
 | |
|                       a6,
 | |
|                       a7
 | |
|                     ]);
 | |
|       case 4 :
 | |
|           return app(o(a0, a1, a2, a3), [
 | |
|                       a4,
 | |
|                       a5,
 | |
|                       a6,
 | |
|                       a7
 | |
|                     ]);
 | |
|       case 5 :
 | |
|           return app(o(a0, a1, a2, a3, a4), [
 | |
|                       a5,
 | |
|                       a6,
 | |
|                       a7
 | |
|                     ]);
 | |
|       case 6 :
 | |
|           return app(o(a0, a1, a2, a3, a4, a5), [
 | |
|                       a6,
 | |
|                       a7
 | |
|                     ]);
 | |
|       case 7 :
 | |
|           return app(o(a0, a1, a2, a3, a4, a5, a6), [a7]);
 | |
|       default:
 | |
|         return app(o, [
 | |
|                     a0,
 | |
|                     a1,
 | |
|                     a2,
 | |
|                     a3,
 | |
|                     a4,
 | |
|                     a5,
 | |
|                     a6,
 | |
|                     a7
 | |
|                   ]);
 | |
|     }
 | |
|   }
 | |
| }
 | |
| 
 | |
| function __8(o) {
 | |
|   var arity = o.length;
 | |
|   if (arity === 8) {
 | |
|     return o;
 | |
|   } else {
 | |
|     return function (a0, a1, a2, a3, a4, a5, a6, a7) {
 | |
|       return _8(o, a0, a1, a2, a3, a4, a5, a6, a7);
 | |
|     };
 | |
|   }
 | |
| }
 | |
| 
 | |
| export {
 | |
|   app ,
 | |
|   _1 ,
 | |
|   __1 ,
 | |
|   _2 ,
 | |
|   __2 ,
 | |
|   _3 ,
 | |
|   __3 ,
 | |
|   _4 ,
 | |
|   __4 ,
 | |
|   _5 ,
 | |
|   __5 ,
 | |
|   _6 ,
 | |
|   __6 ,
 | |
|   _7 ,
 | |
|   __7 ,
 | |
|   _8 ,
 | |
|   __8 ,
 | |
| }
 | |
| /* No side effect */
 |