static SerdStatus
write_statement(SordModel* sord,
SerdWriter* writer,
SordQuad tup,
SerdStatementFlags flags)
{
const SordNode* s = tup[SORD_SUBJECT];
const SordNode* p = tup[SORD_PREDICATE];
const SordNode* o = tup[SORD_OBJECT];
const SordNode* d = sord_node_get_datatype(o);
const SerdNode* ss = sord_node_to_serd_node(s);
const SerdNode* sp = sord_node_to_serd_node(p);
const SerdNode* so = sord_node_to_serd_node(o);
const SerdNode* sd = sord_node_to_serd_node(d);
const char* lang_str = sord_node_get_language(o);
size_t lang_len = lang_str ? strlen(lang_str) : 0;
SerdNode language = SERD_NODE_NULL;
if (lang_str) {
language.type = SERD_LITERAL;
language.n_bytes = lang_len;
language.n_chars = lang_len;
language.buf = (const uint8_t*)lang_str;
};
// TODO: Subject abbreviation
if (sord_node_is_inline_object(s) && !(flags & SERD_ANON_CONT)) {
return SERD_SUCCESS;
}
SerdStatus st = SERD_SUCCESS;
if (sord_node_is_inline_object(o)) {
SordQuad sub_pat = { o, 0, 0, 0 };
SordIter* sub_iter = sord_find(sord, sub_pat);
SerdStatementFlags start_flags = flags
| ((sub_iter) ? SERD_ANON_O_BEGIN : SERD_EMPTY_O);
st = serd_writer_write_statement(
writer, start_flags, NULL, ss, sp, so, sd, &language);
if (!st && sub_iter) {
flags |= SERD_ANON_CONT;
for (; !st && !sord_iter_end(sub_iter); sord_iter_next(sub_iter)) {
SordQuad sub_tup;
sord_iter_get(sub_iter, sub_tup);
st = write_statement(sord, writer, sub_tup, flags);
}
sord_iter_free(sub_iter);
serd_writer_end_anon(writer, so);
}
} else {
st = serd_writer_write_statement(
writer, flags, NULL, ss, sp, so, sd, &language);
}
return st;
}
SORD_API
SerdReader*
sord_new_reader(SordModel* model,
SerdEnv* env,
SerdSyntax syntax,
SordNode* graph)
{
SordInserter* inserter = sord_inserter_new(model, env);
SerdReader* reader = serd_reader_new(
syntax, inserter, (void (*)(void*))sord_inserter_free,
(SerdBaseSink)sord_inserter_set_base_uri,
(SerdPrefixSink)sord_inserter_set_prefix,
(SerdStatementSink)sord_inserter_write_statement,
NULL);
if (graph) {
serd_reader_set_default_graph(reader, sord_node_to_serd_node(graph));
}
return reader;
}
static int
lilv_state_write(LilvWorld* world,
LV2_URID_Map* map,
LV2_URID_Unmap* unmap,
const LilvState* state,
SerdWriter* writer,
const char* uri,
const char* dir)
{
SerdNode lv2_appliesTo = serd_node_from_string(
SERD_CURIE, USTR("lv2:appliesTo"));
const SerdNode* plugin_uri = sord_node_to_serd_node(
state->plugin_uri->node);
SerdNode subject = serd_node_from_string(SERD_URI, USTR(uri ? uri : ""));
// <subject> a pset:Preset
SerdNode p = serd_node_from_string(SERD_URI, USTR(LILV_NS_RDF "type"));
SerdNode o = serd_node_from_string(SERD_URI, USTR(LV2_PRESETS__Preset));
serd_writer_write_statement(writer, 0, NULL,
&subject, &p, &o, NULL, NULL);
// <subject> lv2:appliesTo <http://example.org/plugin>
serd_writer_write_statement(writer, 0, NULL,
&subject,
&lv2_appliesTo,
plugin_uri, NULL, NULL);
// <subject> rdfs:label label
if (state->label) {
p = serd_node_from_string(SERD_URI, USTR(LILV_NS_RDFS "label"));
o = serd_node_from_string(SERD_LITERAL, USTR(state->label));
serd_writer_write_statement(writer, 0,
NULL, &subject, &p, &o, NULL, NULL);
}
SerdEnv* env = serd_writer_get_env(writer);
const SerdNode* base = serd_env_get_base_uri(env, NULL);
Sratom* sratom = sratom_new(map);
sratom_set_sink(sratom, (const char*)base->buf,
(SerdStatementSink)serd_writer_write_statement,
(SerdEndSink)serd_writer_end_anon,
writer);
// Write port values as pretty numbers
sratom_set_pretty_numbers(sratom, true);
// Write port values
for (uint32_t i = 0; i < state->num_values; ++i) {
PortValue* const value = &state->values[i];
const SerdNode port = serd_node_from_string(
SERD_BLANK, USTR(value->symbol));
// <> lv2:port _:symbol
p = serd_node_from_string(SERD_URI, USTR(LV2_CORE__port));
serd_writer_write_statement(writer, SERD_ANON_O_BEGIN,
NULL, &subject, &p, &port, NULL, NULL);
// _:symbol lv2:symbol "symbol"
p = serd_node_from_string(SERD_URI, USTR(LV2_CORE__symbol));
o = serd_node_from_string(SERD_LITERAL, USTR(value->symbol));
serd_writer_write_statement(writer, SERD_ANON_CONT,
NULL, &port, &p, &o, NULL, NULL);
// _:symbol pset:value value
p = serd_node_from_string(SERD_URI, USTR(LV2_PRESETS__value));
sratom_write(sratom, unmap, SERD_ANON_CONT, &port, &p,
value->type, value->size, value->value);
serd_writer_end_anon(writer, &port);
}
// Write property values with precise types
sratom_set_pretty_numbers(sratom, false);
// Write properties
const SerdNode state_node = serd_node_from_string(SERD_BLANK,
USTR("2state"));
if (state->num_props > 0) {
p = serd_node_from_string(SERD_URI, USTR(LV2_STATE__state));
serd_writer_write_statement(writer, SERD_ANON_O_BEGIN, NULL,
&subject, &p, &state_node, NULL, NULL);
}
for (uint32_t i = 0; i < state->num_props; ++i) {
Property* prop = &state->props[i];
const char* key = unmap->unmap(unmap->handle, prop->key);
p = serd_node_from_string(SERD_URI, USTR(key));
if (prop->type == state->atom_Path && !dir) {
const char* path = (const char*)prop->value;
const char* abs_path = lilv_state_rel2abs(state, path);
sratom_write(sratom, unmap, SERD_ANON_CONT,
&state_node, &p, prop->type,
strlen(abs_path) + 1, abs_path);
} else {
sratom_write(sratom, unmap, SERD_ANON_CONT,
&state_node, &p, prop->type, prop->size, prop->value);
}
}
if (state->num_props > 0) {
serd_writer_end_anon(writer, &state_node);
}
sratom_free(sratom);
return 0;
}
