33 lines
1.3 KiB
JavaScript
33 lines
1.3 KiB
JavaScript
import { getInst, getType } from "../primitives/dynamic.js";
|
|
import { SymbolBool, SymbolChar, SymbolDouble, SymbolInt, SymbolType, SymbolUnit } from "../primitives/primitive_types.js";
|
|
import { symbolDict, symbolList, symbolProduct, symbolSet, symbolSum } from "../structures/type_constructors.js";
|
|
import { compareBools, compareNumbers, compareStrings, compareUnits } from "./primitives.js";
|
|
import { compareDicts, compareLists, compareProducts, compareSets, compareSums } from "./structures.js";
|
|
import { compareTypes } from "./type.js";
|
|
|
|
const typeSymbolToCmp = new Map([
|
|
[SymbolInt , compareNumbers],
|
|
[SymbolChar , compareStrings],
|
|
[SymbolDouble , compareNumbers],
|
|
[SymbolBool , compareBools],
|
|
[SymbolUnit , compareUnits],
|
|
[SymbolType , compareTypes],
|
|
|
|
// these functions take extra comparison callbacks:
|
|
[symbolList , compareLists],
|
|
[symbolProduct , compareProducts],
|
|
[symbolSum , compareSums],
|
|
[symbolSet , compareSets],
|
|
[symbolDict , compareDicts],
|
|
]);
|
|
|
|
export const makeCompareFn = type => {
|
|
return type.params.reduce(
|
|
(acc, cur) => acc(makeCompareFn(cur(type))),
|
|
typeSymbolToCmp.get(type.symbol)
|
|
);
|
|
};
|
|
|
|
export const compareDynamic = x => y =>
|
|
compareTypes(getType(x))(getType(y))
|
|
|| makeCompareFn(getType(x))(getInst(x))(getInst(y));
|