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