functionalscript 0.3.4 → 0.3.5

package/types/sorted_set/module.f.js

@@ -0,0 +1,14 @@
+import * as Compare from "../function/compare/module.f.js";
+import * as list from "../list/module.f.js";
+const { toArray } = list;
+import * as sortedList from "../sorted_list/module.f.js";
+const { merge, genericMerge, find } = sortedList;
+export const union = cmp => a => b => toArray(merge(cmp)(a)(b));
+export const intersect = cmp => a => b => toArray(intersectMerge(cmp)(a)(b));
+const tailReduce = () => () => null;
+const intersectMerge = cmp => genericMerge({ reduceOp: intersectReduce(cmp), tailReduce })(null);
+const intersectReduce = cmp => state => a => b => {
+    const sign = cmp(a)(b);
+    return [sign === 0 ? a : null, sign, state];
+};
+export const has = cmp => value => set => find(cmp)(value)(set) === value;

package/types/sorted_set/test.f.d.ts

@@ -0,0 +1,6 @@
+declare const _default: {
+    union: (() => void)[];
+    intersect: (() => void)[];
+    has: (() => void)[];
+};
+export default _default;

package/types/sorted_set/test.f.js

@@ -0,0 +1,78 @@
+import * as _ from "./module.f.js";
+import * as compare from "../function/compare/module.f.js";
+const { unsafeCmp } = compare;
+import * as json from "../../json/module.f.js";
+import * as object from "../object/module.f.js";
+const { sort } = object;
+import * as list from "../list/module.f.js";
+const { toArray, countdown, length } = list;
+import * as Map from "../map/module.f.js";
+import * as f from "../function/module.f.js";
+const { flip } = f;
+const stringify = a => json.stringify(sort)(a);
+const reverseCmp = flip(unsafeCmp);
+export default {
+    union: [
+        () => {
+            const result = stringify(toArray(_.union(unsafeCmp)([2, 3, 4])([1, 3, 5])));
+            if (result !== '[1,2,3,4,5]') {
+                throw result;
+            }
+        },
+        () => {
+            const result = stringify(toArray(_.union(unsafeCmp)([1, 2, 3])([])));
+            if (result !== '[1,2,3]') {
+                throw result;
+            }
+        },
+        () => {
+            const n = 10_000;
+            const sortedSet = toArray(countdown(n));
+            const result = _.union(reverseCmp)(sortedSet)(sortedSet);
+            const len = length(result);
+            if (len != n) {
+                throw result;
+            }
+        }
+    ],
+    intersect: [
+        () => {
+            const result = stringify(toArray(_.intersect(unsafeCmp)([2, 3, 4])([1, 3, 5])));
+            if (result !== '[3]') {
+                throw result;
+            }
+        },
+        () => {
+            const result = stringify(toArray(_.intersect(unsafeCmp)([1, 2, 3])([])));
+            if (result !== '[]') {
+                throw result;
+            }
+        }
+    ],
+    has: [
+        () => {
+            const result = _.has(unsafeCmp)(0)([0, 10, 20, 30, 40, 50, 60, 70, 80, 90]);
+            if (!result) {
+                throw result;
+            }
+        },
+        () => {
+            const result = _.has(unsafeCmp)(3)([0, 10, 20, 30, 40, 50, 60, 70, 80, 90]);
+            if (result) {
+                throw result;
+            }
+        },
+        () => {
+            const result = _.has(unsafeCmp)(77)([0, 10, 20, 30, 40, 50, 60, 70, 80, 90]);
+            if (result) {
+                throw result;
+            }
+        },
+        () => {
+            const result = _.has(unsafeCmp)(80)([0, 10, 20, 30, 40, 50, 60, 70, 80, 90]);
+            if (!result) {
+                throw result;
+            }
+        }
+    ]
+};

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

