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

rename function

Browse source
This commit is contained in:
Joeri Exelmans 2025-03-19 15:43:45 +01:00
parent 97b4e83379
commit e892ade34d
8 changed files with 26 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

4
structures/list.js
View file

@ -1,4 +1,4 @@
import { fnType, getListType } from "../type_registry.js";
import { fnType, lsType } from "../type_registry.js";
import {Type, Function} from "../metacircular.js";
import { makeListModule } from "./list_common.js";
import { Module } from "./module.js";
@ -7,7 +7,7 @@ const Type_to_Type = fnType({in: Type, out: Type});
const Type_to_Module = fnType({in: Type, out: Module});
export const ModuleList = [
{i: getListType , t: Type_to_Type},
{i: lsType , t: Type_to_Type},
{i: Type_to_Type , t: Function},
{i: makeListModule, t: Type_to_Module},

4
structures/list_common.js
View file

@ -1,4 +1,4 @@
import { fnType, getListType } from "../type_registry.js";
import { fnType, lsType } from "../type_registry.js";
import {Type, Function} from "../metacircular.js";
import {Int, Byte} from "../primitives/symbols.js";
@ -22,7 +22,7 @@ const byteListImpl = {
export const makeListModule = elementType => {
// List<elementType> type depends on elementType
// generating it another time, will give the same type (structurally equivalent):
const ListOfElement = getListType(elementType);
const ListOfElement = lsType(elementType);
const getFnType1 = fnType({in: Int , out: elementType});
const getFnType = fnType({in: ListOfElement, out: getFnType1});

4
structures/module.js
View file

@ -1,7 +1,7 @@
import { makeListModule } from "./list_common.js";
import { Typed } from "../typed.js";
import { getListType } from "../type_registry.js";
import { lsType } from "../type_registry.js";
export const Module = getListType(Typed); // a Module is a list of Typeds
export const Module = lsType(Typed); // a Module is a list of Typeds
export const ModuleModule = makeListModule(Typed); // the module containing operations on Module

12
structures/product.js
View file

@ -1,5 +1,5 @@
import { fnType, prodType } from "../type_registry.js";
import { Function } from "../metacircular.js";
import { Function, Type } from "../metacircular.js";
// In JS, all products are encoded in the same way:
const constructor = left => right => ({left, right});
@ -8,15 +8,17 @@ const getRight = product => product.right;
// Given two types A and B, create the type (A × B).
export const makeProductType = (leftType, rightType) => {
const productType = prodType(leftType, rightType);
const pType = prodType(leftType, rightType);
const leftFnType = fnType({in: productType, out: leftType});
const rightFnType = fnType({in: productType, out: rightType});
const leftFnType = fnType({in: pType, out: leftType});
const rightFnType = fnType({in: pType, out: rightType});
const constructorBoundType = fnType({in: rightType, out: productType});
const constructorBoundType = fnType({in: rightType, out: pType});
const constructorType = fnType({in: leftType , out: constructorBoundType});
return [
{i: pType, t: Type},
{i: getLeft , t: leftFnType},
{i: getRight , t: rightFnType},
{i: leftFnType , t: Function},

3
structures/sum.js
View file

@ -5,6 +5,8 @@ import { Module } from "./module.js";
const constructorLeft = left => ({variant: "L", value: left });
const constructorRight = right => ({variant: "R", value: right});
// signature:
// sum-type -> (leftType -> resultType, rightType -> resultType) -> resultType
const match = sum => handlers => sum.variant === "L"
? handlers.left(sum.value)
: handlers.right(sum.value);
@ -31,6 +33,7 @@ export const makeSumType = (leftType, rightType) => {
};
return [
{i: sType , t: Type},
{i: constructorLeft , t: constructorLeftType},
{i: constructorRight , t: constructorRightType},
{i: constructorLeftType , t: Function},