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 misc built-ins

Browse source 
* module/language/js-il/runtime.js
  (scm->u64): New primitive
  (integer?, char=?, make-fluid, read-hash-extend, make-hook,
  simple-format, scm-error): Implement built-ins.
  (syntax-session-id, macroexpand, %exception-handler,
  print-exception, *features*, %load-hook, current-reader): Stubbed
  variables.
This commit is contained in:
Ian Price 2017-08-03 00:16:02 +01:00
parent 3c62ab8185
commit 46fa3b2fb8
1 changed files with 53 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -108,6 +108,10 @@ scheme.primitives["u64->=-scm"] = function(x, y) {
return coerce_bool(x >= y);
};
scheme.primitives["scm->u64"] = function(x) {
return x;
};
// Boxes
scheme.Box = function (x) {
this.x = x;
@ -636,6 +640,7 @@ function scm_list (self, cont) {
};
def_guile0("list", scm_list);
// Numbers
function scm_add(self, cont) {
var total = 0;
@ -658,6 +663,11 @@ function scm_mul(self, cont) {
};
def_guile0("*", scm_mul);
def_guile0("integer?", function(self, cont, obj) {
// return coerce_bool(Number.isInteger(obj)); // ES6
return cont(coerce_bool(typeof(obj) === 'number'));
});
// Lists
def_guile0("make-list", function (self, cont, n, obj) {
var list = scheme.EMPTY;
@ -797,6 +807,10 @@ function scm_gensym (self, cont, prefix) {
};
def_guile0("gensym", scm_gensym);
// Chars
def_guile0("char=?", function (self, cont, char1, char2) {
return cont(char1.c === char2.c);
});
// Strings
def_guile0("string=?", function (self, cont, s1, s2) {
@ -830,6 +844,11 @@ def_guile0("string-join", function (self, cont, strings) {
return cont(new scheme.String(s));
});
// Fluids
def_guile0("make-fluid", function (self, cont, val) {
return cont(new scheme.Fluid(val));
});
// Structs
var vtable_base_layout = new scheme.String("pruhsruhpwphuhuh");
def_guile_val("standard-vtable-fields", vtable_base_layout);
@ -1097,3 +1116,37 @@ def_guile0("set-current-module", function (self, cont, module) {
return cont(scheme.FALSE);
});
// Stubs
function stub(name) {
function scm_fn (self, cont) {
console.log(name, arguments);
not_implemented_yet();
};
def_guile0(name, scm_fn);
};
stub("syntax-session-id");
stub("macroexpand");
stub("%exception-handler");
stub("print-exception");
stub("*features*");
stub("%load-hook");
stub("current-reader");
def_guile0("read-hash-extend", function (self, cont, char, fun) {
return cont(scheme.FALSE);
});
def_guile0("make-hook", function (self, cont, nargs) {
return cont(scheme.FALSE);
});
function scm_simple_format (self, cont) {
not_implemented_yet();
};
def_guile0("simple-format", scm_simple_format);
def_guile0("scm-error", function (self, cont, key, subr, message, args, data) {
not_implemented_yet();
});