mirrors/rpncalc-v4
1
0
Fork 0
mirror of https://github.com/Baidicoot/rpncalc-v4 synced 2024-12-04 15:29:54 +00:00
Code Issues Releases Wiki Activity

added builtin declaration eazy functions

Browse Source
This commit is contained in:
Aidan K. Ewart 2020-05-30 20:51:47 +01:00
parent 285910c551
commit 34d43452cb
2 changed files with 31 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
eval.mjs
View File

@ -68,9 +68,6 @@ const fst = (_, args) => [args[0].fst];
const snd = (_, args) => [args[0].snd];
const tru = (_, args) => [args[0]];
const fls = (_, args) => [args[1]];
const eq = (_, args) => {
if (args[0].type === args[1].type && args[0].val === args[1].val) {
return [{type:"ident", val:"true"}];
@ -79,13 +76,15 @@ const eq = (_, args) => {
}
}
const stop = (a, b) => {
return [{type:"string", val:"stop"}];
}
let builtinDefn = {
"+": makeEval(["int", "int"], add),
"-": makeEval(["int", "int"], sub),
"/": makeEval(["int", "int"], div),
"*": makeEval(["int", "int"], mult),
"true": makeEval(2, tru),
"false": makeEval(2, fls),
"==": makeEval(2, eq),
"typeof": makeEval(1, type),
"pair": makeEval(2, pair),
@ -97,6 +96,10 @@ export const addDefn = (name, sign, func) => {
builtinDefn[name] = makeEval(sign, func);
}
export const addRPNASTDefn = (name, ast) => {
builtinDefn[name] = makeLambda(ast);
}
const makeLambda = (lambda) => {
return {nargs:lambda.args.length, defn:(scope, args) => {
let newscope = Object.create(scope); // I am so sorry...
@ -151,7 +154,9 @@ const giveArg = (closure, arg, scope) => {
const apply = (elem, stack) => {
if (elem.type === "closure") {
if (stack.stack.length > 0) {
if (elem.func.nargs === 0) {
applyMany(elem.func.defn(stack.scope, []), stack);
} else if (stack.stack.length > 0) {
let out = giveArg(elem, stack.stack.pop(), stack.scope);
applyMany(out, stack);
} else {

21
main.js
View File

@ -1,4 +1,4 @@
import {execRPN} from './eval.mjs';
import {execRPN, addRPNASTDefn} from './eval.mjs';
import {parseExprs} from './parse.mjs';
import {tokenize} from './token.mjs';
@ -29,6 +29,25 @@ const prettyprint = (out) => {
return str;
}
const addRPNBuiltin = (name, def) => {
let toks = tokenize(def);
if (!toks) {
throw 'could not load builtin'
}
let ast = parseExprs(toks);
if (!ast.parsed) {
throw 'could not load builtin'
}
console.log(ast);
addRPNASTDefn(name, ast.parsed[0]);
}
addRPNBuiltin("true", "(a b -> a)");
addRPNBuiltin("false", "(a b -> b)");
addRPNBuiltin("stop", "(-> \"stop)");
addRPNBuiltin("id", "(a -> a)");
addRPNBuiltin("fold", "(fn acc x -> '(-> x acc fn 'fn fold) '(-> acc) 'x \"stop ==)");
submit.onclick = (event) => {
const input = inbox.value;
let toks = tokenize(input);