summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--slv2/value.h130
-rw-r--r--src/value.c141
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;
+}
+