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

Implement keyword argument parsing

Browse source
This commit is contained in:
Ian Price 2015-06-13 22:41:37 +01:00
parent 46905ec322
commit e84f839463
4 changed files with 69 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,6 +1,7 @@
var scheme = {
obarray : {},
primitives : {},
utils : {},
env : {},
cache: [],
builtins: [],
@ -117,6 +118,25 @@ scheme.Keyword = function(s) {
return this;
};
scheme.utils.keyword_ref = function(kw, args, start, dflt) {
var l = args.length;
if ((l - start) % 2 == 1) {
// FIXME: should error
return undefined;
}
// Need to loop in reverse because last matching keyword wins
for (var i = l - 2; i >= start; i -= 2) {
if (!(args[i] instanceof scheme.Keyword)) {
return undefined;
}
if (args[i].name === kw.name) {
return args[i + 1];
}
}
return dflt;
};
// Vectors
scheme.Vector = function () {
this.array = Array.prototype.slice.call(arguments);