diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-01-13 15:23:48 -0500 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-01-13 15:23:48 -0500 |
commit | c962db0783caec9d00a3fe3b01733f1660305834 (patch) | |
tree | cec4ab72f97ce79bb10974b6ff714a43381d2e67 /jslib/urweb.js | |
parent | 3b43441c77feb57720e3adf0d8337fd60af9364e (diff) |
Combine lib* directories
Diffstat (limited to 'jslib/urweb.js')
-rw-r--r-- | jslib/urweb.js | 72 |
1 files changed, 0 insertions, 72 deletions
diff --git a/jslib/urweb.js b/jslib/urweb.js deleted file mode 100644 index 0ee19992..00000000 --- a/jslib/urweb.js +++ /dev/null @@ -1,72 +0,0 @@ -function cons(v, ls) { - return { n : ls, v : v }; -} -function callAll(ls) { - for (; ls; ls = ls.n) - ls.v(); -} - -function sc(v) { - return {v : v, h : null}; -} -function sv(s, v) { - s.v = v; - callAll(s.h); -} -function sg(s) { - return s.v; -} - -function ss(s) { - return s; -} -function sr(v) { - return {v : v, h : null}; -} -function sb(x,y) { - var z = y(x.v); - var s = {v : z.v, h : null}; - - function reZ() { - z.h = cons(function() { s.v = z.v; callAll(s.h); }, z.h); - } - - x.h = cons(function() { z = y(x.v); reZ(); s.v = z.v; callAll(s.h); }, x.h); - reZ(); - - return s; -} - -function myParent() { - var pos = document; - - while (pos.lastChild && pos.lastChild.nodeType == 1) - pos = pos.lastChild; - - return pos.parentNode; -} - -function dyn(s) { - var x = document.createElement("span"); - x.innerHTML = s.v; - myParent().appendChild(x); - s.h = cons(function() { x.innerHTML = s.v }, s.h); -} - -function inp(t, s) { - var x = document.createElement(t); - x.value = s.v; - myParent().appendChild(x); - s.h = cons(function() { x.value = s.v }, s.h); - x.onkeyup = function() { sv(s, x.value) }; -} - -function eh(x) { - return x.split("&").join("&").split("<").join("<").split(">").join(">"); -} - -function ts(x) { return x.toString() } -function bs(b) { return (b ? "True" : "False") } - -function pf() { alert("Pattern match failure") } - |