research/dope2-webapp
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add versioning module

Browse source
This commit is contained in:
Joeri Exelmans 2025-06-06 11:44:44 +02:00
parent 6809674406
commit bdd7dabc90
4 changed files with 31 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/component/app/environment.ts
View file

@ -1,4 +1,4 @@
import { getDefaultTypeParser, module2Env, ModuleStd } from "dope2";
import { getDefaultTypeParser, list, ModuleStd, trie } from "dope2";
// import type { Dynamic, Environment } from "./eval";
import type { StaticEnvironment } from "../../eval/infer_type";
@ -7,15 +7,18 @@ export const functionWith4Params = i => j => k => l => i+j+k+l;
const mkType = getDefaultTypeParser();
const mod = ModuleStd.concat([
["true", {i: true, t: mkType("Bool")}],
["false", {i: false, t: mkType("Bool")}],
["leqZero", {i: n => leq => otherwise => (n<=0)?leq({}):otherwise({}), t: mkType("Int -> (Unit -> a) -> (Unit -> a) -> a")}],
["functionWith3Params", { i: functionWith3Params, t: mkType("Int->Int->Int->Int") }],
["functionWith4Params", { i: functionWith4Params, t: mkType("Int->Int->Int->Int->Int")}]
]).map(([name, {i,t}]) => [name, { kind: "value", i, t, unification: new Map() }] as [string, any]);
export const extendedEnv: StaticEnvironment = {
names: module2Env(ModuleStd.concat([
["true", {i: true, t: mkType("Bool")}],
["false", {i: false, t: mkType("Bool")}],
["leqZero", {i: n => leq => otherwise => (n<=0)?leq({}):otherwise({}), t: mkType("Int -> (Unit -> a) -> (Unit -> a) -> a")}],
["functionWith3Params", { i: functionWith3Params, t: mkType("Int->Int->Int->Int") }],
["functionWith4Params", { i: functionWith4Params, t: mkType("Int->Int->Int->Int->Int")}]
]).map(([name, {i,t}]) => [name, { kind: "value", i, t, unification: new Map() }] as [string, any])
).name2dyn,
// nextFreeTypeVar: 0,
names: list.fold
(acc => ([name, dynamic]) => trie.insert(acc)(name)(dynamic))
(trie.emptyTrie)
(mod),
typevars: new Set(),
};

4
src/component/expr/LambdaBlock.tsx
View file

@ -49,7 +49,7 @@ export function LambdaBlock({state, setState, score, typeInfo, evalResult}: Lamb
&nbsp;::&nbsp;<Type type={typeInfo.paramType} />
</div>
&nbsp;
<span className="keyword">:</span>
<span className="keyword">.</span>
&nbsp;
<div className="lambdaInner">
<ExprBlock
@ -61,5 +61,5 @@ export function LambdaBlock({state, setState, score, typeInfo, evalResult}: Lamb
evalResult={evalResult.inner}
/>
</div>
</span>
</span>;
}