@fraczak/k 6.0.1 → 6.0.3

package/objects/extract-aliases.mjs

@@ -0,0 +1,59 @@
+#!/usr/bin/env node
+
+import fs from "node:fs";
+import { argv, exit, stdin, stdout } from "node:process";
+import { extractAliasesFromObjectBuffer } from "../object.mjs";
+
+function helpText() {
+  return [
+    "Extract metadata aliases from a .ko or .klib as a valid k source snippet.",
+    "",
+    `Usage: ${argv[1]} [ object-file [ k-file ] ]`,
+    "",
+    "Output is grouped by metadata type (code, then rel), then sorted by alias",
+    "name and compiledAt. Earlier definitions of the same alias are commented",
+    "out so only the latest one remains active.",
+    "",
+    "Arguments:",
+    "  object-file  Input .ko or .klib path. Reads binary object data from stdin when omitted.",
+    "  k-file       Output .k path. Writes source to stdout when omitted.",
+    "",
+    "Options:",
+    "  -h, --help   Show this help.",
+    "",
+    "Example:",
+    `  ${argv[1]} core.klib aliases.k`
+  ].join("\n");
+}
+
+function usage(stream = console.error) {
+  stream(helpText());
+}
+
+async function readStdinBuffer() {
+  const chunks = [];
+  for await (const chunk of stdin) {
+    chunks.push(Buffer.isBuffer(chunk) ? chunk : Buffer.from(chunk));
+  }
+  return Buffer.concat(chunks);
+}
+
+try {
+  const [, , objectPath, outputPath] = argv;
+  if (objectPath === "-h" || objectPath === "--help") {
+    usage(console.log);
+    exit(0);
+  }
+
+  const objectBuffer = objectPath == null ? await readStdinBuffer() : fs.readFileSync(objectPath);
+  const source = extractAliasesFromObjectBuffer(objectBuffer);
+  if (outputPath == null) {
+    stdout.write(source);
+  } else {
+    fs.writeFileSync(outputPath, source);
+  }
+} catch (error) {
+  console.error(error);
+  usage();
+  exit(1);
+}

package/package.json

@@ -1,6 +1,6 @@
 {
     "name": "@fraczak/k",
-    "version": "6.0.1",
+    "version": "6.0.3",
     "description": "k — a language for composing first-order partial functions over algebraic data types (products and tagged unions); includes runtime, type derivation, REPL, and codec toolchain",
     "main": "index.mjs",
     "scripts": {
@@ -18,8 +18,9 @@
         "k": "./k.mjs",
         "k-compile-object": "./objects/compile.mjs",
         "k-decompile-object": "./objects/decompile.mjs",
+        "k-extract-aliases": "./objects/extract-aliases.mjs",
         "k-parse": "./codecs/k-parse.mjs",
-        "k-pattern": "./codecs/k-pattern.mjs",
+        "k-pattern": "./patterns/from-k.mjs",
         "k-print": "./codecs/k-print.mjs",
         "k-repl": "./repl2.mjs",
         "k-repl2": "./repl2.mjs"

package/{codecs/k-pattern.mjs → patterns/from-k.mjs}

@@ -3,14 +3,14 @@
 import fs from "node:fs";
 import { argv, exit, stdin, stdout } from "node:process";
 import k from "../index.mjs";
-import { exportPatternGraph } from "./runtime/codec.mjs";
-import { patternToPropertyList } from "./runtime/pattern-json.mjs";
+import { exportPatternGraph } from "../codecs/runtime/codec.mjs";
+import { patternToPropertyList } from "../codecs/runtime/pattern-json.mjs";
 
 function usage(prog) {
   console.error(`Usage: ${prog} [script-or-file]`);
   console.error("  Read a k script from a file argument or stdin.");
   console.error("  The main expression must be a filter or a type name.");
-  console.error("  Output is the canonical JSON pattern array.");
+  console.error("  Output is the canonical property-list pattern array.");
   console.error("  Example:");
   console.error(`    cat pattern.k | ${prog}`);
   console.error(`    ${prog} '$ bits = < {} _, bits 0, bits 1 >; ?< {} nil, { $bits car, X cdr } cons > = X'`);