wes
/
JLambda
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

rename file to be more inline with what it actually does

pull/20/head
nisstyre56 10 years ago
parent
d38fba9b26
commit
cd3d5f40db
1 changed files with 18 additions and 18 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 36
      free_vars.js

36
closure_conversion.js → free_vars.js
View File

@ -68,7 +68,7 @@ function fvs(stx) {
} }
} }
function closure_convert(stx) { function annotate_fvs(stx) {
/* Takes a stx object that is either /* Takes a stx object that is either
* a lambda * a lambda
* a let * a let
@ -106,40 +106,40 @@ function closure_convert(stx) {
return new rep.Closure(bound_vars, free_variables, stx, []); return new rep.Closure(bound_vars, free_variables, stx, []);
} }
function closure_convert_all(stx) { function annotate_fvs_all(stx) {
var closure; var closure;
switch (stx.exprType) { switch (stx.exprType) {
case "Let": case "Let":
closure = closure_convert(stx); closure = annotate_fvs(stx);
closure.body.pairs = closure.body.pairs.map(closure_convert_all); closure.body.pairs = closure.body.pairs.map(annotate_fvs_all);
closure.body = closure_convert_all(closure.body.body); closure.body = annotate_fvs_all(closure.body.body);
return closure; return closure;
case "Function": case "Function":
closure = closure_convert(stx); closure = annotate_fvs(stx);
closure.body.body = closure_convert_all(closure.body.body); closure.body.body = annotate_fvs_all(closure.body.body);
return closure; return closure;
case "Unary": case "Unary":
stx.val = closure_convert_all(stx.val); stx.val = annotate_fvs_all(stx.val);
return stx; return stx;
case "Application": case "Application":
stx.func = closure_convert_all(stx.func); stx.func = annotate_fvs_all(stx.func);
stx.p = closure_convert_all(stx.p); stx.p = annotate_fvs_all(stx.p);
return stx; return stx;
case "If": case "If":
if (stx.elseexp) { if (stx.elseexp) {
stx.condition = closure_convert_all(stx.condition); stx.condition = annotate_fvs_all(stx.condition);
stx.thenexp = closure_convert_all(stx.thenexp); stx.thenexp = annotate_fvs_all(stx.thenexp);
stx.elseexp = closure_convert_all(stx.elseexp); stx.elseexp = annotate_fvs_all(stx.elseexp);
return stx; return stx;
} }
else { else {
stx.condition = closure_convert_all(stx.condition); stx.condition = annotate_fvs_all(stx.condition);
stx.thenexp = closure_convert_all(stx.thenexp); stx.thenexp = annotate_fvs_all(stx.thenexp);
return stx; return stx;
} }
break; break;
case "Definition": case "Definition":
stx.val = closure_convert_all(stx.val); stx.val = annotate_fvs_all(stx.val);
return stx; return stx;
default: default:
return stx; return stx;
@ -149,11 +149,11 @@ function closure_convert_all(stx) {
function test(src) { function test(src) {
var ast = parser.parse(src)[0]; var ast = parser.parse(src)[0];
console.log(JSON.stringify(closure_convert_all(ast), null, 4)); console.log(JSON.stringify(annotate_fvs_all(ast), null, 4));
} }
//console.log(test("if something then if a then if b then c else d else rtrrt else some_other_thing")); //console.log(test("if something then if a then if b then c else d else rtrrt else some_other_thing"));
module.export = { module.export = {
test : test, test : test,
closureConvert : closure_convert_all annotate_fvs: annotate_fvs_all
}; };
Write Preview
Loading…
Cancel
Save