mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-19 18:20:22 +02:00
Code Activity

Implement Hook Builtins

Browse source 
* module/language/js-il/runtime.js:
  (scheme.Hook): new constructor
  (make-hook, run-hook): Implement builtins.
This commit is contained in:
Ian Price 2017-08-16 21:37:26 +01:00
parent 84aa3697cc
commit 7ee8973df5
1 changed files with 28 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

29
module/language/js-il/runtime.js
View file

@ -1418,8 +1418,35 @@ def_guile0("read-hash-extend", function (self, cont, char, fun) {
return cont(scheme.FALSE);
});
scheme.Hook = function (arity) {
this.arity = arity;
this.procs = [];
};
def_guile0("make-hook", function (self, cont, nargs) {
return cont(scheme.FALSE);
var arity = (nargs === undefined) ? 0 : nargs;
return cont(new scheme.Hook(arity));
});
def_guile0("run-hook", function (self, cont, hook) {
var procs = hook.procs;
var args = Array.prototype.slice.call(arguments, 3);
// FIXME: validate hook
// FIXME: check num args = arity or error
var loop = function (i) {
if (i === procs.length) {
return cont(scheme.UNSPECIFIED);
} else {
var newk = function() {
return loop(i+1);
};
var proc = procs[i];
return proc.fun.apply(proc.fun, [proc, newk].concat(args));
}
};
return loop(0);
});
function scm_simple_format (self, cont) {