@fraczak/k 6.10.3 → 6.10.5

package/backends/llvm/tests/test-llvm.mjs

@@ -1,6 +1,7 @@
 import assert from "node:assert";
 import { compileObjectBuffer, decodeObject } from "@fraczak/k/object.mjs";
-import { compileObjectToLLVM, emitLLVMModule, llvmIdentifier } from "../src/llvm.mjs";
+import { compileObjectToLLVM, compileLLVMArtifactFromKVM, emitLLVMModule, llvmIdentifier } from "../src/llvm.mjs";
+import { objectToKVMArtifact } from "@fraczak/k/kvm.mjs";
 
 function kirP(body, { patternGraph = null } = {}) {
   return {
@@ -256,4 +257,17 @@ const { llvm: productRecurseLLVM } = compileObjectToLLVM(productRecurseObject, {
 // Calls inside product fields must not return tail status (i32 2)
 assert.doesNotMatch(productRecurseLLVM, /insertvalue %k_result undef, i32 2, 0/);
 
+const kvmArtifact = objectToKVMArtifact(productObject, "__main__");
+assert.equal(kvmArtifact.format, "k-vm");
+const kvmLLVM = compileLLVMArtifactFromKVM(kvmArtifact, {
+  inputPattern: [
+    ["closed-product", [["x", 1], ["y", 2]]],
+    ["closed-product", [["valA", 1]]],
+    ["closed-product", [["valB", 2]]]
+  ]
+});
+assert.match(kvmLLVM, /source_filename = "k-llvm:__main__"/);
+assert.match(kvmLLVM, /define %k_result @k_main/);
+assert.match(kvmLLVM, /store ptr %product_fields\d+, ptr %ptr_slot\d+/);
+
 console.log("OK");

package/backends/wasm/scripts/run-tests.mjs

@@ -6,6 +6,22 @@ import { fileURLToPath } from "node:url";
 
 const root = path.resolve(path.dirname(fileURLToPath(import.meta.url)), "..");
 const node = process.execPath;
+
+function printHelp() {
+  console.log(`Usage: node backends/wasm/scripts/run-tests.mjs [options]
+
+Runs WebAssembly backend test suite and integration tests.
+
+Options:
+  -h, --help
+      Show this help message and exit.`);
+}
+
+if (process.argv.includes("-h") || process.argv.includes("--help")) {
+  printHelp();
+  process.exit(0);
+}
+
 const tests = [
   ["tests/test-wasm.mjs", node, ["tests/test-wasm.mjs"]],
   ["tests/integration.sh", path.join(root, "tests/integration.sh"), []]

package/browser/shims/fs.mjs

@@ -25,7 +25,10 @@ function cleanPath(p) {
 }
 
 export function setVfsFile(path, content) {
-  const cleaned = cleanPath(path);
+  let cleaned = cleanPath(path);
+  if (cleaned.endsWith(".mjs") && !cleaned.startsWith("codecs/")) {
+    cleaned = `codecs/${cleaned}`;
+  }
   vfs.set(cleaned, content);
 }
 
@@ -53,11 +56,13 @@ const CURATED_VFS_FILES = [
   "core.k",
   "arithmetics.k",
   "ieee.k",
-  "json.mjs",
-  "utf8.mjs",
-  "int.mjs",
-  "unit.mjs",
-  "ieee.mjs"
+  "poly.k",
+  "karatsuba-mult.k",
+  "codecs/json.mjs",
+  "codecs/utf8.mjs",
+  "codecs/int.mjs",
+  "codecs/unit.mjs",
+  "codecs/ieee.mjs"
 ];
 
 export function getAllVfsFiles() {
@@ -69,7 +74,7 @@ export function getAllVfsFiles() {
   }
   for (const key of vfs.keys()) {
     if (key.endsWith("runtime.wat") || key.startsWith("backends/")) continue;
-    if (key.startsWith("Examples/") || key.startsWith("codecs/")) continue;
+    if (key.startsWith("Examples/")) continue;
     result.add(key);
   }
   return Array.from(result);