functionalscript 0.0.371 → 0.0.374

package/.vscode/tasks.json

@@ -0,0 +1,41 @@
+{
+    "version": "2.0.0",
+    "tasks": [
+        {
+            "label": "build",
+            "command": "dotnet",
+            "type": "process",
+            "args": [
+                "build",
+                "${workspaceFolder}/com/cs/test/test.csproj",
+                "/property:GenerateFullPaths=true",
+                "/consoleloggerparameters:NoSummary"
+            ],
+            "problemMatcher": "$msCompile"
+        },
+        {
+            "label": "publish",
+            "command": "dotnet",
+            "type": "process",
+            "args": [
+                "publish",
+                "${workspaceFolder}/com/cs/test/test.csproj",
+                "/property:GenerateFullPaths=true",
+                "/consoleloggerparameters:NoSummary"
+            ],
+            "problemMatcher": "$msCompile"
+        },
+        {
+            "label": "watch",
+            "command": "dotnet",
+            "type": "process",
+            "args": [
+                "watch",
+                "run",
+                "--project",
+                "${workspaceFolder}/com/cs/test/test.csproj"
+            ],
+            "problemMatcher": "$msCompile"
+        }
+    ]
+}

package/com/cpp/com.hpp

@@ -1,7 +1,15 @@
-#ifndef COM_HPP
-#define COM_HPP
+#pragma once
 
 #include <cstdint>
+#include <cstddef>
+
+#if defined(__aarch64__)
+#define COM_STDCALL
+#elif defined(__clang__)
+#define COM_STDCALL __attribute__((stdcall))
+#else
+#define COM_STDCALL __stdcall
+#endif
 
 namespace com
 {
@@ -14,34 +22,32 @@ namespace com
 
     typedef uint32_t HRESULT;
     typedef uint32_t ULONG;
+    typedef int32_t BOOL;
 
     class IUnknown
     {
     public:
-        virtual HRESULT __stdcall QueryInterface(GUID const &riid, IUnknown **const ppvObject) noexcept = 0;
-        virtual ULONG __stdcall AddRef() noexcept = 0;
-        virtual ULONG __stdcall Release() noexcept = 0;
+        virtual HRESULT COM_STDCALL QueryInterface(GUID const &riid, IUnknown **const ppvObject) noexcept = 0;
+        virtual ULONG COM_STDCALL AddRef() noexcept = 0;
+        virtual ULONG COM_STDCALL Release() noexcept = 0;
     };
 
     template <class I>
-    class Ref
+    class ref
     {
     public:
-        explicit Ref(I &other) noexcept : p(other.p)
+        explicit ref(I &other) noexcept : p(other.p)
         {
             p.AddRef();
         }
-        Ref(Ref const &other) noexcept : Ref(other.p)
+        ref(ref const &other) noexcept : ref(other.p)
         {
         }
-        ~Ref() noexcept
+        ~ref() noexcept
         {
             p.Release();
         }
-
     private:
         I &p;
     };
 }
-
-#endif

package/com/cpp/module.f.cjs

@@ -1,8 +1,76 @@
 const types = require('../types/module.f.cjs')
 const text = require('../../text/module.f.cjs')
+const obj = require('../../types/object/module.f.cjs')
+const { list } = require('../../types/module.f.cjs')
 
