Added missing files.

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

2 files changed, 271 insertions, 0 deletions

diff --git a/slv2/value.h b/slv2/value.h
new file mode 100644
index 0000000..abc7a57
--- /dev/null
+++ b/slv2/value.h
@@ -0,0 +1,130 @@
+/* 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.
+ */
+
+#ifndef __SLV2_VALUE_H__
+#define __SLV2_VALUE_H__
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+#include <stdbool.h>
+#include <slv2/types.h>
+
+/** \addtogroup data
+ * @{
+ */
+
+
+/** Return whether two values are equivalent.
+ */
+bool
+slv2_value_equals(SLV2Value value, SLV2Value other);
+
+
+/** Return whether the value is a URI (resource).
+ *
+ * Time = O(1)
+ */
+bool
+slv2_value_is_uri(SLV2Value value);
+
+
+/** Return this value as a URI string, e.g. "http://example.org/foo".
+ * 
+ * Valid to call only if slv2_value_is_uri(\a value) returns true.
+ * Returned value is owned by \a value and must not be freed by caller.
+ * 
+ * Time = O(1)
+ */
+const char*
+slv2_value_as_uri(SLV2Value value);
+
+
+/** Return whether this value is a literal (i.e. not a URI).
+ *
+ * Returns true if \a value is a string or numeric value.
+ *
+ * Time = O(1)
+ */
+bool
+slv2_value_is_literal(SLV2Value value);
+
+
+/** Return whether this value is a string literal.
+ *
+ * Returns true if \a value is a string (but not  numeric) value.
+ *
+ * Time = O(1)
+ */
+bool
+slv2_value_is_string(SLV2Value value);
+
+
+/** Return whether this value is a string literal.
+ *
+ * Time = O(1)
+ */
+const char*
+slv2_value_as_string(SLV2Value value);
+
+
+/** Return whether this value is a decimal literal.
+ *
+ * Time = O(1)
+ */
+bool
+slv2_value_is_float(SLV2Value value);
+
+
+/** Return \a value as a float.
+ * 
+ * Valid to call only if slv2_value_is_float(\a value) or
+ * slv2_value_is_int(\a value) returns true.
+ *
+ * Time = O(1)
+ */
+float
+slv2_value_as_float(SLV2Value value);
+
+
+/** Return whether this value is an integer literal.
+ * 
+ * Time = O(1)
+ */
+bool
+slv2_value_is_int(SLV2Value value);
+
+
+/** Return \a value as an integer.
+ * 
+ * Valid to call only if slv2_value_is_int(\a value) returns true.
+ *
+ * Time = O(1)
+ */
+int
+slv2_value_as_int(SLV2Value value);
+
+
+/** @} */
+
+#ifdef __cplusplus
+}
+#endif
+
+#endif /* __SLV2_VALUE_H__ */
diff --git a/src/value.c b/src/value.c
new file mode 100644
index 0000000..1d7ead0
--- /dev/null
+++ b/src/value.c
@@ -0,0 +1,141 @@
+/* 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.
+ */
+
+#define _XOPEN_SOURCE 500
+
+#include <stdlib.h>
+#include <string.h>
+#include <assert.h>
+#include <raptor.h>
+#include <slv2/value.h>
+#include "slv2_internal.h"
+
+
+/* private */
+SLV2Value
+slv2_value_new(SLV2ValueType type, const char* str)
+{
+	SLV2Value val = (SLV2Value)malloc(sizeof(struct _Value));
+	val->str_val = strdup(str);
+	val->type = type;
+
+	//printf("New value, t=%d, %s\n", type, str);
+
+	if (type == SLV2_VALUE_INT) {
+		char* endptr = 0;
+		val->val.int_val = strtol(str, &endptr, 10);
+	} else if (type == SLV2_VALUE_FLOAT) {
+		char* endptr = 0;
+		val->val.float_val = strtod(str, &endptr);
+	} else {
+		val->val.int_val = 0;
+	}
+
+	return val;
+}
+
+
+/* private */
+void
+slv2_value_free(SLV2Value val)
+{
+	free(val->str_val);
+	free(val);
+}
+
+
+bool
+slv2_value_equals(SLV2Value value, SLV2Value other)
+{
+	if (value->type != other->type)
+		return false;
+	else
+		return ! strcmp(value->str_val, other->str_val);
+}
+
+
+bool
+slv2_value_is_uri(SLV2Value value)
+{
+	return (value->type == SLV2_VALUE_URI);
+}
+
+
+const char*
+slv2_value_as_uri(SLV2Value value)
+{
+	assert(slv2_value_is_uri(value));
+	return value->str_val;
+}
+
+
+bool
+slv2_value_is_literal(SLV2Value value)
+{
+	// No blank nodes
+	return (value->type != SLV2_VALUE_URI);
+}
+
+
+bool
+slv2_value_is_string(SLV2Value value)
+{
+	return (value->type == SLV2_VALUE_STRING);
+}
+
+
+const char*
+slv2_value_as_string(SLV2Value value)
+{
+	assert(slv2_value_is_string(value));
+	return value->str_val;
+}
+
+
+bool
+slv2_value_is_int(SLV2Value value)
+{
+	return (value->type == SLV2_VALUE_INT);
+}
+
+
+int
+slv2_value_as_int(SLV2Value value)
+{
+	assert(slv2_value_is_int(value));
+	return value->val.int_val;
+}
+
+
+bool
+slv2_value_is_float(SLV2Value value)
+{
+	return (value->type == SLV2_VALUE_FLOAT);
+}
+
+
+float
+slv2_value_as_float(SLV2Value value)
+{
+	assert(slv2_value_is_float(value) || slv2_value_is_int(value));
+	if (slv2_value_is_float(value))
+		return value->val.float_val;
+	else // slv2_value_is_int(value)
+		return (float)value->val.int_val;
+}
+