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

fjsc: added alien-property

chris.double 2006-12-17 03:47:38 +00:00
parent 5499d3339f
commit 0edab09baf
2 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
apps/furnace-fjsc/resources/bootstrap.factor
View File

@ -2,4 +2,13 @@
#! Display the string in an alert box #! Display the string in an alert box
window { } "" "alert" { "string" } alien-invoke ; window { } "" "alert" { "string" } alien-invoke ;
"browser-dom" in
: get-element ( id -- element )
document { "element" } "" "getElementById" { "string" } alien-invoke ;
: property ( name element -- value )
alien-property ;
"scratchpad" in
"Bootstrap code loaded" alert "Bootstrap code loaded" alert

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

@ -384,6 +384,15 @@ factor.add_word("alien", "alien-invoke", "primitive", function(next) {
factor.call_next(next); factor.call_next(next);
}); });
factor.add_word("alien", "alien-property", "primitive", function(next) {
var stack = factor.cont.data_stack;
var obj = stack.pop();
var property_name = stack.pop();
var v = obj[property_name];
stack.push(v);
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;
var result = []; var result = [];