1 |
|
2 | "use strict";
|
3 |
|
4 | var trampa = require("trampa");
|
5 |
|
6 |
|
7 |
|
8 |
|
9 |
|
10 |
|
11 |
|
12 | function isPromise(p) {
|
13 |
|
14 | return new Object(p) === p && typeof p.then === "function";
|
15 |
|
16 | }
|
17 |
|
18 |
|
19 |
|
20 |
|
21 |
|
22 |
|
23 |
|
24 |
|
25 | function map(p, g) {
|
26 | if (isPromise(p)) {
|
27 | return p.then(function (x) {
|
28 | return map(x, g);
|
29 | });
|
30 | } else if (trampa.isTrampoline(p)) {
|
31 | return p.jump(function (x) {
|
32 | return map(x, g);
|
33 | });
|
34 | } else {
|
35 | return g(p);
|
36 | }
|
37 | }
|
38 |
|
39 |
|
40 |
|
41 |
|
42 |
|
43 |
|
44 | function bind(f, xs, h) {
|
45 | var r;
|
46 | var exc;
|
47 | try {
|
48 | r = f.apply(undefined, xs);
|
49 | } catch (e) {
|
50 | r = false;
|
51 | exc = e;
|
52 | }
|
53 |
|
54 | if (isPromise(r)) {
|
55 | return r.then(
|
56 | h,
|
57 | function (e) {
|
58 |
|
59 | return h(false, e);
|
60 | }
|
61 | );
|
62 | } else {
|
63 | return h(r, exc);
|
64 | }
|
65 | }
|
66 |
|
67 |
|
68 | function run(x) {
|
69 | if (isPromise(x)) {
|
70 | return x.then(run);
|
71 | } else if (trampa.isTrampoline(x)) {
|
72 | return run(x.run());
|
73 | } else {
|
74 | return x;
|
75 | }
|
76 | }
|
77 |
|
78 | function pure(x) {
|
79 | if (isPromise(x)) {
|
80 | return x;
|
81 | } else {
|
82 | return trampa.wrap(x);
|
83 | }
|
84 | }
|
85 |
|
86 | module.exports = {
|
87 | isPromise: isPromise,
|
88 | map: map,
|
89 | pure: pure,
|
90 | bind: bind,
|
91 | run: run,
|
92 | };
|