functionalscript 0.3.15 → 0.4.1

package/com/cs/test.f.js

@@ -1,43 +0,0 @@
-import cs from "./testlib.f.js";
-const f = () => {
-    const e = 'using System;\n' +
-        'using System.Runtime.InteropServices;\n' +
-        '\n' +
-        'namespace My\n' +
-        '{\n' +
-        '    [StructLayout(LayoutKind.Sequential)]\n' +
-        '    public struct Slice\n' +
-        '    {\n' +
-        '        public unsafe byte* Start;\n' +
-        '        public UIntPtr Size;\n' +
-        '    }\n' +
-        '    [StructLayout(LayoutKind.Sequential)]\n' +
-        '    public struct ManagedStruct\n' +
-        '    {\n' +
-        '        public IMy M;\n' +
-        '    }\n' +
-        '    [Guid("C66FB270-2D80-49AD-BB6E-88C1F90B805D")]\n' +
-        '    [InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]\n' +
-        '    public interface IMy\n' +
-        '    {\n' +
-        '        [PreserveSig]\n' +
-        '        Slice GetSlice();\n' +
-        '        [PreserveSig]\n' +
-        '        void SetSlice(Slice slice);\n' +
-        '        [PreserveSig]\n' +
-        '        unsafe byte* GetUnsafe();\n' +
-        '        [PreserveSig]\n' +
-        '        unsafe void SetUnsafe(Slice* p, uint size);\n' +
-        '        [PreserveSig]\n' +
-        '        byte Some(IMy p);\n' +
-        '        [PreserveSig]\n' +
-        '        IMy GetIMy(ushort a, short b);\n' +
-        '        [PreserveSig]\n' +
-        '        void SetManagedStruct(ManagedStruct a);\n' +
-        '    }\n' +
-        '}';
-    if (cs !== e) {
-        throw cs;
-    }
-};
-export default f;

package/com/cs/testlib.f.d.ts

@@ -1,2 +0,0 @@
-declare const _default: string;
-export default _default;

package/com/cs/testlib.f.js

@@ -1,5 +0,0 @@
-import { flat } from "../../text/module.f.js";
-import { join } from "../../types/string/module.f.js";
-import { cs } from "./module.f.js";
-import library from "../types/testlib.f.js";
-export default join('\n')(flat('    ')(cs('My')(library)));

package/com/rust/module.f.d.ts

@@ -1,15 +0,0 @@
-/**
- * This module generates Rust code for COM interop from a high-level type library definition.
- *
- * The module provides functions to define structs, traits, and implementations in Rust,
- * specifically tailored for `nanocom` interpretation.
- */
-import { type Library } from '../types/module.f.ts';
-import type * as text from '../../text/module.f.ts';
-/**
- * Generates Rust code for the given type library.
- *
- * @param library - The library of type definitions to generate Rust code for.
- * @returns A block of Rust code representing the library.
- */
-export declare const rust: (library: Library) => text.Block;

package/com/rust/module.f.js

