From: Paul Hänsch <paul@plutz.net>
Date: Sun, 6 Apr 2025 10:03:07 +0000 (+0200)
Subject: allow `check` function for field indexes
X-Git-Url: https://git.plutz.net/?a=commitdiff_plain;h=ac4031bc57b6ae56ecaba5af2b0f9cfd5a13ceb2;p=cgilite

allow `check` function for field indexes
---

diff --git a/db23.sh b/db23.sh
index e8a0d64..8ee6f4f 100755
--- a/db23.sh
+++ b/db23.sh
@@ -31,8 +31,12 @@ DB2() {
     open|load) file="$1"
       cat "$file" || return 1
       ;;
-    check|contains) key="$(STRING "$1")" val=''
+    check|contains) key="$(STRING "$1")"  seq="${2:-1}"
       val="${data##*"${BR}${key}"	}" val="${val%%"${BR}"*}"
+      [ "$val" = '' ] && return 1 || val="${val}	"
+      while [ $seq -gt 1 ]; do
+        seq=$((seq - 1)) val="${val#*	}"
+      done
       [ "$val" = '' ] && return 1
       ;;
     count) key="$(STRING "$1")" val='' seq=0