60 lines
1.4 KiB
JavaScript
60 lines
1.4 KiB
JavaScript
import { assign, makeGeneric, unify } from "../generics/generics.js";
|
|
import { Bool, Int } from "../primitives/types.js";
|
|
import { constructorLeft, constructorRight, match } from "../structures/sum.js";
|
|
import { fnType, sumType } from "../structures/types.js";
|
|
import { pretty } from "../util.js";
|
|
|
|
const IntOrBool = sumType(Int)(Bool);
|
|
|
|
|
|
// console.log(int5);
|
|
|
|
console.log(pretty(unify(
|
|
makeGeneric(() => IntOrBool),
|
|
makeGeneric(a => sumType(Int)(a)),
|
|
)));
|
|
|
|
const cipFunction = (x) => {
|
|
return match(x)({
|
|
left: x_as_int => (x_as_int === 5),
|
|
right: x_as_bool => false,
|
|
});
|
|
}
|
|
|
|
const cipFunctionType = fnType
|
|
(IntOrBool) // in
|
|
(Bool);
|
|
|
|
// console.log(cipFunctionType);
|
|
// console.log(IntOrBool);
|
|
|
|
console.log(assign(
|
|
makeGeneric(() => cipFunctionType),
|
|
makeGeneric(() => IntOrBool),
|
|
));
|
|
|
|
console.log("calling constructorLeft with Int:");
|
|
const typeAtCallSite = assign(
|
|
makeGeneric((a, b) =>
|
|
fnType
|
|
(a)
|
|
(sumType(a)(b))
|
|
),
|
|
makeGeneric(() => Int));
|
|
console.log(pretty(typeAtCallSite));
|
|
|
|
|
|
console.log("calling cipFunction:");
|
|
console.log(pretty(assign(
|
|
makeGeneric(() => cipFunctionType),
|
|
typeAtCallSite,
|
|
)));
|
|
|
|
console.log("valid function calls:");
|
|
console.log(cipFunction(constructorLeft(5)));
|
|
console.log(cipFunction(constructorLeft(7)));
|
|
console.log(cipFunction(constructorRight(true)));
|
|
|
|
console.log("invalid function calls:");
|
|
console.log(cipFunction(5));
|
|
console.log(cipFunction(constructorLeft("abc")));
|