@@ -1,164 +0,0 @@
-/**
- * This module generates Rust code for COM interop from a high-level type library definition.
- *
- * The module provides functions to define structs, traits, and implementations in Rust,
- * specifically tailored for `nanocom` interpretation.
- */
-import { paramList } from "../types/module.f.js";
-import { flat, map, flatMap } from "../../types/list/module.f.js";
-import { fn } from "../../types/function/module.f.js";
-import { join } from "../../types/string/module.f.js";
-const { entries } = Object;
-const rustField = (field) => `pub ${field},`;
-const mapRustField = map(rustField);
-const rustStruct = (b) => (name) => [`#[repr(C)]`, `pub struct ${name} {`, mapRustField(b), `}`];
-const commaJoin = join(', ');
-const ref = (name) => `${name}::Ref`;
-const obj = (name) => `&${name}::Object`;
-const self = ['&self'];
-const paramName = ([n]) => n;
-const callList = (p) => map(paramName)(paramList(p));
-const call = (p) => commaJoin(callList(p));
-const virtualCall = (p) => commaJoin(flat([['self'], callList(p)]));
-const super_ = 'super::';
-const assign = ([n]) => `${n}: Self::${n},`;
-const mapAssign = map(assign);
-const this_ = ['this: &Object'];
-const rustType = (n) => `pub type ${n} = nanocom::${n}<Interface>;`;
-const whereContent = (h) => (wh) => {
-    const w = 'where' in wh ? [
-        h,
-        `where`,
-        mapComma(wh.where),
-        '{'
-    ] : [`${h} {`];
-    const x = [
-        wh.content,
-        '}',
-    ];
-    return flat([w, x]);
-};
-const rustImpl = (i) => {
-    const p = 'param' in i ? `<${i.param}>` : '';
-    const header = `impl${p} ${i.trait} for ${i.type}`;
-    return whereContent(header)(i);
-};
-const comma = s => `${s},`;
-const mapComma = map(comma);
-const trait = (t) => {
-    const p = t.pub === true ? 'pub ' : '';
-    const h = `${p}trait ${t.type}`;
-    return whereContent(h)(t);
-};
-const traitImpl = (t) => {
-    const i = rustImpl({
-        param: 'T',
-        trait: t.type,
-        type: 'T',
-        where,
-        content: [],
-    });
-    return flat([trait({ ...t, where }), i]);
-};
-const where = ['Self: nanocom::Class<Interface = Interface>', 'nanocom::CObject<Self>: Ex'];
-/**
- * Generates Rust code for the given type library.
- *
- * @param library - The library of type definitions to generate Rust code for.
- * @returns A block of Rust code representing the library.
- */
-export const rust = (library) => {
-    const type = (p) => {
-        const f = (o) => (t) => {
-            if (typeof t === 'string') {
-                return t;
-            }
-            if (t.length === 2) {
-                return `*const ${f(ref)(t[1])}`;
-            }
-            const [id] = t;
-            const fullId = `${p}${id}`;
-            return 'interface' in library[id] ? o(fullId) : fullId;
-        };
-        return f;
-    };
-    const pf = (p) => (o) => ([name, t]) => `${name}: ${type(p)(o)(t)}`;
-    const param = pf(super_)(obj);
-    const mapParam = map(param);
-    const mapField = map(pf('')(ref));
-    const struct = fn(entries)
-        .then(mapField)
-        .then(rustStruct)
-        .result;
-    const func = (first) => (p) => {
-        const resultStr = '_' in p ? ` -> ${type(super_)(ref)(p._)}` : '';
-        const params = commaJoin(flat([first, mapParam(paramList(p))]));
-        return `(${params})${resultStr}`;
-    };
-    const virtualFnType = (n) => (p) => `extern "system" fn${n}${func(this_)(p)}`;
-    const virtualFn = ([n, p]) => `${n}: unsafe ${virtualFnType('')(p)}`;
-    const mapVirtualFn = map(virtualFn);
-    const headerFn = ([n, p]) => `fn ${n}${func(self)(p)}`;
-    const traitFn = (m) => `${headerFn(m)};`;
-    const mapTraitFn = map(traitFn);
-    const implFn = (m) => {
-        const [n, p] = m;
-        return [
-            `${headerFn(m)} {`,
-            [`unsafe { (self.interface().${n})(${virtualCall(p)}) }`],
-            '}'
-        ];
-    };
-    const flatMapImplFn = flatMap(implFn);
-    const impl = ([n, p]) => {
-        const type = virtualFnType(` ${n}`)(p);
-        return [
-            `${type} {`,
-            [`unsafe { nanocom::CObject::from_object_unchecked(this) }.${n}(${call(p)})`],
-            '}'
-        ];
-    };
-    const flatMapImpl = flatMap(impl);
-    const interface_ = ({ interface: i, guid }) => (name) => {
-        const e = entries(i);
-        return [
-            `pub mod ${name} {`,
-            [
-                rustType('Object'),
-                rustType('Ref'),
-                rustType('Vmt'),
-            ],
-            rustStruct(mapVirtualFn(e))('Interface'),
-            rustImpl({
-                trait: 'nanocom::Interface',
-                type: 'Interface',
-                content: [`const GUID: nanocom::GUID = 0x${guid.replaceAll('-', '_')};`]
-            }),
-            trait({ pub: true, type: 'Ex', content: mapTraitFn(e) }),
-            rustImpl({
-                trait: 'Ex',
-                type: 'Object',
-                content: flatMapImplFn(e)
-            }),
-            traitImpl({
-                pub: true,
-                type: 'ClassEx',
-                content: ['const VMT: Vmt = Vmt {',
-                    ['iunknown: nanocom::CObject::<Self>::IUNKNOWN,',
-                        'interface: Interface {',
-                        mapAssign(e),
-                        '},',
-                    ],
-                    '};'
-                ]
-            }),
-            traitImpl({
-                type: 'PrivateClassEx',
-                content: flatMapImpl(e)
-            }),
-            '}'
-        ];
-    };
-    const def = ([name, type]) => ('interface' in type ? interface_(type) : struct(type.struct))(name);
-    return flat([['#![allow(non_snake_case)]'], flatMap(def)(entries(library))]);
-};