@@ -0,0 +1,6 @@
+import * as list from '../list/module.f.ts';
+import * as compare from '../function/compare/module.f.ts';
+export declare const join: (_: string) => (input: list.List<string>) => string;
+export declare const concat: (input: list.List<string>) => string;
+export declare const repeat: (n: string) => (v: number) => string;
+export declare const cmp: (a: string) => (b: string) => compare.Sign;

package/types/string/module.f.js

@@ -0,0 +1,11 @@
+import * as list from "../list/module.f.js";
+const { reduce: listReduce, repeat: listRepeat } = list;
+import { compose } from "../function/module.f.js";
+import * as compare from "../function/compare/module.f.js";
+const { unsafeCmp } = compare;
+import { join as joinOp, concat as concatOp } from "../function/operator/module.f.js";
+const reduce = o => listReduce(o)('');
+export const join = compose(joinOp)(reduce);
+export const concat = reduce(concatOp);
+export const repeat = v => compose(listRepeat(v))(concat);
+export const cmp = unsafeCmp;

package/types/string/test.f.d.ts

@@ -0,0 +1,15 @@
+declare const _default: {
+    join: {
+        0: () => void;
+        1: () => void;
+        3: () => void;
+    };
+    concat: () => void;
+    repeatList: {
+        0: () => void;
+        5: () => void;
+    };
+    repeat: () => void;
+    cmp: () => void;
+};
+export default _default;

package/types/string/test.f.js

@@ -0,0 +1,58 @@
+import * as _ from "./module.f.js";
+const { join, concat, repeat, cmp } = _;
+import * as list from "../list/module.f.js";
+const { repeat: repeatList } = list;
+export default {
+    join: {
+        0: () => {
+            const result = join('/')([]);
+            if (result !== '') {
+                throw result;
+            }
+        },
+        1: () => {
+            const result = join('/')(['']);
+            if (result !== '') {
+                throw result;
+            }
+        },
+        3: () => {
+            const result = join(' ')(['hello', 'world', '!']);
+            if (result !== 'hello world !') {
+                throw result;
+            }
+        }
+    },
+    concat: () => {
+        const result = concat(['hello', 'world']);
+        if (result !== 'helloworld') {
+            throw result;
+        }
+    },
+    repeatList: {
+        0: () => {
+            const s = join('.')(repeatList('x')(0));
+            if (s != '') {
+                throw s;
+            }
+        },
+        5: () => {
+            const s = join('.')(repeatList('x')(5));
+            if (s != 'x.x.x.x.x') {
+                throw s;
+            }
+        }
+    },
+    repeat: () => {
+        const s = repeat('x')(5);
+        if (s != 'xxxxx') {
+            throw s;
+        }
+    },
+    cmp: () => {
+        const result = cmp('3')('4');
+        if (result !== -1) {
+            throw result;
+        }
+    }
+};

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

@@ -0,0 +1,9 @@
+import * as BtreeTypes from '../btree/types/module.f.ts';
+import { type List } from '../list/module.f.ts';
+export declare const values: (s: StringSet) => List<string>;
+export declare const empty: null;
+export type StringSet = BtreeTypes.Tree<string>;
+export declare const contains: (value: string) => (set: StringSet) => boolean;
+export declare const set: (value: string) => (s: StringSet) => StringSet;
+export declare const fromValues: (input: List<string>) => StringSet;
+export declare const remove: (value: string) => (s: StringSet) => StringSet;

package/types/string_set/module.f.js

@@ -0,0 +1,22 @@
+import * as BtreeTypes from "../btree/types/module.f.js";
+import * as btree from "../btree/module.f.js";
+import * as btf from "../btree/find/module.f.js";
+const { find, isFound } = btf;
+import * as btr from "../btree/remove/module.f.js";
+const { remove: btreeRemove } = btr;
+import * as bts from "../btree/set/module.f.js";
+const { set: btreeSet } = bts;
+import * as string from "../string/module.f.js";
+const { cmp } = string;
+import { fold } from "../list/module.f.js";
+import * as f from "../function/module.f.js";
+const { compose } = f;
+export const values = btree.values;
+export const empty = btree.empty;
+export const contains = value => {
+    const f = find(cmp(value));
+    return s => s !== null && isFound(f(s).first);
+};
+export const set = value => btreeSet(cmp(value))(() => value);
+export const fromValues = fold(set)(null);
+export const remove = compose(cmp)(btreeRemove);