-/** @type {(name: string) => (library: types.Library) => text.Block} */
-const cpp = name => lib => []
+/** @type {(name: string) => (body: text.Block) => text.Block} */
+const struct = name => body => [`struct ${name}`, '{', body, '};']
+
+/** @type {(t: types.BaseType) => string} */
+const baseType = t => {
+    switch (t) {
+        case 'u8': return 'uint8_t'
+        case 'i8': return 'int8_t'
+        case 'u16': return 'uint16_t'
+        case 'i16': return 'int16_t'
+        case 'u32': return 'uint32_t'
+        case 'i32': return 'int32_t'
+        case 'u64': return 'uint64_t'
+        case 'i64': return 'int64_t'
+        case 'usize': return 'size_t'
+        case 'isize': return 'ptrdiff_t'
+        case 'f32': return 'float'
+        case 'f64': return 'double'
+        case 'bool': return '::com::BOOL'
+    }
+}
+
+/** @type {(name: string) => (lib: types.Library) => text.Block} */
+const cpp = name => lib => {
+
+    /** @type {(i: (t: string) => string) => (t: types.Type) => string} */
+    const objectType = i => t => {
+        if (typeof(t) === 'string') { return baseType(t) }
+        if (t.length === 2) { return `${type(t[1])}*` } 
+        const [id] = t
+        if (lib[id].interface === undefined) { return id }
+        return i(id)
+    }
+
+    const type = objectType(id => `::com::ref<${id}>`)
+
+    /** @type {(s: types.Field) => text.Item} */
+    const field = ([name, t]) => `${type(t)} ${name};`
+
+    /** @type {(s: types.Struct) => text.Block} */
+    const defStruct = s => list.map(field)(Object.entries(s.struct))
+
+    /** @type {(fa: types.FieldArray) => string} */
+    const result = types.result('void')(type)
+
+    /** @type {(p: types.Field) => string} */
+    const param = ([name, t]) => `${objectType(id => `${id}&`)(t)} ${name}`
+
+    /** @type {(m: types.Method) => text.Item} */
+    const method = ([name, paramArray]) => 
+        `virtual ${result(paramArray)} COM_STDCALL ${name}(${list.join(', ')(list.map(param)(types.paramList(paramArray)))}) = 0;`
+
+    /** @type {(i: types.Interface) => text.Block} */
+    const defInterface = i => list.map(method)(Object.entries(i.interface))
+
+    /** @type {(kv: obj.Entry<types.Definition>) => text.Block} */
+    const def = ([name, d]) => d.interface === undefined 
+        ? struct(name)(defStruct(d)) 
+        : struct(`${name}: ::com::IUnknown`)(defInterface(d))
+
+    return list.flat([
+        ['#pragma once', ''],
+        text.curly
+            ('namespace')
+            (name)
+            (list.flatMap(def)(Object.entries(lib)))
+    ])
+}
 
 module.exports = {
     /** @readonly */

package/com/cpp/test/build.cjs

@@ -1,10 +1,14 @@
 const fs = require('node:fs')
 const cp = require('node:child_process')
-// const cs = require('../test.f.js').result
+const os = require('node:os');
+const cpp = require('../test.f.cjs').result
+const list = require('../../../types/list/module.f.cjs')
 
-// fs.writeFileSync('_result.cpp', cs)
+fs.writeFileSync('_result.hpp', cpp)
 try {
-    console.log(cp.execSync('clang main.cpp').toString())
+    const flags = os.platform() === 'win32' ? [] : ['-std=c++11', '-lc++']
+    const line = list.join(' ')(list.flat([['clang'], flags, ['main.cpp']]))
+    console.log(cp.execSync(line).toString())
 } catch (e) {
     // @ts-ignore
     console.error(e.output.toString())

package/com/cpp/test/main.cpp

@@ -1,5 +1,9 @@
 #include "../com.hpp"
+#include "_result.hpp"
+
+#include <iostream>
 
 int main()
 {
+    std::cout << "Hello world!" << std::endl;
 }

package/com/cpp/test.f.cjs

@@ -1,3 +1,36 @@
 const _ = require('./module.f.cjs')
+const library = require('../types/test.f.cjs')
+const text = require('../../text/module.f.cjs')
+const list = require('../../types/list/module.f.cjs')
 
-module.exports = {}
+const f = () =>
+{
+    const r = list.join('\n')(text.flat('    ')(_.cpp('My')(library)))
+    const e = 
+        '#pragma once\n' +
+        '\n' +
+        'namespace My\n' +
+        '{\n' +
+        '    struct Slice\n' +
+        '    {\n' +
+        '        uint8_t* Start;\n' +
+        '        size_t Size;\n' +
+        '    };\n' +
+        '    struct IMy: ::com::IUnknown\n' +
+        '    {\n' +
+        '        virtual Slice COM_STDCALL GetSlice() = 0;\n' +
+        '        virtual void COM_STDCALL SetSlice(Slice slice) = 0;\n' +
+        '        virtual ::com::BOOL* COM_STDCALL GetUnsafe() = 0;\n' +
+        '        virtual void COM_STDCALL SetUnsafe(Slice* p, uint32_t size) = 0;\n' +
+        '        virtual ::com::BOOL COM_STDCALL Some(IMy& p) = 0;\n' +
+        '        virtual ::com::ref<IMy> COM_STDCALL GetIMy() = 0;\n' +
+        '    };\n' +
+        '}'
+    if (r !== e) { throw r }
+    return r
+}
+
+module.exports = {
+    /** @readonly */
+    result: f()
+}

package/com/cs/module.f.cjs

@@ -42,40 +42,34 @@ const baseType = t => {
 const unsafe = isUnsafe => isUnsafe ? 'unsafe ' : ''
 
 /** @type {(t: types.Type) => readonly[boolean, string]} */
-const type = t =>
+const fullType = t =>
     typeof (t) === 'string' ? [false, baseType(t)] :
         t.length === 1 ? [false, t[0]] :
-            [true, `${type(t[1])[1]}*`]
+            [true, `${type(t[1])}*`]
+
+/** @type {(m: types.Type) => string} */
+const type = t => fullType(t)[1]
 
 /** @type {(f: types.Field) => string} */
-const param = ([name, t]) => `${type(t)[1]} ${name}`
+const param = ([name, t]) => `${type(t)} ${name}`
 
 /** @type {(f: types.Field) => string} */
 const field = ([name, comType]) => {
-    const [isUnsafe, t] = type(comType)
+    const [isUnsafe, t] = fullType(comType)
     return `public ${unsafe(isUnsafe)}${t} ${name};`
 }
 
-/** @type {(m: types.FieldArray) => string} */
-const result = m => {
-    const result = m._
-    return result === undefined ? 'void' : type(result)[1]
-}
-
 /** @type {(field: types.Field) => boolean} */
-const isUnsafeField = field => type(field[1])[0]
-
-/** @type {(kv: obj.Entry<types.Type>) => boolean} */
-const isParam = kv => kv[0] !== '_'
+const isUnsafeField = field => fullType(field[1])[0]
 
 /** @type {(e: obj.Entry<types.FieldArray>) => readonly string[]} */
 const method = ([name, m]) => {
     const paramAndResultList = Object.entries(m)
-    const paramList = list.filter(isParam)(paramAndResultList)
+    const pl = types.paramList(m)
     const isUnsafe = list.some(list.map(isUnsafeField)(paramAndResultList))
     return [
         '[PreserveSig]',
-        `${unsafe(isUnsafe)}${result(m)} ${name}(${list.join(', ')(list.map(param)(paramList))});`
+        `${unsafe(isUnsafe)}${types.result('void')(type)(m)} ${name}(${list.join(', ')(list.map(param)(pl))});`
     ]
 }
 

package/com/cs/test.f.cjs

@@ -2,28 +2,7 @@ const types = require('../types/module.f.cjs')
 const _ = require('./module.f.cjs')
 const list = require('../../types/list/module.f.cjs')
 const text = require('../../text/module.f.cjs')
-
-/** @type {types.Library} */
-const library = {
-    Slice: {
-        struct: {
-            Start: ['*', 'u8'],
-            Size: 'usize',
-        },
-    },
-    IMy: {
-        guid: 'C66FB270-2D80-49AD-BB6E-88C1F90B805D',
-        interface: {
-            GetSlice: { _: ['Slice'] },
-            SetSlice: { slice: ['Slice'] },
-            GetUnsafe: { _: ['*', 'bool'] },
-            SetUnsafe: {
-                p: ['*', ['Slice']],
-                size: 'u32'
-            },
-        },
-    }
-}
+const library = require('../types/test.f.cjs')
 
 const f = () =>
 {
@@ -52,6 +31,10 @@ const f = () =>
         '        unsafe bool* GetUnsafe();\n' +
         '        [PreserveSig]\n' +
         '        unsafe void SetUnsafe(Slice* p, uint size);\n' +
+        '        [PreserveSig]\n' +
+        '        bool Some(IMy p);\n' +
+        '        [PreserveSig]\n' +
+        '        IMy GetIMy();\n' +
         '    }\n' +
         '}'
     if (cs !== e) { throw [cs,e] }

package/com/types/module.f.cjs

@@ -1,3 +1,7 @@
+const obj = require('../../types/object/module.f.cjs')
+const list = require('../../types/list/module.f.cjs')
+const { types } = require('../module.f.cjs')
+
 /** @typedef {{readonly[k in string]: Definition}} Library */
 
 /** @typedef {Struct|Interface} Definition */
@@ -11,7 +15,7 @@
 
 /** @typedef {{readonly[k in string]: Type}} FieldArray */
 
-/** @typedef {readonly[string, Type]} Field */
+/** @typedef {obj.Entry<Type>} Field */
 
 /**
  * @typedef {{
@@ -22,6 +26,8 @@
 
 /** @typedef {{readonly[k in string]: FieldArray}} MethodArray */
 
+/** @typedef {obj.Entry<FieldArray>} Method */
+
 /** @typedef {BaseType|Id|Pointer} Type */
 
 /** @typedef {readonly[string]} Id */
@@ -46,4 +52,21 @@
 
 /** @typedef {readonly['*', Type]} Pointer */
 
-module.exports = {}
+/** @type {(kv: obj.Entry<Type>) => boolean} */
+const isParam = ([name]) => name !== '_'
+
+/** @type {(fa: FieldArray) => list.List<Field> } */
+const paramList = fa => list.filter(isParam)(Object.entries(fa))
+
+/** @type {<T>(v: T) => (f: (type: Type) => T) => (fa: FieldArray) => T} */
+const result = v => f => fa => {
+    const type = fa._
+    return type === undefined ? v : f(type)
+} 
+
+module.exports = {
+    /** @readonly */
+    paramList,
+    /** @readonly */
+    result,
+}

package/com/types/test.f.cjs

@@ -0,0 +1,25 @@
+const _ = require('./module.f.cjs')
+
+/** @type {_.Library} */
+module.exports = {
+    Slice: {
+        struct: {
+            Start: ['*', 'u8'],
+            Size: 'usize',
+        },
+    },
+    IMy: {
+        guid: 'C66FB270-2D80-49AD-BB6E-88C1F90B805D',
+        interface: {
+            GetSlice: { _: ['Slice'] },
+            SetSlice: { slice: ['Slice'] },
+            GetUnsafe: { _: ['*', 'bool'] },
+            SetUnsafe: {
+                p: ['*', ['Slice']],
+                size: 'u32'
+            },
+            Some: { p: ['IMy'], _: 'bool' },
+            GetIMy: { _: ['IMy'] }
+        },
+    }
+}

package/{io/commonjs → commonjs}/module.cjs

@@ -1,6 +1,6 @@
-const { tryCatch } = require('../result/module.cjs')
-const { unwrap } = require('../../types/result/module.f.cjs')
-const moduleFunction = require('../../commonjs/module/function/module.f.cjs')
+const { tryCatch } = require('../types/result/module.cjs')
+const { unwrap } = require('../types/result/module.f.cjs')
+const moduleFunction = require('./module/function/module.f.cjs')
 
 /** @type {(f: Function) => moduleFunction.Function_} */
 const build = f => immutableRequire => mutableData => {

package/{io/commonjs → commonjs}/test.cjs

@@ -1,5 +1,5 @@
 const _ = require('./module.cjs')
-const run = require('../../commonjs/module/function/module.f.cjs')
+const run = require('./module/function/module.f.cjs')
 
 // ok:
 {

package/{io/nodejs → nodejs}/version/main.cjs

@@ -1,6 +1,6 @@
 const cp = require('child_process')
 const fs = require('fs')
-const package_json = require('../../../package.json')
+const package_json = require('../../package.json')
 
 const b =cp.execSync('git log --oneline')
 

package/package.json

@@ -1,12 +1,12 @@
 {
   "name": "functionalscript",
-  "version": "0.0.371",
+  "version": "0.0.374",
   "description": "FunctionalScript is a functional subset of JavaScript",
   "main": "module.f.cjs",
   "scripts": {
     "tsc": "tsc",
     "test": "tsc && npm run test-only",
-    "version": "node ./io/nodejs/version/main.cjs",
+    "version": "node ./nodejs/version/main.cjs",
     "test-only": "node --trace-uncaught ./test.f.cjs"
   },
   "repository": {

package/test.f.cjs

@@ -7,7 +7,7 @@ require('./sha2/test.f.cjs')
 require('./json/test.f.cjs')
 require('./json/tokenizer/test.f.cjs')
 require('./types/object/test.f.cjs')
-require('./io/commonjs/test.cjs')
+require('./commonjs/test.cjs')
 require('./commonjs/package/dependencies/test.f.cjs')
 require('./commonjs/package/test.f.cjs')
 require('./commonjs/path/test.f.cjs')
@@ -20,6 +20,7 @@ require('./html/test.f.cjs')
 require('./text/test.f.cjs')
 require('./text/encoding/test.f.cjs')
 require('./com/cs/test.f.cjs')
+require('./com/cpp/test.f.cjs')
 
 /** @type {() => never} */
 const assert = () => { throw 'assert' }

package/text/encoding/module.f.cjs

@@ -1,10 +1,29 @@
 const result = require('../../types/result/module.f.cjs')
 const list = require('../../types/list/module.f.cjs')
+const operator = require('../../types/function/operator/module.f.cjs')
+const array = require('../../types/array/module.f.cjs')
+const { contains } = require('../../types/range/module.f.cjs')
 const { ok, error } = result
 
-/** @typedef {result.Result<number,number>} Utf8Result */
+/** @typedef {result.Result<number,number>} ByteResult */
 
-/** @type {(input:number) => list.List<Utf8Result>} */
+/** @typedef {result.Result<number,readonly number[]>} CodePointResult */
+
+/** @typedef {number|undefined} ByteOrEof */
+
+/** @typedef {undefined|array.Array1<number>|array.Array2<number>|array.Array3<number>} Utf8State */
+
+/** @typedef {undefined|array.Array1<number>|array.Array2<number>|array.Array3<number>} Utf16State */
+
+/** @type {(a:number) => boolean} */
+const isBmpCodePoint = a => a >= 0x0000 && a <= 0xd7ff || a >= 0xe000 && a <= 0xffff
+
+const isHighSurrogate = contains([0xd800, 0xdbff])
+
+/** @type {(a:number) => boolean} */
+const isLowSurrogate = contains([0xdc00, 0xdfff])
+
+/** @type {(input:number) => list.List<ByteResult>} */
 const codePointToUtf8 = input =>
 {
     if (input >= 0x0000 && input <= 0x007f) { return [ok(input & 0x7f)] }
@@ -14,10 +33,10 @@ const codePointToUtf8 = input =>
     return [error(input)]
 }
 
-/** @type {(input:number) => list.List<Utf8Result>} */
+/** @type {(input:number) => list.List<ByteResult>} */
 const codePointToUtf16 = input =>
 {
-    if (input >= 0x0000 && input <= 0xd7ff || input >= 0xe000 && input <= 0xffff) { return [ok(input >> 8), ok(input & 0xff)] }
+    if (isBmpCodePoint(input)) { return [ok(input >> 8), ok(input & 0xff)] }
     if (input >= 0x010000 && input <= 0x10ffff) {
         const high = ((input - 0x10000) >> 10) + 0xd800
         const low = ((input - 0x10000) & 0x3ff) + 0xdc00
@@ -26,15 +45,94 @@ const codePointToUtf16 = input =>
     return [error(input)]
 }
 
-/** @type {(input: list.List<number>) => list.List<Utf8Result>} */
+/** @type {(input: list.List<number>) => list.List<ByteResult>} */
 const codePointListToUtf8 = list.flatMap(codePointToUtf8)
 
-/** @type {(input: list.List<number>) => list.List<Utf8Result>} */
+/** @type {(input: list.List<number>) => list.List<ByteResult>} */
 const codePointListToUtf16 = list.flatMap(codePointToUtf16)
 
+/** @type {operator.StateScan<number, Utf8State, list.List<CodePointResult>>} */
+const utf8ByteToCodePointOp = state => byte => {
+    if (byte < 0x00 || byte > 0xff) {
+        return [[error([byte])], state]
+    }    
+    if (state == undefined) {
+        if (byte < 0x80) { return [[ok(byte)], undefined] }
+        if (byte >= 0xc2 && byte <= 0xf4) { return [[], [byte]] }
+        return [[error([byte])], undefined]
+    }
+    if (byte >= 0x80 && byte < 0xc0)
+    {
+        switch(state.length)
+        {
+            case 1:
+                if (state[0] < 0xe0) { return [[ok(((state[0] & 0x1f) << 6) + (byte & 0x3f))], undefined] }
+                if (state[0] < 0xf8) { return [[], [state[0], byte]] }
+                break         
+            case 2:
+                if (state[0] < 0xf0) { return [[ok(((state[0] & 0x0f) << 12) + ((state[1] & 0x3f) << 6) + (byte & 0x3f))], undefined] }
+                if (state[0] < 0xf8) { return [[], [state[0], state[1], byte]] }
+                break
+            case 3: 
+                return [[ok(((state[0] & 0x07) << 18) + ((state[1] & 0x3f) << 12) + ((state[2] & 0x3f) << 6) + (byte & 0x3f))], undefined]
+        }
+    }    
+    return [[error(list.toArray(list.concat(state)([byte])))], undefined]
+}
+
+/** @type {(state: Utf8State) => readonly[list.List<CodePointResult>, Utf8State]} */
+const utf8EofToCodePointOp = state => [state == undefined ? undefined : [error(state)],  undefined]
+
+/** @type {operator.StateScan<ByteOrEof, Utf8State, list.List<CodePointResult>>} */
+const utf8ByteOrEofToCodePointOp = state => input => input === undefined ? utf8EofToCodePointOp(state) : utf8ByteToCodePointOp(state)(input)
+
+/** @type {(input: list.List<number>) => list.List<CodePointResult>} */
+const utf8ListToCodePoint = input => list.flat(list.stateScan(utf8ByteOrEofToCodePointOp)(undefined)(list.concat(/** @type {list.List<ByteOrEof>} */(input))([undefined])))
+
+/** @type {operator.StateScan<number, Utf16State, list.List<CodePointResult>>} */
+const utf16ByteToCodePointOp = state => byte => {
+    if (byte < 0x00 || byte > 0xff) {
+        return [[error([byte])], state]
+    }
+    if (state == undefined) {
+        return [[], [byte]]
+    }
+    switch(state.length)
+    {
+        case 1:
+            const codeUnit = (state[0] << 8) + byte
+            if (isBmpCodePoint(codeUnit)) { return [[ok(codeUnit)], undefined] }
+            if (isHighSurrogate(codeUnit)) { return [[], [state[0], byte]] }
+            break
+        case 2:
+            return [[], [state[0], state[1], byte]]
+        case 3:             
+            if (isLowSurrogate((state[2] << 8) + byte)) {
+                const high = (state[0] << 8) + state[1] - 0xd800
+                const low = (state[2] << 8) + byte - 0xdc00
+                return [[ok((high << 10) + low + 0x10000)], undefined]
+            } 
+            break
+    }
+    return [[error(list.toArray(list.concat(state)([byte])))], undefined]
+}
+
+/** @type {(state: Utf8State) => readonly[list.List<CodePointResult>, Utf16State]} */
+const utf16EofToCodePointOp = state => [state == undefined ? undefined : [error(state)],  undefined]
+
+/** @type {operator.StateScan<ByteOrEof, Utf8State, list.List<CodePointResult>>} */
+const utf16ByteOrEofToCodePointOp = state => input => input === undefined ? utf16EofToCodePointOp(state) : utf16ByteToCodePointOp(state)(input)
+
+/** @type {(input: list.List<number>) => list.List<CodePointResult>} */
+const utf16ListToCodePoint = input => list.flat(list.stateScan(utf16ByteOrEofToCodePointOp)(undefined)(list.concat(/** @type {list.List<ByteOrEof>} */(input))([undefined])))
+
 module.exports = {
     /** @readonly */
     codePointListToUtf8,
     /** @readonly */
     codePointListToUtf16,
+    /** @readonly */
+    utf8ListToCodePoint,
+    /** @readonly */
+    utf16ListToCodePoint
 }

package/text/encoding/test.f.cjs

@@ -116,4 +116,84 @@ const stringify = a => json.stringify(sort)(a)
     if (result !== '[["error",-1],["error",55296],["error",57343],["error",1114112]]') { throw result }
 }
 
+{    
+    const result = stringify(list.toArray(encoding.utf8ListToCodePoint([-1, 256])))
+    if (result !== '[["error",[-1]],["error",[256]]]') { throw result }
+}
+
+{    
+    const result = stringify(list.toArray(encoding.utf8ListToCodePoint([128, 193, 245, 255])))
+    if (result !== '[["error",[128]],["error",[193]],["error",[245]],["error",[255]]]') { throw result }
+}
+
+{    
+    const result = stringify(list.toArray(encoding.utf8ListToCodePoint([0, 1, 127])))
+    if (result !== '[["ok",0],["ok",1],["ok",127]]') { throw result }
+}
+
+{
+    const result = stringify(list.toArray(encoding.utf8ListToCodePoint([194, 128, 194, 169, 223, 191])))
+    if (result !== '[["ok",128],["ok",169],["ok",2047]]') { throw result }
+}
+
+{    
+    const result = stringify(list.toArray(encoding.utf8ListToCodePoint([194, 127, 194, 192, 194])))
+    if (result !== '[["error",[194,127]],["error",[194,192]],["error",[194]]]') { throw result }
+}
+
+{
+    const result = stringify(list.toArray(encoding.utf8ListToCodePoint([224, 160, 128, 224, 160, 129, 239, 191, 191])))
+    if (result !== '[["ok",2048],["ok",2049],["ok",65535]]') { throw result }
+}
+
+{    
+    const result = stringify(list.toArray(encoding.utf8ListToCodePoint([224, 160, 127, 224, 160, 192, 224, 160])))
+    if (result !== '[["error",[224,160,127]],["error",[224,160,192]],["error",[224,160]]]') { throw result }
+}
+
+{
+    const result = stringify(list.toArray(encoding.utf8ListToCodePoint([240, 144, 128, 128, 240, 144, 128, 129, 244, 143, 191, 191])))
+    if (result !== '[["ok",65536],["ok",65537],["ok",1114111]]') { throw result }
+}
+
+{    
+    const result = stringify(list.toArray(encoding.utf8ListToCodePoint([240, 144, 128, 127, 240, 144, 128, 192, 240, 144, 128])))
+    if (result !== '[["error",[240,144,128,127]],["error",[240,144,128,192]],["error",[240,144,128]]]') { throw result }
+}
+
+{
+    const result = stringify(list.toArray(encoding.utf8ListToCodePoint([194, -1, 128])))
+    if (result !== '[["error",[-1]],["ok",128]]') { throw result }
+}
+
+{    
+    const result = stringify(list.toArray(encoding.utf16ListToCodePoint([-1, 256,])))
+    if (result !== '[["error",[-1]],["error",[256]]]') { throw result }
+}
+
+{
+    const result = stringify(list.toArray(encoding.utf16ListToCodePoint([0, 0, 0, 36, 32, 172, 215, 255, 224, 0, 255, 255])))
+    if (result !== '[["ok",0],["ok",36],["ok",8364],["ok",55295],["ok",57344],["ok",65535]]') { throw result }
+}
+
+{
+    const result = stringify(list.toArray(encoding.utf16ListToCodePoint([220, 0, 223, 255])))
+    if (result !== '[["error",[220,0]],["error",[223,255]]]') { throw result }
+}
+
+{
+    const result = stringify(list.toArray(encoding.utf16ListToCodePoint([216, 0, 220, 0, 216, 1, 220, 55, 216, 82, 223, 98, 219, 255, 223, 255])))
+    if (result !== '[["ok",65536],["ok",66615],["ok",150370],["ok",1114111]]') { throw result }
+}
+
+{
+    const result = stringify(list.toArray(encoding.utf16ListToCodePoint([216, 0, 216, 0])))
+    if (result !== '[["error",[216,0,216,0]]]') { throw result }
+}
+
+{
+    const result = stringify(list.toArray(encoding.utf16ListToCodePoint([216, 0, 0, 0])))
+    if (result !== '[["error",[216,0,0,0]]]') { throw result }
+}
+
 module.exports = {}

package/tsconfig.json

@@ -11,7 +11,7 @@
     // "disableReferencedProjectLoad": true,             /* Reduce the number of projects loaded automatically by TypeScript. */
 
     /* Language and Environment */
-    "target": "es2021",                                     /* Set the JavaScript language version for emitted JavaScript and include compatible library declarations. */
+    "target": "ES2022",                                     /* Set the JavaScript language version for emitted JavaScript and include compatible library declarations. */
     // "lib": ["ES2021"],                                        /* Specify a set of bundled library declaration files that describe the target runtime environment. */
     // "jsx": "preserve",                                /* Specify what JSX code is generated. */
     // "experimentalDecorators": true,                   /* Enable experimental support for TC39 stage 2 draft decorators. */

package/{io → types}/result/module.cjs

@@ -1,4 +1,4 @@
-const result = require('../../types/result/module.f.cjs')
+const result = require('./module.f.cjs')
 
 /** @type {<T>(f: () => T) => result.Result<T, unknown>} */
 const tryCatch = f => {