X-Git-Url: https://diplodocus.org/git/nmh/blobdiff_plain/e491542da563673b49c6f6df9948ffaffbeed4fb..19d2ce8fb85c0b52bafa37db46f8b4a3f05c87a3:/sbr/vector.c

diff --git a/sbr/vector.c b/sbr/vector.c
index ca8c894e..10058d4d 100644
--- a/sbr/vector.c
+++ b/sbr/vector.c
@@ -174,6 +174,24 @@ svector_at (svector_t vec, size_t i) {
     return vec->strs[i];
 }
 
+/*
+ * Return address of first element that stringwise matches s.
+ * The caller can replace the contents of the return address.
+ */
+char **
+svector_find (svector_t vec, const char *s) {
+    size_t i;
+    char **str = vec->strs;
+
+    for (i = 0; i < vec->size; ++i, ++str) {
+        if (*str  &&  ! strcmp(*str, s)) {
+            return str;
+        }
+    }
+
+    return NULL;
+}
+
 char **
 svector_strs (svector_t vec) {
     return vec->strs;