package/types/string_set/test.f.d.ts

@@ -0,0 +1,5 @@
+declare const _default: {
+    contains: () => void;
+    remove: () => void;
+};
+export default _default;

package/types/string_set/test.f.js

@@ -0,0 +1,65 @@
+import * as _ from "./module.f.js";
+export default {
+    contains: () => {
+        const r = _.set('hello')(null);
+        if (!_.contains('hello')(r)) {
+            throw r;
+        }
+        if (_.contains('hello1')(r)) {
+            throw r;
+        }
+    },
+    remove: () => {
+        let r = _.set('hello')(null);
+        r = _.set('world')(r);
+        r = _.set('HELLO')(r);
+        r = _.set('WORLD!')(r);
+        if (!_.contains('hello')(r)) {
+            throw r;
+        }
+        if (_.contains('hello1')(r)) {
+            throw r;
+        }
+        if (!_.contains('HELLO')(r)) {
+            throw r;
+        }
+        if (_.contains('WORLD')(r)) {
+            throw r;
+        }
+        if (!_.contains('world')(r)) {
+            throw r;
+        }
+        if (_.contains('world!')(r)) {
+            throw r;
+        }
+        if (!_.contains('WORLD!')(r)) {
+            throw r;
+        }
+        //
+        r = _.remove('hello')(r);
+        if (_.contains('hello')(r)) {
+            throw r;
+        }
+        if (!_.contains('world')(r)) {
+            throw r;
+        }
+        r = _.remove('world')(r);
+        if (_.contains('world')(r)) {
+            throw r;
+        }
+        if (!_.contains('HELLO')(r)) {
+            throw r;
+        }
+        r = _.remove('HELLO')(r);
+        if (_.contains('HELLO')(r)) {
+            throw r;
+        }
+        if (!_.contains('WORLD!')(r)) {
+            throw r;
+        }
+        r = _.remove('WORLD!')(r);
+        if (r !== null) {
+            throw r;
+        }
+    }
+};

package/.github/FUNDING.yml

@@ -1,12 +0,0 @@
-# These are supported funding model platforms
-
-github: [sergey-shandar] # Replace with up to 4 GitHub Sponsors-enabled usernames e.g., [user1, user2]
-patreon: # Replace with a single Patreon username
-open_collective: functionalscript # Replace with a single Open Collective username
-ko_fi: # Replace with a single Ko-fi username
-tidelift: # Replace with a single Tidelift platform-name/package-name e.g., npm/babel
-community_bridge: # Replace with a single Community Bridge project-name e.g., cloud-foundry
-liberapay: # Replace with a single Liberapay username
-issuehunt: # Replace with a single IssueHunt username
-otechie: # Replace with a single Otechie username
-custom: # Replace with up to 4 custom sponsorship URLs e.g., ['link1', 'link2']

package/.github/dependabot.yml

@@ -1,11 +0,0 @@
-# To get started with Dependabot version updates, you'll need to specify which
-# package ecosystems to update and where the package manifests are located.
-# Please see the documentation for all configuration options:
-# https://docs.github.com/github/administering-a-repository/configuration-options-for-dependency-updates
-
-version: 2
-updates:
-  - package-ecosystem: "npm" # See documentation for possible values
-    directory: "/" # Location of package manifests
-    schedule:
-      interval: "weekly"

package/.github/workflows/ci.yml

