From fabb40f1438c542b67fa20dc3e4837a574de952f Mon Sep 17 00:00:00 2001
From: Kate <kit-ty-kate@outlook.com>
Date: Tue, 29 Oct 2024 18:50:40 +0000
Subject: [PATCH] Add OpamProcess.equal and compare

---
 src/core/opamProcess.ml  | 6 ++++++
 src/core/opamProcess.mli | 3 +++
 2 files changed, 9 insertions(+)

diff --git a/src/core/opamProcess.ml b/src/core/opamProcess.ml
index 2d810728ed2..8c18e8f61a3 100644
--- a/src/core/opamProcess.ml
+++ b/src/core/opamProcess.ml
@@ -254,6 +254,12 @@ type t = {
   p_tmp_files: string list;
 }
 
+let equal p1 p2 =
+  (p1.p_pid : int) = (p2.p_pid : int)
+
+let compare p1 p2 =
+  Int.compare p1.p_pid p2.p_pid
+
 let output_lines oc lines =
   List.iter (fun line ->
     output_string oc line;
diff --git a/src/core/opamProcess.mli b/src/core/opamProcess.mli
index 8455369e534..f38a3997af6 100644
--- a/src/core/opamProcess.mli
+++ b/src/core/opamProcess.mli
@@ -78,6 +78,9 @@ type t = {
                                 completion *)
 }
 
+val equal : t -> t -> bool
+val compare : t -> t -> int
+
 (** Process results *)
 type result = {
   r_code     : int;         (** Process exit code, or 256 on error *)