7763644ebe
This commit adds a setting to not scan the triplestore for prefixes, but instead use the prefixes listed in adapaters as the only URIs to resolve.
73 lines
2.3 KiB
PHP
73 lines
2.3 KiB
PHP
<?php
|
|
|
|
/**
|
|
* list_triplestore_prefixes returns the prefixes of all objects found in the triplestore.
|
|
* Prefixes are not filtered, and may contain duplicates.
|
|
*/
|
|
function list_triplestore_prefixes() {
|
|
$prefixes = [];
|
|
$storage = \Drupal::entityTypeManager()->getStorage('wisski_salz_adapter');
|
|
foreach ($storage->loadMultiple() as $adapter) {
|
|
// load all the prefixes from the triplestore
|
|
$engine = $adapter->getEngine();
|
|
get_prefixes_from_engine($adapter->getEngine(), $prefixes);
|
|
|
|
// read the configuration to check if we have a default graph
|
|
$conf = $engine->getConfiguration();
|
|
if(!array_key_exists('default_graph', $conf)) {
|
|
continue;
|
|
}
|
|
$prefixes[] = $conf['default_graph'];
|
|
}
|
|
return $prefixes;
|
|
}
|
|
|
|
|
|
/**
|
|
* list_adapter_prefixes returns the prefixes of all adapters.
|
|
* Prefixes are not filtered, and may contain duplicates.
|
|
*/
|
|
function list_adapter_prefixes() {
|
|
$prefixes = [];
|
|
$storage = \Drupal::entityTypeManager()->getStorage('wisski_salz_adapter');
|
|
foreach ($storage->loadMultiple() as $adapter) {
|
|
// load all the prefixes from the triplestore
|
|
$engine = $adapter->getEngine();
|
|
|
|
// read the configuration to check if we have a default graph
|
|
$conf = $engine->getConfiguration();
|
|
if(!array_key_exists('default_graph', $conf)) {
|
|
continue;
|
|
}
|
|
$prefixes[] = $conf['default_graph'];
|
|
}
|
|
return $prefixes;
|
|
}
|
|
|
|
function get_prefixes_from_engine($engine, &$prefixes) {
|
|
// some adapters don't support a query method!
|
|
if (!method_exists($engine, 'directQuery')) return NULL;
|
|
|
|
$results = $engine->directQuery('
|
|
select distinct ?base where {
|
|
{
|
|
select distinct ?iri where {
|
|
{
|
|
select distinct (?s as ?iri) { ?s ?p ?o }
|
|
} union {
|
|
select distinct (?o as ?iri) { ?s ?p ?o FILTER(isiri(?o)) }
|
|
}
|
|
}
|
|
}
|
|
BIND(replace(str(?iri), "/[^/]*/?$", "/") as ?base)
|
|
FILTER(!REGEX(?base, "/wisski/navigate/[\\\\d]+/$"))
|
|
} ORDER BY ?base');
|
|
if (!$results) return FALSE;
|
|
|
|
foreach($results as $result) {
|
|
$prefixes[] = $result->base->getValue();
|
|
}
|
|
|
|
return TRUE;
|
|
}
|
|
|