@reventlessdev/reventless-gwt 1.0.0-alpha.114 → 1.0.0-alpha.116

package/src/FormatterVsCode.res.mjs

@@ -1,546 +0,0 @@
-// Generated by ReScript, PLEASE EDIT WITH CARE
-
-import * as Nodefs from "node:fs";
-import * as Nodepath from "node:path";
-import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
-import * as Primitive_option from "@rescript/runtime/lib/es6/Primitive_option.js";
-import * as Hint$ReventlessGwt from "./Hint.res.mjs";
-import * as Outcome$ReventlessGwt from "./Outcome.res.mjs";
-import * as ComponentMeta$ReventlessGwt from "./ComponentMeta.res.mjs";
-import * as RenderRescript$ReventlessGwt from "./RenderRescript.res.mjs";
-import * as Protocol$ReventlessDomainProtocol from "@reventlessdev/reventless-domain-protocol/src/Protocol.res.mjs";
-
-function write(s) {
-  process.stdout.write(s);
-}
-
-function writeLine(s) {
-  process.stdout.write(s + "\n");
-}
-
-function emit(e) {
-  let s = Protocol$ReventlessDomainProtocol.toJsonLine(e);
-  process.stdout.write(s + "\n");
-}
-
-function uriOf(path) {
-  return "file://" + path;
-}
-
-function fileLabelOf(abs) {
-  let base = Nodepath.basename(abs);
-  if (base.endsWith(".res.mjs")) {
-    return base.slice(0, base.length - 8 | 0);
-  } else {
-    return base;
-  }
-}
-
-function relativeToCwd(abs) {
-  return Nodepath.relative(process.cwd(), abs);
-}
-
-let sourceLineCache = {};
-
-function mjsToRes(mjsPath) {
-  if (mjsPath.endsWith(".res.mjs")) {
-    return mjsPath.slice(0, mjsPath.length - 4 | 0);
-  }
-}
-
-function readLinesCached(resPath) {
-  let v = sourceLineCache[resPath];
-  if (v !== undefined) {
-    return Primitive_option.valFromOption(v);
-  }
-  let v$1;
-  try {
-    v$1 = Nodefs.existsSync(resPath) ? Nodefs.readFileSync(resPath, "utf8").split("\n") : undefined;
-  } catch (exn) {
-    v$1 = undefined;
-  }
-  sourceLineCache[resPath] = v$1;
-  return v$1;
-}
-
-function escapeForDouble(s) {
-  return s.replaceAll("\\", "\\\\").replaceAll("\"", "\\\"");
-}
-
-function escapeForSingle(s) {
-  return s.replaceAll("\\", "\\\\").replaceAll("'", "\\'");
-}
-
-function locateInSource(mjsPath, label) {
-  let resPath = mjsToRes(mjsPath);
-  if (resPath === undefined) {
-    return;
-  }
-  let lines = readLinesCached(resPath);
-  if (lines === undefined) {
-    return;
-  }
-  let needleD = "\"" + escapeForDouble(label) + "\"";
-  let needleS = "'" + escapeForSingle(label) + "'";
-  let total = lines.length;
-  let _i = 0;
-  while (true) {
-    let i = _i;
-    if (i >= total) {
-      return;
-    }
-    let line = lines[i];
-    let idxD = line.indexOf(needleD);
-    let idxS = line.indexOf(needleS);
-    let col = idxD !== -1 ? (
-        idxS !== -1 ? (
-            idxD < idxS ? idxD : idxS
-          ) + 1 | 0 : idxD + 1 | 0
-      ) : (
-        idxS !== -1 ? idxS + 1 | 0 : -1
-      );
-    if (col >= 0) {
-      return {
-        file: resPath,
-        line: i + 1 | 0,
-        column: col
-      };
-    }
-    _i = i + 1 | 0;
-    continue;
-  };
-}
-
-function rangeOf(loc) {
-  let pos_line = loc.line - 1 | 0;
-  let pos_character = loc.column - 1 | 0;
-  let pos = {
-    line: pos_line,
-    character: pos_character
-  };
-  return {
-    start: pos,
-    end: pos
-  };
-}
-
-function locationOf(loc) {
-  return {
-    uri: "file://" + loc.file,
-    range: rangeOf(loc)
-  };
-}
-
-function hello() {
-  let s = Protocol$ReventlessDomainProtocol.toJsonLine({
-    event: "hello",
-    protocol: Protocol$ReventlessDomainProtocol.protocolVersion
-  });
-  process.stdout.write(s + "\n");
-}
-
-function discoverStart() {
-  let s = Protocol$ReventlessDomainProtocol.toJsonLine({
-    event: "discoverStart"
-  });
-  process.stdout.write(s + "\n");
-}
-
-function emitDiscoveryItems(files) {
-  files.forEach(param => {
-    let path = param[0];
-    let resPath = mjsToRes(path);
-    let fileUri = resPath !== undefined ? (
-        Nodefs.existsSync(resPath) ? "file://" + resPath : "file://" + path
-      ) : "file://" + path;
-    let component = Stdlib_Option.map(ComponentMeta$ReventlessGwt.componentOfTestFile(path), c => ({
-      kind: c.kind,
-      name: c.name
-    }));
-    let e_3 = fileLabelOf(path);
-    let e_4 = Nodepath.relative(process.cwd(), path);
-    let e_5 = fileUri;
-    let e = {
-      event: "item",
-      id: path,
-      kind: "File",
-      label: e_3,
-      description: e_4,
-      uri: e_5,
-      component: component
-    };
-    let s = Protocol$ReventlessDomainProtocol.toJsonLine(e);
-    process.stdout.write(s + "\n");
-    let seenDescribes = {};
-    param[1].forEach(t => {
-      let stack = {
-        contents: []
-      };
-      t.describePath.forEach(label => {
-        let parent = stack.contents.length === 0 ? path : path + "::" + stack.contents.join("::");
-        stack.contents = stack.contents.concat([label]);
-        let id = path + "::" + stack.contents.join("::");
-        let match = seenDescribes[id];
-        if (match !== undefined) {
-          return;
-        }
-        seenDescribes[id] = true;
-        let loc = locateInSource(path, label);
-        let e_1 = parent;
-        let e_5 = Stdlib_Option.map(loc, l => "file://" + l.file);
-        let e_6 = Stdlib_Option.map(loc, rangeOf);
-        let e = {
-          event: "item",
-          id: id,
-          parent: e_1,
-          kind: "Suite",
-          label: label,
-          uri: e_5,
-          range: e_6
-        };
-        let s = Protocol$ReventlessDomainProtocol.toJsonLine(e);
-        process.stdout.write(s + "\n");
-      });
-      let parent = t.describePath.length === 0 ? path : path + "::" + t.describePath.join("::");
-      let testId = path + "::" + t.id;
-      let resLoc = locateInSource(path, t.name);
-      let match = t.location;
-      let loc = resLoc !== undefined ? resLoc : (
-          match !== undefined ? match : undefined
-        );
-      let e_1 = parent;
-      let e_3 = t.name;
-      let e_5 = Stdlib_Option.map(loc, l => "file://" + l.file);
-      let e_6 = Stdlib_Option.map(loc, rangeOf);
-      let e = {
-        event: "item",
-        id: testId,
-        parent: e_1,
-        kind: "Test",
-        label: e_3,
-        uri: e_5,
-        range: e_6
-      };
-      let s = Protocol$ReventlessDomainProtocol.toJsonLine(e);
-      process.stdout.write(s + "\n");
-    });
-  });
-}
-
-function discoverEnd(total) {
-  let s = Protocol$ReventlessDomainProtocol.toJsonLine({
-    event: "discoverEnd",
-    total: total
-  });
-  process.stdout.write(s + "\n");
-}
-
-function packages(pkgs) {
-  let e = {
-    event: "packages",
-    packages: pkgs.map(p => ({
-      name: p.name,
-      dir: p.dir,
-      build: p.build
-    }))
-  };
-  let s = Protocol$ReventlessDomainProtocol.toJsonLine(e);
-  process.stdout.write(s + "\n");
-}
-
-function components(comps) {
-  let e = {
-    event: "components",
-    components: comps.map(c => ({
-      kind: c.kind,
-      name: c.name,
-      dir: c.dir,
-      files: c.files
-    }))
-  };
-  let s = Protocol$ReventlessDomainProtocol.toJsonLine(e);
-  process.stdout.write(s + "\n");
-}
-
-function deadCode(findings) {
-  let e = {
-    event: "deadCode",
-    findings: findings.map(f => ({
-      kind: f.kind,
-      plugin: f.pluginName,
-      component: f.componentName,
-      detail: f.detail
-    }))
-  };
-  let s = Protocol$ReventlessDomainProtocol.toJsonLine(e);
-  process.stdout.write(s + "\n");
-}
-
-function graph(g) {
-  let s = Protocol$ReventlessDomainProtocol.toJsonLine({
-    event: "graph",
-    nodes: g.nodes,
-    edges: g.edges
-  });
-  process.stdout.write(s + "\n");
-}
-
-function definitions(entries) {
-  let s = Protocol$ReventlessDomainProtocol.toJsonLine({
-    event: "definitions",
-    entries: entries
-  });
-  process.stdout.write(s + "\n");
-}
-
-function buildStart(pkg) {
-  let s = Protocol$ReventlessDomainProtocol.toJsonLine({
-    event: "buildStart",
-    package: pkg
-  });
-  process.stdout.write(s + "\n");
-}
-
-function buildOk(pkg, durationMs) {
-  let s = Protocol$ReventlessDomainProtocol.toJsonLine({
-    event: "buildOk",
-    package: pkg,
-    durationMs: durationMs
-  });
-  process.stdout.write(s + "\n");
-}
-
-function buildFail(pkg, message) {
-  let s = Protocol$ReventlessDomainProtocol.toJsonLine({
-    event: "buildFail",
-    package: pkg,
-    message: message
-  });
-  process.stdout.write(s + "\n");
-}
-
-function buildExternal(pkg) {
-  let s = Protocol$ReventlessDomainProtocol.toJsonLine({
-    event: "buildExternal",
-    package: pkg
-  });
-  process.stdout.write(s + "\n");
-}
-
-function platformStart($$package, dir, domainPort, platformPort) {
-  let s = Protocol$ReventlessDomainProtocol.toJsonLine({
-    event: "platformStart",
-    package: $$package,
-    dir: dir,
-    domainPort: domainPort,
-    platformPort: platformPort
-  });
-  process.stdout.write(s + "\n");
-}
-
-function platformReady(domainEndpoint) {
-  let s = Protocol$ReventlessDomainProtocol.toJsonLine({
-    event: "platformReady",
-    domainEndpoint: domainEndpoint
-  });
-  process.stdout.write(s + "\n");
-}
-
-function domainEvent(payload) {
-  let s = JSON.stringify(payload);
-  process.stdout.write(s + "\n");
-}
-
-function platformLog(line) {
-  let s = Protocol$ReventlessDomainProtocol.toJsonLine({
-    event: "platformLog",
-    line: line
-  });
-  process.stdout.write(s + "\n");
-}
-
-function platformStop(code) {
-  let s = Protocol$ReventlessDomainProtocol.toJsonLine({
-    event: "platformStop",
-    code: code
-  });
-  process.stdout.write(s + "\n");
-}
-
-function runStart(total, filter) {
-  let s = Protocol$ReventlessDomainProtocol.toJsonLine({
-    event: "runStart",
-    total: total,
-    filter: filter
-  });
-  process.stdout.write(s + "\n");
-}
-
-function testStart(id) {
-  let s = Protocol$ReventlessDomainProtocol.toJsonLine({
-    event: "testStart",
-    id: id
-  });
-  process.stdout.write(s + "\n");
-}
-
-function testPass(id, durationMs) {
-  let s = Protocol$ReventlessDomainProtocol.toJsonLine({
-    event: "testPass",
-    id: id,
-    durationMs: durationMs
-  });
-  process.stdout.write(s + "\n");
-}
-
-function testSkip(id, reason) {
-  let s = Protocol$ReventlessDomainProtocol.toJsonLine({
-    event: "testSkip",
-    id: id,
-    reason: reason
-  });
-  process.stdout.write(s + "\n");
-}
-
-function messagePayload(t) {
-  let m = t.mismatch;
-  if (m === undefined) {
-    return {
-      message: "failed"
-    };
-  }
-  let hint = Hint$ReventlessGwt.forMismatch(t.slice, m);
-  let match;
-  switch (m.TAG) {
-    case "ErrorMismatch" :
-      let actual = m.actual;
-      let actStr = actual !== undefined ? "Error(" + RenderRescript$ReventlessGwt.render(undefined, actual) + ")" : "Ok(" + RenderRescript$ReventlessGwt.renderMany(m.actualEvents) + ")";
-      match = [
-        "Error(" + RenderRescript$ReventlessGwt.render(undefined, m.expected) + ")",
-        actStr
-      ];
-      break;
-    case "StateMismatch" :
-      match = [
-        RenderRescript$ReventlessGwt.renderOption(m.expected),
-        RenderRescript$ReventlessGwt.renderOption(m.actual)
-      ];
-      break;
-    case "NoEventExpected" :
-      match = [
-        "[]",
-        RenderRescript$ReventlessGwt.renderMany(m.actual)
-      ];
-      break;
-    case "TodoMismatch" :
-      match = [
-        Outcome$ReventlessGwt.format(m),
-        ""
-      ];
-      break;
-    case "AppendConditionMismatch" :
-      match = [
-        RenderRescript$ReventlessGwt.render(undefined, m.expected),
-        RenderRescript$ReventlessGwt.render(undefined, m.actual)
-      ];
-      break;
-    case "TranslateError" :
-      match = [
-        m.expected,
-        Stdlib_Option.getOr(m.actual, "(none)")
-      ];
-      break;
-    case "Throw" :
-      match = [
-        "",
-        m.error
-      ];
-      break;
-    default:
-      match = [
-        RenderRescript$ReventlessGwt.renderMany(m.expected),
-        RenderRescript$ReventlessGwt.renderMany(m.actual)
-      ];
-  }
-  let location = Stdlib_Option.map(t.location, loc => locationOf(Stdlib_Option.getOr(locateInSource(loc.file, t.name), loc)));
-  return {
-    message: hint.message,
-    kind: Outcome$ReventlessGwt.kindName(m),
-    expected: match[0],
-    actual: match[1],
-    location: location
-  };
-}
-
-function testFail(t, id) {
-  let e_1 = t.durationMs;
-  let e_2 = [messagePayload(t)];
-  let e = {
-    event: "testFail",
-    id: id,
-    durationMs: e_1,
-    messages: e_2
-  };
-  let s = Protocol$ReventlessDomainProtocol.toJsonLine(e);
-  process.stdout.write(s + "\n");
-}
-
-function runEnd(s) {
-  let s$1 = Protocol$ReventlessDomainProtocol.toJsonLine({
-    event: "runEnd",
-    passed: s.passed,
-    failed: s.failed,
-    skipped: s.skipped,
-    durationMs: s.durationMs
-  });
-  process.stdout.write(s$1 + "\n");
-}
-
-let P;
-
-let protocolVersion = Protocol$ReventlessDomainProtocol.protocolVersion;
-
-export {
-  P,
-  write,
-  writeLine,
-  emit,
-  uriOf,
-  fileLabelOf,
-  relativeToCwd,
-  sourceLineCache,
-  mjsToRes,
-  readLinesCached,
-  escapeForDouble,
-  escapeForSingle,
-  locateInSource,
-  rangeOf,
-  locationOf,
-  protocolVersion,
-  hello,
-  discoverStart,
-  emitDiscoveryItems,
-  discoverEnd,
-  packages,
-  components,
-  deadCode,
-  graph,
-  definitions,
-  buildStart,
-  buildOk,
-  buildFail,
-  buildExternal,
-  platformStart,
-  platformReady,
-  domainEvent,
-  platformLog,
-  platformStop,
-  runStart,
-  testStart,
-  testPass,
-  testSkip,
-  messagePayload,
-  testFail,
-  runEnd,
-}
-/* node:fs Not a pure module */

