mirrors/rpncalc-v4
1
0
Fork 0
mirror of https://github.com/Baidicoot/rpncalc-v4 synced 2025-05-15 13:54:08 +00:00
Code Issues Releases Wiki Activity

updated to clean things

Browse Source
This commit is contained in:
Aidan K. Ewart 2020-06-01 12:17:44 +01:00
parent ea7836145b
commit e7b95672c0
1 changed files with 18 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
new/builtin.mjs
View File

@ -1,4 +1,4 @@
import {defnOp, makeOp, defn} from './shiny.mjs'; import {defnOp, makeOp, defn, execRPN} from './shiny.mjs';
import {parseExprs} from './parse.mjs'; import {parseExprs} from './parse.mjs';
import {tokenize} from './token.mjs'; import {tokenize} from './token.mjs';
@ -16,9 +16,21 @@ const addRPNDefn = (name, def) => {
scope = defn(name, ast.parsed, scope); scope = defn(name, ast.parsed, scope);
} }
const ASTs = { // should export makeStackElems or eq. to allow for this kind of thing ('ast'?) const ast = (def) => {
"true":parseExprs(tokenize("(a b -> a)")).parsed, let toks = tokenize(def);
"false":parseExprs(tokenize("(a b -> b)")).parsed, if (!toks) {
throw 'could not load builtin'
}
let ast = parseExprs(toks);
if (!ast.parsed) {
throw 'could not load builtin'
}
return execRPN({}, ast.parsed).stacks[0];
}
const ASTs = {
"true":ast("(a b -> b)"),
"false":ast("(a b -> b)"),
} }
const assertType = (type) => (elem) => { const assertType = (type) => (elem) => {
@ -91,13 +103,11 @@ const fst = (args) => [args[0].fst];
const snd = (args) => [args[0].snd]; const snd = (args) => [args[0].snd];
const eq = (args) => { const eq = (args) => {
args = defn("true", ASTs["true"], args);
args = defn("false", ASTs["false"], args);
if (args[0].type === args[1].type && args[0].val === args[1].val) { if (args[0].type === args[1].type && args[0].val === args[1].val) {
console.log(args[0], args[1]) console.log(args[0], args[1])
return args["true"]; return ASTs["true"];
} else { } else {
return args["false"]; return ASTs["false"];
} }
} }