sweetrdf /
in-memory-store-sqlite
| Total Complexity | 248 |
| Total Lines | 956 |
| Duplicated Lines | 0 % |
| Coverage | 63.97% |
| Changes | 2 | ||
| Bugs | 0 | Features | 0 |
Complex classes like TurtleParser often do a lot of different things. To break such a class down, we need to identify a cohesive component within that class. A common approach to find such a component is to look for fields/methods that share the same prefixes, or suffixes.
Once you have determined the fields that belong together, you can apply the Extract Class refactoring. If the component makes sense as a sub-class, Extract Subclass is also a candidate, and is often faster.
While breaking up the class, it is a good idea to analyze how other classes use TurtleParser, and based on these observations, apply Extract Interface, too.
| 1 | <?php |
||
| 22 | class TurtleParser extends BaseParser |
||
| 23 | { |
||
| 24 | 96 | public function __construct(Logger $logger, NamespaceHelper $namespaceHelper, StringReader $stringReader) |
|
| 25 | { |
||
| 26 | 96 | parent::__construct($logger, $namespaceHelper, $stringReader); |
|
| 27 | |||
| 28 | 96 | $this->state = 0; |
|
|
Bug
Best Practice
introduced
by
|
|||
| 29 | 96 | $this->unparsed_code = ''; |
|
| 30 | 96 | $this->max_parsing_loops = 500; |
|
| 31 | 96 | } |
|
| 32 | |||
| 33 | 96 | protected function x($re, $v, $options = 'si') |
|
| 34 | { |
||
| 35 | 96 | $v = preg_replace('/^[\xA0\xC2]+/', ' ', $v); |
|
| 36 | |||
| 37 | /* comment removal */ |
||
| 38 | 96 | while (preg_match('/^\s*(\#[^\xd\xa]*)(.*)$/si', $v, $m)) { |
|
| 39 | $v = $m[2]; |
||
| 40 | } |
||
| 41 | |||
| 42 | 96 | return preg_match("/^\s*".$re.'(.*)$/'.$options, $v, $m) ? $m : false; |
|
| 43 | } |
||
| 44 | |||
| 45 | 2 | private function createBnodeID(): string |
|
| 46 | { |
||
| 47 | 2 | ++$this->bnode_id; |
|
| 48 | |||
| 49 | 2 | return '_:'.$this->bnode_prefix.$this->bnode_id; |
|
| 50 | } |
||
| 51 | |||
| 52 | 2 | protected function addT(array $t): void |
|
| 56 | 2 | } |
|
| 57 | |||
| 58 | protected function countTriples() |
||
| 59 | { |
||
| 60 | return $this->t_count; |
||
| 61 | } |
||
| 62 | |||
| 63 | protected function getUnparsedCode() |
||
| 66 | } |
||
| 67 | |||
| 68 | 2 | public function parse(string $path, string $data = ''): void |
|
| 69 | { |
||
| 70 | 2 | $this->triples = []; |
|
| 71 | 2 | $this->t_count = 0; |
|
| 72 | 2 | $this->reader->init($path, $data); |
|
| 73 | 2 | $this->base = $this->reader->getBase(); |
|
| 74 | 2 | $this->r = ['vars' => []]; |
|
| 75 | /* parse */ |
||
| 76 | 2 | $buffer = ''; |
|
| 77 | 2 | $more_triples = []; |
|
| 78 | 2 | $sub_v = ''; |
|
| 79 | 2 | $sub_v2 = ''; |
|
| 80 | 2 | $loops = 0; |
|
| 81 | 2 | $prologue_done = 0; |
|
| 82 | 2 | while ($d = $this->reader->readStream(8192)) { |
|
| 83 | 2 | $buffer .= $d; |
|
| 84 | 2 | $sub_v = $buffer; |
|
| 85 | do { |
||
| 86 | 2 | $proceed = 0; |
|
| 87 | 2 | if (!$prologue_done) { |
|
| 88 | 2 | $proceed = 1; |
|
| 89 | 2 | if ((list($sub_r, $sub_v) = $this->xPrologue($sub_v)) && $sub_r) { |
|
| 90 | 2 | $loops = 0; |
|
| 91 | 2 | $sub_v .= $this->reader->readStream(128); |
|
| 92 | /* in case we missed the final DOT in the previous prologue loop */ |
||
| 93 | 2 | if ($sub_r = $this->x('\.', $sub_v)) { |
|
| 94 | $sub_v = $sub_r[1]; |
||
| 95 | } |
||
| 96 | /* more prologue to come, use outer loop */ |
||
| 97 | 2 | if ($this->x("\@?(base|prefix)", $sub_v)) { |
|
| 98 | 2 | $proceed = 0; |
|
| 99 | } |
||
| 100 | } else { |
||
| 101 | 2 | $prologue_done = 1; |
|
| 102 | } |
||
| 103 | } |
||
| 104 | if ( |
||
| 105 | 2 | $prologue_done |
|
| 106 | 2 | && (list($sub_r, $sub_v, $more_triples, $sub_v2) = $this->xTriplesBlock($sub_v)) |
|
| 107 | 2 | && \is_array($sub_r) |
|
| 108 | ) { |
||
| 109 | 2 | $proceed = 1; |
|
| 110 | 2 | $loops = 0; |
|
| 111 | 2 | foreach ($sub_r as $t) { |
|
| 112 | 2 | $this->addT($t); |
|
| 113 | } |
||
| 114 | } |
||
| 115 | 2 | } while ($proceed); |
|
| 116 | 2 | ++$loops; |
|
| 117 | 2 | $buffer = $sub_v; |
|
| 118 | 2 | if ($loops > $this->max_parsing_loops) { |
|
| 119 | $msg = 'too many loops: '.$loops.'. Could not parse "'.substr($buffer, 0, 200).'..."'; |
||
| 120 | throw new Exception($msg); |
||
| 121 | } |
||
| 122 | } |
||
| 123 | 2 | foreach ($more_triples as $t) { |
|
| 124 | $this->addT($t); |
||
| 125 | } |
||
| 126 | 2 | $sub_v = \count($more_triples) ? $sub_v2 : $sub_v; |
|
| 127 | 2 | $buffer = $sub_v; |
|
| 128 | 2 | $this->unparsed_code = $buffer; |
|
| 129 | |||
| 130 | /* remove trailing comments */ |
||
| 131 | 2 | while (preg_match('/^\s*(\#[^\xd\xa]*)(.*)$/si', $this->unparsed_code, $m)) { |
|
| 132 | $this->unparsed_code = $m[2]; |
||
| 133 | } |
||
| 134 | |||
| 135 | 2 | if ($this->unparsed_code && !$this->logger->hasEntries('error')) { |
|
| 136 | $rest = preg_replace('/[\x0a|\x0d]/i', ' ', substr($this->unparsed_code, 0, 30)); |
||
| 137 | if (trim($rest)) { |
||
| 138 | $this->logger->error('Could not parse "'.$rest.'"'); |
||
| 139 | } |
||
| 140 | } |
||
| 141 | 2 | } |
|
| 142 | |||
| 143 | 2 | protected function xPrologue($v) |
|
| 144 | { |
||
| 145 | 2 | $r = 0; |
|
| 146 | 2 | if (!$this->t_count) { |
|
| 147 | 2 | if ((list($sub_r, $v) = $this->xBaseDecl($v)) && $sub_r) { |
|
| 148 | $this->base = $sub_r; |
||
| 149 | $r = 1; |
||
| 150 | } |
||
| 151 | 2 | while ((list($sub_r, $v) = $this->xPrefixDecl($v)) && $sub_r) { |
|
| 152 | 2 | $this->namespaceHelper->setPrefix($sub_r['prefix'], $sub_r['uri']); |
|
| 153 | 2 | $r = 1; |
|
| 154 | } |
||
| 155 | } |
||
| 156 | |||
| 157 | 2 | return [$r, $v]; |
|
| 158 | } |
||
| 159 | |||
| 160 | /* 3 */ |
||
| 161 | |||
| 162 | 96 | protected function xBaseDecl($v) |
|
| 163 | { |
||
| 164 | 96 | if ($r = $this->x("\@?base\s+", $v)) { |
|
| 165 | if ((list($r, $sub_v) = $this->xIRI_REF($r[1])) && $r) { |
||
| 166 | if ($sub_r = $this->x('\.', $sub_v)) { |
||
| 167 | $sub_v = $sub_r[1]; |
||
| 168 | } |
||
| 169 | |||
| 170 | return [$r, $sub_v]; |
||
| 171 | } |
||
| 172 | } |
||
| 173 | |||
| 174 | 96 | return [0, $v]; |
|
| 175 | } |
||
| 176 | |||
| 177 | /* 4 */ |
||
| 178 | |||
| 179 | 96 | protected function xPrefixDecl($v) |
|
| 180 | { |
||
| 181 | 96 | if ($r = $this->x("\@?prefix\s+", $v)) { |
|
| 182 | 21 | if ((list($r, $sub_v) = $this->xPNAME_NS($r[1])) && $r) { |
|
| 183 | 21 | $prefix = $r; |
|
| 184 | 21 | if ((list($r, $sub_v) = $this->xIRI_REF($sub_v)) && $r) { |
|
| 185 | 21 | $uri = calcURI($r, $this->base); |
|
| 186 | 21 | if ($sub_r = $this->x('\.', $sub_v)) { |
|
| 187 | 16 | $sub_v = $sub_r[1]; |
|
| 188 | } |
||
| 189 | |||
| 190 | 21 | return [['prefix' => $prefix, 'uri_ref' => $r, 'uri' => $uri], $sub_v]; |
|
| 191 | } |
||
| 192 | } |
||
| 193 | } |
||
| 194 | |||
| 195 | 96 | return [0, $v]; |
|
| 196 | } |
||
| 197 | |||
| 198 | /* 21.., 32.. */ |
||
| 199 | |||
| 200 | 96 | protected function xTriplesBlock($v) |
|
| 201 | { |
||
| 202 | 96 | $pre_r = []; |
|
| 203 | 96 | $r = []; |
|
| 204 | 96 | $state = 1; |
|
| 205 | 96 | $sub_v = $v; |
|
| 206 | 96 | $buffer = $sub_v; |
|
| 207 | do { |
||
| 208 | 96 | $proceed = 0; |
|
| 209 | 96 | if (1 == $state) {/* expecting subject */ |
|
| 210 | 96 | $t = ['type' => 'triple', 's' => '', 'p' => '', 'o' => '', 's_type' => '', 'p_type' => '', 'o_type' => '', 'o_datatype' => '', 'o_lang' => '']; |
|
| 211 | 96 | if ((list($sub_r, $sub_v) = $this->xVarOrTerm($sub_v)) && $sub_r) { |
|
| 212 | 96 | $t['s'] = $sub_r['value']; |
|
| 213 | 96 | $t['s_type'] = $sub_r['type']; |
|
| 214 | 96 | $state = 2; |
|
| 215 | 96 | $proceed = 1; |
|
| 216 | 96 | if ($sub_r = $this->x('(\}|\.)', $sub_v)) { |
|
| 217 | if ('placeholder' == $t['s_type']) { |
||
| 218 | $state = 4; |
||
| 219 | } else { |
||
| 220 | 96 | $this->logger->error('"'.$sub_r[1].'" after subject found.'); |
|
| 221 | } |
||
| 222 | } |
||
| 223 | 94 | } elseif ((list($sub_r, $sub_v) = $this->xCollection($sub_v)) && $sub_r) { |
|
| 224 | $t['s'] = $sub_r['id']; |
||
| 225 | $t['s_type'] = $sub_r['type']; |
||
| 226 | $pre_r = array_merge($pre_r, $sub_r['triples']); |
||
| 227 | $state = 2; |
||
| 228 | $proceed = 1; |
||
| 229 | if ($sub_r = $this->x('\.', $sub_v)) { |
||
| 230 | $this->logger->error('DOT after subject found.'); |
||
| 231 | } |
||
| 232 | 94 | } elseif ((list($sub_r, $sub_v) = $this->xBlankNodePropertyList($sub_v)) && $sub_r) { |
|
| 233 | $t['s'] = $sub_r['id']; |
||
| 234 | $t['s_type'] = $sub_r['type']; |
||
| 235 | $pre_r = array_merge($pre_r, $sub_r['triples']); |
||
| 236 | $state = 2; |
||
| 237 | $proceed = 1; |
||
| 238 | 94 | } elseif ($sub_r = $this->x('\.', $sub_v)) { |
|
| 239 | $this->logger->error('Subject expected, DOT found.'.$sub_v); |
||
| 240 | } |
||
| 241 | } |
||
| 242 | 96 | if (2 == $state) {/* expecting predicate */ |
|
| 243 | 96 | if ($sub_r = $this->x('a\s+', $sub_v)) { |
|
| 244 | $sub_v = $sub_r[1]; |
||
| 245 | $t['p'] = NamespaceHelper::NAMESPACE_RDF.'type'; |
||
| 246 | $t['p_type'] = 'uri'; |
||
| 247 | $state = 3; |
||
| 248 | $proceed = 1; |
||
| 249 | 96 | } elseif ((list($sub_r, $sub_v) = $this->xVarOrTerm($sub_v)) && $sub_r) { |
|
| 250 | 96 | if ('bnode' == $sub_r['type']) { |
|
| 251 | $this->logger->error('Blank node used as triple predicate'); |
||
| 252 | } |
||
| 253 | 96 | $t['p'] = $sub_r['value']; |
|
| 254 | 96 | $t['p_type'] = $sub_r['type']; |
|
| 255 | 96 | $state = 3; |
|
| 256 | 96 | $proceed = 1; |
|
| 257 | } elseif ($sub_r = $this->x('\.', $sub_v)) { |
||
| 258 | $state = 4; |
||
| 259 | } elseif ($sub_r = $this->x('\}', $sub_v)) { |
||
| 260 | $buffer = $sub_v; |
||
| 261 | $r = array_merge($r, $pre_r); |
||
| 262 | $pre_r = []; |
||
| 263 | $proceed = 0; |
||
| 264 | } |
||
| 265 | } |
||
| 266 | 96 | if (3 == $state) {/* expecting object */ |
|
| 267 | 96 | if ((list($sub_r, $sub_v) = $this->xVarOrTerm($sub_v)) && $sub_r) { |
|
| 268 | 96 | $t['o'] = $sub_r['value']; |
|
| 269 | 96 | $t['o_type'] = $sub_r['type']; |
|
| 270 | 96 | $t['o_lang'] = $sub_r['lang'] ?? ''; |
|
| 271 | 96 | $t['o_datatype'] = $sub_r['datatype'] ?? ''; |
|
| 272 | 96 | $pre_r[] = $t; |
|
| 273 | 96 | $state = 4; |
|
| 274 | 96 | $proceed = 1; |
|
| 275 | 2 | } elseif ((list($sub_r, $sub_v) = $this->xCollection($sub_v)) && $sub_r) { |
|
| 276 | $t['o'] = $sub_r['id']; |
||
| 277 | $t['o_type'] = $sub_r['type']; |
||
| 278 | $t['o_datatype'] = ''; |
||
| 279 | $pre_r = array_merge($pre_r, [$t], $sub_r['triples']); |
||
| 280 | $state = 4; |
||
| 281 | $proceed = 1; |
||
| 282 | 2 | } elseif ((list($sub_r, $sub_v) = $this->xBlankNodePropertyList($sub_v)) && $sub_r) { |
|
| 283 | 2 | $t['o'] = $sub_r['id']; |
|
| 284 | 2 | $t['o_type'] = $sub_r['type']; |
|
| 285 | 2 | $t['o_datatype'] = ''; |
|
| 286 | 2 | $pre_r = array_merge($pre_r, [$t], $sub_r['triples']); |
|
| 287 | 2 | $state = 4; |
|
| 288 | 2 | $proceed = 1; |
|
| 289 | } |
||
| 290 | } |
||
| 291 | 96 | if (4 == $state) {/* expecting . or ; or , or } */ |
|
| 292 | 96 | if ($sub_r = $this->x('\.', $sub_v)) { |
|
| 293 | 94 | $sub_v = $sub_r[1]; |
|
| 294 | 94 | $buffer = $sub_v; |
|
| 295 | 94 | $r = array_merge($r, $pre_r); |
|
| 296 | 94 | $pre_r = []; |
|
| 297 | 94 | $state = 1; |
|
| 298 | 94 | $proceed = 1; |
|
| 299 | 27 | } elseif ($sub_r = $this->x('\;', $sub_v)) { |
|
| 300 | 10 | $sub_v = $sub_r[1]; |
|
| 301 | 10 | $state = 2; |
|
| 302 | 10 | $proceed = 1; |
|
| 303 | 24 | } elseif ($sub_r = $this->x('\,', $sub_v)) { |
|
| 304 | 20 | $sub_v = $sub_r[1]; |
|
| 305 | 20 | $state = 3; |
|
| 306 | 20 | $proceed = 1; |
|
| 307 | 20 | if ($sub_r = $this->x('\}', $sub_v)) { |
|
| 308 | $this->logger->error('Object expected, } found.'); |
||
| 309 | } |
||
| 310 | } |
||
| 311 | 96 | if ($sub_r = $this->x('(\}|\{|OPTIONAL|FILTER|GRAPH)', $sub_v)) { |
|
| 312 | 93 | $buffer = $sub_v; |
|
| 313 | 93 | $r = array_merge($r, $pre_r); |
|
| 314 | 93 | $pre_r = []; |
|
| 315 | 93 | $proceed = 0; |
|
| 316 | } |
||
| 317 | } |
||
| 318 | 96 | } while ($proceed); |
|
| 319 | |||
| 320 | 96 | return \count($r) ? [$r, $buffer, $pre_r, $sub_v] : [0, $buffer, $pre_r, $sub_v]; |
|
| 321 | } |
||
| 322 | |||
| 323 | /* 39.. */ |
||
| 324 | |||
| 325 | 94 | protected function xBlankNodePropertyList($v) |
|
| 326 | { |
||
| 327 | 94 | if ($sub_r = $this->x('\[', $v)) { |
|
| 328 | 2 | $sub_v = $sub_r[1]; |
|
| 329 | 2 | $s = $this->createBnodeID(); |
|
| 330 | 2 | $r = ['id' => $s, 'type' => 'bnode', 'triples' => []]; |
|
| 331 | 2 | $t = ['type' => 'triple', 's' => $s, 'p' => '', 'o' => '', 's_type' => 'bnode', 'p_type' => '', 'o_type' => '', 'o_datatype' => '', 'o_lang' => '']; |
|
| 332 | 2 | $state = 2; |
|
| 333 | 2 | $closed = 0; |
|
| 334 | do { |
||
| 335 | 2 | $proceed = 0; |
|
| 336 | 2 | if (2 == $state) {/* expecting predicate */ |
|
| 337 | 2 | if ($sub_r = $this->x('a\s+', $sub_v)) { |
|
| 338 | $sub_v = $sub_r[1]; |
||
| 339 | $t['p'] = NamespaceHelper::NAMESPACE_RDF.'type'; |
||
| 340 | $t['p_type'] = 'uri'; |
||
| 341 | $state = 3; |
||
| 342 | $proceed = 1; |
||
| 343 | 2 | } elseif ((list($sub_r, $sub_v) = $this->xVarOrTerm($sub_v)) && $sub_r) { |
|
| 344 | 2 | $t['p'] = $sub_r['value']; |
|
| 345 | 2 | $t['p_type'] = $sub_r['type']; |
|
| 346 | 2 | $state = 3; |
|
| 347 | 2 | $proceed = 1; |
|
| 348 | } |
||
| 349 | } |
||
| 350 | 2 | if (3 == $state) {/* expecting object */ |
|
| 351 | 2 | if ((list($sub_r, $sub_v) = $this->xVarOrTerm($sub_v)) && $sub_r) { |
|
| 352 | 2 | $t['o'] = $sub_r['value']; |
|
| 353 | 2 | $t['o_type'] = $sub_r['type']; |
|
| 354 | 2 | $t['o_lang'] = $sub_r['lang'] ?? ''; |
|
| 355 | 2 | $t['o_datatype'] = $sub_r['datatype'] ?? ''; |
|
| 356 | 2 | $r['triples'][] = $t; |
|
| 357 | 2 | $state = 4; |
|
| 358 | 2 | $proceed = 1; |
|
| 359 | } elseif ((list($sub_r, $sub_v) = $this->xCollection($sub_v)) && $sub_r) { |
||
| 360 | $t['o'] = $sub_r['id']; |
||
| 361 | $t['o_type'] = $sub_r['type']; |
||
| 362 | $t['o_datatype'] = ''; |
||
| 363 | $r['triples'] = array_merge($r['triples'], [$t], $sub_r['triples']); |
||
| 364 | $state = 4; |
||
| 365 | $proceed = 1; |
||
| 366 | } elseif ((list($sub_r, $sub_v) = $this->xBlankNodePropertyList($sub_v)) && $sub_r) { |
||
| 367 | $t['o'] = $sub_r['id']; |
||
| 368 | $t['o_type'] = $sub_r['type']; |
||
| 369 | $t['o_datatype'] = ''; |
||
| 370 | $r['triples'] = array_merge($r['triples'], [$t], $sub_r['triples']); |
||
| 371 | $state = 4; |
||
| 372 | $proceed = 1; |
||
| 373 | } |
||
| 374 | } |
||
| 375 | 2 | if (4 == $state) {/* expecting . or ; or , or ] */ |
|
| 376 | 2 | if ($sub_r = $this->x('\.', $sub_v)) { |
|
| 377 | $sub_v = $sub_r[1]; |
||
| 378 | $state = 1; |
||
| 379 | $proceed = 1; |
||
| 380 | } |
||
| 381 | 2 | if ($sub_r = $this->x('\;', $sub_v)) { |
|
| 382 | 1 | $sub_v = $sub_r[1]; |
|
| 383 | 1 | $state = 2; |
|
| 384 | 1 | $proceed = 1; |
|
| 385 | } |
||
| 386 | 2 | if ($sub_r = $this->x('\,', $sub_v)) { |
|
| 387 | $sub_v = $sub_r[1]; |
||
| 388 | $state = 3; |
||
| 389 | $proceed = 1; |
||
| 390 | } |
||
| 391 | 2 | if ($sub_r = $this->x('\]', $sub_v)) { |
|
| 392 | 2 | $sub_v = $sub_r[1]; |
|
| 393 | 2 | $proceed = 0; |
|
| 394 | 2 | $closed = 1; |
|
| 395 | } |
||
| 396 | } |
||
| 397 | 2 | } while ($proceed); |
|
| 398 | 2 | if ($closed) { |
|
| 399 | 2 | return [$r, $sub_v]; |
|
| 400 | } |
||
| 401 | |||
| 402 | return [0, $v]; |
||
| 403 | } |
||
| 404 | |||
| 405 | 94 | return [0, $v]; |
|
| 406 | } |
||
| 407 | |||
| 408 | /* 40.. */ |
||
| 409 | |||
| 410 | 94 | protected function xCollection($v) |
|
| 411 | { |
||
| 412 | 94 | if ($sub_r = $this->x('\(', $v)) { |
|
| 413 | $sub_v = $sub_r[1]; |
||
| 414 | $s = $this->createBnodeID(); |
||
| 415 | $r = ['id' => $s, 'type' => 'bnode', 'triples' => []]; |
||
| 416 | $closed = 0; |
||
| 417 | do { |
||
| 418 | $proceed = 0; |
||
| 419 | if ((list($sub_r, $sub_v) = $this->xVarOrTerm($sub_v)) && $sub_r) { |
||
| 420 | $r['triples'][] = [ |
||
| 421 | 'type' => 'triple', |
||
| 422 | 's' => $s, |
||
| 423 | 's_type' => 'bnode', |
||
| 424 | 'p' => NamespaceHelper::NAMESPACE_RDF.'first', |
||
| 425 | 'p_type' => 'uri', |
||
| 426 | 'o' => $sub_r['value'], |
||
| 427 | 'o_type' => $sub_r['type'], |
||
| 428 | 'o_lang' => $sub_r['lang'] ?? '', |
||
| 429 | 'o_datatype' => $sub_r['datatype'] ?? '', |
||
| 430 | ]; |
||
| 431 | $proceed = 1; |
||
| 432 | } elseif ((list($sub_r, $sub_v) = $this->xCollection($sub_v)) && $sub_r) { |
||
| 433 | $r['triples'][] = [ |
||
| 434 | 'type' => 'triple', |
||
| 435 | 's' => $s, |
||
| 436 | 's_type' => 'bnode', |
||
| 437 | 'p' => NamespaceHelper::NAMESPACE_RDF.'first', |
||
| 438 | 'p_type' => 'uri', |
||
| 439 | 'o' => $sub_r['id'], |
||
| 440 | 'o_type' => $sub_r['type'], |
||
| 441 | 'o_lang' => '', |
||
| 442 | 'o_datatype' => '', |
||
| 443 | ]; |
||
| 444 | $r['triples'] = array_merge($r['triples'], $sub_r['triples']); |
||
| 445 | $proceed = 1; |
||
| 446 | } elseif ((list($sub_r, $sub_v) = $this->xBlankNodePropertyList($sub_v)) && $sub_r) { |
||
| 447 | $r['triples'][] = [ |
||
| 448 | 'type' => 'triple', |
||
| 449 | 's' => $s, |
||
| 450 | 'p' => NamespaceHelper::NAMESPACE_RDF.'first', |
||
| 451 | 'o' => $sub_r['id'], |
||
| 452 | 's_type' => 'bnode', |
||
| 453 | 'p_type' => 'uri', |
||
| 454 | 'o_type' => $sub_r['type'], |
||
| 455 | 'o_lang' => '', |
||
| 456 | 'o_datatype' => '', |
||
| 457 | ]; |
||
| 458 | $r['triples'] = array_merge($r['triples'], $sub_r['triples']); |
||
| 459 | $proceed = 1; |
||
| 460 | } |
||
| 461 | if ($proceed) { |
||
| 462 | if ($sub_r = $this->x('\)', $sub_v)) { |
||
| 463 | $sub_v = $sub_r[1]; |
||
| 464 | $r['triples'][] = [ |
||
| 465 | 'type' => 'triple', |
||
| 466 | 's' => $s, |
||
| 467 | 's_type' => 'bnode', |
||
| 468 | 'p' => NamespaceHelper::NAMESPACE_RDF.'rest', |
||
| 469 | 'p_type' => 'uri', |
||
| 470 | 'o' => NamespaceHelper::NAMESPACE_RDF.'nil', |
||
| 471 | 'o_type' => 'uri', |
||
| 472 | 'o_lang' => '', |
||
| 473 | 'o_datatype' => '', |
||
| 474 | ]; |
||
| 475 | $closed = 1; |
||
| 476 | $proceed = 0; |
||
| 477 | } else { |
||
| 478 | $next_s = $this->createBnodeID(); |
||
| 479 | $r['triples'][] = [ |
||
| 480 | 'type' => 'triple', |
||
| 481 | 's' => $s, |
||
| 482 | 'p' => NamespaceHelper::NAMESPACE_RDF.'rest', |
||
| 483 | 'o' => $next_s, |
||
| 484 | 's_type' => 'bnode', |
||
| 485 | 'p_type' => 'uri', |
||
| 486 | 'o_type' => 'bnode', |
||
| 487 | 'o_lang' => '', |
||
| 488 | 'o_datatype' => '', |
||
| 489 | ]; |
||
| 490 | $s = $next_s; |
||
| 491 | } |
||
| 492 | } |
||
| 493 | } while ($proceed); |
||
| 494 | if ($closed) { |
||
| 495 | return [$r, $sub_v]; |
||
| 496 | } |
||
| 497 | } |
||
| 498 | |||
| 499 | 94 | return [0, $v]; |
|
| 500 | } |
||
| 501 | |||
| 502 | /* 42 */ |
||
| 503 | |||
| 504 | 96 | protected function xVarOrTerm($v) |
|
| 505 | { |
||
| 506 | 96 | if ((list($sub_r, $sub_v) = $this->xVar($v)) && $sub_r) { |
|
| 507 | 90 | return [$sub_r, $sub_v]; |
|
| 508 | 96 | } elseif ((list($sub_r, $sub_v) = $this->xGraphTerm($v)) && $sub_r) { |
|
| 509 | 94 | return [$sub_r, $sub_v]; |
|
| 510 | } |
||
| 511 | |||
| 512 | 94 | return [0, $v]; |
|
| 513 | } |
||
| 514 | |||
| 515 | /* 44, 74.., 75.. */ |
||
| 516 | |||
| 517 | 96 | protected function xVar($v) |
|
| 518 | { |
||
| 519 | 96 | if ($r = $this->x('(\?|\$)([^\s]+)', $v)) { |
|
| 520 | 90 | if ((list($sub_r, $sub_v) = $this->xVARNAME($r[2])) && $sub_r) { |
|
| 521 | 90 | if (!\in_array($sub_r, $this->r['vars'])) { |
|
| 522 | 90 | $this->r['vars'][] = $sub_r; |
|
| 523 | } |
||
| 524 | |||
| 525 | 90 | return [['value' => $sub_r, 'type' => 'var'], $sub_v.$r[3]]; |
|
| 526 | } |
||
| 527 | } |
||
| 528 | |||
| 529 | 96 | return [0, $v]; |
|
| 530 | } |
||
| 531 | |||
| 532 | /* 45 */ |
||
| 533 | |||
| 534 | 96 | protected function xGraphTerm($v) |
|
| 535 | { |
||
| 536 | foreach ([ |
||
| 537 | 96 | 'IRIref' => 'uri', |
|
| 538 | 'RDFLiteral' => 'literal', |
||
| 539 | 'NumericLiteral' => 'literal', |
||
| 540 | 'BooleanLiteral' => 'literal', |
||
| 541 | 'BlankNode' => 'bnode', |
||
| 542 | 'NIL' => 'uri', |
||
| 543 | 'Placeholder' => 'placeholder', |
||
| 544 | 96 | ] as $term => $type) { |
|
| 545 | 96 | $m = 'x'.$term; |
|
| 546 | 96 | if ((list($sub_r, $sub_v) = $this->$m($v)) && $sub_r) { |
|
| 547 | 94 | if (!\is_array($sub_r)) { |
|
| 548 | 94 | $sub_r = ['value' => $sub_r]; |
|
| 549 | } |
||
| 550 | 94 | $sub_r['type'] = $sub_r['type'] ?? $type; |
|
| 551 | |||
| 552 | 94 | return [$sub_r, $sub_v]; |
|
| 553 | } |
||
| 554 | } |
||
| 555 | |||
| 556 | 94 | return [0, $v]; |
|
| 557 | } |
||
| 558 | |||
| 559 | /* 60 */ |
||
| 560 | |||
| 561 | 95 | protected function xRDFLiteral($v) |
|
| 581 | } |
||
| 582 | |||
| 583 | /* 61.., 62.., 63.., 64.. */ |
||
| 584 | |||
| 585 | 94 | protected function xNumericLiteral($v) |
|
| 586 | { |
||
| 587 | 94 | $sub_r = $this->x('(\-|\+)?', $v); |
|
| 588 | 94 | $prefix = $sub_r[1]; |
|
| 589 | 94 | $sub_v = $sub_r[2]; |
|
| 590 | 94 | foreach (['DOUBLE' => 'double', 'DECIMAL' => 'decimal', 'INTEGER' => 'integer'] as $type => $xsd) { |
|
| 591 | 94 | $m = 'x'.$type; |
|
| 592 | 94 | if ((list($sub_r, $sub_v) = $this->$m($sub_v)) && (false !== $sub_r)) { |
|
| 593 | 19 | $r = [ |
|
| 594 | 19 | 'value' => $prefix.$sub_r, |
|
| 595 | 19 | 'type' => 'literal', |
|
| 596 | 19 | 'datatype' => NamespaceHelper::NAMESPACE_XSD.$xsd, |
|
| 597 | ]; |
||
| 598 | |||
| 599 | 19 | return [$r, $sub_v]; |
|
| 600 | } |
||
| 601 | } |
||
| 602 | |||
| 603 | 94 | return [0, $v]; |
|
| 604 | } |
||
| 605 | |||
| 606 | /* 65.. */ |
||
| 607 | |||
| 608 | 94 | protected function xBooleanLiteral($v) |
|
| 609 | { |
||
| 610 | 94 | if ($r = $this->x('(true|false)', $v)) { |
|
| 611 | return [$r[1], $r[2]]; |
||
| 612 | } |
||
| 613 | |||
| 614 | 94 | return [0, $v]; |
|
| 615 | } |
||
| 616 | |||
| 617 | /* 66.., 87.., 88.., 89.., 90.., 91.. */ |
||
| 618 | |||
| 619 | 95 | protected function xString($v) |
|
| 652 | } |
||
| 653 | |||
| 654 | /* 67 */ |
||
| 655 | |||
| 656 | 96 | protected function xIRIref($v) |
|
| 657 | { |
||
| 658 | 96 | if ((list($r, $v) = $this->xIRI_REF($v)) && $r) { |
|
| 659 | 92 | return [calcURI($r, $this->base), $v]; |
|
| 660 | 96 | } elseif ((list($r, $v) = $this->xPrefixedName($v)) && $r) { |
|
| 661 | 28 | return [$r, $v]; |
|
| 662 | } |
||
| 663 | |||
| 664 | 95 | return [0, $v]; |
|
| 665 | } |
||
| 666 | |||
| 667 | /* 68 */ |
||
| 668 | |||
| 669 | 96 | protected function xPrefixedName($v) |
|
| 670 | { |
||
| 671 | 96 | if ((list($r, $v) = $this->xPNAME_LN($v)) && $r) { |
|
| 672 | 28 | return [$r, $v]; |
|
| 673 | 95 | } elseif ((list($r, $sub_v) = $this->xPNAME_NS($v)) && $r) { |
|
| 674 | 7 | return $this->namespaceHelper->hasPrefix($r) |
|
| 675 | ? [$this->namespaceHelper->getNamespace($r), $sub_v] |
||
| 676 | 7 | : [0, $v]; |
|
| 677 | } |
||
| 678 | |||
| 679 | 95 | return [0, $v]; |
|
| 680 | } |
||
| 681 | |||
| 682 | /* 69.., 73.., 93, 94.. */ |
||
| 683 | |||
| 684 | 94 | protected function xBlankNode($v) |
|
| 685 | { |
||
| 686 | 94 | if (($r = $this->x('\_\:', $v)) && (list($r, $sub_v) = $this->xPN_LOCAL($r[1])) && $r) { |
|
| 687 | 4 | return [['type' => 'bnode', 'value' => '_:'.$r], $sub_v]; |
|
| 688 | } |
||
| 689 | 94 | if ($r = $this->x('\[[\x20\x9\xd\xa]*\]', $v)) { |
|
| 690 | return [['type' => 'bnode', 'value' => $this->createBnodeID()], $r[1]]; |
||
| 691 | } |
||
| 692 | |||
| 693 | 94 | return [0, $v]; |
|
| 694 | } |
||
| 695 | |||
| 696 | /* 70.. @@sync with SPARQLParser */ |
||
| 697 | |||
| 698 | 2 | protected function xIRI_REF($v) |
|
| 699 | { |
||
| 700 | //if ($r = $this->x('\<([^\<\>\"\{\}\|\^\'[:space:]]*)\>', $v)) { |
||
| 701 | 2 | if (($r = $this->x('\<(\$\{[^\>]*\})\>', $v)) && ($sub_r = $this->xPlaceholder($r[1]))) { |
|
| 702 | return [$r[1], $r[2]]; |
||
| 703 | 2 | } elseif ($r = $this->x('\<\>', $v)) { |
|
| 704 | return [true, $r[1]]; |
||
| 705 | 2 | } elseif ($r = $this->x('\<([^\s][^\<\>]*)\>', $v)) { |
|
| 706 | 2 | return [$r[1] ? $r[1] : true, $r[2]]; |
|
| 707 | } |
||
| 708 | |||
| 709 | 2 | return [0, $v]; |
|
| 710 | } |
||
| 711 | |||
| 712 | /* 71 */ |
||
| 713 | |||
| 714 | 96 | protected function xPNAME_NS($v) |
|
| 720 | } |
||
| 721 | |||
| 722 | /* 72 */ |
||
| 723 | |||
| 724 | 96 | protected function xPNAME_LN($v) |
|
| 725 | { |
||
| 726 | 96 | if ((list($r, $sub_v) = $this->xPNAME_NS($v)) && $r) { |
|
| 727 | 31 | if (!$this->x('\s', $sub_v) && (list($sub_r, $sub_v) = $this->xPN_LOCAL($sub_v)) && $sub_r) { |
|
| 728 | 31 | if (!$this->namespaceHelper->hasPrefix($r)) { |
|
| 729 | 7 | return [0, $v]; |
|
| 730 | } |
||
| 731 | |||
| 732 | 28 | return [$this->namespaceHelper->getNamespace($r).$sub_r, $sub_v]; |
|
| 733 | } |
||
| 734 | } |
||
| 735 | |||
| 736 | 95 | return [0, $v]; |
|
| 737 | } |
||
| 738 | |||
| 739 | /* 76 */ |
||
| 740 | |||
| 741 | 53 | protected function xLANGTAG($v) |
|
| 748 | } |
||
| 749 | |||
| 750 | /* 77.. */ |
||
| 751 | |||
| 752 | 94 | protected function xINTEGER($v) |
|
| 753 | { |
||
| 754 | 94 | if ($r = $this->x('([0-9]+)', $v)) { |
|
| 755 | 20 | return [$r[1], $r[2]]; |
|
| 756 | } |
||
| 757 | |||
| 758 | 94 | return [false, $v]; |
|
| 759 | } |
||
| 760 | |||
| 761 | /* 78.. */ |
||
| 762 | |||
| 763 | 94 | protected function xDECIMAL($v) |
|
| 764 | { |
||
| 765 | 94 | if ($r = $this->x('([0-9]+\.[0-9]*)', $v)) { |
|
| 766 | 9 | return [$r[1], $r[2]]; |
|
| 767 | } |
||
| 768 | 94 | if ($r = $this->x('(\.[0-9]+)', $v)) { |
|
| 769 | return [$r[1], $r[2]]; |
||
| 770 | } |
||
| 771 | |||
| 772 | 94 | return [false, $v]; |
|
| 773 | } |
||
| 774 | |||
| 775 | /* 79.., 86.. */ |
||
| 776 | |||
| 777 | 94 | protected function xDOUBLE($v) |
|
| 790 | } |
||
| 791 | |||
| 792 | /* 92 */ |
||
| 793 | |||
| 794 | 94 | protected function xNIL($v) |
|
| 795 | { |
||
| 796 | 94 | if ($r = $this->x('\([\x20\x9\xd\xa]*\)', $v)) { |
|
| 797 | return [['type' => 'uri', 'value' => NamespaceHelper::NAMESPACE_RDF.'nil'], $r[1]]; |
||
| 798 | } |
||
| 799 | |||
| 800 | 94 | return [0, $v]; |
|
| 801 | } |
||
| 802 | |||
| 803 | /* 95.. */ |
||
| 804 | |||
| 805 | 95 | protected function xPN_CHARS_BASE($v) |
|
| 812 | } |
||
| 813 | |||
| 814 | /* 96 */ |
||
| 815 | |||
| 816 | 91 | protected function xPN_CHARS_U($v) |
|
| 825 | } |
||
| 826 | |||
| 827 | /* 97.. */ |
||
| 828 | |||
| 829 | 90 | protected function xVARNAME($v) |
|
| 830 | { |
||
| 831 | 90 | $r = ''; |
|
| 832 | do { |
||
| 833 | 90 | $proceed = 0; |
|
| 834 | 90 | if ($sub_r = $this->x('([0-9]+)', $v)) { |
|
| 835 | 3 | $r .= $sub_r[1]; |
|
| 836 | 3 | $v = $sub_r[2]; |
|
| 837 | 3 | $proceed = 1; |
|
| 838 | 90 | } elseif ((list($sub_r, $sub_v) = $this->xPN_CHARS_U($v)) && $sub_r) { |
|
| 839 | 90 | $r .= $sub_r; |
|
| 840 | 90 | $v = $sub_v; |
|
| 841 | 90 | $proceed = 1; |
|
| 842 | 90 | } elseif ($r && ($sub_r = $this->x('([\xb7\x300-\x36f]+)', $v))) { |
|
| 843 | $r .= $sub_r[1]; |
||
| 844 | $v = $sub_r[2]; |
||
| 845 | $proceed = 1; |
||
| 846 | } |
||
| 847 | 90 | } while ($proceed); |
|
| 848 | |||
| 849 | 90 | return [$r, $v]; |
|
| 850 | } |
||
| 851 | |||
| 852 | /* 98.. */ |
||
| 853 | |||
| 854 | 6 | protected function xPN_CHARS($v) |
|
| 855 | { |
||
| 856 | 6 | if ((list($r, $sub_v) = $this->xPN_CHARS_U($v)) && $r) { |
|
| 857 | return [$r, $sub_v]; |
||
| 858 | 6 | } elseif ($r = $this->x('([\-0-9\xb7\x300-\x36f])', $v)) { |
|
| 859 | return [$r[1], $r[2]]; |
||
| 860 | } |
||
| 861 | |||
| 862 | 6 | return [false, $v]; |
|
| 863 | } |
||
| 864 | |||
| 865 | /* 99 */ |
||
| 866 | |||
| 867 | 96 | protected function xPN_PREFIX($v) |
|
| 868 | { |
||
| 869 | 96 | if ($sub_r = $this->x("([^\s\:\(\)\{\}\;\,]+)", $v, 's')) {/* accelerator */ |
|
| 870 | 76 | return [$sub_r[1], $sub_r[2]]; /* @@testing */ |
|
| 871 | } |
||
| 872 | 95 | if ((list($r, $sub_v) = $this->xPN_CHARS_BASE($v)) && $r) { |
|
| 873 | do { |
||
| 874 | $proceed = 0; |
||
| 875 | list($sub_r, $sub_v) = $this->xPN_CHARS($sub_v); |
||
| 876 | if (false !== $sub_r) { |
||
| 877 | $r .= $sub_r; |
||
| 878 | $proceed = 1; |
||
| 879 | } elseif ($sub_r = $this->x("\.", $sub_v)) { |
||
| 880 | $r .= '.'; |
||
| 881 | $sub_v = $sub_r[1]; |
||
| 882 | $proceed = 1; |
||
| 883 | } |
||
| 884 | } while ($proceed); |
||
| 885 | list($sub_r, $sub_v) = $this->xPN_CHARS($sub_v); |
||
| 886 | $r .= $sub_r ?: ''; |
||
| 887 | } |
||
| 888 | |||
| 889 | 95 | return [$r, $sub_v]; |
|
| 890 | } |
||
| 891 | |||
| 892 | /* 100 */ |
||
| 893 | |||
| 894 | 31 | protected function xPN_LOCAL($v) |
|
| 895 | { |
||
| 896 | 31 | if (($sub_r = $this->x("([^\s\(\)\{\}\[\]\;\,\.]+)", $v, 's')) && !preg_match('/^\./', $sub_r[2])) {/* accelerator */ |
|
| 897 | 31 | return [$sub_r[1], $sub_r[2]]; /* @@testing */ |
|
| 898 | } |
||
| 899 | 6 | $r = ''; |
|
| 900 | 6 | $sub_v = $v; |
|
| 901 | do { |
||
| 902 | 6 | $proceed = 0; |
|
| 903 | 6 | if ($this->x('\s', $sub_v)) { |
|
| 904 | return [$r, $sub_v]; |
||
| 905 | } |
||
| 906 | 6 | if ($sub_r = $this->x('([0-9])', $sub_v)) { |
|
| 907 | 6 | $r .= $sub_r[1]; |
|
| 908 | 6 | $sub_v = $sub_r[2]; |
|
| 909 | 6 | $proceed = 1; |
|
| 910 | 6 | } elseif ((list($sub_r, $sub_v) = $this->xPN_CHARS_U($sub_v)) && $sub_r) { |
|
| 911 | 6 | $r .= $sub_r; |
|
| 912 | 6 | $proceed = 1; |
|
| 913 | 6 | } elseif ($r) { |
|
| 914 | 6 | if (($sub_r = $this->x('(\.)', $sub_v)) && !preg_match('/^[\s\}]/s', $sub_r[2])) { |
|
| 915 | $r .= $sub_r[1]; |
||
| 916 | $sub_v = $sub_r[2]; |
||
| 917 | } |
||
| 918 | 6 | if ((list($sub_r, $sub_v) = $this->xPN_CHARS($sub_v)) && $sub_r) { |
|
| 919 | $r .= $sub_r; |
||
| 920 | $proceed = 1; |
||
| 921 | } |
||
| 922 | } |
||
| 923 | 6 | } while ($proceed); |
|
| 924 | |||
| 925 | 6 | return [$r, $sub_v]; |
|
| 926 | } |
||
| 927 | |||
| 928 | 53 | protected function unescapeNtripleUTF($v) |
|
| 957 | } |
||
| 958 | |||
| 959 | 94 | protected function xPlaceholder($v) |
|
| 960 | { |
||
| 961 | //if ($r = $this->x('(\?|\$)\{([^\}]+)\}', $v)) { |
||
| 962 | 94 | if ($r = $this->x('(\?|\$)', $v)) { |
|
| 963 | if (preg_match('/(\{(?:[^{}]+|(?R))*\})/', $r[2], $m) && 0 === strpos(trim($r[2]), $m[1])) { |
||
| 964 | $ph = substr($m[1], 1, -1); |
||
| 965 | $rest = substr(trim($r[2]), \strlen($m[1])); |
||
| 966 | if (!isset($this->r['placeholders'])) { |
||
| 967 | $this->r['placeholders'] = []; |
||
| 968 | } |
||
| 969 | if (!\in_array($ph, $this->r['placeholders'])) { |
||
| 970 | $this->r['placeholders'][] = $ph; |
||
| 971 | } |
||
| 972 | |||
| 980 |
Loading history...