Add $find(<sequence>, <value>), $find_index(<sequence>, <value>) functions

The $find() function returns true if the sequence contains the specified
value. The $find_index() function returns the index of the first element
in the sequence that is equal to the specified value or $size(<sequence>)
if none is found. For string sequences, it's possible to request case-
insensitive comparison with a flag.

1 files changed, 25 insertions, 0 deletions

diff --git a/libbuild2/functions-name.cxx b/libbuild2/functions-name.cxx
index 43de039..9011cc0 100644
--- a/libbuild2/functions-name.cxx
+++ b/libbuild2/functions-name.cxx
@@ -330,6 +330,31 @@ namespace build2
       return ns;
     };
 
+    // $find(<names>, <name>)
+    //
+    // Return true if the name sequence contains the specified name.
+    //
+    fn["find"] += [](names vs, names v)
+    {
+      //@@ TODO: shouldn't we do this in a pair-aware manner?
+
+      return find (vs.begin (), vs.end (),
+                   convert<name> (move (v))) != vs.end ();
+    };
+
+    // $find_index(<names>, <name>)
+    //
+    // Return the index of the first element in the name sequence that is
+    // equal to the specified name or $size(<names>) if none is found.
+    //
+    fn["find_index"] += [](names vs, names v)
+    {
+      //@@ TODO: shouldn't we do this in a pair-aware manner?
+
+      auto i (find (vs.begin (), vs.end (), convert<name> (move (v))));
+      return i != vs.end () ? i - vs.begin () : vs.size ();
+    };
+
     // Functions that can be called only on real targets.
     //
     function_family ft (m, "target");