package/com/rust/test.f.d.ts

@@ -1,2 +0,0 @@
-declare const _default: () => void;
-export default _default;

package/com/rust/test.f.js

@@ -1,123 +0,0 @@
-import rust from "./testlib.f.js";
-export default () => {
-    const e = '#![allow(non_snake_case)]\n' +
-        '#[repr(C)]\n' +
-        'pub struct Slice {\n' +
-        '    pub Start: *const u8,\n' +
-        '    pub Size: usize,\n' +
-        '}\n' +
-        '#[repr(C)]\n' +
-        'pub struct ManagedStruct {\n' +
-        '    pub M: IMy::Ref,\n' +
-        '}\n' +
-        'pub mod IMy {\n' +
-        '    pub type Object = nanocom::Object<Interface>;\n' +
-        '    pub type Ref = nanocom::Ref<Interface>;\n' +
-        '    pub type Vmt = nanocom::Vmt<Interface>;\n' +
-        '    #[repr(C)]\n' +
-        '    pub struct Interface {\n' +
-        '        pub GetSlice: unsafe extern "system" fn(this: &Object) -> super::Slice,\n' +
-        '        pub SetSlice: unsafe extern "system" fn(this: &Object, slice: super::Slice),\n' +
-        '        pub GetUnsafe: unsafe extern "system" fn(this: &Object) -> *const bool,\n' +
-        '        pub SetUnsafe: unsafe extern "system" fn(this: &Object, p: *const super::Slice, size: u32),\n' +
-        '        pub Some: unsafe extern "system" fn(this: &Object, p: &super::IMy::Object) -> bool,\n' +
-        '        pub GetIMy: unsafe extern "system" fn(this: &Object, a: u16, b: i16) -> super::IMy::Ref,\n' +
-        '        pub SetManagedStruct: unsafe extern "system" fn(this: &Object, a: super::ManagedStruct),\n' +
-        '    }\n' +
-        '    impl nanocom::Interface for Interface {\n' +
-        '        const GUID: nanocom::GUID = 0xC66FB270_2D80_49AD_BB6E_88C1F90B805D;\n' +
-        '    }\n' +
-        '    pub trait Ex {\n' +
-        '        fn GetSlice(&self) -> super::Slice;\n' +
-        '        fn SetSlice(&self, slice: super::Slice);\n' +
-        '        fn GetUnsafe(&self) -> *const bool;\n' +
-        '        fn SetUnsafe(&self, p: *const super::Slice, size: u32);\n' +
-        '        fn Some(&self, p: &super::IMy::Object) -> bool;\n' +
-        '        fn GetIMy(&self, a: u16, b: i16) -> super::IMy::Ref;\n' +
-        '        fn SetManagedStruct(&self, a: super::ManagedStruct);\n' +
-        '    }\n' +
-        '    impl Ex for Object {\n' +
-        '        fn GetSlice(&self) -> super::Slice {\n' +
-        '            unsafe { (self.interface().GetSlice)(self) }\n' +
-        '        }\n' +
-        '        fn SetSlice(&self, slice: super::Slice) {\n' +
-        '            unsafe { (self.interface().SetSlice)(self, slice) }\n' +
-        '        }\n' +
-        '        fn GetUnsafe(&self) -> *const bool {\n' +
-        '            unsafe { (self.interface().GetUnsafe)(self) }\n' +
-        '        }\n' +
-        '        fn SetUnsafe(&self, p: *const super::Slice, size: u32) {\n' +
-        '            unsafe { (self.interface().SetUnsafe)(self, p, size) }\n' +
-        '        }\n' +
-        '        fn Some(&self, p: &super::IMy::Object) -> bool {\n' +
-        '            unsafe { (self.interface().Some)(self, p) }\n' +
-        '        }\n' +
-        '        fn GetIMy(&self, a: u16, b: i16) -> super::IMy::Ref {\n' +
-        '            unsafe { (self.interface().GetIMy)(self, a, b) }\n' +
-        '        }\n' +
-        '        fn SetManagedStruct(&self, a: super::ManagedStruct) {\n' +
-        '            unsafe { (self.interface().SetManagedStruct)(self, a) }\n' +
-        '        }\n' +
-        '    }\n' +
-        '    pub trait ClassEx\n' +
-        '    where\n' +
-        '        Self: nanocom::Class<Interface = Interface>,\n' +
-        '        nanocom::CObject<Self>: Ex,\n' +
-        '    {\n' +
-        '        const VMT: Vmt = Vmt {\n' +
-        '            iunknown: nanocom::CObject::<Self>::IUNKNOWN,\n' +
-        '            interface: Interface {\n' +
-        '                GetSlice: Self::GetSlice,\n' +
-        '                SetSlice: Self::SetSlice,\n' +
-        '                GetUnsafe: Self::GetUnsafe,\n' +
-        '                SetUnsafe: Self::SetUnsafe,\n' +
-        '                Some: Self::Some,\n' +
-        '                GetIMy: Self::GetIMy,\n' +
-        '                SetManagedStruct: Self::SetManagedStruct,\n' +
-        '            },\n' +
-        '        };\n' +
-        '    }\n' +
-        '    impl<T> ClassEx for T\n' +
-        '    where\n' +
-        '        Self: nanocom::Class<Interface = Interface>,\n' +
-        '        nanocom::CObject<Self>: Ex,\n' +
-        '    {\n' +
-        '    }\n' +
-        '    trait PrivateClassEx\n' +
-        '    where\n' +
-        '        Self: nanocom::Class<Interface = Interface>,\n' +
-        '        nanocom::CObject<Self>: Ex,\n' +
-        '    {\n' +
-        '        extern "system" fn GetSlice(this: &Object) -> super::Slice {\n' +
-        '            unsafe { nanocom::CObject::from_object_unchecked(this) }.GetSlice()\n' +
-        '        }\n' +
-        '        extern "system" fn SetSlice(this: &Object, slice: super::Slice) {\n' +
-        '            unsafe { nanocom::CObject::from_object_unchecked(this) }.SetSlice(slice)\n' +
-        '        }\n' +
-        '        extern "system" fn GetUnsafe(this: &Object) -> *const bool {\n' +
-        '            unsafe { nanocom::CObject::from_object_unchecked(this) }.GetUnsafe()\n' +
-        '        }\n' +
-        '        extern "system" fn SetUnsafe(this: &Object, p: *const super::Slice, size: u32) {\n' +
-        '            unsafe { nanocom::CObject::from_object_unchecked(this) }.SetUnsafe(p, size)\n' +
-        '        }\n' +
-        '        extern "system" fn Some(this: &Object, p: &super::IMy::Object) -> bool {\n' +
-        '            unsafe { nanocom::CObject::from_object_unchecked(this) }.Some(p)\n' +
-        '        }\n' +
-        '        extern "system" fn GetIMy(this: &Object, a: u16, b: i16) -> super::IMy::Ref {\n' +
-        '            unsafe { nanocom::CObject::from_object_unchecked(this) }.GetIMy(a, b)\n' +
-        '        }\n' +
-        '        extern "system" fn SetManagedStruct(this: &Object, a: super::ManagedStruct) {\n' +
-        '            unsafe { nanocom::CObject::from_object_unchecked(this) }.SetManagedStruct(a)\n' +
-        '        }\n' +
-        '    }\n' +
-        '    impl<T> PrivateClassEx for T\n' +
-        '    where\n' +
-        '        Self: nanocom::Class<Interface = Interface>,\n' +
-        '        nanocom::CObject<Self>: Ex,\n' +
-        '    {\n' +
-        '    }\n' +
-        '}';
-    if (rust !== e) {
-        throw rust;
-    }
-};

