functionalscript 0.11.3 → 0.11.4

package/io/module.f.d.ts

@@ -1,5 +1,5 @@
 import { type Effect } from '../types/effects/module.f.ts';
-import type { NodeOp, RequestListener } from '../types/effects/node/module.f.ts';
+import type { Headers, NodeOp } from '../types/effects/node/module.f.ts';
 import { type Result } from '../types/result/module.f.ts';
 /**
  * Represents a directory entry (file or directory) in the filesystem
@@ -82,7 +82,18 @@ export type TryCatch = <T>(f: () => T) => Result<T, unknown>;
 export type Server = {
     readonly listen: (port: number) => void;
 };
-export type Https = {
+export type Readable = AsyncIterable<Uint8Array>;
+export type IncomingMessage = Readable & {
+    readonly method: string;
+    readonly url: string;
+    readonly headers: Headers;
+};
+export type ServerResponse = {
+    readonly writeHead: (status: number, headers: Record<string, string>) => ServerResponse;
+    readonly end: (body: Uint8Array) => void;
+};
+export type RequestListener = (req: IncomingMessage, res: ServerResponse) => Promise<void>;
+export type Http = {
     readonly createServer: (_: RequestListener) => Server;
 };
 /**
@@ -97,7 +108,7 @@ export type Io = {
     readonly fetch: (url: string) => Promise<Response>;
     readonly tryCatch: TryCatch;
     readonly asyncTryCatch: <T>(f: () => Promise<T>) => Promise<Result<T, unknown>>;
-    readonly https: Https;
+    readonly http: Http;
 };
 /**
  * The environment variables.
@@ -113,4 +124,4 @@ export type Run = (f: App) => Promise<never>;
  */
 export declare const run: (io: Io) => Run;
 export type EffectToPromise = <T>(effect: Effect<NodeOp, T>) => Promise<T>;
-export declare const fromIo: ({ console: { error, log }, fs: { promises: { mkdir, readFile, readdir, writeFile } }, fetch, https: { createServer }, }: Io) => EffectToPromise;
+export declare const fromIo: ({ console: { error, log }, fs: { promises: { mkdir, readFile, readdir, writeFile } }, fetch, http: { createServer }, }: Io) => EffectToPromise;

package/io/module.f.js

@@ -1,10 +1,9 @@
-import { todo } from "../dev/module.f.js";
 import { normalize } from "../path/module.f.js";
 import {} from "../types/effects/module.f.js";
 import { asyncRun } from "../types/effects/module.js";
 import { asBase, asNominal } from "../types/nominal/module.f.js";
 import { error, ok } from "../types/result/module.f.js";
-import { fromVec, toVec } from "../types/uint8array/module.f.js";
+import { fromVec, listToVec, toVec } from "../types/uint8array/module.f.js";
 /**
  * Runs a function and exits the process with the returned code
  * Handles errors by exiting with code 1
@@ -29,7 +28,14 @@ const tc = async (f) => {
         return error(e);
     }
 };
-export const fromIo = ({ console: { error, log }, fs: { promises: { mkdir, readFile, readdir, writeFile } }, fetch, https: { createServer }, }) => {
+const collect = async (v) => {
+    let result = [];
+    for await (const a of v) {
+        result = [...result, a];
+    }
+    return result;
+};
+export const fromIo = ({ console: { error, log }, fs: { promises: { mkdir, readFile, readdir, writeFile } }, fetch, http: { createServer }, }) => {
     const result = asyncRun({
         all: async (effects) => await Promise.all(effects.map(result)),
         error: async (message) => error(message),
@@ -47,7 +53,19 @@ export const fromIo = ({ console: { error, log }, fs: { promises: { mkdir, readF
             .map(v => ({ name: v.name, parentPath: normalize(v.parentPath), isFile: v.isFile() }))),
         writeFile: ([path, data]) => tc(() => writeFile(path, fromVec(data))),
         createServer: async (requestListener) => {
-            const server = asNominal(createServer(requestListener));
+            const nodeRl = async (req, res) => {
+                const { method, url, headers } = req;
+                const { status, headers: outHeaders, body: outBody } = requestListener({
+                    method,
+                    url,
+                    headers,
+                    body: listToVec(await collect(req))
+                });
+                res
+                    .writeHead(status, outHeaders)
+                    .end(fromVec(outBody));
+            };
+            const server = asNominal(createServer(nodeRl));
             return server;
         },
         listen: async ([server, port]) => {

package/io/module.js

@@ -6,10 +6,10 @@ var __rewriteRelativeImportExtension = (this && this.__rewriteRelativeImportExte
     }
     return path;
 };
-import https from 'node:https';
+import http from 'node:http';
 import { fromIo, run } from "./module.f.js";
 import fs from 'node:fs';
-import process from "node:process";
+import process from 'node:process';
 import { concat } from "../path/module.f.js";
 import { error, ok } from "../types/result/module.f.js";
 const prefix = 'file:///';
@@ -40,7 +40,7 @@ export const io = {
             return error(e);
         }
     },
-    https
+    http,
 };
 export const legacyRun = run(io);
 export const ioRun = (io) => {

package/io/virtual/module.f.js

@@ -34,7 +34,7 @@ export const createVirtualIo = (files) => ({
     fetch: () => Promise.reject(),
     tryCatch: f => ['ok', f()],
     asyncTryCatch: async (f) => ['ok', await f()],
-    https: {
+    http: {
         createServer: todo
     }
 });

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "functionalscript",
-  "version": "0.11.3",
+  "version": "0.11.4",
   "type": "module",
   "files": [
     "**/*.js",

