Merge branch 'main' into claude/step4-b-random-perf

Signed-off-by: Jonathan D.A. Jewell <6759885+hyperpolymath@users.noreply.github.com>

Author: hyperpolymath

lib/codegen_deno.ml

@@ -513,6 +513,14 @@ let () =
   b "ensureDir"     (fun a -> Printf.sprintf "__as_ensureDir(%s)" (arg 0 a));
   b "readDirNames"  (fun a -> Printf.sprintf "__as_readDirNames(%s)" (arg 0 a));
   b "statSize"      (fun a -> Printf.sprintf "Deno.statSync(%s).size" (arg 0 a));
+  b "statIsFile"      (fun a -> Printf.sprintf "Deno.statSync(%s).isFile" (arg 0 a));
+  b "statIsDirectory" (fun a -> Printf.sprintf "Deno.statSync(%s).isDirectory" (arg 0 a));
+  b "bytesLength"     (fun a -> Printf.sprintf "(%s).length" (arg 0 a));
+  b "bytesByteAt"     (fun a -> Printf.sprintf "(%s)[%s]" (arg 0 a) (arg 1 a));
+  b "bytesAsciiSlice" (fun a -> Printf.sprintf "String.fromCharCode(...(%s).slice(%s, %s))" (arg 0 a) (arg 1 a) (arg 2 a));
+  (* `import.meta.url` — only legal at module top level, which the
+     Deno-ESM backend's output already is. *)
+  b "importMetaUrl"   (fun _ -> "import.meta.url");
   b "pathJoin"      (fun a -> Printf.sprintf "__as_pathJoin(%s, %s)" (arg 0 a) (arg 1 a));
   b "isNotFound"    (fun a -> Printf.sprintf "__as_isNotFound(%s)" (arg 0 a));
   (* ---- JSON ---- *)
@@ -1258,6 +1266,13 @@ and gen_try_stmt ctx body catch finally =
 
 and gen_stmt ctx (stmt : stmt) : string =
   match stmt with
+  | StmtLet { sl_pat = PatWildcard _; sl_value; _ } ->
+      (* `let _ = X` evaluates X for side effects and drops the value.
+         Emitting `const _ = X;` produces a JS SyntaxError on the second
+         occurrence in the same scope ("Identifier '_' has already been
+         declared"). Drop the binding entirely; the bare expression
+         statement keeps the semantics. *)
+      gen_expr ctx sl_value ^ ";"
   | StmtLet { sl_pat; sl_value; sl_mut; sl_quantity = _; sl_ty = _ } ->
       let kw = if sl_mut then "let" else "const" in
       let js = kw ^ " " ^ gen_pattern ctx sl_pat ^ " = "

stdlib/Deno.affine

@@ -68,6 +68,14 @@ pub extern fn readDirNames(path: String) -> [String];
 /// `Deno.statSync(path).size` in bytes.
 pub extern fn statSize(path: String) -> Int;
 
+/// `Deno.statSync(path).isFile` — true if `path` is a regular file.
+/// Throws on a missing path (pair with `isNotFound` for the absent case).
+pub extern fn statIsFile(path: String) -> Bool;
+
+/// `Deno.statSync(path).isDirectory` — true if `path` is a directory.
+/// Throws on a missing path (pair with `isNotFound` for the absent case).
+pub extern fn statIsDirectory(path: String) -> Bool;
+
 /// Recursive walk under `root` — every file path beneath it, depth-first.
 /// Mirrors `std/fs/walk` for the common case (no glob filter; callers
 /// filter by extension). Throws on a missing root via `Deno.readDirSync`.
@@ -164,29 +172,14 @@ pub extern fn dateNow() -> Int;
 /// returns epoch millis as `Int`.
 pub extern fn dateNowIso() -> String;
 
-/// `performance.now()` — high-resolution sub-millisecond timer in
-/// milliseconds since process start. Use for fine-grained timings (the
-/// existing `dateNow()` returns coarse epoch-millis as Int). Standard
-/// JS performance API, present in Deno, Node ≥ 16, and modern browsers.
-pub extern fn performance_now() -> Float;
-
-// ── Randomness (PRNG, non-crypto) ──────────────────────────────────
-//
-// Bound on `Math.random()` — the JS PRNG, **not cryptographically
-// secure**. Sufficient for property-test input generation, sampling,
-// and simulations. For cryptographic random bytes, a separate
-// `crypto_random_bytes` binding routing to `crypto.getRandomValues()`
-// belongs in a different sub-issue (different host call, different
-// threat model).
-
-/// `Math.random()` — uniform pseudo-random Float in `[0, 1)`.
-pub extern fn math_random() -> Float;
-
-/// Uniform u32 in `[0, 2^32)`, derived from `math_random()`.
-pub extern fn random_u32() -> Int;
+// ── Module identity ────────────────────────────────────────────────
 
-/// Uniform Int in `[lo, hi)`. Undefined behaviour if `hi <= lo`.
-pub extern fn random_in_range(lo: Int, hi: Int) -> Int;
+/// `import.meta.url` — the absolute URL of the importing module. The JS
+/// idiom for "find my own location" (cf. `__dirname` / `__filename`). At
+/// Deno-ESM top level, lowers to the bare `import.meta.url` expression;
+/// callers parse it (`new URL(...)`/`fileURLToPath`/string split) for
+/// directory-relative behaviour.
+pub extern fn importMetaUrl() -> String;
 
 // ── CLI ────────────────────────────────────────────────────────────
 

tests/codegen-deno/deno_scripting_part2.affine

@@ -0,0 +1,63 @@
+// SPDX-License-Identifier: MPL-2.0
+// campaign #239 STEP 3 — second batch of Deno-scripting stdlib gaps
+// surfaced during STEP 2 ports (panic-attack#82, session-sentinel#25,
+// tropical-resource-typing#15, nafa-app#23).
+//
+// New externs / fixes exercised:
+//   - statIsFile / statIsDirectory         (gap 3)
+//   - bytesLength / bytesByteAt /
+//     bytesAsciiSlice                      (gap 4)
+//   - importMetaUrl                        (gap 5)
+//   - let _ = X wildcard binding emits
+//     a bare expression statement          (gap 7)
+//
+// Signatures stay in primitives so the harness can stub the host.
+
+use Deno::{ statIsFile, statIsDirectory, bytesLength, bytesByteAt, bytesAsciiSlice, importMetaUrl, readFileBytes };
+
+pub fn classify_path(p: String) -> Int {
+  if statIsFile(p) {
+    1
+  } else {
+    if statIsDirectory(p) {
+      2
+    } else {
+      0
+    }
+  }
+}
+
+pub fn first_byte(p: String) -> Int {
+  let b = readFileBytes(p);
+  if bytesLength(b) == 0 {
+    0
+  } else {
+    bytesByteAt(b, 0)
+  }
+}
+
+pub fn header_string(p: String, n: Int) -> String {
+  let b = readFileBytes(p);
+  let lim = bytesLength(b);
+  let end = if n > lim { lim } else { n };
+  bytesAsciiSlice(b, 0, end)
+}
+
+pub fn module_url_has_scheme() -> Bool {
+  let u = importMetaUrl();
+  // Any well-formed module URL starts with `file:` or `http`.
+  len(u) > 4
+}
+
+fn side(n: Int) -> Int { n + 1 }
+
+pub fn discard_chain() -> Int {
+  // Three back-to-back `let _ = side(N)` discards. Before the fix this
+  // tripped JS `SyntaxError: Identifier '_' has already been declared`
+  // because the AS pattern lowered to `const _ = ...` thrice. Now they
+  // lower to bare expression statements.
+  let _ = side(1);
+  let _ = side(2);
+  let _ = side(3);
+  42
+}