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

Implement cached-module-box

Browse source 
* module/language/js-il/runtime.js (scheme): Add module_cache field.
  (scheme.primitives) Add cached-module-box primitive.
  (def_guile0) Convenience for adding to (guile) module cache.
This commit is contained in:
Ian Price 2017-06-22 14:55:07 +01:00
parent 2204fb64f6
commit b3c0fcdb25
1 changed files with 58 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -4,6 +4,7 @@ var scheme = {
utils : {}, utils : {},
env : {}, env : {},
cache: [], cache: [],
module_cache: {},
builtins: [], builtins: [],
dynstack : [], dynstack : [],
// TODO: placeholders // TODO: placeholders
@ -314,7 +315,21 @@ scheme.primitives["cached-toplevel-box"] = function (scope, sym, is_bound) {
return scheme.cache[scope][sym.name]; return scheme.cache[scope][sym.name];
}; };
scheme.primitives["cached-module-box"] = not_implemented_yet; scheme.primitives["cached-module-box"] = function (module_name, sym, is_public, is_bound) {
var cache = scheme.module_cache;
while (scheme.EMPTY != module_name.cdr) {
cache = cache[module_name.car.name];
}
cache = cache[module_name.car.name];
var r = cache[sym.name];
if (typeof r === 'undefined') {
throw {r : "cached-module-box", s : sym, m : module_name};
} else {
return r;
}
};
scheme.primitives["current-module"] = function () { scheme.primitives["current-module"] = function () {
return scheme.env; return scheme.env;
@ -493,3 +508,45 @@ scheme.frame.Fluid = function(fluid, old_value) {
this.fluid = fluid; this.fluid = fluid;
this.old_value = old_value; this.old_value = old_value;
}; };
// Module Cache
scheme.module_cache["guile"] = scheme.env;
function def_guile0 (name, fn) {
var sym = new scheme.Symbol(name); // put in obarray
var clos = new scheme.Closure(fn, 0);
var box = new scheme.Box(clos);
scheme.module_cache["guile"][name] = box;
};
function scm_list (self, cont) {
var l = scheme.EMPTY;
for (var i = arguments.length - 1; i >= 2; i--){
l = scheme.primitives.cons(arguments[i],l);
};
return cont(l);
};
def_guile0("list", scm_list);
function scm_add(self, cont) {
var total = 0;
for (var i = arguments.length - 1; i >= 2; i--){
total += arguments[i];
};
return cont(total);
};
def_guile0("+", scm_add);
function scm_mul(self, cont) {
var total = 1;
for (var i = arguments.length - 1; i >= 2; i--){
total *= arguments[i];
};
return cont(total);
};
def_guile0("*", scm_mul);