git.iko.soy/elk
on a654bfa help sign in
elk/libraries/Native/JavaScript.js
100 lines 2.8 kB history raw
1Elm.Native.JavaScript = {};
2Elm.Native.JavaScript.make = function(elm) {
3 elm.Native = elm.Native || {};
4 elm.Native.JavaScript = elm.Native.JavaScript || {};
5 if (elm.Native.JavaScript.values) return elm.Native.JavaScript.values;
7 var List = Elm.Native.List.make(elm);
8 var Render = ElmRuntime.use(ElmRuntime.Render.Element);
10 function fromJS(v) {
11 var type = typeof v;
12 if (type === 'number' ) return v;
13 if (type === 'boolean') return v;
14 if (type === 'string' ) return v;
15 if (v instanceof Array) {
16 var arr = [];
17 var len = v.length;
18 for (var i = 0; i < len; ++i) {
19 var x = fromJS(v[i]);
20 if (x !== null) arr.push(x);
21 }
22 return List.fromArray(arr);
23 }
24 if (type === 'object') {
25 var rec = { _:{} };
26 for (var f in v) {
27 var x = fromJS(v[f]);
28 if (x !== null) rec[f] = x;
29 }
30 return rec;
31 }
32 return null;
33 }
35 function toJS(v) {
36 var type = typeof v;
37 if (type === 'number' || type === 'boolean') return v;
38 if (type === 'object' && '_' in v) {
39 var obj = {};
40 for (var k in v) {
41 var x = toJS(v[k]);
42 if (x !== null) obj[k] = x;
43 }
44 return obj;
45 }
46 if (type === 'object' && (v.ctor === '::' || v.ctor === '[]')) {
47 var array = List.toArray(v);
48 for (var i = array.length; i--; ) {
49 array[i] = toJS(array[i]);
50 }
51 return array;
52 }
53 return null;
54 }
56 function fromRecord(r) {
57 if (typeof r === 'object' && '_' in r) {
58 return toJS(r);
59 }
60 throw new Error("'fromRecord' must be called on a record.");
61 }
63 function id(n) { return n; }
65 function toElement(w,h,domNode) {
66 return A3( newElement, w, h, {
67 ctor: 'Custom',
68 type: 'DomNode',
69 render: function(node) { return node; },
70 update: function(node,oldNode,newNode) {
71 if (node === newNode) return;
72 node.parentNode.replaceChild(newNode, node);
73 },
74 model: domNode
75 });
76 }
78 function fromElement(element) {
79 return Render.render(element);
80 }
82 return elm.Native.JavaScript.values = {
83 toInt : function(n) { return n|0; },
84 toFloat : function(n) { return +n; },
85 toBool : id,
86 toString : id,
87 toList : List.fromArray,
88 fromString : id,
89 fromList : List.toArray,
90 fromInt : id,
91 fromFloat : id,
92 fromBool : id,
94 toElement : toElement,
95 fromElement : fromElement,
96 toRecord : fromJS,
97 fromRecord : fromRecord
98 };
100};