steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fjsc: add some sequences words

chris.double 2006-12-17 03:20:27 +00:00
parent f44d37fe2c
commit 7146efbf96
2 changed files with 99 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

126
apps/furnace-fjsc/resources/bootstrap.js
View File

@ -335,34 +335,6 @@ factor.add_word("alien", "alien-invoke", "primitive", function(next) {
factor.call_next(next); factor.call_next(next);
}); });
factor.add_word("sequences", "map", "primitive", function(next) {
var stack = factor.cont.data_stack;
var quot = stack.pop();
var seq = stack.pop();
var result = [ ];
for(var i=0;i<seq.length;++i) {
stack.push(seq[i]);
quot.execute();
result[i]=stack.pop();
}
stack.push(result);
factor.call_next(next);
});
factor.add_word("sequences", "reduce", "primitive", function(next) {
var stack = factor.cont.data_stack;
var quot = stack.pop();
var prev = stack.pop();
var seq = stack.pop();
for(var i=0;i<seq.length;++i) {
stack.push(prev);
stack.push(seq[i]);
quot.execute();
prev=stack.pop();
}
stack.push(prev);
factor.call_next(next);
});
factor.add_word("words", "vocabs", "primitive", function(next) { factor.add_word("words", "vocabs", "primitive", function(next) {
var stack = factor.cont.data_stack; var stack = factor.cont.data_stack;
@ -447,3 +419,101 @@ factor.add_word("kernel", "current-using", "primitive", function(next) {
stack.push(factor.using_vocabs); stack.push(factor.using_vocabs);
factor.call_next(next); factor.call_next(next);
}); });
/* Sequences vocabulary */
factor.add_word("sequences", "nth", "primitive", function(next) {
var stack = factor.cont.data_stack;
var seq = stack.pop();
var index = stack.pop();
stack.push(seq[index]);
factor.call_next(next);
});
factor.add_word("sequences", "first", "primitive", function(next) {
var stack = factor.cont.data_stack;
var seq = stack.pop();
stack.push(seq[0]);
factor.call_next(next);
});
factor.add_word("sequences", "second", "primitive", function(next) {
var stack = factor.cont.data_stack;
var seq = stack.pop();
stack.push(seq[1]);
factor.call_next(next);
});
factor.add_word("sequences", "third", "primitive", function(next) {
var stack = factor.cont.data_stack;
var seq = stack.pop();
stack.push(seq[2]);
factor.call_next(next);
});
factor.add_word("sequences", "fourth", "primitive", function(next) {
var stack = factor.cont.data_stack;
var seq = stack.pop();
stack.push(seq[0]);
factor.call_next(next);
});
factor.add_word("sequences", "first2", "primitive", function(next) {
var stack = factor.cont.data_stack;
var seq = stack.pop();
stack.push(seq[0],seq[1]);
factor.call_next(next);
});
factor.add_word("sequences", "first3", "primitive", function(next) {
var stack = factor.cont.data_stack;
var seq = stack.pop();
stack.push(seq[0],seq[1],seq[2]);
factor.call_next(next);
});
factor.add_word("sequences", "first4", "primitive", function(next) {
var stack = factor.cont.data_stack;
var seq = stack.pop();
stack.push(seq[0],seq[1],seq[2],seq[3]);
factor.call_next(next);
});
factor.add_word("sequences", "each", "primitive", function(next) {
var stack = factor.cont.data_stack;
var quot = stack.pop();
var seq = stack.pop();
for(var i=0;i<seq.length;++i) {
stack.push(seq[i]);
quot.execute();
}
factor.call_next(next);
});
factor.add_word("sequences", "map", "primitive", function(next) {
var stack = factor.cont.data_stack;
var quot = stack.pop();
var seq = stack.pop();
var result = [ ];
for(var i=0;i<seq.length;++i) {
stack.push(seq[i]);
quot.execute();
result[i]=stack.pop();
}
stack.push(result);
factor.call_next(next);
});
factor.add_word("sequences", "reduce", "primitive", function(next) {
var stack = factor.cont.data_stack;
var quot = stack.pop();
var prev = stack.pop();
var seq = stack.pop();
for(var i=0;i<seq.length;++i) {
stack.push(prev);
stack.push(seq[i]);
quot.execute();
prev=stack.pop();
}
stack.push(prev);
factor.call_next(next);
});

2
libs/fjsc/fjsc.factor
View File

@ -169,7 +169,7 @@ M: ast-define (compile)
drop do-expressions drop do-expressions
] if ] if
] [ ] [
drop "factor.next" , drop "factor.cont.next" ,
] if ; ] if ;
M: ast-quotation (literal) M: ast-quotation (literal)