git.iko.soy/elk
on cbecda2 help sign in
elk/core-js/foreign/JavaScript.js
64 lines 1.9 kB history raw
2var Foreign = function() {
3 var JavaScript = function() {
4 function castJSBoolToBool(b) { return b; }
5 function castBoolToJSBool(b) { return b; }
7 function castJSNumberToFloat(n) { return n; }
8 function castFloatToJSNumber(n) { return n; }
10 function castJSNumberToInt(n) { return ~~n; }
11 function castIntToJSNumber(n) { return n; }
13 var castJSElementToElement = Element.jsElement;
14 function castElementToJSElement(elem) { return elem; }
16 function castJSArrayToList(arr) {
17 var list = ["Nil"];
18 for (var i = arr.length; i--; ) {
19 list = [ "Cons", arr[i], list ];
20 }
21 return list;
22 }
23 function castListToJSArray(list) {
24 var a = [];
25 while (list[0] === "Cons") {
26 a.push(list[1]);
27 list = list[2];
28 }
29 return a;
30 }
32 var castJSStringToString = castJSArrayToList;
33 function castStringToJSString(str) {
34 if (typeof str === "string") return str;
35 return castListToJSArray(str).join('');
36 }
38 function fromTuple(t) { return t.slice(1); }
39 function toTuple(a) { return a.unshift("Tuple" + a.length); }
41 return {castJSBoolToBool:castJSBoolToBool,
42 castBoolToJSBool:castBoolToJSBool,
43 castJSNumberToFloat:castJSNumberToFloat,
44 castFloatToJSNumber:castFloatToJSNumber,
45 castJSNumberToInt:castJSNumberToInt,
46 castIntToJSNumber:castIntToJSNumber,
47 castJSElementToElement:castJSElementToElement,
48 castElementToJSElement:castElementToJSElement,
49 castJSArrayToList:castJSArrayToList,
50 castListToJSArray:castListToJSArray,
51 castJSStringToString:castJSStringToString,
52 castStringToJSString:castStringToJSString,
53 castTupleToJSTuple2:fromTuple,
54 castTupleToJSTuple3:fromTuple,
55 castTupleToJSTuple4:fromTuple,
56 castTupleToJSTuple5:fromTuple,
57 castJSTupleToTuple2:toTuple,
58 castJSTupleToTuple3:toTuple,
59 castJSTupleToTuple4:toTuple,
60 castJSTupleToTuple5:toTuple
61 };
62 }();
63 return {JavaScript:JavaScript};
64}();