@@ -1,106 +1,106 @@
11
22Elm.Native.Show = function(elm) {
3− 'use strict';
3+ 'use strict';
44
5− elm.Native = elm.Native || {};
6− if (elm.Native.Show) return elm.Native.Show;
5+ elm.Native = elm.Native || {};
6+ if (elm.Native.Show) return elm.Native.Show;
77
8− var NList = Elm.Native.List(elm);
9− var List = Elm.List(elm);
10− var Maybe = Elm.Maybe(elm);
11− var JS = Elm.JavaScript(elm);
12− var Dict = Elm.Dict(elm);
13− var Json = Elm.Json(elm);
8+ var NList = Elm.Native.List(elm);
9+ var List = Elm.List(elm);
10+ var Maybe = Elm.Maybe(elm);
11+ var JS = Elm.JavaScript(elm);
12+ var Dict = Elm.Dict(elm);
13+ var Json = Elm.Json(elm);
1414
15− elm.node.addEventListener('log', function(e) { console.log(e.value); });
16− elm.node.addEventListener('title', function(e) {document.title = e.value;});
17− elm.node.addEventListener('redirect', function(e) {
18− if (e.value.length > 0) { window.location = e.value; }
19− });
20− elm.node.addEventListener('viewport', function(e) {
21− var node = document.getElementById('elm_viewport');
22− if (!node) {
23− node = document.createElement('meta');
24− node.id = 'elm_viewport';
25− node.name = 'viewport';
26− document.head.appendChild(node);
27− }
28− node.content = e.value;
29− Dispatcher.notify(elm.Window.dimensions.id,
30− Tuple2(elm.node.clientWidth, elm.node.clientHeight));
31− });
15+ elm.node.addEventListener('log', function(e) { console.log(e.value); });
16+ elm.node.addEventListener('title', function(e) {document.title = e.value;});
17+ elm.node.addEventListener('redirect', function(e) {
18+ if (e.value.length > 0) { window.location = e.value; }
19+ });
20+ elm.node.addEventListener('viewport', function(e) {
21+ var node = document.getElementById('elm_viewport');
22+ if (!node) {
23+ node = document.createElement('meta');
24+ node.id = 'elm_viewport';
25+ node.name = 'viewport';
26+ document.head.appendChild(node);
27+ }
28+ node.content = e.value;
29+ Dispatcher.notify(elm.Window.dimensions.id,
30+ Tuple2(elm.node.clientWidth, elm.node.clientHeight));
31+ });
3232
33− var toString = function(v) {
34− if (typeof v === "function") {
35− return "<function>";
36− } else if (typeof v === "boolean") {
37− return v ? "True" : "False";
38− } else if (typeof v === "number") {
39− return v+"";
40− } else if (typeof v === "string" && v.length < 2) {
41− return "'"+v+"'";
42− } else if (typeof v === "object" && ('_' in v)) {
43− var output = [];
44− for (var k in v._) {
45− console.log(k,v._[k]);
46− for (var i = v._[k].length; i--; ) {
47− output.push(k + " = " + toString(v._[k][i]));
48− }
49− }
50− for (var k in v) {
51− if (k === '_') continue;
52− output.push(k + " = " + toString(v[k]));
53− }
54− if (output.length === 0) return "{}";
55− return "{ " + output.join(", ") + " }";
56− } else if ('ctor' in v) {
57− if (v.ctor.substring(0,5) === "Tuple") {
58− var output = [];
59− for (var k in v) {
60− if (k === 'ctor') continue;
61− output.push(toString(v[k]));
62− }
63− return "(" + output.join(",") + ")";
64− } else if (v.ctor === "Cons") {
65− var isStr = typeof v._0 === "string",
66− start = isStr ? '"' : "[",
67− end = isStr ? '"' : "]",
68− sep = isStr ? "" : ",",
69− f = !isStr ? toString : function(x){
70− return x === '\n' ? '\\n' : x;
71− };
72− var output = start + f(v._0);
73− v = v._1;
74− while (v.ctor === "Cons") {
75− output += sep + f(v._0);
76− v = v._1;
77− }
78− return output + end;
79− } else if (v.ctor === "Nil") {
80− return "[]";
81− } else if (v.ctor === "RBNode" || v.ctor === "RBEmpty") {
82− var cons = F3(function(k,v,acc){return NList.Cons(Tuple2(k,v),acc)});
83− var list = A3(Dict.foldr, cons, NList.Nil, v);
84− var name = "Dict";
85− if (list.ctor === "Cons" && list._0._1.ctor === "Tuple0") {
86− name = "Set";
87− list = A2(List.map, function(x){return x._0}, list);
88− }
89− return name + ".fromList " + toString(list);
90− } else {
91− var output = "";
92− for (var i in v) {
93− if (i === 'ctor') continue;
94− var str = toString(v[i]);
95− var parenless = str[0] === '{' || str.indexOf(' ') < 0;
96− output += ' ' + (parenless ? str : '(' + str + ')');
97− }
98− return v.ctor + output;
99− }
100− }
101− return v+"";
102− };
103− function show(v) { return NList.fromArray(toString(v)); }
33+ var toString = function(v) {
34+ if (typeof v === "function") {
35+ return "<function>";
36+ } else if (typeof v === "boolean") {
37+ return v ? "True" : "False";
38+ } else if (typeof v === "number") {
39+ return v+"";
40+ } else if (typeof v === "string" && v.length < 2) {
41+ return "'"+v+"'";
42+ } else if (typeof v === "object" && ('_' in v)) {
43+ var output = [];
44+ for (var k in v._) {
45+ console.log(k,v._[k]);
46+ for (var i = v._[k].length; i--; ) {
47+ output.push(k + " = " + toString(v._[k][i]));
48+ }
49+ }
50+ for (var k in v) {
51+ if (k === '_') continue;
52+ output.push(k + " = " + toString(v[k]));
53+ }
54+ if (output.length === 0) return "{}";
55+ return "{ " + output.join(", ") + " }";
56+ } else if ('ctor' in v) {
57+ if (v.ctor.substring(0,5) === "Tuple") {
58+ var output = [];
59+ for (var k in v) {
60+ if (k === 'ctor') continue;
61+ output.push(toString(v[k]));
62+ }
63+ return "(" + output.join(",") + ")";
64+ } else if (v.ctor === "Cons") {
65+ var isStr = typeof v._0 === "string",
66+ start = isStr ? '"' : "[",
67+ end = isStr ? '"' : "]",
68+ sep = isStr ? "" : ",",
69+ f = !isStr ? toString : function(x){
70+ return x === '\n' ? '\\n' : x;
71+ };
72+ var output = start + f(v._0);
73+ v = v._1;
74+ while (v.ctor === "Cons") {
75+ output += sep + f(v._0);
76+ v = v._1;
77+ }
78+ return output + end;
79+ } else if (v.ctor === "Nil") {
80+ return "[]";
81+ } else if (v.ctor === "RBNode" || v.ctor === "RBEmpty") {
82+ var cons = F3(function(k,v,acc){return NList.Cons(Tuple2(k,v),acc)});
83+ var list = A3(Dict.foldr, cons, NList.Nil, v);
84+ var name = "Dict";
85+ if (list.ctor === "Cons" && list._0._1.ctor === "Tuple0") {
86+ name = "Set";
87+ list = A2(List.map, function(x){return x._0}, list);
88+ }
89+ return name + ".fromList " + toString(list);
90+ } else {
91+ var output = "";
92+ for (var i in v) {
93+ if (i === 'ctor') continue;
94+ var str = toString(v[i]);
95+ var parenless = str[0] === '{' || str.indexOf(' ') < 0;
96+ output += ' ' + (parenless ? str : '(' + str + ')');
97+ }
98+ return v.ctor + output;
99+ }
100+ }
101+ return v+"";
102+ };
103+ function show(v) { return NList.fromArray(toString(v)); }
104104
105− return elm.Native.Show = { show:show };
105+ return elm.Native.Show = { show:show };
106106};