package/com/rust/testlib.f.d.ts

@@ -1,2 +0,0 @@
-declare const _default: string;
-export default _default;

package/com/rust/testlib.f.js

@@ -1,5 +0,0 @@
-import { flat } from "../../text/module.f.js";
-import { join } from "../../types/string/module.f.js";
-import { rust } from "./module.f.js";
-import library from "../types/testlib.f.js";
-export default join('\n')(flat('    ')(rust(library)));

package/com/test/build.f.d.ts

@@ -1,20 +0,0 @@
-import { type List } from '../../types/list/module.f.ts';
-type Platform = 'aix' | 'android' | 'darwin' | 'freebsd' | 'haiku' | 'linux' | 'openbsd' | 'sunos' | 'win32' | 'cygwin' | 'netbsd';
-type NodeJs = {
-    readonly dirname: string;
-    readonly platform: Platform;
-};
-type Output = {
-    readonly file: {
-        readonly name: string;
-        readonly content: string;
-    };
-    readonly line: List<List<string>>;
-};
-export type Func = (nodejs: NodeJs) => Output;
-declare const _default: {
-    cpp: Func;
-    cs: Func;
-    rust: Func;
-};
-export default _default;

package/com/test/build.f.js

@@ -1,58 +0,0 @@
-import { flat } from "../../types/list/module.f.js";
-import cppContent from "../cpp/testlib.f.js";
-import csContent from "../cs/testlib.f.js";
-import rustContent from "../rust/testlib.f.js";
-const flags = (platform) => {
-    switch (platform) {
-        case 'win32':
-            return [];
-        case 'linux':
-            return ['-std=c++17', '-lstdc++', '-fPIC'];
-        default:
-            return ['-std=c++17', '-lc++'];
-    }
-};
-const output = (platform) => (name) => {
-    switch (platform) {
-        case 'win32': return `${name}.dll`;
-        case 'darwin': return `lib${name}.dylib`;
-        default: return `lib${name}.so`;
-    }
-};
-const cpp = ({ dirname, platform }) => ({
-    file: {
-        name: `${dirname}/cpp/_result.hpp`,
-        content: cppContent(),
-    },
-    line: [
-        flat([
-            ['clang', '-shared', '-o', output(platform)('testc')],
-            flags(platform),
-            [`${dirname}/cpp/main.cpp`],
-        ]),
-    ],
-});
-const cs = ({ dirname, platform }) => ({
-    file: {
-        name: `${dirname}/cs/_result.cs`,
-        content: csContent,
-    },
-    line: [
-        platform === 'win32'
-            ? ['dotnet', 'run', '--project', `${dirname}/cs/cs.csproj`]
-            // .Net on Linux and MacOS doesn't properly support COM object marshalling
-            : ['dotnet', 'build', `${dirname}/cs/cs.csproj`]
-    ],
-});
-const rust = ({ dirname }) => ({
-    file: {
-        name: `${dirname}/rust/src/_result.rs`,
-        content: rustContent,
-    },
-    line: [['cargo', 'build' /**, '--locked' */]]
-});
-export default {
-    cpp,
-    cs,
-    rust,
-};