@@ -1,88 +0,0 @@
-# This workflow will do a clean install of node dependencies, cache/restore them, build the source code and run tests across different versions of node
-# For more information see: https://help.github.com/actions/language-and-framework-guides/using-nodejs-with-github-actions
-
-name: CI
-
-on:
-  push:
-    branches:
-    - master
-  pull_request:
-
-jobs:
-  node20:
-    runs-on: ubuntu-latest
-
-    strategy:
-      matrix:
-        node-version: [16, 18, 20]
-        # See supported Node.js release schedule at https://nodejs.org/en/about/releases/
-
-    steps:
-    - uses: actions/checkout@v2
-    - uses: actions/setup-node@v2
-      with:
-        node-version: ${{ matrix.node-version }}
-    - run: npm ci
-    - run: npm run test20
-
-  node:
-    runs-on: ubuntu-latest
-
-    strategy:
-      matrix:
-        node-version: [22, 23]
-
-    steps:
-    - uses: actions/checkout@v2
-    - uses: actions/setup-node@v2
-      with:
-        node-version: ${{ matrix.node-version }}
-    - run: npm ci
-    - run: npm test
-    - run: npm run version
-    - run: npm pack
-
-  deno:
-
-    runs-on: ubuntu-latest
-
-    strategy:
-      matrix:
-        deno-version: [1, 2]
-
-    steps:
-    - uses: actions/checkout@v2
-    - uses: denoland/setup-deno@v1
-      with:
-        deno-version: ${{ matrix.deno-version }}
-    - run: deno task test
-    - run: deno publish --dry-run --allow-slow-types
-
-  bun:
-
-    runs-on: ubuntu-latest
-
-    steps:
-    - uses: actions/checkout@v2
-    - run: curl https://bun.sh/install | bash
-    - run: /home/runner/.bun/bin/bun ./dev/test.ts
-
-  COM:
-    strategy:
-      matrix:
-        # https://docs.github.com/en/actions/using-jobs/choosing-the-runner-for-a-job#choosing-github-hosted-runners
-        os: ['ubuntu-latest', 'windows-latest', 'macos-latest']
-
-    runs-on: ${{ matrix.os }}
-
-    steps:
-    - uses: actions/checkout@v3
-    - uses: actions/setup-node@v2
-      with:
-        node-version: 23
-    - uses: actions/setup-dotnet@v3
-      with:
-        dotnet-version: 9
-    - run: npm ci
-    - run: npm run comtest

package/.github/workflows/npm-publish.yml

@@ -1,53 +0,0 @@
-# This workflow will run tests using node and then publish a package to GitHub Packages when a release is created
-# For more information see: https://help.github.com/actions/language-and-framework-guides/publishing-nodejs-packages
-
-name: node publish
-
-on:
-  push:
-    branches: [ main ]
-
-jobs:
-  publish-npm:
-    runs-on: ubuntu-latest
-    permissions:
-      contents: read
-      id-token: write # This is required for requesting the JWT
-    steps:
-      - uses: actions/checkout@v2
-        with:
-          fetch-depth: 0
-      - uses: actions/setup-node@v2
-        with:
-          node-version: 22
-          registry-url: https://registry.npmjs.org/
-      - uses: denoland/setup-deno@v1
-        with:
-          deno-version: 2
-      - run: npm ci
-      - run: npm run version
-      - run: npm run index
-      - run: npm publish
-        continue-on-error: true
-        env:
-          NODE_AUTH_TOKEN: ${{secrets.npm_token}}
-      - run: deno publish --allow-dirty --allow-slow-types
-        continue-on-error: true
-
-
-
-  # publish-gpr:
-  #   runs-on: ubuntu-latest
-  #   permissions:
-  #     contents: read
-  #     packages: write
-  #   steps:
-  #     - uses: actions/checkout@v2
-  #     - uses: actions/setup-node@v2
-  #       with:
-  #         node-version: 14
-  #         registry-url: https://npm.pkg.github.com/
-  #     - run: npm ci
-  #     - run: npm publish
-  #       env:
-  #         NODE_AUTH_TOKEN: ${{secrets.GITHUB_TOKEN}}

package/CHANGELOG.md

