git.iko.soy/elk
on 63243ca help sign in
elk/libraries/Native/Show.js
116 lines 4.3 kB history raw
1Elm.Native.Show = {};
2Elm.Native.Show.make = function(elm) {
3 elm.Native = elm.Native || {};
4 elm.Native.Show = elm.Native.Show || {};
5 if (elm.Native.Show.values) return elm.Native.Show.values;
7 var NList = Elm.Native.List.make(elm);
8 var List = Elm.List.make(elm);
9 var Maybe = Elm.Maybe.make(elm);
10 var JS = Elm.JavaScript.make(elm);
11 var Dict = Elm.Dict.make(elm);
12 var Json = Elm.Json.make(elm);
13 var Tuple2 = Elm.Native.Utils.make(elm).Tuple2;
15 var toString = function(v) {
16 var type = typeof v;
17 if (type === "function") {
18 var name = v.func ? v.func.name : v.name;
19 return '<function' + (name === '' ? '' : ': ') + name + '>';
20 } else if (type === "boolean") {
21 return v ? "True" : "False";
22 } else if (type === "number") {
23 return v+"";
24 } else if ((v instanceof String) && v.isChar) {
25 return "'" + addSlashes(v) + "'";
26 } else if (type === "string") {
27 return '"' + addSlashes(v) + '"';
28 } else if (type === "object" && '_' in v && probablyPublic(v)) {
29 var output = [];
30 for (var k in v._) {
31 for (var i = v._[k].length; i--; ) {
32 output.push(k + " = " + toString(v._[k][i]));
33 }
34 }
35 for (var k in v) {
36 if (k === '_') continue;
37 output.push(k + " = " + toString(v[k]));
38 }
39 if (output.length === 0) return "{}";
40 return "{ " + output.join(", ") + " }";
41 } else if (type === "object" && 'ctor' in v) {
42 if (v.ctor.substring(0,6) === "_Tuple") {
43 var output = [];
44 for (var k in v) {
45 if (k === 'ctor') continue;
46 output.push(toString(v[k]));
47 }
48 return "(" + output.join(",") + ")";
49 } else if (v.ctor === "::") {
50 var output = '[' + toString(v._0);
51 v = v._1;
52 while (v.ctor === "::") {
53 output += "," + toString(v._0);
54 v = v._1;
55 }
56 return output + ']';
57 } else if (v.ctor === "[]") {
58 return "[]";
59 } else if (v.ctor === "RBNode" || v.ctor === "RBEmpty") {
60 var cons = F3(function(k,v,acc){return NList.Cons(Tuple2(k,v),acc)});
61 var list = A3(Dict.foldr, cons, NList.Nil, v);
62 var name = "Dict";
63 if (list.ctor === "::" && list._0._1.ctor === "_Tuple0") {
64 name = "Set";
65 list = A2(List.map, function(x){return x._0}, list);
66 }
67 return name + ".fromList " + toString(list);
68 } else {
69 var output = "";
70 for (var i in v) {
71 if (i === 'ctor') continue;
72 var str = toString(v[i]);
73 var parenless = str[0] === '{' || str[0] === '<' || str.indexOf(' ') < 0;
74 output += ' ' + (parenless ? str : '(' + str + ')');
75 }
76 return v.ctor + output;
77 }
78 }
79 if (type === 'object' && 'recv' in v) return '<signal>';
80 return "<internal structure>";
81 };
83 function addSlashes(str) {
84 return str.replace(/\\/g, '\\\\')
85 .replace(/\n/g, '\\n')
86 .replace(/\t/g, '\\t')
87 .replace(/\r/g, '\\r')
88 .replace(/\v/g, '\\v')
89 .replace(/\0/g, '\\0')
90 .replace(/\'/g, "\\'")
91 .replace(/\"/g, '\\"');
92 }
94 function probablyPublic(v) {
95 var keys = Object.keys(v);
96 var len = keys.length;
97 if (len === 3
98 && 'props' in v
99 && 'element' in v) return false;
100 if (len === 5
101 && 'horizontal' in v
102 && 'vertical' in v
103 && 'x' in v
104 && 'y' in v) return false;
105 if (len === 7
106 && 'theta' in v
107 && 'scale' in v
108 && 'x' in v
109 && 'y' in v
110 && 'alpha' in v
111 && 'form' in v) return false;
112 return true;
113 }
115 return elm.Native.Show.values = { show:toString };
116};