package/com/types/module.f.d.ts

@@ -1,28 +0,0 @@
-import type * as O from '../../types/object/module.f.ts';
-import { type List } from '../../types/list/module.f.ts';
-export type Library = {
-    readonly [k in string]: Definition;
-};
-export type Definition = Struct | Interface;
-export type Struct = {
-    readonly struct: FieldArray;
-};
-export type FieldArray = {
-    readonly [k in string]: Type;
-};
-export type Field = O.Entry<Type>;
-export type Interface = {
-    readonly interface: MethodArray;
-    readonly guid: string;
-};
-type MethodArray = {
-    readonly [k in string]: FieldArray;
-};
-export type Method = O.Entry<FieldArray>;
-export type Type = BaseType | Id | Pointer;
-type Id = readonly [string];
-export type BaseType = 'u8' | 'i8' | 'u16' | 'i16' | 'u32' | 'i32' | 'u64' | 'i64' | 'usize' | 'isize' | 'f32' | 'f64' | 'bool';
-type Pointer = readonly ['*', Type];
-export declare const paramList: (fa: FieldArray) => List<Field>;
-export declare const result: <T>(v: T) => (f: (type: Type) => T) => (fa: FieldArray) => T;
-export {};

package/com/types/module.f.js

@@ -1,7 +0,0 @@
-import { filter } from "../../types/list/module.f.js";
-import { compose } from "../../types/function/module.f.js";
-const { entries } = Object;
-const isParam = ([name]) => name !== '_';
-const filterParam = filter(isParam);
-export const paramList = compose(entries)(filterParam);
-export const result = (v) => (f) => (fa) => '_' in fa ? f(fa._) : v;

package/com/types/testlib.f.d.ts

@@ -1,44 +0,0 @@
-declare const _default: {
-    Slice: {
-        struct: {
-            Start: ["*", "u8"];
-            Size: "usize";
-        };
-    };
-    ManagedStruct: {
-        struct: {
-            M: ["IMy"];
-        };
-    };
-    IMy: {
-        guid: string;
-        interface: {
-            GetSlice: {
-                _: ["Slice"];
-            };
-            SetSlice: {
-                slice: ["Slice"];
-            };
-            GetUnsafe: {
-                _: ["*", "bool"];
-            };
-            SetUnsafe: {
-                p: ["*", ["Slice"]];
-                size: "u32";
-            };
-            Some: {
-                p: ["IMy"];
-                _: "bool";
-            };
-            GetIMy: {
-                a: "u16";
-                b: "i16";
-                _: ["IMy"];
-            };
-            SetManagedStruct: {
-                a: ["ManagedStruct"];
-            };
-        };
-    };
-};
-export default _default;