package/src/Loader.res

@@ -1,24 +0,0 @@
-// Dynamic-import wrapper. Each GWT test file registers describe/test at
-// import time, so the caller must `Collector.activate()` before invoking
-// `loadFile` and drain after. The loader converts the absolute path into
-// a `file://` URL so Node's ESM loader accepts it.
-//
-// A monotonic cache-busting query (`?t=N`) is appended so every load
-// re-executes the module's top-level registration. Node's ESM cache is keyed
-// by URL (not mtime), so without this a second load in the same process — the
-// `discover`-then-run within `watch`, and every re-run after a recompile —
-// would hit the cache, skip registration, and drain zero tests. The `?t=`
-// query is stripped from captured stack frames in `Collector.parseFrame`.
-
-@module("node:url") external pathToFileURL: string => {"href": string} = "pathToFileURL"
-
-let dynamicImport: string => promise<'a> = %raw(`(u) => import(u)`)
-
-let counter = ref(0)
-
-let loadFile = async (absolutePath: string): unit => {
-  counter := counter.contents + 1
-  let url = pathToFileURL(absolutePath)
-  let busted = url["href"] ++ "?t=" ++ Int.toString(counter.contents)
-  let _: 'a = await dynamicImport(busted)
-}

package/src/Loader.res.mjs

