@calcit/procs 0.5.35 → 0.5.38

package/lib/calcit-data.mjs

@@ -168,7 +168,7 @@ let defaultHash_record = valueHash("record:");
 let defaultHash_unknown = valueHash("unknown:");
 let fnHashCounter = 0;
 let jsObjectHashCounter = 0;
-let hashFunction = (x) => {
+export let hashFunction = (x) => {
     if (x == null) {
         return defaultHash_nil;
     }

package/lib/calcit.procs.mjs

@@ -1,11 +1,10 @@
 var _a;
 // CALCIT VERSION
-export const calcit_version = "0.5.35";
-import "@calcit/ternary-tree";
+export const calcit_version = "0.5.38";
 import { parse } from "@cirru/parser.ts";
 import { writeCirruCode } from "@cirru/writer.ts";
 import "./js-primes.mjs";
-import { CalcitSymbol, CalcitKeyword, CalcitRef, CalcitRecur, kwd, refsRegistry, toString, getStringName, _$n__$e_, } from "./calcit-data.mjs";
+import { CalcitSymbol, CalcitKeyword, CalcitRef, CalcitRecur, kwd, refsRegistry, toString, getStringName, _$n__$e_, hashFunction, } from "./calcit-data.mjs";
 import { CalcitRecord } from "./js-record.mjs";
 export * from "./calcit-data.mjs";
 export * from "./js-record.mjs";
@@ -849,7 +848,7 @@ export let aget = (x, name) => {
 export let aset = (x, name, v) => {
     return (x[name] = v);
 };
-export let get_env = (name) => {
+export let get_env = (name, v0) => {
     let v = undefined;
     if (inNodeJs) {
         // only available for Node.js
@@ -858,10 +857,13 @@ export let get_env = (name) => {
     else if (typeof URLSearchParams != null && typeof location != null) {
         v = new URLSearchParams(location.search).get(name);
     }
-    if (v == null) {
-        console.warn(`(get-env "${name}"): ${v}`);
+    if (v != null && v0 != null) {
+        console.log(`(get-env ${name}): ${v}`);
     }
-    return v;
+    if (v == null && v0 == null) {
+        console.warn(`(get-env "${name}"): config not found`);
+    }
+    return v !== null && v !== void 0 ? v : v0;
 };
 export let turn_keyword = (x) => {
     if (typeof x === "string") {
@@ -1289,6 +1291,9 @@ export let _$n_buffer = (...xs) => {
     }
     return buf;
 };
+export let _$n_hash = (x) => {
+    return hashFunction(x);
+};
 // special procs have to be defined manually
 export let reduce = foldl;
 let unavailableProc = (...xs) => {

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@calcit/procs",
-  "version": "0.5.35",
+  "version": "0.5.38",
   "main": "./lib/calcit.procs.mjs",
   "devDependencies": {
     "@types/node": "^17.0.23",

package/ts-src/calcit-data.mts

@@ -198,7 +198,7 @@ let defaultHash_unknown = valueHash("unknown:");
 let fnHashCounter = 0;
 let jsObjectHashCounter = 0;
 
-let hashFunction = (x: CalcitValue): Hash => {
+export let hashFunction = (x: CalcitValue): Hash => {
   if (x == null) {
     return defaultHash_nil;
   }

package/ts-src/calcit.procs.mts

@@ -1,7 +1,6 @@
 // CALCIT VERSION
-export const calcit_version = "0.5.35";
+export const calcit_version = "0.5.38";
 
-import { overwriteComparator, initTernaryTreeMap } from "@calcit/ternary-tree";
 import { parse, ICirruNode } from "@cirru/parser.ts";
 import { writeCirruCode } from "@cirru/writer.ts";
 
@@ -18,6 +17,7 @@ import {
   getStringName,
   to_js_data,
   _$n__$e_,
+  hashFunction,
 } from "./calcit-data.mjs";
 
 import { fieldsEqual, CalcitRecord } from "./js-record.mjs";
@@ -935,7 +935,7 @@ export let aset = (x: any, name: string, v: any): any => {
   return (x[name] = v);
 };
 
-export let get_env = (name: string): string => {
+export let get_env = (name: string, v0: string): string => {
   let v = undefined;
   if (inNodeJs) {
     // only available for Node.js
@@ -943,10 +943,13 @@ export let get_env = (name: string): string => {
   } else if (typeof URLSearchParams != null && typeof location != null) {
     v = new URLSearchParams(location.search).get(name);
   }
-  if (v == null) {
-    console.warn(`(get-env "${name}"): ${v}`);
+  if (v != null && v0 != null) {
+    console.log(`(get-env ${name}): ${v}`);
   }
-  return v;
+  if (v == null && v0 == null) {
+    console.warn(`(get-env "${name}"): config not found`);
+  }
+  return v ?? v0;
 };
 
 export let turn_keyword = (x: CalcitValue): CalcitKeyword => {
@@ -1382,6 +1385,10 @@ export let _$n_buffer = (...xs: CalcitValue[]): Uint8Array => {
   return buf;
 };
 
+export let _$n_hash = (x: CalcitValue): number => {
+  return hashFunction(x);
+};
+
 // special procs have to be defined manually
 export let reduce = foldl;