cdb-util: add digest-filter-exists command

diff --git a/cdb-util b/cdb-util
index a96a4e68bdb6b86ae9cde86211f04ab88cd3ca93..33cfa35d29a4699fd4b0398e9e5326101d6eab82 100755 (executable)
--- 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 {{{