git.iko.soy/elk
on dcbe2fc help sign in
elk/libraries/Native/Show.js
99 lines 3.9 kB history raw
1Elm.Native.Show = {};
2Elm.Native.Show.make = function(elm) {
3 elm.Native = elm.Native || {};
4 if (elm.Native.Show) return elm.Native.Show;
6 var NList = Elm.Native.List.make(elm);
7 var List = Elm.List.make(elm);
8 var Maybe = Elm.Maybe.make(elm);
9 var JS = Elm.JavaScript.make(elm);
10 var Dict = Elm.Dict.make(elm);
11 var Json = Elm.Json.make(elm);
12 var Tuple2 = Elm.Native.Utils.make(elm).Tuple2;
14 var toString = function(v) {
15 var type = typeof v;
16 if (type === "function") {
17 var name = v.func ? v.func.name : v.name;
18 return '<function' + (name === '' ? '' : ': ') + name + '>';
19 } else if (type === "boolean") {
20 return v ? "True" : "False";
21 } else if (type === "number") {
22 return v+"";
23 } else if (type === "string" && v.length < 2) {
24 return "'" + showChar(v) + "'";
25 } else if (type === "object" && '_' in v) {
26 var output = [];
27 for (var k in v._) {
28 for (var i = v._[k].length; i--; ) {
29 output.push(k + " = " + toString(v._[k][i]));
30 }
31 }
32 for (var k in v) {
33 if (k === '_') continue;
34 output.push(k + " = " + toString(v[k]));
35 }
36 if (output.length === 0) return "{}";
37 return "{ " + output.join(", ") + " }";
38 } else if (type === "object" && 'ctor' in v) {
39 if (v.ctor.substring(0,6) === "_Tuple") {
40 var output = [];
41 for (var k in v) {
42 if (k === 'ctor') continue;
43 output.push(toString(v[k]));
44 }
45 return "(" + output.join(",") + ")";
46 } else if (v.ctor === "::") {
47 var isStr = typeof v._0 === "string",
48 start = isStr ? '"' : "[",
49 end = isStr ? '"' : "]",
50 sep = isStr ? "" : ",",
51 f = !isStr ? toString : showChar;
52 var output = start + f(v._0);
53 v = v._1;
54 while (v.ctor === "::") {
55 output += sep + f(v._0);
56 v = v._1;
57 }
58 return output + end;
59 } else if (v.ctor === "[]") {
60 return "[]";
61 } else if (v.ctor === "RBNode" || v.ctor === "RBEmpty") {
62 var cons = F3(function(k,v,acc){return NList.Cons(Tuple2(k,v),acc)});
63 var list = A3(Dict.foldr, cons, NList.Nil, v);
64 var name = "Dict";
65 if (list.ctor === "::" && list._0._1.ctor === "_Tuple0") {
66 name = "Set";
67 list = A2(List.map, function(x){return x._0}, list);
68 }
69 return name + ".fromList " + toString(list);
70 } else {
71 var output = "";
72 for (var i in v) {
73 if (i === 'ctor') continue;
74 var str = toString(v[i]);
75 var parenless = str[0] === '{' || str[0] === '<' || str.indexOf(' ') < 0;
76 output += ' ' + (parenless ? str : '(' + str + ')');
77 }
78 return v.ctor + output;
79 }
80 }
81 if (type === 'object' && 'recv' in v) return '<signal>';
82 return "<internal structure>";
83 };
84 function show(v) { return NList.fromArray(toString(v)); }
86 function showChar (c) {
87 return c === '\n' ? '\\n' :
88 c === '\t' ? '\\t' :
89 c === '\b' ? '\\b' :
90 c === '\r' ? '\\r' :
91 c === '\v' ? '\\v' :
92 c === '\0' ? '\\0' :
93 c === '\'' ? "\\'" :
94 c === '\"' ? '\\"' :
95 c === '\\' ? '\\\\' : c;
96 }
98 return elm.Native.Show = { show:show };
99};