Changeset 40458b9 for util.c

Timestamp:

Dec 24, 2003, 7:35:21 PM (20 years ago)

Author:

James M. Kretchmar <kretch@mit.edu>

Branches:

master, barnowl_perlaim, debian, owl, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

5c1393d

Parents:

dad943e

Message:

Filters of filters now work

File:

• util.c (modified) (1 diff)

util.c

@@ -697 +697 @@
 }
 
+/* add the string 'str' to the list 'list' of strings, only if it
+ * is not already present
+ */
+void owl_util_list_add_unique_string(owl_list *list, char *str)
+{
+  int i, j;
+
+  j=owl_list_get_size(list);
+  for (i=0; i<j; i++) {
+    if (!strcmp(str, owl_list_get_element(list, i))) return;
+  }
+  owl_list_append_element(list, owl_strdup(str));
+}
+
+int owl_util_common_strings_in_lists(owl_list *a, owl_list *b)
+{
+  int i, j, x, y;
+
+  j=owl_list_get_size(a);
+  for (i=0; i<j; i++) {
+    y=owl_list_get_size(b);
+    for (x=0; x<y; x++) {
+      if (!strcmp(owl_list_get_element(a, i), owl_list_get_element(b, x))) return(1);
+    }
+  }
+  return(0);
+}
+
 /**************************************************************************/
 /************************* REGRESSION TESTS *******************************/