add contains-in? ; bump 0.4.31

Cargo.toml

@@ -1,6 +1,6 @@
 [package]
 name = "calcit_runner"
-version = "0.4.30"
+version = "0.4.31"
 authors = ["jiyinyiyong <jiyinyiyong@gmail.com>"]
 edition = "2018"
 license = "MIT"

calcit/snapshots/test-lens.cirru

@@ -64,6 +64,20 @@
               assoc-in nil ([] :a :b :c) 10
               {} $ :a $ {} $ :b $ {} $ :c 10
 
+            assert= true
+              contains-in? (&{} :a ([] 1 2 3)) $ [] :a 1
+            assert= false
+              contains-in? (&{} :a ([] 1 2 3)) $ [] :a 3
+            assert= false
+              contains-in? (&{} :a ([] 1 2 3)) $ [] :b 1
+
+            assert= true
+              contains-in? ([] 1 2 $ [] 3 4) ([] 2 1)
+            assert= false
+              contains-in? ([] 1 2 $ [] 3 4) ([] 2 2)
+            assert= false
+              contains-in? ([] 1 2 $ [] 3 4) ([] 3 2)
+
         |main! $ quote
           defn main! ()
 

package.json

@@ -1,6 +1,6 @@
 {
   "name": "@calcit/procs",
-  "version": "0.4.30",
+  "version": "0.4.31",
   "main": "./lib/calcit.procs.js",
   "devDependencies": {
     "@types/node": "^16.7.10",

src/cirru/calcit-core.cirru

@@ -1520,6 +1520,27 @@
               if (list? x) (&list:contains? x k)
                 .contains? x k
 
+        |contains-in? $ quote
+          defn contains-in? (xs path)
+            if (empty? path) true
+              &let
+                p0 $ first path
+                cond
+                  (list? xs)
+                    if
+                      and (number? p0) (&list:contains? xs p0)
+                      recur (nth xs p0) (rest path)
+                      , false
+                  (map? xs)
+                    if (&map:contains? xs p0)
+                      recur (&map:get xs p0) (rest path)
+                      , false
+                  (record? xs)
+                    if (&record:contains? xs p0)
+                      recur (&record:get xs p0) (rest path)
+                      , false
+                  true false
+
         |includes? $ quote
           defn includes? (x k)
             if (nil? x) false

ts-src/calcit.procs.ts

@@ -1,5 +1,5 @@
 // CALCIT VERSION
-export const calcit_version = "0.4.30";
+export const calcit_version = "0.4.31";
 
 import { overwriteComparator, initTernaryTreeMap } from "@calcit/ternary-tree";
 import { parse } from "@cirru/parser.ts";