git.iko.soy/elk
on 93d2efe help sign in
elk/libraries/Native/Signal/Time.js
67 lines 1.9 kB history raw
1Elm.Native.Time = {};
2Elm.Native.Time.make = function(elm) {
4 elm.Native = elm.Native || {};
5 elm.Native.Time = elm.Native.Time || {};
6 if (elm.Native.Time.values) return elm.Native.Time.values;
8 var Signal = Elm.Signal.make(elm);
9 var NS = Elm.Native.Signal.make(elm);
10 var Maybe = Elm.Maybe.make(elm);
11 var Utils = Elm.Native.Utils.make(elm);
13 function fpsWhen(desiredFPS, isOn) {
14 var msPerFrame = 1000 / desiredFPS;
15 var prev = elm.timer.now(), curr = prev, diff = 0, wasOn = true;
16 var ticker = NS.input(diff);
17 function tick(zero) { return function() {
18 curr = elm.timer.now();
19 diff = zero ? 0 : curr - prev;
20 prev = curr;
21 elm.notify(ticker.id, diff);
22 };
23 }
24 var timeoutID = 0;
25 function f(isOn, t) {
26 if (isOn) {
27 timeoutID = elm.runDelayed(tick(!wasOn && isOn), msPerFrame);
28 } else if (wasOn) {
29 clearTimeout(timeoutID);
30 }
31 wasOn = isOn;
32 return t;
33 }
34 return A3( Signal.lift2, F2(f), isOn, ticker );
35 }
37 function every(t) {
38 var clock = NS.input(elm.timer.now());
39 function tellTime() {
40 elm.notify(clock.id, elm.timer.now());
41 elm.runDelayed(tellTime, t);
42 }
43 elm.runDelayed(tellTime, t);
44 return clock;
45 }
47 function since(t, s) {
48 function cmp(a,b) { return !Utils.eq(a,b); }
49 var dcount = Signal.count(A2(NS.delay, t, s));
50 return A3( Signal.lift2, F2(cmp), Signal.count(s), dcount );
51 }
52 function read(s) {
53 var t = Date.parse(s);
54 return isNaN(t) ? Maybe.Nothing : Maybe.Just(t);
55 }
56 return elm.Native.Time.values = {
57 fpsWhen : F2(fpsWhen),
58 fps : function(t) { return fpsWhen(t, Signal.constant(true)); },
59 every : every,
60 delay : NS.delay,
61 timestamp : NS.timestamp,
62 since : F2(since),
63 toDate : function(t) { return new window.Date(t); },
64 read : read
65 };
67};