git.iko.soy/elk
on 108eed2 help sign in
elk/libraries/Native/JavaScript.js
68 lines 2.0 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' || type === 'string') 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 return elm.Native.JavaScript.values = {
64 toRecord : fromJS,
65 fromRecord : fromRecord
66 };
68};