git.iko.soy/elk
on 502cfc0 help sign in
elk/runtime/Init.js
194 lines 6.1 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};
30Elm.input = function(defaultValue, errorHandler) {
33function init(display, container, module, moduleToReplace, ports) {
34 // defining state needed for an instance of the Elm RTS
35 var inputs = [];
37 var updateInProgress = false;
38 function notify(id, v) {
39 if (updateInProgress) {
40 throw new Error(
41 'The notify function has been called synchronously!\n' +
42 'This can lead to frames being dropped.\n' +
43 'Definitely report this to <https://github.com/evancz/Elm/issues>\n');
44 }
45 updateInProgress = true;
46 var timestep = Date.now();
47 for (var i = inputs.length; i--; ) {
48 inputs[i].recv(timestep, id, v);
49 }
50 updateInProgress = false;
51 }
53 var listeners = [];
54 function addListener(relevantInputs, domNode, eventName, func) {
55 domNode.addEventListener(eventName, func);
56 var listener = {
57 relevantInputs: relevantInputs,
58 domNode: domNode,
59 eventName: eventName,
60 func: func
61 };
62 listeners.push(listener);
63 }
65 // create the actual RTS. Any impure modules will attach themselves to this
66 // object. This permits many Elm programs to be embedded per document.
67 var elm = {
68 notify:notify,
69 node:container,
70 display:display,
71 id:ElmRuntime.guid(),
72 addListener:addListener,
73 inputs:inputs,
74 ports_in:ports,
75 ports_out:{}
76 };
78 function swap(newModule) {
79 removeListeners(listeners);
80 var div = document.createElement('div');
81 var newElm = init(display, div, newModule, elm);
82 inputs = [];
83 // elm.swap = newElm.swap;
84 return newElm;
85 }
87 var Module = {};
88 var reportAnyErrors = function() {};
89 try {
90 Module = module.make(elm);
91 } catch(e) {
92 var directions = "<br/>&nbsp; &nbsp; Open the developer console for more details."
93 Module.main = Elm.Text.make(elm).text('<code>' + e.message + directions + '</code>');
94 reportAnyErrors = function() { throw e; }
95 }
96 inputs = ElmRuntime.filterDeadInputs(inputs);
97 filterListeners(inputs, listeners);
98 addReceivers(elm.ports_out);
99 if (display !== ElmRuntime.Display.NONE) {
100 var graphicsNode = initGraphics(elm, Module);
101 }
102 if (typeof moduleToReplace !== 'undefined') {
103 ElmRuntime.swap(moduleToReplace, elm);
105 // rerender scene if graphics are enabled.
106 if (typeof graphicsNode !== 'undefined') {
107 graphicsNode.recv(0, true, 0);
108 }
109 }
111 reportAnyErrors();
112 return { swap:swap, ports:elm.ports_out };
113};
115function filterListeners(inputs, listeners) {
116 loop:
117 for (var i = listeners.length; i--; ) {
118 var listener = listeners[i];
119 for (var j = inputs.length; j--; ) {
120 if (listener.relevantInputs.indexOf(inputs[j].id) >= 0) {
121 continue loop;
122 }
123 }
124 listener.domNode.removeEventListener(listener.eventName, listener.func);
125 }
128function removeListeners(listeners) {
129 for (var i = listeners.length; i--; ) {
130 var listener = listeners[i];
131 listener.domNode.removeEventListener(listener.eventName, listener.func);
132 }
135// add receivers for built-in ports if they are defined
136function addReceivers(ports) {
137 if ('log' in ports) {
138 ports.log.subscribe(function(v) { console.log(v) });
139 }
140 if ('stdout' in ports) {
141 var handler = process ? function(v) { process.stdout.write(v); }
142 : function(v) { console.log(v); };
143 ports.stdout.subscribe(handler);
144 }
145 if ('stderr' in ports) {
146 var handler = process ? function(v) { process.stderr.write(v); }
147 : function(v) { console.log('Error:' + v); };
148 ports.stderr.subscribe(handler);
149 }
150 if ('title' in ports) {
151 ports.title.subscribe(function(v) { document.title = v; });
152 }
153 if ('redirect' in ports) {
154 ports.redirect.subscribe(function(v) {
155 if (v.length > 0) window.location = v;
156 });
157 }
160function initGraphics(elm, Module) {
161 if (!('main' in Module))
162 throw new Error("'main' is missing! What do I display?!");
164 var signalGraph = Module.main;
166 // make sure the signal graph is actually a signal & extract the visual model
167 var Signal = Elm.Signal.make(elm);
168 if (!('recv' in signalGraph)) {
169 signalGraph = Signal.constant(signalGraph);
170 }
171 var currentScene = signalGraph.value;
173 // Add the currentScene to the DOM
174 var Render = ElmRuntime.use(ElmRuntime.Render.Element);
175 elm.node.appendChild(Render.render(currentScene));
177 // set up updates so that the DOM is adjusted as necessary.
178 function domUpdate(newScene, currentScene) {
179 ElmRuntime.draw(function(_) {
180 Render.update(elm.node.firstChild, currentScene, newScene);
181 if (elm.Native.Window) elm.Native.Window.values.resizeIfNeeded();
182 });
183 return newScene;
184 }
185 var renderer = A3(Signal.foldp, F2(domUpdate), currentScene, signalGraph);
187 // must check for resize after 'renderer' is created so
188 // that changes show up.
189 if (elm.Native.Window) elm.Native.Window.values.resizeIfNeeded();
191 return renderer;
194}());