From: David Levine <david.levine@gonift.com>
Date: Mon, 4 Jul 2016 22:25:53 +0000 (-0400)
Subject: Added context_find_prefix().
X-Git-Url: https://diplodocus.org/git/nmh/commitdiff_plain/1763939736c6a51b0f2e7bc9256de86f84642e0c?ds=inline;hp=-c

Added context_find_prefix().
---

1763939736c6a51b0f2e7bc9256de86f84642e0c
diff --git a/h/prototypes.h b/h/prototypes.h
index 782939be..a5091591 100644
--- a/h/prototypes.h
+++ b/h/prototypes.h
@@ -48,6 +48,7 @@ char *concat (const char *, ...);
 int context_del (char *);
 char *context_find (const char *);
 char *context_find_by_type (const char *, const char *, const char *);
+int context_find_prefix(const char *);
 int context_foil (char *);
 void context_read (void);
 void context_replace (char *, char *);
diff --git a/sbr/context_find.c b/sbr/context_find.c
index ad70f069..0d3f11a2 100644
--- a/sbr/context_find.c
+++ b/sbr/context_find.c
@@ -52,3 +52,21 @@ context_find_by_type (const char *string, const char *type,
 
     return value;
 }
+
+
+/*
+ * Helper function to search profile an entry with name beginning with prefix.
+ * The search is case insensitive.
+ */
+int
+context_find_prefix (const char *prefix) {
+    struct node *np;
+
+    for (np = m_defs; np; np = np->n_next) {
+	if (np->n_name  &&  ! strncasecmp (np->n_name, prefix, strlen(prefix))) {
+	    return 1;
+        }
+    }
+
+    return 0;
+}