From 300160e73da486946ae513f1d039dcd7b85ff17c Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Mon, 20 Mar 2006 22:46:46 +0000
Subject: Version 1.2.1 imported

git-archimport-id: mdk@sv.gnu.org/mdk--devel--1--patch-1
---
 mixlib/mix_predicate_list.c | 117 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 117 insertions(+)
 create mode 100644 mixlib/mix_predicate_list.c

(limited to 'mixlib/mix_predicate_list.c')

diff --git a/mixlib/mix_predicate_list.c b/mixlib/mix_predicate_list.c
new file mode 100644
index 0000000..1b68d35
--- /dev/null
+++ b/mixlib/mix_predicate_list.c
@@ -0,0 +1,117 @@
+/* -*-c-*- -------------- mix_predicate_list.c :
+ * Implementation of the functions declared in mix_predicate_list.h
+ * ------------------------------------------------------------------
+ *  Last change: Time-stamp: "01/07/18 23:02:26 jao"
+ * ------------------------------------------------------------------
+ * Copyright (C) 2001 Free Software Foundation, Inc.
+ *  
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *  
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *  
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+ *  
+ */
+
+
+#include "mix_predicate_list.h"
+
+/* the predicate list type */
+struct mix_predicate_list_t 
+{
+  GSList *predicates;
+  const mix_vm_t *vm;
+  const mix_predicate_t *last;
+};
+
+/* a list of predicates */
+mix_predicate_list_t *
+mix_predicate_list_new (const mix_vm_t *vm)
+{
+  mix_predicate_list_t *result;
+  g_return_val_if_fail (vm != NULL, NULL);
+  result = g_new (mix_predicate_list_t, 1);
+  result->predicates = NULL;
+  result->vm = vm;
+  result->last = NULL;
+  return result;
+}
+
+void
+mix_predicate_list_delete (mix_predicate_list_t *list)
+{
+  g_return_if_fail (list != NULL);
+  g_slist_free (list->predicates);
+  g_free (list);
+}
+
+/* evaluate the predicate list */
+gboolean
+mix_predicate_list_eval (mix_predicate_list_t *list)
+{
+  GSList *node;
+  
+  g_return_val_if_fail (list != NULL, FALSE);
+  node = list->predicates;
+  while (node) {
+    mix_predicate_t *pred = (mix_predicate_t *)(node->data);
+    if (mix_predicate_eval (pred, list->vm))
+      {
+	list->last = pred;
+	return TRUE;
+      }
+    node = node->next;
+  }
+  list->last = NULL;
+  return FALSE;
+}
+
+/* add/remove predicates to the list */
+void
+mix_predicate_list_add (mix_predicate_list_t *list, mix_predicate_t *predicate)
+{
+  g_return_if_fail (list != NULL);
+  g_return_if_fail (predicate != NULL);
+  if (!g_slist_find (list->predicates, predicate))
+    list->predicates = g_slist_append (list->predicates, (gpointer)predicate);
+  (void)mix_predicate_eval (predicate, list->vm);
+}
+
+gboolean
+mix_predicate_list_remove (mix_predicate_list_t *list,
+			   mix_predicate_t *predicate)
+{
+  g_return_val_if_fail (list != NULL, FALSE);
+  g_return_val_if_fail (predicate != NULL, FALSE);
+  if (g_slist_find (list->predicates, predicate))
+    {
+      list->predicates = g_slist_remove (list->predicates, predicate);
+      return TRUE;
+    }
+  else
+    return FALSE;
+}
+
+void
+mix_predicate_list_clear (mix_predicate_list_t *list)
+{
+  g_return_if_fail (list != NULL);
+  g_slist_free (list->predicates);
+  list->predicates = NULL;
+  list->last = NULL;
+}
+
+const mix_predicate_t *
+mix_predicate_list_last_true_eval (const mix_predicate_list_t *list)
+{
+  g_return_val_if_fail (list != NULL, NULL);
+  return list->last;
+}
-- 
cgit v1.2.3