[Guile-commits] 60/99: Implement struct built-ins.

[Christopher Allan Webber]

cwebber pushed a commit to branch compile-to-js-merge
in repository guile.

commit ebe9d00153e38f502c6484acc0c24444458b26a6
Author: Ian Price <ianprice90@googlemail.com>
AuthorDate: Wed Aug 2 22:44:27 2017 +0100

    Implement struct built-ins.
    
    * module/language/js-il/runtime.js
      (struct?): New primitive.
      (<applicable-struct-vtable>, record-type-vtable,
      set-struct-vtable-name!, make-struct): Implement built-ins.
---
 module/language/js-il/runtime.js | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/module/language/js-il/runtime.js b/module/language/js-il/runtime.js
index c6d70cb..51f1c6c 100644
--- a/module/language/js-il/runtime.js
+++ b/module/language/js-il/runtime.js
@@ -443,6 +443,10 @@ scheme.Struct = function (vtable, nfields) {
     return this;
 };
 
+scheme.primitives["struct?"] = function (obj) {
+    return coerce_bool(obj instanceof scheme.Struct);
+};
+
 scheme.primitives["allocate-struct/immediate"] = function (vtable, nfields) {
     return new scheme.Struct(vtable, nfields);
 };
@@ -908,3 +912,27 @@ def_guile0("struct-vtable?", function (self, cont, obj) {
     var bool = coerce_bool(obj instanceof scheme.Struct && obj.is_vtable);
     return cont(bool);
 });
+
+var applicable_vtable = scm_make_struct(scm_standard_vtable, [new 
scheme.Symbol(vtable_base_layout.s)]);
+applicable_vtable.children_applicable_vtables = true;
+
+def_guile_val("<applicable-struct-vtable>", applicable_vtable);
+
+def_guile_val("record-type-vtable", scm_standard_vtable); // FIXME:
+
+def_guile0("set-struct-vtable-name!", function (self, cont, val, args) {
+    // FIXME:
+    return cont(scheme.FALSE);
+});
+
+def_guile0("make-struct", function (self, cont, vtable, tailsize) {
+    if (tailsize === 0) {
+        // make-struct/no-tail
+        var args = Array.prototype.slice.call(arguments, 4);
+        return cont(scm_make_struct(vtable, args));
+    } else {
+        console.log("make-struct with tail", arguments);
+        not_implemented_yet();
+    }
+});
+