summaryrefslogtreecommitdiffstats
path: root/src/node.c
diff options
context:
space:
mode:
authorDavid Robillard <d@drobilla.net>2011-04-29 19:07:20 +0000
committerDavid Robillard <d@drobilla.net>2011-04-29 19:07:20 +0000
commit4546e878c0cf6bd40b9af31e4a704141daa1c76c (patch)
treee8b42da57da885c7596b8c0f70420b8ac7faf8ed /src/node.c
parent71e5432f8e63051bc1f3d22107ec96377129b45a (diff)
downloadlilv-4546e878c0cf6bd40b9af31e4a704141daa1c76c.tar.gz
lilv-4546e878c0cf6bd40b9af31e4a704141daa1c76c.tar.bz2
lilv-4546e878c0cf6bd40b9af31e4a704141daa1c76c.zip
value.c => node.c
git-svn-id: http://svn.drobilla.net/lad/trunk/lilv@3237 a436a847-0d15-0410-975c-d299462d15a1
Diffstat (limited to 'src/node.c')
-rw-r--r--src/node.c416
1 files changed, 416 insertions, 0 deletions
diff --git a/src/node.c b/src/node.c
new file mode 100644
index 0000000..8fbf5b1
--- /dev/null
+++ b/src/node.c
@@ -0,0 +1,416 @@
+/*
+ Copyright 2007-2011 David Robillard <http://drobilla.net>
+
+ Permission to use, copy, modify, and/or distribute this software for any
+ purpose with or without fee is hereby granted, provided that the above
+ copyright notice and this permission notice appear in all copies.
+
+ THIS SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+ WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+ MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+ ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+ WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+ ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+*/
+
+#define _XOPEN_SOURCE 500
+
+#include <assert.h>
+#include <locale.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include <glib.h>
+
+#include "lilv_internal.h"
+
+static void
+lilv_node_set_numerics_from_string(LilvNode* val)
+{
+ char* locale;
+ char* endptr;
+
+ switch (val->type) {
+ case LILV_VALUE_URI:
+ case LILV_VALUE_BLANK:
+ case LILV_VALUE_STRING:
+ break;
+ case LILV_VALUE_INT:
+ // FIXME: locale kludge, need a locale independent strtol
+ locale = lilv_strdup(setlocale(LC_NUMERIC, NULL));
+ setlocale(LC_NUMERIC, "POSIX");
+ val->val.int_val = strtol(val->str_val, &endptr, 10);
+ setlocale(LC_NUMERIC, locale);
+ free(locale);
+ break;
+ case LILV_VALUE_FLOAT:
+ // FIXME: locale kludge, need a locale independent strtod
+ locale = lilv_strdup(setlocale(LC_NUMERIC, NULL));
+ setlocale(LC_NUMERIC, "POSIX");
+ val->val.float_val = strtod(val->str_val, &endptr);
+ setlocale(LC_NUMERIC, locale);
+ free(locale);
+ break;
+ case LILV_VALUE_BOOL:
+ val->val.bool_val = (!strcmp(val->str_val, "true"));
+ break;
+ }
+}
+
+/** Note that if @a type is numeric or boolean, the returned value is corrupt
+ * until lilv_node_set_numerics_from_string is called. It is not
+ * automatically called from here to avoid overhead and imprecision when the
+ * exact string value is known.
+ */
+LilvNode*
+lilv_node_new(LilvWorld* world, LilvNodeType type, const char* str)
+{
+ LilvNode* val = malloc(sizeof(struct LilvNodeImpl));
+ val->world = world;
+ val->type = type;
+
+ switch (type) {
+ case LILV_VALUE_URI:
+ val->val.uri_val = sord_new_uri(world->world, (const uint8_t*)str);
+ assert(val->val.uri_val);
+ val->str_val = (char*)sord_node_get_string(val->val.uri_val);
+ break;
+ case LILV_VALUE_BLANK:
+ case LILV_VALUE_STRING:
+ case LILV_VALUE_INT:
+ case LILV_VALUE_FLOAT:
+ case LILV_VALUE_BOOL:
+ val->str_val = lilv_strdup(str);
+ break;
+ }
+
+ return val;
+}
+
+/** Create a new LilvNode from @a node, or return NULL if impossible */
+LilvNode*
+lilv_node_new_from_node(LilvWorld* world, const SordNode* node)
+{
+ LilvNode* result = NULL;
+ SordNode* datatype_uri = NULL;
+ LilvNodeType type = LILV_VALUE_STRING;
+
+ switch (sord_node_get_type(node)) {
+ case SORD_URI:
+ type = LILV_VALUE_URI;
+ result = malloc(sizeof(struct LilvNodeImpl));
+ result->world = world;
+ result->type = LILV_VALUE_URI;
+ result->val.uri_val = sord_node_copy(node);
+ result->str_val = (char*)sord_node_get_string(result->val.uri_val);
+ break;
+ case SORD_LITERAL:
+ datatype_uri = sord_node_get_datatype(node);
+ if (datatype_uri) {
+ if (sord_node_equals(datatype_uri, world->xsd_boolean_node))
+ type = LILV_VALUE_BOOL;
+ else if (sord_node_equals(datatype_uri, world->xsd_decimal_node)
+ || sord_node_equals(datatype_uri, world->xsd_double_node))
+ type = LILV_VALUE_FLOAT;
+ else if (sord_node_equals(datatype_uri, world->xsd_integer_node))
+ type = LILV_VALUE_INT;
+ else
+ LILV_ERRORF("Unknown datatype %s\n", sord_node_get_string(datatype_uri));
+ }
+ result = lilv_node_new(world, type, (const char*)sord_node_get_string(node));
+ switch (result->type) {
+ case LILV_VALUE_INT:
+ case LILV_VALUE_FLOAT:
+ case LILV_VALUE_BOOL:
+ lilv_node_set_numerics_from_string(result);
+ default:
+ break;
+ }
+ break;
+ case SORD_BLANK:
+ type = LILV_VALUE_BLANK;
+ result = lilv_node_new(world, type, (const char*)sord_node_get_string(node));
+ break;
+ default:
+ assert(false);
+ }
+
+ return result;
+}
+
+LILV_API
+LilvNode*
+lilv_new_uri(LilvWorld* world, const char* uri)
+{
+ return lilv_node_new(world, LILV_VALUE_URI, uri);
+}
+
+LILV_API
+LilvNode*
+lilv_new_string(LilvWorld* world, const char* str)
+{
+ return lilv_node_new(world, LILV_VALUE_STRING, str);
+}
+
+LILV_API
+LilvNode*
+lilv_new_int(LilvWorld* world, int val)
+{
+ char str[32];
+ snprintf(str, sizeof(str), "%d", val);
+ LilvNode* ret = lilv_node_new(world, LILV_VALUE_INT, str);
+ ret->val.int_val = val;
+ return ret;
+}
+
+LILV_API
+LilvNode*
+lilv_new_float(LilvWorld* world, float val)
+{
+ char str[32];
+ snprintf(str, sizeof(str), "%f", val);
+ LilvNode* ret = lilv_node_new(world, LILV_VALUE_FLOAT, str);
+ ret->val.float_val = val;
+ return ret;
+}
+
+LILV_API
+LilvNode*
+lilv_new_bool(LilvWorld* world, bool val)
+{
+ LilvNode* ret = lilv_node_new(world, LILV_VALUE_BOOL, val ? "true" : "false");
+ ret->val.bool_val = val;
+ return ret;
+}
+
+LILV_API
+LilvNode*
+lilv_node_duplicate(const LilvNode* val)
+{
+ if (val == NULL)
+ return NULL;
+
+ LilvNode* result = malloc(sizeof(struct LilvNodeImpl));
+ result->world = val->world;
+ result->type = val->type;
+
+ if (val->type == LILV_VALUE_URI) {
+ result->val.uri_val = sord_node_copy(val->val.uri_val);
+ result->str_val = (char*)sord_node_get_string(result->val.uri_val);
+ } else {
+ result->str_val = lilv_strdup(val->str_val);
+ result->val = val->val;
+ }
+
+ return result;
+}
+
+LILV_API
+void
+lilv_node_free(LilvNode* val)
+{
+ if (val) {
+ if (val->type == LILV_VALUE_URI) {
+ sord_node_free(val->world->world, val->val.uri_val);
+ } else {
+ free(val->str_val);
+ }
+ free(val);
+ }
+}
+
+LILV_API
+bool
+lilv_node_equals(const LilvNode* value, const LilvNode* other)
+{
+ if (value == NULL && other == NULL)
+ return true;
+ else if (value == NULL || other == NULL)
+ return false;
+ else if (value->type != other->type)
+ return false;
+
+ switch (value->type) {
+ case LILV_VALUE_URI:
+ return sord_node_equals(value->val.uri_val, other->val.uri_val);
+ case LILV_VALUE_BLANK:
+ case LILV_VALUE_STRING:
+ return !strcmp(value->str_val, other->str_val);
+ case LILV_VALUE_INT:
+ return (value->val.int_val == other->val.int_val);
+ case LILV_VALUE_FLOAT:
+ return (value->val.float_val == other->val.float_val);
+ case LILV_VALUE_BOOL:
+ return (value->val.bool_val == other->val.bool_val);
+ }
+
+ return false; /* shouldn't get here */
+}
+
+LILV_API
+char*
+lilv_node_get_turtle_token(const LilvNode* value)
+{
+ size_t len = 0;
+ char* result = NULL;
+ char* locale = NULL;
+
+ switch (value->type) {
+ case LILV_VALUE_URI:
+ len = strlen(value->str_val) + 3;
+ result = calloc(len, 1);
+ snprintf(result, len, "<%s>", value->str_val);
+ break;
+ case LILV_VALUE_BLANK:
+ len = strlen(value->str_val) + 3;
+ result = calloc(len, 1);
+ snprintf(result, len, "_:%s", value->str_val);
+ break;
+ case LILV_VALUE_STRING:
+ case LILV_VALUE_BOOL:
+ result = lilv_strdup(value->str_val);
+ break;
+ case LILV_VALUE_INT:
+ // INT64_MAX is 9223372036854775807 (19 digits) + 1 for sign
+ // FIXME: locale kludge, need a locale independent snprintf
+ locale = lilv_strdup(setlocale(LC_NUMERIC, NULL));
+ len = 20;
+ result = calloc(len, 1);
+ setlocale(LC_NUMERIC, "POSIX");
+ snprintf(result, len, "%d", value->val.int_val);
+ setlocale(LC_NUMERIC, locale);
+ break;
+ case LILV_VALUE_FLOAT:
+ // FIXME: locale kludge, need a locale independent snprintf
+ locale = lilv_strdup(setlocale(LC_NUMERIC, NULL));
+ len = 20; // FIXME: proper maximum value?
+ result = calloc(len, 1);
+ setlocale(LC_NUMERIC, "POSIX");
+ snprintf(result, len, "%f", value->val.float_val);
+ setlocale(LC_NUMERIC, locale);
+ break;
+ }
+
+ free(locale);
+
+ return result;
+}
+
+LILV_API
+bool
+lilv_node_is_uri(const LilvNode* value)
+{
+ return (value && value->type == LILV_VALUE_URI);
+}
+
+LILV_API
+const char*
+lilv_node_as_uri(const LilvNode* value)
+{
+ assert(lilv_node_is_uri(value));
+ return value->str_val;
+}
+
+const SordNode*
+lilv_node_as_node(const LilvNode* value)
+{
+ assert(lilv_node_is_uri(value));
+ return value->val.uri_val;
+}
+
+LILV_API
+bool
+lilv_node_is_blank(const LilvNode* value)
+{
+ return (value && value->type == LILV_VALUE_BLANK);
+}
+
+LILV_API
+const char*
+lilv_node_as_blank(const LilvNode* value)
+{
+ assert(lilv_node_is_blank(value));
+ return value->str_val;
+}
+
+LILV_API
+bool
+lilv_node_is_literal(const LilvNode* value)
+{
+ if (!value)
+ return false;
+
+ switch (value->type) {
+ case LILV_VALUE_STRING:
+ case LILV_VALUE_INT:
+ case LILV_VALUE_FLOAT:
+ return true;
+ default:
+ return false;
+ }
+}
+
+LILV_API
+bool
+lilv_node_is_string(const LilvNode* value)
+{
+ return (value && value->type == LILV_VALUE_STRING);
+}
+
+LILV_API
+const char*
+lilv_node_as_string(const LilvNode* value)
+{
+ return value->str_val;
+}
+
+LILV_API
+bool
+lilv_node_is_int(const LilvNode* value)
+{
+ return (value && value->type == LILV_VALUE_INT);
+}
+
+LILV_API
+int
+lilv_node_as_int(const LilvNode* value)
+{
+ assert(value);
+ assert(lilv_node_is_int(value));
+ return value->val.int_val;
+}
+
+LILV_API
+bool
+lilv_node_is_float(const LilvNode* value)
+{
+ return (value && value->type == LILV_VALUE_FLOAT);
+}
+
+LILV_API
+float
+lilv_node_as_float(const LilvNode* value)
+{
+ assert(lilv_node_is_float(value) || lilv_node_is_int(value));
+ if (lilv_node_is_float(value))
+ return value->val.float_val;
+ else // lilv_node_is_int(value)
+ return (float)value->val.int_val;
+}
+
+LILV_API
+bool
+lilv_node_is_bool(const LilvNode* value)
+{
+ return (value && value->type == LILV_VALUE_BOOL);
+}
+
+LILV_API
+bool
+lilv_node_as_bool(const LilvNode* value)
+{
+ assert(value);
+ assert(lilv_node_is_bool(value));
+ return value->val.bool_val;
+}