suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

working on get-struct-type

Browse Source
This commit is contained in:
Danny Yoo 2011-07-01 14:53:34 -04:00
parent 0890e81e3d
commit 93900d90c6
1 changed files with 63 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
js-assembler/runtime-src/runtime.js
View File

@ -1,4 +1,7 @@
if(this['plt'] === undefined) { this['plt'] = {}; }
// runtime.js: the main runtime library for whalesong.
//
if(this['plt'] === undefined) { this['plt'] = {}; }
// All of the values here are namespaced under "plt.runtime".
@ -569,6 +572,35 @@
// Helper to deal with the argument-passing of primitives. Call f
// with arguments bound from MACHINE.env, assuming
// MACHINE.argcount has been initialized with the number of
// arguments on the stack. vs provides optional values for the
// arguments that go beyond those of the mandatoryArgCount.
var withArguments = function(MACHINE,
mandatoryArgCount,
vs,
f) {
var args = [];
for (var i = 0; i < MACHINE.argcount.length; i++) {
if (i < mandatoryArgCount) {
args.push(MACHINE.env[MACHINE.env.length - 1 - i]);
} else {
if (i < MACHINE.argcount) {
args.push(MACHINE.env[MACHINE.env.length - 1 - i]);
} else {
args.push(vs[mandatoryArgCount - i]);
}
}
}
return f.apply(null, args);
};
// Primitives are the set of primitive values. Not all primitives
@ -2047,20 +2079,42 @@
installPrimitiveClosure(
'make-struct-type',
makeList(4, 5, 6, 7, 8, 9, 10, 11),
function(MACHINE) {
// FIXME: we need to return those five values back.
finalizeClosureCall(MACHINE,
"type",
"constructor",
"predicate",
"accessor",
"mutator");
withArguments(
MACHINE,
4,
[false,
NULL,
false,
false,
NULL,
false,
false],
function(name,
superType,
initFieldCount,
autoFieldCount,
autoV,
props, // FIXME: currently ignored
inspector, // FIXME: currently ignored
procSpec, // FIXME: currently ignored
immutables, // FIXME: currently ignored
guard,
constructorName) {
// FIXME: we need to return those five values back.
finalizeClosureCall(MACHINE,
"type",
"constructor",
"predicate",
"accessor",
"mutator");
});
});
installPrimitiveProcedure(