0.6.5

Author: huahaiy

CHANGELOG.md

@@ -1,34 +1,40 @@
 # Change Log
 
+## [0.6.5] - 2025-01-24
+### Added
+- `data-nodes` to return the number of nodes of a piece of data.
+- `change-ratio` to return an approximation of an editscript's ratio of change
+  in term of the original data.
+
 ## [0.6.4] - 2024-09-24
-## Improved
+### Improved
 - Fix boxed math warning. [thx @tonsky]
 - Update deps
 
 ## [0.6.3] - 2023-03-14
-## Improved
+### Improved
 - Simplify equality test for A* algorithm, increasing diff speed up to 60% for
   some data sets.
 
 ## [0.6.2] - 2022-08-25
-## Fixed
+### Fixed
 - A couple of typos in code and documentation.
 
 ## [0.6.1] - 2022-08-24
-## Changed
+### Changed
 - **Breaking** Change `:str-diff?` option for `diff` to `:str-diff`, whose value
   could be `:none` (default, no diff inside string), `:line` (diff by line),
   `:word` (diff by word) or `:character` (diff by character, original string
   diff, very expensive).
-## Added
+### Added
 - `:vec-timeout` option for `diff`, to specify a timeout in milliseconds
   (default 1000), for it is sometimes too expensive to diff vectors. It is
   O(n^2), after all. When timed-out, a replacement will be used.
 - `:str-change-limit` option for `diff`, a less than `1.0` and greater than
   `0.0` double, representing percentage (default `0.2`). Only diff string when
   less than given percentage is changed, otherwise replace the string. Because
   string diff is expensive, it may be cheaper to replace the whole string.
-## Improved
+### Improved
 - Speed up string diff by coercing into vector first.
 - Bump Clojure version
 

package.json

@@ -1,6 +1,6 @@
 {
   "name": "clj-editscript",
-  "version": "0.6.4",
+  "version": "0.6.5",
   "license": "EPL-1.0",
   "homepage": "https://github.com/juji-io/editscript",
   "repository": {

project.clj

@@ -1,4 +1,4 @@
-(defproject juji/editscript "0.6.4"
+(defproject juji/editscript "0.6.5"
   :description "A diff library for Clojure/ClojureScript data structures"
   :url "https://github.com/juji-io/editscript"
   :lein-release {:deploy-via :clojars}

src/editscript/core.cljc

@@ -11,7 +11,7 @@
 (ns editscript.core
   (:require [editscript.edit :as e]
             [editscript.patch :as p]
-            [editscript.util.common :as c]
+            [editscript.util.index :as i]
             [editscript.diff.quick :as q]
             [editscript.diff.a-star :as a])
   #?(:clj (:import [editscript.edit EditScript]
@@ -113,6 +113,29 @@ operations"}
 obtained through calling `get-edits` on an EditScript"}
   edits->script e/edits->script)
 
-
-;; (diff (MapEntry/create 1 (MapEntry/create 2 (MapEntry/create 3 4)))
-;;       (MapEntry/create 1 (MapEntry/create 2 (MapEntry/create 3 "ok"))))
+(defn data-nodes
+  "Return the number of nodes of a piece of data."
+  [data]
+  (i/get-size (i/index data)))
+
+(defn- get-data
+  [data path]
+  (loop [[f & r] path
+         v       data]
+    (let [c (p/vget v f)]
+      (if r
+        (recur r c)
+        c))))
+
+(defn change-ratio
+  "Return an approximation of the ratio of changes of an editscript, a double"
+  [origin editscript]
+  (double
+    (/ (reduce
+         (fn [^long sum [path op v]]
+           (+ sum (case op
+                    (:r :+) (data-nodes v)
+                    :s      1
+                    :-      (data-nodes (get-data origin path)))))
+         0 (get-edits editscript))
+       (data-nodes origin))))