package/text/utf8/module.f.d.ts

@@ -1,3 +1,8 @@
+/**
+ * UTF-8 byte-level encoding and decoding utilities for FunctionalScript streams.
+ *
+ * @module
+ */
 import { type List, type Thunk } from '../../types/list/module.f.ts';
 import type { Array1, Array2, Array3 } from '../../types/array/module.f.ts';
 /**

package/text/utf8/module.f.js

@@ -1,3 +1,8 @@
+/**
+ * UTF-8 byte-level encoding and decoding utilities for FunctionalScript streams.
+ *
+ * @module
+ */
 import { flat, flatMap, stateScan } from "../../types/list/module.f.js";
 /**
  * Error mask constant used to represent invalid code points or encoding errors in UTF-8.

package/types/effects/node/module.f.d.ts

@@ -48,8 +48,20 @@ export type Log = ['log', (_: string) => void];
 export declare const log: Func<Log>;
 export type Console = Log | Error;
 export type Server = Nominal<'server', `160855c4f69310fece3273c1853ac32de43dee1eb41bf59d821917f8eebe9272`, unknown>;
-export type IncomingMessage = {};
-export type ServerResponse = {};
+export type Headers = {
+    readonly [k in string]: string;
+};
+export type IncomingMessage = {
+    readonly method: string;
+    readonly url: string;
+    readonly headers: Headers;
+    readonly body: Vec;
+};
+export type ServerResponse = {
+    readonly status: number;
+    readonly headers: Headers;
+    readonly body: Vec;
+};
 export type RequestListener = (_: IncomingMessage) => ServerResponse;
 export type CreateServer = ['createServer', (_: RequestListener) => Server];
 export declare const createServer: Func<CreateServer>;

package/types/effects/node/test.f.js

@@ -1,5 +1,4 @@
 import { empty, isVec, uint, vec8 } from "../../bit_vec/module.f.js";
-import { run } from "../mock/module.f.js";
 import { pure } from "../module.f.js";
 import { fetch, mkdir, readdir, readFile, writeFile } from "./module.f.js";
 import { emptyState, virtual } from "./virtual/module.f.js";

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

@@ -1,8 +1,10 @@
 import { type Vec } from "../bit_vec/module.f.ts";
+import { type List } from "../list/module.f.ts";
 /**
  * Converts a Uint8Array into an MSB-first bit vector.
  */
 export declare const toVec: (input: Uint8Array) => Vec;
+export declare const listToVec: (input: List<Uint8Array>) => Vec;
 /**
  * Converts an MSB-first bit vector into a Uint8Array.
  */

package/types/uint8array/module.f.js

@@ -6,13 +6,15 @@
 import { utf8, utf8ToString } from "../../text/module.f.js";
 import { msb, u8List, u8ListToVec } from "../bit_vec/module.f.js";
 import { compose } from "../function/module.f.js";
-import { fromArrayLike, iterable } from "../list/module.f.js";
+import { flat, fromArrayLike, iterable, map } from "../list/module.f.js";
 const u8ListToVecMsb = u8ListToVec(msb);
 const u8ListMsb = u8List(msb);
 /**
  * Converts a Uint8Array into an MSB-first bit vector.
  */
 export const toVec = (input) => u8ListToVecMsb(fromArrayLike(input));
+const m = map(fromArrayLike);
+export const listToVec = (input) => u8ListToVecMsb(flat(m(input)));
 /**
  * Converts an MSB-first bit vector into a Uint8Array.
  */