simple file server

Author: sergey-shandar

main.css

@@ -0,0 +1,24 @@
+:root {
+    color-scheme: light dark;
+}
+
+:root {
+    --bg: white;
+    --text: black;
+}
+
+@media (prefers-color-scheme: dark) {
+    :root {
+        --bg: black;
+        --text: white;
+    }
+}
+
+body {
+    background-color: var(--bg);
+    color: var(--text);
+}
+
+a {
+    color: green;
+}

package-lock.json

@@ -0,0 +1,27 @@
+{
+  "name": "file-server-example",
+  "version": "0.0.0",
+  "description": "File Server Example",
+  "homepage": "https://github.com/functionalscript/file-server-example#readme",
+  "bugs": {
+    "url": "https://github.com/functionalscript/file-server-example/issues"
+  },
+  "repository": {
+    "type": "git",
+    "url": "git+https://github.com/functionalscript/file-server-example.git"
+  },
+  "license": "MIT",
+  "author": "Sergey Shandar",
+  "type": "module",
+  "main": "server.f.ts",
+  "scripts": {
+    "test": "fjs t",
+    "server": "fjs r ./server.f.ts"
+  },
+  "dependencies": {
+    "functionalscript": "^0.11.6"
+  },
+  "devDependencies": {
+    "typescript": "^5.9.3"
+  }
+}

package.json

@@ -0,0 +1,63 @@
+import { utf8 } from 'functionalscript/text/module.f.js'
+import { type Vec } from 'functionalscript/types/bit_vec/module.f.js'
+import { pure } from 'functionalscript/types/effects/module.f.js'
+import {
+    createServer,
+    listen,
+    forever,
+    type NodeProgram,
+    type IncomingMessage,
+    readFile,
+    type ServerResponse,
+    log,
+    readdir,
+    type IoResult,
+    type Dirent,
+} from 'functionalscript/types/effects/node/module.f.js'
+import { htmlToString } from 'functionalscript/html/module.f.js'
+import { concat } from 'functionalscript/path/module.f.js'
+
+const listener = ({ url }: IncomingMessage) => {
+    const path = url.split('?')[0] ?? ''
+    const file = '.' + path
+
+    const dirLink = ({ name, isFile }: Dirent) => {
+        const href = '/' + concat(path)(name)
+        return [['a', { href }, name + (isFile ? '' : '/')], '\n'] as const
+    }
+
+    const dirPage = (v: readonly Dirent[]) => htmlToString(
+        ['html',
+            ['head',
+                ['link', { rel: 'stylesheet', href: '/main.css' }]
+            ],
+            ['body',
+                ['pre',
+                    ...v.flatMap(dirLink)
+                ]
+            ]
+        ])
+
+    const orReadDir = (r: IoResult<Vec>) => r[0] === 'ok'
+        ? pure(r)
+        : readdir(file, {})
+            .step(([s, v]) => pure([s, utf8(s === 'ok' ? dirPage(v) : '')] as const))
+
+    return log(`reading ${file}`)
+        .step(() => readFile(file))
+        .step(orReadDir)
+        .step(([s, v]) => {
+            const o = s === 'ok'
+            return pure({
+                status: o ? 200 : 404,
+                headers: {},
+                body: o ? v : utf8('404 not found'),
+            })
+        })
+}
+
+const main: NodeProgram = () => createServer(listener)
+    .step(server => listen(server, 3000))
+    .step(forever)
+
+export default main

server.f.ts

@@ -0,0 +1,47 @@
+{
+  // Visit https://aka.ms/tsconfig to read more about this file
+  "compilerOptions": {
+    // File Layout
+    // "rootDir": "./src",
+    // "outDir": "./dist",
+
+    // Environment Settings
+    // See also https://aka.ms/tsconfig/module
+    "module": "nodenext",
+    "target": "esnext",
+    "types": [],
+    // For nodejs:
+    // "lib": ["esnext"],
+    // "types": ["node"],
+    // and npm install -D @types/node
+
+    // Other Outputs
+    "sourceMap": true,
+    "declaration": true,
+    "declarationMap": true,
+
+    // Stricter Typechecking Options
+    "noUncheckedIndexedAccess": true,
+    "exactOptionalPropertyTypes": true,
+
+    // Style Options
+    // "noImplicitReturns": true,
+    // "noImplicitOverride": true,
+    // "noUnusedLocals": true,
+    // "noUnusedParameters": true,
+    // "noFallthroughCasesInSwitch": true,
+    // "noPropertyAccessFromIndexSignature": true,
+
+    // Recommended Options
+    "strict": true,
+    "jsx": "react-jsx",
+    "verbatimModuleSyntax": true,
+    "isolatedModules": true,
+    "noUncheckedSideEffectImports": true,
+    "moduleDetection": "force",
+    "skipLibCheck": true,
+
+    //
+    "noEmit": true
+  }
+}