functionalscript 0.0.494 → 0.0.495

package/.github/workflows/{node.js.yml → ci.yml}

@@ -1,7 +1,7 @@
 # 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: node CI
+name: CI
 
 on:
   push:
@@ -10,7 +10,7 @@ on:
   pull_request:
 
 jobs:
-  build:
+  node:
 
     runs-on: ubuntu-latest
 
@@ -29,3 +29,23 @@ jobs:
     - run: npm test
     - run: npm run version
     - run: npm pack
+
+  deno:
+
+    runs-on: ubuntu-latest
+
+    steps:
+    - uses: actions/checkout@v2
+    - uses: denoland/setup-deno@v1
+      with:
+        deno-version: v1.x
+    - run: deno run --quiet --allow-read --allow-env --allow-net --allow-hrtime ./dev/test.mjs
+
+  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.mjs

package/.github/workflows/com.yml

@@ -10,7 +10,7 @@ on:
   pull_request:
 
 jobs:
-  build:
+  COM:
 
     strategy:
       matrix:

package/dev/module.mjs

@@ -84,6 +84,16 @@ export const fs = () => import(self.Deno ? 'https://deno.land/std/node/fs/promis
 /** @type {(code: number) => never} */
 export const exit = self.Deno ? self.Deno.exit : process.exit
 
+/** @type {(v: string) => string|undefined} */
+export const env =
+    self.Deno ? self.Deno.env.get :
+    a => {
+        const r = Object.getOwnPropertyDescriptor(process.env, a)
+        return r === void 0 ? void 0 :
+            typeof r.get === 'function' ? r.get() :
+            r.value
+    }
+
 export const loadModuleMap = async () => {
     const { readdir, readFile } = await fs();
 

package/dev/test/module.f.cjs

@@ -37,9 +37,11 @@ const result = require('../../types/result/module.f.cjs')
  * @typedef {{
  *  readonly moduleMap: ModuleMap,
  *  readonly log: Log<T>,
+ *  readonly error: Log<T>,
  *  readonly measure: Measure<T>,
  *  readonly state: T,
- *  readonly tryCatch: <R>(f: () => R) => result.Result<R, unknown>
+ *  readonly tryCatch: <R>(f: () => R) => result.Result<R, unknown>,
+ *  readonly env: (n: string) => string|undefined
  * }} Input
  */
 
@@ -67,54 +69,62 @@ const addFail = delta => ts => ({ ...ts, time: ts.time + delta, fail: ts.fail +
 
 /** @type {<T>(input: Input<T>) => readonly[number, T]} */
 const main = input => {
-    let { moduleMap, log, measure, tryCatch, state } = input
+    let { moduleMap, log, error, measure, tryCatch, env, state } = input
+    const isGitHub = env('GITHUB_ACTION') !== void 0
     /** @typedef {input extends Input<infer T> ? T : never} T */
-    /** @type {(i: string) => (v: unknown) => (fs: FullState<T>) => FullState<T>} */
-    const test = i => v => ([ts, state]) => {
-        const next = test(`${i}| `)
-        switch (typeof v) {
-            case 'function': {
-                if (v.length === 0) {
-                    const [[s, r], delta, state0] = measure(() => tryCatch(/** @type {() => unknown} */(v)))(state)
-                    state = state0
-                    if (s === 'error') {
-                        ts = addFail(delta)(ts)
-                        state = log(`${i}() ${fgRed}error${reset}, ${delta} ms`)(state)
-                        state = log(`${fgRed}${r}${reset}`)(state)
-                    } else {
-                        ts = addPass(delta)(ts)
-                        state = log(`${i}() ${fgGreen}ok${reset}, ${delta} ms`)(state)
+    /** @type {(k: readonly[string, Module]) => (fs: FullState<T>) => FullState<T>} */
+    const f = ([k, v]) => {
+        /** @type {(i: string) => (v: unknown) => (fs: FullState<T>) => FullState<T>} */
+        const test = i => v => ([ts, state]) => {
+            const next = test(`${i}| `)
+            switch (typeof v) {
+                case 'function': {
+                    if (v.length === 0) {
+                        const [[s, r], delta, state0] = measure(() => tryCatch(/** @type {() => unknown} */(v)))(state)
+                        state = state0
+                        if (s === 'error') {
+                            ts = addFail(delta)(ts)
+                            if (isGitHub) {
+                                // https://docs.github.com/en/actions/learn-github-actions/workflow-commands-for-github-actions
+                                // https://github.com/OndraM/ci-detector/blob/main/src/Ci/GitHubActions.php
+                                state = error(`::error file=${k},line=1,title=[3]['a']()::${r}`)(state)
+                            } else {
+                                state = error(`${i}() ${fgRed}error${reset}, ${delta} ms`)(state)
+                                state = error(`${fgRed}${r}${reset}`)(state)
+                            }
+                        } else {
+                            ts = addPass(delta)(ts)
+                            state = log(`${i}() ${fgGreen}ok${reset}, ${delta} ms`)(state)
+                        }
+                        [ts, state] = next(r)([ts, state])
                     }
-                    [ts, state] = next(r)([ts, state])
+                    break
                 }
-                break
-            }
-            case 'object': {
-                if (v !== null) {
-                    /** @type {(k: readonly[string|number, unknown]) => (fs: FullState<T>) => FullState<T>} */
-                    const f = ([k, v]) => ([time, state]) => {
-                        state = log(`${i}${k}:`)(state);
-                        [time, state] = next(v)([time, state])
-                        return [time, state]
+                case 'object': {
+                    if (v !== null) {
+                        /** @type {(k: readonly[string|number, unknown]) => (fs: FullState<T>) => FullState<T>} */
+                        const f = ([k, v]) => ([time, state]) => {
+                            state = log(`${i}${k}:`)(state);
+                            [time, state] = next(v)([time, state])
+                            return [time, state]
+                        }
+                        [ts, state] = fold
+                            (f)
+                            ([ts, state])
+                            (v instanceof Array ? list.entries(v) : Object.entries(v))
                     }
-                    [ts, state] = fold
-                        (f)
-                        ([ts, state])
-                        (v instanceof Array ? list.entries(v) : Object.entries(v))
+                    break
                 }
-                break
             }
+            return [ts, state]
         }
-        return [ts, state]
-    }
-    const next = test('| ')
-    /** @type {(k: readonly[string, Module]) => (fs: FullState<T>) => FullState<T>} */
-    const f = ([k, v]) => ([ts, state]) => {
-        if (isTest(k)) {
-            state = log(`testing ${k}`)(state);
-            [ts, state] = next(v.exports)([ts, state])
+        return ([ts, state]) => {
+            if (isTest(k)) {
+                state = log(`testing ${k}`)(state);
+                [ts, state] = test('| ')(v.exports)([ts, state])
+            }
+            return [ts, state]
         }
-        return [ts, state]
     }
     /** @type {TestState} */
     let ts = { time: 0, pass: 0, fail: 0 };

package/dev/test.mjs

@@ -1,10 +1,8 @@
-import { loadModuleMap, exit } from './module.mjs'
+import { loadModuleMap, exit, env } from './module.mjs'
 
-const consoleLog = console.log
-
-/** @type {(s: string) => <T>(_: T) => T} */
-const log = s => state => {
-    consoleLog(s)
+/** @type {(f: (s: string) => void) => (s: string) => <T>(_: T) => T} */
+const anyLog = f => s => state => {
+    f(s)
     return state
 }
 
@@ -50,9 +48,11 @@ const main = async() => {
     const f = moduleMap['./dev/test/module.f.cjs'].exports
     const r = f({
         moduleMap,
-        log,
+        log: anyLog(console.log),
+        error: anyLog(console.error),
         measure,
         tryCatch,
+        env,
     })
     exit(r[0])
 }

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "functionalscript",
-  "version": "0.0.494",
+  "version": "0.0.495",
   "description": "FunctionalScript is a functional subset of JavaScript",
   "main": "module.f.cjs",
   "scripts": {

package/.github/workflows/bun.yml

@@ -1,17 +0,0 @@
-name: bun
-
-on:
-  push:
-    branches:
-    - master
-  pull_request:
-
-jobs:
-  build:
-
-    runs-on: ubuntu-latest
-
-    steps:
-    - uses: actions/checkout@v2
-    - run: curl https://bun.sh/install | bash
-    - run: /home/runner/.bun/bin/bun ./dev/test.mjs

package/.github/workflows/deno.yml

@@ -1,19 +0,0 @@
-name: deno
-
-on:
-  push:
-    branches:
-    - master
-  pull_request:
-
-jobs:
-  build:
-
-    runs-on: ubuntu-latest
-
-    steps:
-    - uses: actions/checkout@v2
-    - uses: denoland/setup-deno@v1
-      with:
-        deno-version: v1.x
-    - run: deno run --allow-read --allow-env --allow-net --allow-hrtime ./dev/test.mjs