@calcit/procs 0.8.10 → 0.8.12

package/lib/calcit.procs.mjs

@@ -1,6 +1,6 @@
-var _a;
-// CALCIT VERSION
-export const calcit_version = "0.8.10";
+import pkg from "./package.json" assert { type: "json" };
+export const calcit_version = pkg.version;
+export const calcit_package_json = pkg;
 import { parse } from "@cirru/parser.ts";
 import { writeCirruCode } from "@cirru/writer.ts";
 import { CalcitSymbol, CalcitTag, CalcitRef, CalcitRecur, newTag, refsRegistry, toString, getStringName, _$n__$e_, hashFunction, } from "./calcit-data.mjs";
@@ -20,7 +20,7 @@ import { CalcitMap, CalcitSliceMap } from "./js-map.mjs";
 import { CalcitSet } from "./js-set.mjs";
 import { CalcitTuple } from "./js-tuple.mjs";
 import { to_calcit_data, extract_cirru_edn, CalcitCirruQuote } from "./js-cirru.mjs";
-let inNodeJs = typeof process !== "undefined" && ((_a = process === null || process === void 0 ? void 0 : process.release) === null || _a === void 0 ? void 0 : _a.name) === "node";
+let inNodeJs = typeof process !== "undefined" && process?.release?.name === "node";
 export let type_of = (x) => {
     if (typeof x === "string") {
         return newTag("string");
@@ -904,7 +904,7 @@ export let get_env = (name, v0) => {
     if (v == null && v0 == null) {
         console.warn(`(get-env "${name}"): config not found`);
     }
-    return v !== null && v !== void 0 ? v : v0;
+    return v ?? v0;
 };
 export let turn_tag = (x) => {
     if (typeof x === "string") {
@@ -1014,7 +1014,7 @@ export let _$n_str_$o_compare = (x, y) => {
     return 0;
 };
 export let arrayToList = (xs) => {
-    return new CalcitSliceList(xs !== null && xs !== void 0 ? xs : []);
+    return new CalcitSliceList(xs ?? []);
 };
 export let listToArray = (xs) => {
     if (xs == null) {
@@ -1069,14 +1069,13 @@ export let buffer_$q_ = (x) => {
 };
 export let _$n_str_$o_escape = (x) => JSON.stringify(x);
 export let read_file = (path) => {
-    var _a;
     if (inNodeJs) {
         // TODO
         globalThis["__calcit_injections__"].read_file(path);
     }
     else {
         // no actual File API in browser
-        return (_a = localStorage.get(path)) !== null && _a !== void 0 ? _a : "";
+        return localStorage.get(path) ?? "";
     }
 };
 export let write_file = (path, content) => {
@@ -1258,12 +1257,16 @@ function lookup_class(obj) {
         klass = calcit_builtin_classes.map;
     }
     else {
-        throw new Error("Cannot find class for this object for invoking");
+        return null;
     }
     return [klass, tag];
 }
 export function invoke_method(p, obj, ...args) {
-    let [klass, tag] = lookup_class(obj);
+    let pair = lookup_class(obj);
+    if (pair == null) {
+        throw new Error(`No class for ${obj?.toString() || JSON.stringify(obj)} to lookup .${p}`);
+    }
+    let [klass, tag] = pair;
     let method = klass.getOrNil(p);
     if (method == null) {
         throw new Error(`No method '.${p}' for '${tag}' object '${obj}'.\navailable fields are: ${klass.fields.map((fd) => fd.value).join(" ")}`);

package/lib/package.json

@@ -0,0 +1,27 @@
+{
+    "name": "@calcit/procs",
+    "version": "0.8.12",
+    "main": "./lib/calcit.procs.mjs",
+    "devDependencies": {
+        "@types/node": "^20.9.4",
+        "typescript": "^5.3.2"
+    },
+    "scripts": {
+        "compile": "rm -rfv lib/* && tsc",
+        "procs-link": "ln -s ../../ node_modules/@calcit/procs",
+        "cp-mac": "cargo build --release && rm -rfv builds/* && node scripts/cp-version.js && scp builds/* rsync-user@calcit-lang.org:/web-assets/repo/calcit-lang/binaries/macos/",
+        "eval": "cargo run --bin cr -- -e",
+        "try-rs": "cargo run --bin cr -- calcit/test.cirru -1",
+        "try-js-brk": "cargo run --bin cr -- calcit/test.cirru --emit-js -1 && node --inspect-brk js-out/main.mjs",
+        "try-js": "cargo run --bin cr -- calcit/test.cirru --emit-js -1 && node js-out/main.mjs"
+    },
+    "repository": {
+        "type": "git",
+        "url": "https://github.com/calcit-lang/calcit"
+    },
+    "dependencies": {
+        "@calcit/ternary-tree": "0.0.23",
+        "@cirru/parser.ts": "^0.0.6",
+        "@cirru/writer.ts": "^0.1.4"
+    }
+}

package/package.json

@@ -1,10 +1,10 @@
 {
   "name": "@calcit/procs",
-  "version": "0.8.10",
+  "version": "0.8.12",
   "main": "./lib/calcit.procs.mjs",
   "devDependencies": {
-    "@types/node": "^20.9.0",
-    "typescript": "^5.2.2"
+    "@types/node": "^20.9.4",
+    "typescript": "^5.3.2"
   },
   "scripts": {
     "compile": "rm -rfv lib/* && tsc",

package/ts-src/calcit.procs.mts

@@ -1,5 +1,7 @@
-// CALCIT VERSION
-export const calcit_version = "0.8.10";
+import pkg from "./package.json" assert { type: "json" };
+
+export const calcit_version = pkg.version;
+export const calcit_package_json = pkg;
 
 import { parse, ICirruNode } from "@cirru/parser.ts";
 import { writeCirruCode } from "@cirru/writer.ts";
@@ -1348,13 +1350,17 @@ function lookup_class(obj: CalcitValue): [CalcitRecord, string] {
     tag = "&core-map-class";
     klass = calcit_builtin_classes.map;
   } else {
-    throw new Error("Cannot find class for this object for invoking");
+    return null;
   }
   return [klass, tag];
 }
 
 export function invoke_method(p: string, obj: CalcitValue, ...args: CalcitValue[]) {
-  let [klass, tag] = lookup_class(obj);
+  let pair = lookup_class(obj);
+  if (pair == null) {
+    throw new Error(`No class for ${obj?.toString() || JSON.stringify(obj)} to lookup .${p}`);
+  }
+  let [klass, tag] = pair;
   let method = klass.getOrNil(p);
   if (method == null) {
     throw new Error(`No method '.${p}' for '${tag}' object '${obj}'.\navailable fields are: ${klass.fields.map((fd: CalcitTag) => fd.value).join(" ")}`);