Reworked query/value system to expose data type.

git-svn-id: http://svn.drobilla.net/lad/slv2@475 a436a847-0d15-0410-975c-d299462d15a1

1 files changed, 67 insertions, 0 deletions

diff --git a/src/values.c b/src/values.c
new file mode 100644
index 0000000..4920454
--- /dev/null
+++ b/src/values.c
@@ -0,0 +1,67 @@
+/* SLV2
+ * Copyright (C) 2007 Dave Robillard <http://drobilla.net>
+ *  
+ * This library 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 library 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 St, Fifth Floor, Boston, MA 02110-1301 USA.
+ */
+
+#include <string.h>
+#include <stdlib.h>
+#include <limits.h>
+#include <raptor.h>
+#include <slv2/values.h>
+#include "slv2_internal.h"
+
+
+SLV2Values
+slv2_values_new()
+{
+	return raptor_new_sequence((void (*)(void*))&slv2_value_free, NULL);
+}
+
+
+void
+slv2_values_free(SLV2Values list)
+{
+	raptor_free_sequence(list);
+}
+
+
+unsigned
+slv2_values_size(SLV2Values list)
+{
+	return raptor_sequence_size(list);
+}
+
+
+SLV2Value
+slv2_values_get_at(SLV2Values list, unsigned index)
+{
+	if (index > INT_MAX)
+		return NULL;
+	else
+		return (SLV2Value)raptor_sequence_get_at(list, (int)index);
+}
+
+
+bool
+slv2_values_contains(SLV2Values list, SLV2Value value)
+{
+	for (unsigned i=0; i < slv2_values_size(list); ++i)
+		if (slv2_value_equals(slv2_values_get_at(list, i), value))
+			return true;
+	
+	return false;
+}
+