package/com/types/testlib.f.js

@@ -1,28 +0,0 @@
-export default {
-    Slice: {
-        struct: {
-            Start: ['*', 'u8'],
-            Size: 'usize',
-        },
-    },
-    ManagedStruct: {
-        struct: {
-            M: ['IMy']
-        }
-    },
-    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: { a: 'u16', b: 'i16', _: ['IMy'] },
-            SetManagedStruct: { a: ['ManagedStruct'] },
-        },
-    }
-};

package/commonjs/build/module.f.d.ts

@@ -1,6 +0,0 @@
-import type * as package_ from '../package/module.f.ts';
-import { type MapInterface, type Id, type State } from '../module/module.f.ts';
-import type * as function_ from '../module/function/module.f.ts';
-type Result<M> = readonly [State, M];
-export declare const getOrBuild: (compile: function_.Compile) => (packageGet: package_.Get) => <M>(moduleMapInterface: MapInterface<M>) => (moduleId: Id) => (moduleMap: M) => Result<M>;
-export {};

package/commonjs/build/module.f.js

@@ -1,66 +0,0 @@
-import { idToString, dir, } from "../module/module.f.js";
-import { empty as mapEmpty, setReplace } from "../../types/map/module.f.js";
-import * as object from "../../types/object/module.f.js";
-const { fromMap } = object;
-import * as path from "../path/module.f.js";
-const { parseAndFind } = path;
-import * as stringSet from "../../types/string_set/module.f.js";
-const { set: setSet, contains: setContains, empty: stringSetEmpty } = stringSet;
-const notFound = (moduleMap) => [['error', ['file not found']], moduleMap];
-export const getOrBuild = compile => packageGet => moduleMapInterface => {
-    const build = buildSet => moduleId => {
-        const moduleIdStr = idToString(moduleId);
-        const buildSet1 = setSet(moduleIdStr)(buildSet);
-        const moduleDir = dir(moduleId);
-        const require_ = p => ([requireMap, m]) => {
-            const error = e => [['error', e], [requireMap, m]];
-            if (moduleDir === null) {
-                return error('file not found');
-            }
-            const r = parseAndFind(packageGet)(moduleDir)(p);
-            if (r === null) {
-                return error('file not found');
-            }
-            const rIdStr = idToString(r.id);
-            if (setContains(rIdStr)(buildSet1)) {
-                return error('circular reference');
-            }
-            const [state, m1] = build(buildSet1)(r.id)(r.source)(m);
-            return [state[0] === 'error' ? state : ['ok', state[1].exports], [setReplace(p)(rIdStr)(requireMap), m1]];
-        };
-        return source => moduleMap => {
-            const set = s => m => [s, moduleMapInterface.setReplace(moduleIdStr)(s)(m)];
-            const error = e => set(['error', e]);
-            // check compilation
-            const [kind, result] = compile(source);
-            if (kind === 'error') {
-                return error(['compilation error', result])(moduleMap);
-            }
-            // build
-            const [[state, value], [requireMap, moduleMap2]] = result(require_)([mapEmpty, moduleMap]);
-            const x = state === 'error' ?
-                error(['runtime error', value]) :
-                set(['ok', { exports: value, requireMap: fromMap(requireMap) }]);
-            return x(moduleMap2);
-        };
-    };
-    const f = (moduleId) => (moduleMap) => {
-        const moduleIdStr = idToString(moduleId);
-        // check moduleMap
-        {
-            const m = moduleMapInterface.at(moduleIdStr)(moduleMap);
-            if (m !== null) {
-                return [m, moduleMap];
-            }
-        }
-        // check package
-        const p = packageGet(moduleId.package);
-        if (p === null) {
-            return notFound(moduleMap);
-        }
-        // check file
-        const source = p.file(moduleId.path.join('/'));
-        return (source === null ? notFound : build(stringSetEmpty)(moduleId)(source))(moduleMap);
-    };
-    return f;
-};

package/commonjs/build/test.f.d.ts

@@ -1,2 +0,0 @@
-declare const _default: () => void;
-export default _default;