@@ -1,29 +0,0 @@
-# Changelog
-
-All notable changes to this project will be documented in this file.
-
-The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/),
-and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0.html).
-
-## Unreleased
-
-## 0.3.0
-
-- Switching to TypeScript file [PR #330] https://github.com/functionalscript/functionalscript/pull/330
-- DJS: add serializer [PR #326] https://github.com/functionalscript/functionalscript/pull/326
-
-## 0.2.6
-
-- Refactoring of a vector of bits [PR #328](https://github.com/functionalscript/functionalscript/pull/328)
-
-## 0.2.5
-
-- new [crypto/] directory [PR #327](https://github.com/functionalscript/functionalscript/pull/327).
-- simplified HTML [PR #327](https://github.com/functionalscript/functionalscript/pull/327).
-- djs: add undefined and comments [PR #325](https://github.com/functionalscript/functionalscript/pull/325).
-
-## 0.2.3
-
-- BitVec and documentation update [PR #322](https://github.com/functionalscript/functionalscript/pull/322).
-
-## 0.1.608

package/Cargo.lock

@@ -1,18 +0,0 @@
-# This file is automatically @generated by Cargo.
-# It is not intended for manual editing.
-version = 3
-
-[[package]]
-name = "nanocom"
-version = "0.2.1"
-
-[[package]]
-name = "nanvm-lib"
-version = "0.1.0"
-
-[[package]]
-name = "testrust"
-version = "0.1.0"
-dependencies = [
- "nanocom",
-]

package/Cargo.toml

@@ -1,7 +0,0 @@
-[workspace]
-resolver = "2"
-members = [
-    "com/rust/nanocom",
-    "com/test/rust",
-    "nanvm-lib"
-]

package/com/README.md

@@ -1,3 +0,0 @@
-# COM (Component Object Model)
-
-Basic Types: `f32`, `f64`, `u8`, `i8`, `u16`, `i16`, `u32`, `i32`, `u64`, `i64`, `usize`, `isize`, `bool`, ``.

package/com/cpp/README.md

@@ -1,80 +0,0 @@
-# COM C++ library
-
-## Example
-
-### `nanocom` library
-
-```cpp
-class IUnknown
-{
-public:
-    virtual HRESULT QueryInterface(GUID const &riid, IUnknown const **ppvObject) const noexcept = 0;
-    virtual ULONG AddRef() const noexcept = 0;
-    virtual ULONG Release() const noexcept = 0;
-protected:
-    IUnknown() {}
-private:
-    IUnknown(IUnknown const&);
-    IUnknown& operator=(IUnknown const &);
-};
-
-template<class I>
-class base: public I
-{
-public:
-    HRESULT QueryInterface(GUID const &riid, IUnknown const **ppvObject) const noexcept override { ... }
-    ULONG AddRef() const noexcept override { ... }
-    ULONG Release() const noexcept override { ... }
-};
-
-template<class I, class T>
-class impl;
-```
-
-### Generated
-
-```cpp
-class IAbc : public IUnknown
-{
-public:
-    constexpr static GUID const guid = GUID(...);
-    virtual IAbc* GetIAbc_() const noexcept = 0;
-    ref<IAbc> GetIAbc() const noexcept
-    {
-        return move_to_ref(GetIAbc_());
-    }
-protected:
-    IAbc() {}
-};
-
-template<class T>
-class impl<IAbc, T> : public base<IAbc>
-{
-public:
-    T value;
-    IAbc* GetIAbc_() const noexcept override
-    {
-        return IAbc_GetIAbc(*this).copy_to_ref();
-    }
-    template <class... U>
-    static ref<T> create(U... u)
-    {
-        T const *const p = new implementation(u...);
-        return to_ref(*p);
-    }
-private:
-    template <class... U>
-    explicit implementation(U... u) : value(u...) {}
-};
-```
-
-### Manually Written Code
-
-```cpp
-struct Abc {};
-
-ref<IAbc> IAbc_GetIAbc(impl<IAbc, Abc> const & self)
-{
-    return to_ref(self);
-}
-```