@calcit/procs 0.29.0-alpha.8 → 0.29.0

package/lib/calcit-data.d.mts

@@ -37,6 +37,7 @@ export declare let newTag: (content: string) => CalcitTag;
 export declare let castTag: (x: CalcitValue) => CalcitTag;
 export declare var refsRegistry: Map<string, CalcitRef>;
 export declare let hashFunction: (x: CalcitValue) => Hash;
+export declare let format_calcit_number: (x: number) => string;
 export declare let toString: (x: CalcitValue, escaped: boolean, disableJsDataWarning?: boolean) => string;
 export declare let to_js_data: (x: CalcitValue, options?: CalcitValue) => any;
 export declare let _$n_map_$o_get: (xs: CalcitValue, k: CalcitValue) => CalcitValue;

package/lib/calcit-data.mjs

@@ -208,6 +208,7 @@ export var refsRegistry = new Map();
 let defaultHash_nil = valueHash("nil:");
 let defaultHash_unit = valueHash("unit:");
 let defaultHash_number = valueHash("number:");
+let defaultHash_nan = valueHash("number:NaN");
 let defaultHash_string = valueHash("string:");
 let defaultHash_tag = valueHash("tag:");
 let defaultHash_true = valueHash("bool:true");
@@ -237,7 +238,10 @@ export let hashFunction = (x) => {
     if (x === undefined)
         return defaultHash_unit;
     if (typeof x === "number") {
-        return mergeValueHash(defaultHash_number, x);
+        // NaN equals NaN, so it needs a hash that equals itself; `0` and `-0` share one hash
+        if (Number.isNaN(x))
+            return defaultHash_nan;
+        return mergeValueHash(defaultHash_number, x === 0 ? 0 : x);
     }
     if (typeof x === "string") {
         return mergeValueHash(defaultHash_string, x);
@@ -369,7 +373,8 @@ export let hashFunction = (x) => {
         let base = defaultHash_impl;
         base = mergeValueHash(base, hashFunction(x.name));
         if (x.origin != null) {
-            base = mergeValueHash(base, hashFunction(x.origin));
+            // Impl equality compares origin names, not trait object identities.
+            base = mergeValueHash(base, hashFunction(x.origin.name.value));
         }
         for (let idx = 0; idx < x.fields.length; idx++) {
             base = mergeValueHash(base, hashFunction(x.fields[idx]));
@@ -442,6 +447,38 @@ let hashCirru = (base, x) => {
 };
 // Dirty code to change ternary-tree behavior
 overwriteHashGenerator(hashFunction);
+// Calcit number text, shared by `turn-string`, `str` and printing (see docs/data/number.md).
+export let format_calcit_number = (x) => {
+    // Match native f64 Display, which expands finite exponents into decimal notation.
+    if (Object.is(x, -0)) {
+        return "-0";
+    }
+    if (x === Infinity) {
+        return "inf";
+    }
+    if (x === -Infinity) {
+        return "-inf";
+    }
+    const text = x.toString();
+    const exponentIndex = text.indexOf("e");
+    if (exponentIndex < 0) {
+        return text;
+    }
+    const mantissa = text.slice(0, exponentIndex);
+    const exponent = Number(text.slice(exponentIndex + 1));
+    const sign = mantissa.startsWith("-") ? "-" : "";
+    const unsigned = sign ? mantissa.slice(1) : mantissa;
+    const decimalPoint = unsigned.indexOf(".");
+    const decimalIndex = (decimalPoint < 0 ? unsigned.length : decimalPoint) + exponent;
+    const digits = unsigned.replace(".", "");
+    if (decimalIndex <= 0) {
+        return `${sign}0.${"0".repeat(-decimalIndex)}${digits}`;
+    }
+    if (decimalIndex >= digits.length) {
+        return `${sign}${digits}${"0".repeat(decimalIndex - digits.length)}`;
+    }
+    return `${sign}${digits.slice(0, decimalIndex)}.${digits.slice(decimalIndex)}`;
+};
 export let toString = (x, escaped, disableJsDataWarning = false) => {
     if (x === null) {
         return "nil";
@@ -463,7 +500,7 @@ export let toString = (x, escaped, disableJsDataWarning = false) => {
         }
     }
     if (typeof x === "number") {
-        return x.toString();
+        return format_calcit_number(x);
     }
     if (typeof x === "boolean") {
         return x.toString();
@@ -656,8 +693,8 @@ export let _$n__$e_ = (x, y) => {
         return false;
     }
     if (tx === "number") {
-        // already checked above
-        return false;
+        // value equality: NaN equals NaN (`0 === -0` already held above)
+        return Number.isNaN(x) && Number.isNaN(y);
     }
     if (tx === "function") {
         // method values are closures created on the fly (see invoke_method_closure),
@@ -837,7 +874,11 @@ export let _$n__$e_ = (x, y) => {
     }
     if (x instanceof CalcitEnumDef) {
         if (y instanceof CalcitEnumDef) {
-            return x.name === y.name;
+            // The prototype carries the nominal origin, variant tags and payload
+            // schemas. Comparing name methods compares one shared function object.
+            return _$n__$e_(x.prototype, y.prototype)
+                && x.impls.length === y.impls.length
+                && x.impls.every((impl, index) => _$n__$e_(impl, y.impls[index]));
         }
         return false;
     }

package/lib/calcit.procs.d.mts

@@ -31,6 +31,7 @@ export declare const calcit_package_json: {
         "check-smooth": string;
         "check-all": string;
         "check-strict-default": string;
+        "check-core-tests": string;
         "check-agent-interface": string;
         "try-all": string;
         "try-core-tests": string;
@@ -111,7 +112,7 @@ export declare let _$L_: (...xs: CalcitValue[]) => CalcitSliceList;
 export declare let _SQUO_: (...xs: CalcitValue[]) => CalcitSliceList;
 export declare let _$n__$M_: (...xs: CalcitValue[]) => CalcitSliceMap;
 export declare let defatom: (path: string, x: CalcitValue) => CalcitValue;
-export { atom } from "./js-ref.mjs";
+export { atom, ref } from "./js-ref.mjs";
 export declare let peekDefatom: (path: string) => CalcitRef;
 export declare let _$n_atom_$o_deref: (x: CalcitRef) => CalcitValue;
 export declare let _$n__ADD_: (x: number, y: number) => number;
@@ -154,7 +155,7 @@ export declare let _$n_list_$o_assoc_after: (xs: CalcitSliceList, k: number, v:
 export declare let _$n_list_$o_dissoc: (xs: CalcitValue | CalcitSliceList, k: CalcitValue) => CalcitList | CalcitSliceList;
 export declare let _$n_map_$o_dissoc: (xs: CalcitValue, ...args: CalcitValue[]) => CalcitMap | CalcitSliceMap;
 export declare let reset_$x_: (a: CalcitRef, v: CalcitValue) => CalcitValue;
-export declare let add_watch: (a: CalcitRef, k: CalcitTag, f: CalcitFn) => void;
+export declare let add_watch_$x_: (a: CalcitRef, k: CalcitTag, f: CalcitFn) => void;
 export declare let remove_watch: (a: CalcitRef, k: CalcitTag) => void;
 export declare let range: (n: number, m?: number, step?: number) => CalcitSliceList;
 export declare function _$n_list_$o_empty_$q_(xs: CalcitValue): boolean;
@@ -188,7 +189,8 @@ export declare let _$n__GT_: (a: number, b: number) => boolean;
 export declare let _$n__LT_: (a: number, b: number) => boolean;
 export declare let _$n__: (a: number, b: number) => number;
 export declare let _$n__SLSH_: (a: number, b: number) => number;
-/** Truncated remainder over safe integers, matching native and WASM; the result is never `-0`. */
+/** Truncated remainder over safe integers, matching native and WASM; the result is never `-0`.
+ * Operands in the error use the native number text (`inf`, expanded exponents) so messages match native. */
 export declare let _$n_number_$o_rem: (a: number, b: number) => number;
 export declare let _$n_number_$o_fits_$q_: (value: number, target: CalcitTag) => boolean;
 export declare let round_$q_: (a: number) => boolean;
@@ -241,7 +243,7 @@ export declare let turn_symbol: (x: CalcitValue) => CalcitSymbol;
 export declare let to_lispy_string: (...args: CalcitValue[]) => string;
 /** helper function for println, js only */
 export declare let printable: (...args: CalcitValue[]) => string;
-export declare let cpu_time: () => number;
+export declare let monotonic_time_ms: () => number;
 export declare let quit_$x_: (code: number) => void;
 export declare let turn_string: (x: CalcitValue) => string;
 export declare let identical_$q_: (x: CalcitValue, y: CalcitValue) => boolean;
@@ -323,6 +325,8 @@ type DataShapeGraph = {
     fingerprint: string;
     nodes: DataShapeNode[];
 };
+/** Validate existing data without the decoder's map conversion or Option lifting. */
+export declare function validate_data_shape(input: CalcitValue, graph: DataShapeGraph): boolean;
 export declare let parse_cirru_edn_as: (code: string, graph: DataShapeGraph) => CalcitValue;
 export declare let decode_map_as: (value: CalcitValue, graph: DataShapeGraph) => CalcitValue;
 export declare let json_parse: (code: CalcitValue) => CalcitValue;
@@ -361,6 +365,7 @@ export declare function _$n_methods_of(obj: CalcitValue): CalcitSliceList;
 export declare function _$n_inspect_methods(obj: CalcitValue, note: CalcitValue): CalcitValue;
 /** Dispatch through one nominal origin; duplicate implementations never select by order. */
 export declare function _$n_trait_call(traitDef: CalcitValue, method: CalcitValue, obj: CalcitValue, ...args: CalcitValue[]): CalcitValue;
+export declare let _$n_map_$o_fold_kv: (m: CalcitValue, initial: CalcitValue, reducer: CalcitFn) => CalcitValue;
 export declare let _$n_map_$o_to_list: (m: CalcitValue) => CalcitSliceList;
 export declare let _$n_map_$o_keys: (m: CalcitValue) => CalcitSet;
 export declare let _$n_map_$o_vals: (m: CalcitValue) => CalcitSliceList;
@@ -393,7 +398,7 @@ export declare let macroexpand_all: () => void;
 export declare let _$n_get_calcit_running_mode: () => void;
 export declare let _$n_get_def_doc: () => void;
 export declare let _$n_get_def_schema: () => void;
-export declare let _$n_ffi_response_resolve: () => void;
-export declare let _$n_ffi_response_reject: () => void;
-export declare let _$n_ffi_task_cancel: () => void;
+export declare let _$n_ffi_response_resolve: (..._args: CalcitValue[]) => never;
+export declare let _$n_ffi_response_reject: (..._args: CalcitValue[]) => never;
+export declare let _$n_ffi_task_cancel: (..._args: CalcitValue[]) => never;
 export declare let raise: () => void;