From: Nathaniel Wesley Filardo <nwfilardo@gmail.com>
Date: Sat, 12 Mar 2022 21:03:40 +0000 (+0000)
Subject: cdb-util: add digest-filter-exists command
X-Git-Url: https://hydra-www.ietfng.org/gitweb/?a=commitdiff_plain;h=d6b9e017590127459bbd06b4f2e37be6efd04157;p=csdb

cdb-util: add digest-filter-exists command
---

diff --git a/cdb-util b/cdb-util
index a96a4e6..33cfa35 100755
--- a/cdb-util
+++ b/cdb-util
@@ -68,6 +68,28 @@ mksubcmd(function(c)
  end
 )
 
+----------------------------------------------------------------- }}}
+------------------------------ Command: digest-filter-exists dfex {{{
+
+mksubcmd(function(c)
+  c:name("digest-filter-exists dfex")
+   :description("Filter a stream of digest records to existing files")
+  argparse_flag_nul(c)
+  argparse_flag_inul(c)
+ end,
+ function(args)
+
+  local rend = cdblib.renderer_for(args.nul, false,
+                 cdblib.mk_default_render_template())
+  local iter = cdblib.iter_gnu_digest_stderr(
+                 cdblib.iter_lines_or_nul(args.inul))
+
+  for h, p in iter() do
+    if plpath.exists(p) then io.write(rend(h,p)) end
+  end
+ end
+)
+
 ----------------------------------------------------------------- }}}
 --------------------------------- Command: digest-relativize drel {{{