From 292aa88004fcc90bd176f85e190caa7829556cc6 Mon Sep 17 00:00:00 2001
From: Gordon GECOS <u@adam>
Date: Sun, 15 Oct 2023 07:57:49 -0400
Subject: latest

---
 dot/local/bin/latest | 36 +++++++++++++++++++++++++++++-------
 1 file changed, 29 insertions(+), 7 deletions(-)

diff --git a/dot/local/bin/latest b/dot/local/bin/latest
index ef95cfe..12a0a9f 100755
--- a/dot/local/bin/latest
+++ b/dot/local/bin/latest
@@ -3,23 +3,45 @@ usage()
 {
     cat <<EOF
 Usage: $0 [directory] [...]
+Usage: $0 --help
 
-Print the filename of the newest file.
+Searches the current directory if none is specified.
+
+Print one filename: the single newest ordinary file from all (not each)
+of the specified directories.
+
+If there are no ordinary files, there is no output.
+
+Symbolic links are not listed.
 
-Searches the directories specified on the command line,
-or else the current directory if none specified.
 EOF
 }
 
 case $# in
     0) set -- . ;;
-    1) if [ "$1" = --usage ]; then usage; exit 0; fi ;;
+    1) if [ "$1" = --usage ]
+       then
+           usage
+           exit 0
+       fi
+       ;;
 esac
 
-extract()
+drop_first_word()
+{
+    sed -ne 's/^[^ ]* //p'
+}
+
+extract_newest()
+{
+    sort -z -n -k1,1 -r | head -z -n 1 | xargs -r -0 printf '%s\n'
+}
+
+find_simple_files()
 {
-    sort -z -n -k1,1 -r | head -z -n 1 | xargs -0 printf '%s\n' | perl -pe 's/.*? //'
+    pattern="%C@ %h/%f\0"
+    find "$@" -maxdepth 1 -name '.*' -o \( -type f -printf "$pattern" \)
 }
 
-find "$@" -maxdepth 1 -name '.*' -o \( -type f -printf "%C@ %h/%f\0" \) | extract
+find_simple_files "$@" | extract_newest | drop_first_word
 
-- 
cgit v1.2.3