numbl 0.1.4 → 0.1.5

package/dist-cli/cli.js

@@ -38178,6 +38178,150 @@ registerIBuiltin({
     };
   }
 });
+var RE_ALPHA = /\p{L}/u;
+var RE_ALPHANUM = /[\p{L}\p{N}]/u;
+var RE_CNTRL = /\p{Cc}/u;
+var RE_GRAPHIC = /[\p{L}\p{N}\p{P}\p{S}\p{M}]/u;
+var RE_LOWER = /\p{Ll}/u;
+var RE_PUNCT = /\p{P}/u;
+var RE_UPPER = /\p{Lu}/u;
+var RE_WSPACE = /\s/u;
+function isstrpropPredicate(category) {
+  switch (category) {
+    case "alpha":
+      return (cp) => RE_ALPHA.test(String.fromCodePoint(cp));
+    case "alphanum":
+      return (cp) => RE_ALPHANUM.test(String.fromCodePoint(cp));
+    case "cntrl":
+      return (cp) => RE_CNTRL.test(String.fromCodePoint(cp));
+    case "digit":
+      return (cp) => cp >= 48 && cp <= 57;
+    case "graphic":
+      return (cp) => RE_GRAPHIC.test(String.fromCodePoint(cp));
+    case "lower":
+      return (cp) => RE_LOWER.test(String.fromCodePoint(cp));
+    case "print":
+      return (cp) => cp === 32 || RE_GRAPHIC.test(String.fromCodePoint(cp));
+    case "punct":
+      return (cp) => RE_PUNCT.test(String.fromCodePoint(cp));
+    case "wspace":
+      return (cp) => RE_WSPACE.test(String.fromCodePoint(cp));
+    case "upper":
+      return (cp) => RE_UPPER.test(String.fromCodePoint(cp));
+    case "xdigit":
+      return (cp) => cp >= 48 && cp <= 57 || cp >= 65 && cp <= 70 || cp >= 97 && cp <= 102;
+    default:
+      return null;
+  }
+}
+function stringCodePoints(s) {
+  const out = [];
+  for (const ch of s) out.push(ch.codePointAt(0));
+  return out;
+}
+function logicalRowFromString(s, pred, shape) {
+  const cps = stringCodePoints(s);
+  const data = new FloatXArray(cps.length);
+  for (let i = 0; i < cps.length; i++) data[i] = pred(cps[i]) ? 1 : 0;
+  return {
+    kind: "tensor",
+    data,
+    shape: shape ?? [1, cps.length],
+    _isLogical: true,
+    _rc: 1
+  };
+}
+function logicalFromNumericTensor(data, shape, pred) {
+  const out = new FloatXArray(data.length);
+  for (let i = 0; i < data.length; i++) {
+    out[i] = pred(Math.round(data[i])) ? 1 : 0;
+  }
+  return {
+    kind: "tensor",
+    data: out,
+    shape: [...shape],
+    _isLogical: true,
+    _rc: 1
+  };
+}
+function isstrpropApply(args) {
+  const v = args[0];
+  const category = toString(args[1]);
+  const pred = isstrpropPredicate(category);
+  if (!pred) {
+    throw new RuntimeError(`isstrprop: unknown category '${category}'`);
+  }
+  let forceCell = false;
+  if (args.length >= 3) {
+    const flagName = toString(args[2]).toLowerCase();
+    if (flagName !== "forcecelloutput") {
+      throw new RuntimeError(`isstrprop: unknown name '${toString(args[2])}'`);
+    }
+    if (args.length < 4) {
+      throw new RuntimeError("isstrprop: 'ForceCellOutput' requires a value");
+    }
+    forceCell = toNumber(args[3]) !== 0;
+  }
+  if (isRuntimeCell(v)) {
+    const out = new Array(v.data.length);
+    for (let i = 0; i < v.data.length; i++) {
+      const elem = v.data[i];
+      const s = isText(elem) ? toString(elem) : "";
+      out[i] = logicalRowFromString(s, pred);
+    }
+    return RTV.cell(out, [...v.shape]);
+  }
+  let result;
+  if (isRuntimeString(v)) {
+    result = logicalRowFromString(toString(v), pred);
+  } else if (isRuntimeChar(v)) {
+    const c = v;
+    result = logicalRowFromString(
+      c.value,
+      pred,
+      c.shape ? [...c.shape] : void 0
+    );
+  } else if (isRuntimeTensor(v)) {
+    result = logicalFromNumericTensor(v.data, v.shape, pred);
+  } else if (isRuntimeNumber(v) || isRuntimeLogical(v)) {
+    const cp = Math.round(toNumber(v));
+    const data = new FloatXArray(1);
+    data[0] = pred(cp) ? 1 : 0;
+    result = { kind: "tensor", data, shape: [1, 1], _isLogical: true, _rc: 1 };
+  } else {
+    throw new RuntimeError("isstrprop: unsupported input type");
+  }
+  if (forceCell) return RTV.cell([result], [1, 1]);
+  return result;
+}
+registerIBuiltin({
+  name: "isstrprop",
+  help: {
+    signatures: [
+      "TF = isstrprop(str, category)",
+      "TF = isstrprop(str, category, 'ForceCellOutput', tf)"
+    ],
+    description: "Test which characters in str belong to a category (alpha, alphanum, cntrl, digit, graphic, lower, print, punct, upper, wspace, xdigit). Returns a logical array, or a cell of logical vectors when str is a cell array or ForceCellOutput is true. Numeric input is treated as Unicode code points."
+  },
+  resolve: (argTypes) => {
+    if (argTypes.length < 2 || argTypes.length > 4) return null;
+    if (!isTextType(argTypes[1])) return null;
+    if (argTypes.length >= 3 && !isTextType(argTypes[2])) return null;
+    if (argTypes.length === 4) {
+      const k = argTypes[3].kind;
+      if (k !== "number" && k !== "boolean") return null;
+    }
+    const t0 = argTypes[0];
+    if (t0.kind !== "char" && t0.kind !== "string" && t0.kind !== "number" && t0.kind !== "boolean" && t0.kind !== "tensor" && t0.kind !== "cell") {
+      return null;
+    }
+    const isCell = t0.kind === "cell";
+    return {
+      outputTypes: isCell ? [{ kind: "cell" }] : [{ kind: "tensor", isComplex: false, isLogical: true }],
+      apply: (args) => isstrpropApply(args)
+    };
+  }
+});
 registerIBuiltin({
   name: "contains",
   resolve: (argTypes) => {
@@ -48439,6 +48583,15 @@ var H = {
     signatures: ["TF = isequal(A, B, ...)"],
     description: "True if all inputs are equal (NaN ~= NaN)."
   },
+  // ── Dynamic evaluation ────────────────────────────────────────────────
+  evalin: {
+    signatures: ["V = evalin(WS, EXPR)", "V = evalin(WS, EXPR, DEFAULT)"],
+    description: "Evaluate EXPR in workspace WS ('caller' or 'base'/'workspace').\n\nnumbl-specific note: variables read by evalin must be declared in the\nfunction that owns them with a `% external-access:` comment, e.g.\n    function out = f()\n        % external-access: x y\n        x = 1; y = 2;\n        ...\n    end\nVariables not listed in `% external-access` are stored in a separate\ndynamic map and are only reachable through evalin/assignin. The\ndirective is a comment, so MATLAB ignores it."
+  },
+  assignin: {
+    signatures: ["assignin(WS, NAME, VALUE)"],
+    description: "Assign VALUE to variable NAME in workspace WS ('caller' or 'base'/'workspace').\n\nnumbl-specific note: variables written by assignin must be declared in\nthe function that owns them with a `% external-access:` comment, e.g.\n    function out = f()\n        % external-access: x y\n        x = 1; y = 2;\n        ...\n    end\nVariables not listed in `% external-access` are stored in a separate\ndynamic map and are only reachable through evalin/assignin. The\ndirective is a comment, so MATLAB ignores it."
+  },
   // ── Misc ──────────────────────────────────────────────────────────────
   disp: {
     signatures: ["disp(X)"],
@@ -49336,7 +49489,7 @@ function getSourceLine(getSource, file, line) {
 }
 
 // src/numbl-core/version.ts
-var NUMBL_VERSION = "0.1.4";
+var NUMBL_VERSION = "0.1.5";
 
 // src/cli-repl.ts
 import { createInterface } from "readline";

package/dist-lib/lib.js

@@ -30057,6 +30057,150 @@ registerIBuiltin({
     };
   }
 });
+var RE_ALPHA = /\p{L}/u;
+var RE_ALPHANUM = /[\p{L}\p{N}]/u;
+var RE_CNTRL = /\p{Cc}/u;
+var RE_GRAPHIC = /[\p{L}\p{N}\p{P}\p{S}\p{M}]/u;
+var RE_LOWER = /\p{Ll}/u;
+var RE_PUNCT = /\p{P}/u;
+var RE_UPPER = /\p{Lu}/u;
+var RE_WSPACE = /\s/u;
+function isstrpropPredicate(category) {
+  switch (category) {
+    case "alpha":
+      return (cp) => RE_ALPHA.test(String.fromCodePoint(cp));
+    case "alphanum":
+      return (cp) => RE_ALPHANUM.test(String.fromCodePoint(cp));
+    case "cntrl":
+      return (cp) => RE_CNTRL.test(String.fromCodePoint(cp));
+    case "digit":
+      return (cp) => cp >= 48 && cp <= 57;
+    case "graphic":
+      return (cp) => RE_GRAPHIC.test(String.fromCodePoint(cp));
+    case "lower":
+      return (cp) => RE_LOWER.test(String.fromCodePoint(cp));
+    case "print":
+      return (cp) => cp === 32 || RE_GRAPHIC.test(String.fromCodePoint(cp));
+    case "punct":
+      return (cp) => RE_PUNCT.test(String.fromCodePoint(cp));
+    case "wspace":
+      return (cp) => RE_WSPACE.test(String.fromCodePoint(cp));
+    case "upper":
+      return (cp) => RE_UPPER.test(String.fromCodePoint(cp));
+    case "xdigit":
+      return (cp) => cp >= 48 && cp <= 57 || cp >= 65 && cp <= 70 || cp >= 97 && cp <= 102;
+    default:
+      return null;
+  }
+}
+function stringCodePoints(s) {
+  const out = [];
+  for (const ch of s) out.push(ch.codePointAt(0));
+  return out;
+}
+function logicalRowFromString(s, pred, shape) {
+  const cps = stringCodePoints(s);
+  const data = new FloatXArray(cps.length);
+  for (let i = 0; i < cps.length; i++) data[i] = pred(cps[i]) ? 1 : 0;
+  return {
+    kind: "tensor",
+    data,
+    shape: shape ?? [1, cps.length],
+    _isLogical: true,
+    _rc: 1
+  };
+}
+function logicalFromNumericTensor(data, shape, pred) {
+  const out = new FloatXArray(data.length);
+  for (let i = 0; i < data.length; i++) {
+    out[i] = pred(Math.round(data[i])) ? 1 : 0;
+  }
+  return {
+    kind: "tensor",
+    data: out,
+    shape: [...shape],
+    _isLogical: true,
+    _rc: 1
+  };
+}
+function isstrpropApply(args) {
+  const v = args[0];
+  const category = toString(args[1]);
+  const pred = isstrpropPredicate(category);
+  if (!pred) {
+    throw new RuntimeError(`isstrprop: unknown category '${category}'`);
+  }
+  let forceCell = false;
+  if (args.length >= 3) {
+    const flagName = toString(args[2]).toLowerCase();
+    if (flagName !== "forcecelloutput") {
+      throw new RuntimeError(`isstrprop: unknown name '${toString(args[2])}'`);
+    }
+    if (args.length < 4) {
+      throw new RuntimeError("isstrprop: 'ForceCellOutput' requires a value");
+    }
+    forceCell = toNumber(args[3]) !== 0;
+  }
+  if (isRuntimeCell(v)) {
+    const out = new Array(v.data.length);
+    for (let i = 0; i < v.data.length; i++) {
+      const elem = v.data[i];
+      const s = isText(elem) ? toString(elem) : "";
+      out[i] = logicalRowFromString(s, pred);
+    }
+    return RTV.cell(out, [...v.shape]);
+  }
+  let result;
+  if (isRuntimeString(v)) {
+    result = logicalRowFromString(toString(v), pred);
+  } else if (isRuntimeChar(v)) {
+    const c = v;
+    result = logicalRowFromString(
+      c.value,
+      pred,
+      c.shape ? [...c.shape] : void 0
+    );
+  } else if (isRuntimeTensor(v)) {
+    result = logicalFromNumericTensor(v.data, v.shape, pred);
+  } else if (isRuntimeNumber(v) || isRuntimeLogical(v)) {
+    const cp = Math.round(toNumber(v));
+    const data = new FloatXArray(1);
+    data[0] = pred(cp) ? 1 : 0;
+    result = { kind: "tensor", data, shape: [1, 1], _isLogical: true, _rc: 1 };
+  } else {
+    throw new RuntimeError("isstrprop: unsupported input type");
+  }
+  if (forceCell) return RTV.cell([result], [1, 1]);
+  return result;
+}
+registerIBuiltin({
+  name: "isstrprop",
+  help: {
+    signatures: [
+      "TF = isstrprop(str, category)",
+      "TF = isstrprop(str, category, 'ForceCellOutput', tf)"
+    ],
+    description: "Test which characters in str belong to a category (alpha, alphanum, cntrl, digit, graphic, lower, print, punct, upper, wspace, xdigit). Returns a logical array, or a cell of logical vectors when str is a cell array or ForceCellOutput is true. Numeric input is treated as Unicode code points."
+  },
+  resolve: (argTypes) => {
+    if (argTypes.length < 2 || argTypes.length > 4) return null;
+    if (!isTextType(argTypes[1])) return null;
+    if (argTypes.length >= 3 && !isTextType(argTypes[2])) return null;
+    if (argTypes.length === 4) {
+      const k = argTypes[3].kind;
+      if (k !== "number" && k !== "boolean") return null;
+    }
+    const t0 = argTypes[0];
+    if (t0.kind !== "char" && t0.kind !== "string" && t0.kind !== "number" && t0.kind !== "boolean" && t0.kind !== "tensor" && t0.kind !== "cell") {
+      return null;
+    }
+    const isCell = t0.kind === "cell";
+    return {
+      outputTypes: isCell ? [{ kind: "cell" }] : [{ kind: "tensor", isComplex: false, isLogical: true }],
+      apply: (args) => isstrpropApply(args)
+    };
+  }
+});
 registerIBuiltin({
   name: "contains",
   resolve: (argTypes) => {
@@ -41490,6 +41634,15 @@ var H = {
     signatures: ["TF = isequal(A, B, ...)"],
     description: "True if all inputs are equal (NaN ~= NaN)."
   },
+  // ── Dynamic evaluation ────────────────────────────────────────────────
+  evalin: {
+    signatures: ["V = evalin(WS, EXPR)", "V = evalin(WS, EXPR, DEFAULT)"],
+    description: "Evaluate EXPR in workspace WS ('caller' or 'base'/'workspace').\n\nnumbl-specific note: variables read by evalin must be declared in the\nfunction that owns them with a `% external-access:` comment, e.g.\n    function out = f()\n        % external-access: x y\n        x = 1; y = 2;\n        ...\n    end\nVariables not listed in `% external-access` are stored in a separate\ndynamic map and are only reachable through evalin/assignin. The\ndirective is a comment, so MATLAB ignores it."
+  },
+  assignin: {
+    signatures: ["assignin(WS, NAME, VALUE)"],
+    description: "Assign VALUE to variable NAME in workspace WS ('caller' or 'base'/'workspace').\n\nnumbl-specific note: variables written by assignin must be declared in\nthe function that owns them with a `% external-access:` comment, e.g.\n    function out = f()\n        % external-access: x y\n        x = 1; y = 2;\n        ...\n    end\nVariables not listed in `% external-access` are stored in a separate\ndynamic map and are only reachable through evalin/assignin. The\ndirective is a comment, so MATLAB ignores it."
+  },
   // ── Misc ──────────────────────────────────────────────────────────────
   disp: {
     signatures: ["disp(X)"],

package/dist-lib/numbl-core/version.d.ts

@@ -1,2 +1,2 @@
 /** Numbl version, used for JIT disk cache invalidation. */
-export declare const NUMBL_VERSION = "0.1.4";
+export declare const NUMBL_VERSION = "0.1.5";

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "numbl",
-  "version": "0.1.4",
+  "version": "0.1.5",
   "description": "Run .m source files in the browser and on the command line by compiling to JavaScript",
   "license": "Apache-2.0",
   "type": "module",