@@ -1,23 +0,0 @@
-// Generated by ReScript, PLEASE EDIT WITH CARE
-
-import * as Nodeurl from "node:url";
-
-let dynamicImport = ((u) => import(u));
-
-let counter = {
-  contents: 0
-};
-
-async function loadFile(absolutePath) {
-  counter.contents = counter.contents + 1 | 0;
-  let url = Nodeurl.pathToFileURL(absolutePath);
-  let busted = url.href + "?t=" + counter.contents.toString();
-  await dynamicImport(busted);
-}
-
-export {
-  dynamicImport,
-  counter,
-  loadFile,
-}
-/* node:url Not a pure module */

package/src/PackageScan.res

@@ -1,80 +0,0 @@
-// Derives the set of workspace packages that own GWT test files, so a watch
-// session knows which packages to keep compiling (`pnpm run start` →
-// `rescript build -w`). Given the absolute test-file paths from `Discovery`,
-// each is mapped to its nearest ancestor `package.json` that declares a
-// `start` script; results are deduplicated by directory.
-//
-// This is the input both the `packages` NDJSON event (FormatterVsCode) and the
-// watch-mode build manager (ProcessManager) consume — computed fresh per run so
-// it never drifts when a plugin is added or removed.
-
-type pkg = {
-  // Package name from package.json (may be "" if absent).
-  name: string,
-  // Absolute directory containing the owning package.json.
-  dir: string,
-  // The `start` script's command (the ReScript watch command), informational.
-  build: string,
-}
-
-@module("node:fs") external _existsSync: string => bool = "existsSync"
-@module("node:fs") external _readFileSync: (string, string) => string = "readFileSync"
-@module("node:path") external dirname: string => string = "dirname"
-@module("node:path") external join: (string, string) => string = "join"
-
-// Reads name + `start` command from a package.json, if it declares one.
-let readPackage = (pkgJsonPath: string): option<(string, string)> =>
-  try {
-    let json = JSON.parseOrThrow(_readFileSync(pkgJsonPath, "utf8"))
-    switch json {
-    | Object(obj) =>
-      let name = switch obj->Dict.get("name") {
-      | Some(String(n)) => n
-      | _ => ""
-      }
-      switch obj->Dict.get("scripts") {
-      | Some(Object(scripts)) =>
-        switch scripts->Dict.get("start") {
-        | Some(String(cmd)) => Some((name, cmd))
-        | _ => None
-        }
-      | _ => None
-      }
-    | _ => None
-    }
-  } catch {
-  | _ => None
-  }
-
-// Walks up from `dir` to the nearest package.json declaring a `start` script.
-let rec findOwning = (dir: string): option<pkg> => {
-  let pkgJson = join(dir, "package.json")
-  let here = _existsSync(pkgJson) ? readPackage(pkgJson) : None
-  switch here {
-  | Some((name, build)) => Some({name, dir, build})
-  | None => {
-      let parent = dirname(dir)
-      parent == dir ? None : findOwning(parent)
-    }
-  }
-}
-
-// Maps test files → deduplicated owning packages (declaration order preserved).
-let scan = (testFiles: array<string>): array<pkg> => {
-  let seen = Dict.make()
-  let out = []
-  testFiles->Array.forEach(file =>
-    switch findOwning(dirname(file)) {
-    | Some(pkg) =>
-      switch seen->Dict.get(pkg.dir) {
-      | Some(_) => ()
-      | None => {
-          seen->Dict.set(pkg.dir, true)
-          out->Array.push(pkg)
-        }
-      }
-    | None => ()
-    }
-  )
-  out
-}