git.iko.soy/elk
on d6201ee help sign in
elk/runtime/Init.js
250 lines 7.8 kB history raw
2(function() {
3'use strict';
5Elm.fullscreen = function(module, ports) {
6 var style = document.createElement('style');
7 style.type = 'text/css';
8 style.innerHTML = "html,head,body { padding:0; margin:0; }" +
9 "body { font-family: calibri, helvetica, arial, sans-serif; }";
10 document.head.appendChild(style);
11 var container = document.createElement('div');
12 document.body.appendChild(container);
13 return init(ElmRuntime.Display.FULLSCREEN, container, module, ports || {});
14};
16Elm.embed = function(module, container, ports) {
17 var tag = container.tagName;
18 if (tag !== 'DIV') {
19 throw new Error('Elm.node must be given a DIV, not a ' + tag + '.');
20 } else if (container.hasChildNodes()) {
21 throw new Error('Elm.node must be given an empty DIV. No children allowed!');
22 }
23 return init(ElmRuntime.Display.COMPONENT, container, module, ports || {});
24};
26Elm.worker = function(module, ports) {
27 return init(ElmRuntime.Display.NONE, {}, module, ports || {});
28};
30function init(display, container, module, ports, moduleToReplace) {
31 // defining state needed for an instance of the Elm RTS
32 var inputs = [];
34 var updateInProgress = false;
35 function notify(id, v) {
36 if (updateInProgress) {
37 throw new Error(
38 'The notify function has been called synchronously!\n' +
39 'This can lead to frames being dropped.\n' +
40 'Definitely report this to <https://github.com/evancz/Elm/issues>\n');
41 }
42 updateInProgress = true;
43 var timestep = Date.now();
44 for (var i = inputs.length; i--; ) {
45 inputs[i].recv(timestep, id, v);
46 }
47 updateInProgress = false;
48 }
50 var listeners = [];
51 function addListener(relevantInputs, domNode, eventName, func) {
52 domNode.addEventListener(eventName, func);
53 var listener = {
54 relevantInputs: relevantInputs,
55 domNode: domNode,
56 eventName: eventName,
57 func: func
58 };
59 listeners.push(listener);
60 }
62 var portUses = {}
63 for (var key in ports) {
64 portUses[key] = 0;
65 }
66 // create the actual RTS. Any impure modules will attach themselves to this
67 // object. This permits many Elm programs to be embedded per document.
68 var elm = {
69 notify:notify,
70 node:container,
71 display:display,
72 id:ElmRuntime.guid(),
73 addListener:addListener,
74 inputs:inputs,
75 ports: { incoming:ports, outgoing:{}, uses:portUses }
76 };
78 function swap(newModule) {
79 removeListeners(listeners);
80 var div = document.createElement('div');
81 var newElm = init(display, div, newModule, ports, elm);
82 inputs = [];
83 // elm.swap = newElm.swap;
84 return newElm;
85 }
87 function dispose() {
88 removeListeners(listeners);
89 inputs = [];
90 }
92 var Module = {};
93 var reportAnyErrors = function() {};
94 try {
95 Module = module.make(elm);
96 checkPorts(elm);
97 } catch(e) {
98 var directions = "<br/>&nbsp; &nbsp; Open the developer console for more details."
99 Module.main = Elm.Text.make(elm).leftAligned('<code>' + e.message + directions + '</code>');
100 reportAnyErrors = function() { throw e; }
101 }
102 inputs = ElmRuntime.filterDeadInputs(inputs);
103 filterListeners(inputs, listeners);
104 addReceivers(elm.ports.outgoing);
105 if (display !== ElmRuntime.Display.NONE) {
106 var graphicsNode = initGraphics(elm, Module);
107 }
108 if (typeof moduleToReplace !== 'undefined') {
109 ElmRuntime.swap(moduleToReplace, elm);
111 // rerender scene if graphics are enabled.
112 if (typeof graphicsNode !== 'undefined') {
113 graphicsNode.recv(0, true, 0);
114 }
115 }
117 reportAnyErrors();
118 return {
119 swap:swap,
120 ports:elm.ports.outgoing,
121 dispose:dispose
122 };
123};
125function checkPorts(elm) {
126 var portUses = elm.ports.uses;
127 for (var key in portUses) {
128 var uses = portUses[key]
129 if (uses === 0) {
130 throw new Error(
131 "Initialization Error: provided port '" + key +
132 "' to a module that does not take it as in input.\n" +
133 "Remove '" + key + "' from the module initialization code.");
134 } else if (uses > 1) {
135 throw new Error(
136 "Initialization Error: port '" + key +
137 "' has been declared multiple times in the Elm code.\n" +
138 "Remove declarations until there is exactly one.");
139 }
140 }
143function filterListeners(inputs, listeners) {
144 loop:
145 for (var i = listeners.length; i--; ) {
146 var listener = listeners[i];
147 for (var j = inputs.length; j--; ) {
148 if (listener.relevantInputs.indexOf(inputs[j].id) >= 0) {
149 continue loop;
150 }
151 }
152 listener.domNode.removeEventListener(listener.eventName, listener.func);
153 }
156function removeListeners(listeners) {
157 for (var i = listeners.length; i--; ) {
158 var listener = listeners[i];
159 listener.domNode.removeEventListener(listener.eventName, listener.func);
160 }
163// add receivers for built-in ports if they are defined
164function addReceivers(ports) {
165 if ('log' in ports) {
166 ports.log.subscribe(function(v) { console.log(v) });
167 }
168 if ('stdout' in ports) {
169 var process = process || {};
170 var handler = process.stdout
171 ? function(v) { process.stdout.write(v); }
172 : function(v) { console.log(v); };
173 ports.stdout.subscribe(handler);
174 }
175 if ('stderr' in ports) {
176 var process = process || {};
177 var handler = process.stderr
178 ? function(v) { process.stderr.write(v); }
179 : function(v) { console.log('Error:' + v); };
180 ports.stderr.subscribe(handler);
181 }
182 if ('title' in ports) {
183 if (typeof ports.title === 'string') {
184 document.title = ports.title;
185 } else {
186 ports.title.subscribe(function(v) { document.title = v; });
187 }
188 }
189 if ('redirect' in ports) {
190 ports.redirect.subscribe(function(v) {
191 if (v.length > 0) window.location = v;
192 });
193 }
194 if ('favicon' in ports) {
195 if (typeof ports.favicon === 'string') {
196 changeFavicon(ports.favicon);
197 } else {
198 ports.favicon.subscribe(changeFavicon);
199 }
200 }
201 function changeFavicon(src) {
202 var link = document.createElement('link');
203 var oldLink = document.getElementById('elm-favicon');
204 link.id = 'elm-favicon';
205 link.rel = 'shortcut icon';
206 link.href = src;
207 if (oldLink) {
208 document.head.removeChild(oldLink);
209 }
210 document.head.appendChild(link);
211 }
214function initGraphics(elm, Module) {
215 if (!('main' in Module)) {
216 throw new Error("'main' is missing! What do I display?!");
217 }
219 var signalGraph = Module.main;
221 // make sure the signal graph is actually a signal & extract the visual model
222 var Signal = Elm.Signal.make(elm);
223 if (!('recv' in signalGraph)) {
224 signalGraph = Signal.constant(signalGraph);
225 }
226 var currentScene = signalGraph.value;
228 // Add the currentScene to the DOM
229 var Render = ElmRuntime.use(ElmRuntime.Render.Element);
230 elm.node.appendChild(Render.render(currentScene));
232 // set up updates so that the DOM is adjusted as necessary.
233 var savedScene = currentScene;
234 function domUpdate(newScene) {
235 ElmRuntime.draw(function(_) {
236 Render.update(elm.node.firstChild, savedScene, newScene);
237 if (elm.Native.Window) elm.Native.Window.values.resizeIfNeeded();
238 savedScene = newScene;
239 });
240 }
241 var renderer = A2(Signal.lift, domUpdate, signalGraph);
243 // must check for resize after 'renderer' is created so
244 // that changes show up.
245 if (elm.Native.Window) elm.Native.Window.values.resizeIfNeeded();
247 return renderer;
250}());