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

list of byte encoded as JS Uint8Array + demo more readable

Browse source
This commit is contained in:
Joeri Exelmans 2025-03-17 20:14:57 +01:00
parent 574651ccb7
commit 3d08485a08
6 changed files with 102 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

71
structures/list_common.js
View file

@ -1,32 +1,69 @@
import { fnType, getListType } from "../type_registry.js";
import {Type, Function} from "../metacircular.js";
import {Int} from "../primitives/symbols.js";
import {Int, Byte} from "../primitives/symbols.js";
// 'normal' implementation
const emptyList = {l:[]};
const get = ls => i => ls.l[i];
const put = ls => i => elem => ({l: ls.l.with(Number(i), elem)});
// const push = ls => elem => ({l:ls.l.concat([elem])});
const byteListImpl = {
// specialization
emptyList: new Uint8Array(),
get: ls => i => ls[i],
put: ls => i => elem => {
res = new Uint8Array(ls); // creates copy
res[i] = elem;
return res;
}
}
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 emptyList = {l:[]};
const getFnType1 = fnType({in: Int , out: elementType});
const getFnType = fnType({in: ListOfElement, out: getFnType1});
const get = ls => i => ls.l[i];
const getBoundType = fnType({in: Int, out: elementType});
const getType = fnType({in: ListOfElement, out: getBoundType});
const putFnType2 = fnType({in: elementType , out: ListOfElement});
const putFnType1 = fnType({in: Int , out: putFnType2});
const putFnType = fnType({in: ListOfElement, out: putFnType1});
const push = ls => elem => ({l:ls.l.concat([elem])});
const pushBoundType = fnType({in: elementType, out: ListOfElement});
const pushType = fnType({in: ListOfElement, out: pushBoundType});
// const pushFnType1 = fnType({in: elementType , out: ListOfElement});
// const pushFnType = fnType({in: ListOfElement, out: pushFnType1});
return [
const common = [
{i: ListOfElement, t: Type},
{i: emptyList , t: ListOfElement},
{i: get , t: getType},
{i: getType , t: Function},
{i: getBoundType , t: Function},
{i: push , t: pushType},
{i: pushType , t: Function},
{i: pushBoundType, t: Function},
{i: getFnType , t: Function},
{i: getFnType1 , t: Function},
{i: putFnType , t: Function},
{i: putFnType1, t: Function},
{i: putFnType2, t: Function},
// {i: pushFnType , t: Function},
// {i: pushFnType1, t: Function},
];
if (elementType === Byte) {
// specialization: use Uint8Array instead of JS array
return [
...common,
{i: byteListImpl.emptyList , t: ListOfElement},
{i: byteListImpl.get , t: getFnType},
{i: byteListImpl.put , t: putFnType},
];
}
else {
return [
...common,
{i: emptyList , t: ListOfElement},
{i: get , t: getFnType},
{i: put , t: putFnType},
// {i: push , t: pushFnType},
];
}
};