danielebarchiesi@4: <?php
danielebarchiesi@4: /**
danielebarchiesi@4:  * ARC2 SPARQL-enhanced Turtle Parser
danielebarchiesi@4:  *
danielebarchiesi@4:  * @author Benjamin Nowack
danielebarchiesi@4:  * @license <http://arc.semsol.org/license>
danielebarchiesi@4:  * @homepage <http://arc.semsol.org/>
danielebarchiesi@4:  * @package ARC2
danielebarchiesi@4:  * @version 2010-11-16
danielebarchiesi@4: */
danielebarchiesi@4: 
danielebarchiesi@4: ARC2::inc('RDFParser');
danielebarchiesi@4: 
danielebarchiesi@4: class ARC2_TurtleParser extends ARC2_RDFParser {
danielebarchiesi@4: 
danielebarchiesi@4:   function __construct($a, &$caller) {
danielebarchiesi@4:     parent::__construct($a, $caller);
danielebarchiesi@4:   }
danielebarchiesi@4:   
danielebarchiesi@4:   function __init() {/* reader */
danielebarchiesi@4:     parent::__init();
danielebarchiesi@4:     $this->state = 0;
danielebarchiesi@4:     $this->xml = 'http://www.w3.org/XML/1998/namespace';
danielebarchiesi@4:     $this->rdf = 'http://www.w3.org/1999/02/22-rdf-syntax-ns#';
danielebarchiesi@4:     $this->xsd = 'http://www.w3.org/2001/XMLSchema#';
danielebarchiesi@4:     $this->nsp = array($this->xml => 'xml', $this->rdf => 'rdf', $this->xsd => 'xsd');
danielebarchiesi@4:     $this->unparsed_code = '';
danielebarchiesi@4:     $this->max_parsing_loops = $this->v('turtle_max_parsing_loops', 500, $this->a);
danielebarchiesi@4:   }
danielebarchiesi@4:   
danielebarchiesi@4:   /*  */
danielebarchiesi@4:   
danielebarchiesi@4:   function x($re, $v, $options = 'si') {
danielebarchiesi@4:     $v = preg_replace('/^[\xA0\xC2]+/', ' ', $v);
danielebarchiesi@4:     while (preg_match('/^\s*(\#[^\xd\xa]*)(.*)$/si', $v, $m)) {/* comment removal */
danielebarchiesi@4:       $v = $m[2];
danielebarchiesi@4:     }
danielebarchiesi@4:     return ARC2::x($re, $v, $options);
danielebarchiesi@4:     //$this->unparsed_code = ($sub_r && count($sub_r)) ? $sub_r[count($sub_r) - 1] : '';
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   function createBnodeID(){
danielebarchiesi@4:     $this->bnode_id++;
danielebarchiesi@4:     return '_:' . $this->bnode_prefix . $this->bnode_id;
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   /*  */
danielebarchiesi@4:   
danielebarchiesi@4:   function addT($t) {
danielebarchiesi@4:     if ($this->skip_dupes) {
danielebarchiesi@4:       $h = md5(serialize($t));
danielebarchiesi@4:       if (!isset($this->added_triples[$h])) {
danielebarchiesi@4:         $this->triples[$this->t_count] = $t;
danielebarchiesi@4:         $this->t_count++;
danielebarchiesi@4:         $this->added_triples[$h] = true;
danielebarchiesi@4:       }
danielebarchiesi@4:     }
danielebarchiesi@4:     else {
danielebarchiesi@4:       $this->triples[$this->t_count] = $t;
danielebarchiesi@4:       $this->t_count++;
danielebarchiesi@4:     }
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   /*  */
danielebarchiesi@4: 
danielebarchiesi@4:   function getTriples() {
danielebarchiesi@4:     return $this->v('triples', array());
danielebarchiesi@4:   }
danielebarchiesi@4:   
danielebarchiesi@4:   function countTriples() {
danielebarchiesi@4:     return $this->t_count;
danielebarchiesi@4:   }
danielebarchiesi@4:   
danielebarchiesi@4:   /*  */
danielebarchiesi@4:   
danielebarchiesi@4:   function getUnparsedCode() {
danielebarchiesi@4:     return $this->v('unparsed_code', '');
danielebarchiesi@4:   }
danielebarchiesi@4:   
danielebarchiesi@4:   /*  */
danielebarchiesi@4:   
danielebarchiesi@4:   function setDefaultPrefixes() {
danielebarchiesi@4:     $this->prefixes = array(
danielebarchiesi@4:       'rdf:' => 'http://www.w3.org/1999/02/22-rdf-syntax-ns#',
danielebarchiesi@4:       'rdfs:' => 'http://www.w3.org/2000/01/rdf-schema#',
danielebarchiesi@4:       'owl:' => 'http://www.w3.org/2002/07/owl#',
danielebarchiesi@4:       'xsd:' => 'http://www.w3.org/2001/XMLSchema#',
danielebarchiesi@4:     );
danielebarchiesi@4:     if ($ns = $this->v('ns', array(), $this->a)) {
danielebarchiesi@4:       foreach ($ns as $p => $u) $this->prefixes[$p . ':'] = $u;
danielebarchiesi@4:     }
danielebarchiesi@4:   }
danielebarchiesi@4:   
danielebarchiesi@4: 
danielebarchiesi@4:   function parse($path, $data = '', $iso_fallback = false) {
danielebarchiesi@4:     $this->setDefaultPrefixes();
danielebarchiesi@4:     /* reader */
danielebarchiesi@4:     if (!$this->v('reader')) {
danielebarchiesi@4:       ARC2::inc('Reader');
danielebarchiesi@4:       $this->reader = new ARC2_Reader($this->a, $this);
danielebarchiesi@4:     }
danielebarchiesi@4:     $this->reader->setAcceptHeader('Accept: application/x-turtle; q=0.9, */*; q=0.1');
danielebarchiesi@4:     $this->reader->activate($path, $data);
danielebarchiesi@4:     $this->base = $this->v1('base', $this->reader->base, $this->a);
danielebarchiesi@4:     $this->r = array('vars' => array());
danielebarchiesi@4:     /* parse */
danielebarchiesi@4:     $buffer = '';
danielebarchiesi@4:     $more_triples = array();
danielebarchiesi@4:     $sub_v = '';
danielebarchiesi@4:     $sub_v2 = '';
danielebarchiesi@4:     $loops = 0;
danielebarchiesi@4:     $prologue_done = 0;
danielebarchiesi@4:     while ($d = $this->reader->readStream(0, 8192)) {
danielebarchiesi@4:       $buffer .= $d;
danielebarchiesi@4:       $sub_v = $buffer;
danielebarchiesi@4:       do {
danielebarchiesi@4:         $proceed = 0;
danielebarchiesi@4:         if (!$prologue_done) {
danielebarchiesi@4:           $proceed = 1;
danielebarchiesi@4:           if ((list($sub_r, $sub_v) = $this->xPrologue($sub_v)) && $sub_r) {
danielebarchiesi@4:             $loops = 0;
danielebarchiesi@4:             $sub_v .= $this->reader->readStream(0, 128);
danielebarchiesi@4:             /* we might have missed the final DOT in the previous prologue loop */
danielebarchiesi@4:             if ($sub_r = $this->x('\.', $sub_v)) $sub_v = $sub_r[1];
danielebarchiesi@4:             if ($this->x("\@?(base|prefix)", $sub_v)) {/* more prologue to come, use outer loop */
danielebarchiesi@4:               $proceed = 0;
danielebarchiesi@4:             }
danielebarchiesi@4:           }
danielebarchiesi@4:           else {
danielebarchiesi@4:             $prologue_done = 1;
danielebarchiesi@4:           }
danielebarchiesi@4:         }
danielebarchiesi@4:         if ($prologue_done && (list($sub_r, $sub_v, $more_triples, $sub_v2) = $this->xTriplesBlock($sub_v)) && is_array($sub_r)) {
danielebarchiesi@4:           $proceed = 1;
danielebarchiesi@4:           $loops = 0;
danielebarchiesi@4:           foreach ($sub_r as $t) {
danielebarchiesi@4:             $this->addT($t);
danielebarchiesi@4:           }
danielebarchiesi@4:         }
danielebarchiesi@4:       } while ($proceed);
danielebarchiesi@4:       $loops++;
danielebarchiesi@4:       $buffer = $sub_v;
danielebarchiesi@4:       if ($loops > $this->max_parsing_loops) {/* most probably a parser or code bug, might also be a huge object value, though */
danielebarchiesi@4:         $this->addError('too many loops: ' . $loops . '. Could not parse "' . substr($buffer, 0, 200) . '..."');
danielebarchiesi@4:         break;
danielebarchiesi@4:       }
danielebarchiesi@4:     }
danielebarchiesi@4:     foreach ($more_triples as $t) {
danielebarchiesi@4:       $this->addT($t);
danielebarchiesi@4:     }
danielebarchiesi@4:     $sub_v = count($more_triples) ? $sub_v2 : $sub_v;
danielebarchiesi@4:     $buffer = $sub_v;
danielebarchiesi@4:     $this->unparsed_code = $buffer;
danielebarchiesi@4:     $this->reader->closeStream();
danielebarchiesi@4:     unset($this->reader);
danielebarchiesi@4:     /* remove trailing comments */
danielebarchiesi@4:     while (preg_match('/^\s*(\#[^\xd\xa]*)(.*)$/si', $this->unparsed_code, $m)) $this->unparsed_code = $m[2];
danielebarchiesi@4:     if ($this->unparsed_code && !$this->getErrors()) {
danielebarchiesi@4:       $rest = preg_replace('/[\x0a|\x0d]/i', ' ', substr($this->unparsed_code, 0, 30));
danielebarchiesi@4:       if (trim($rest)) $this->addError('Could not parse "' . $rest . '"');
danielebarchiesi@4:     }
danielebarchiesi@4:     return $this->done();
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   function xPrologue($v) {
danielebarchiesi@4:     $r = 0;
danielebarchiesi@4:     if (!$this->t_count) {
danielebarchiesi@4:       if ((list($sub_r, $v) = $this->xBaseDecl($v)) && $sub_r) {
danielebarchiesi@4:         $this->base = $sub_r;
danielebarchiesi@4:         $r = 1;
danielebarchiesi@4:       }
danielebarchiesi@4:       while ((list($sub_r, $v) = $this->xPrefixDecl($v)) && $sub_r) {
danielebarchiesi@4:         $this->prefixes[$sub_r['prefix']] = $sub_r['uri'];
danielebarchiesi@4:         $r = 1;
danielebarchiesi@4:       }
danielebarchiesi@4:     }
danielebarchiesi@4:     return array($r, $v);
danielebarchiesi@4:   }
danielebarchiesi@4:   
danielebarchiesi@4:   /* 3 */
danielebarchiesi@4: 
danielebarchiesi@4:   function xBaseDecl($v) {
danielebarchiesi@4:     if ($r = $this->x("\@?base\s+", $v)) {
danielebarchiesi@4:       if ((list($r, $sub_v) = $this->xIRI_REF($r[1])) && $r) {
danielebarchiesi@4:         if ($sub_r = $this->x('\.', $sub_v)) {
danielebarchiesi@4:           $sub_v = $sub_r[1];
danielebarchiesi@4:         }
danielebarchiesi@4:         return array($r, $sub_v);
danielebarchiesi@4:       }
danielebarchiesi@4:     }
danielebarchiesi@4:     return array(0, $v);
danielebarchiesi@4:   }
danielebarchiesi@4:   
danielebarchiesi@4:   /* 4 */
danielebarchiesi@4:   
danielebarchiesi@4:   function xPrefixDecl($v) {
danielebarchiesi@4:     if ($r = $this->x("\@?prefix\s+", $v)) {
danielebarchiesi@4:       if ((list($r, $sub_v) = $this->xPNAME_NS($r[1])) && $r) {
danielebarchiesi@4:         $prefix = $r;
danielebarchiesi@4:         if((list($r, $sub_v) = $this->xIRI_REF($sub_v)) && $r) {
danielebarchiesi@4:           $uri = $this->calcURI($r, $this->base);
danielebarchiesi@4:           if ($sub_r = $this->x('\.', $sub_v)) {
danielebarchiesi@4:             $sub_v = $sub_r[1];
danielebarchiesi@4:           }
danielebarchiesi@4:           return array(array('prefix' => $prefix, 'uri_ref' => $r, 'uri' => $uri), $sub_v);
danielebarchiesi@4:         }
danielebarchiesi@4:       }
danielebarchiesi@4:     }
danielebarchiesi@4:     return array(0, $v);
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   /* 21.., 32.. */
danielebarchiesi@4:   
danielebarchiesi@4:   function xTriplesBlock($v) {
danielebarchiesi@4:     $pre_r = array();
danielebarchiesi@4:     $r = array();
danielebarchiesi@4:     $state = 1;
danielebarchiesi@4:     $sub_v = $v;
danielebarchiesi@4:     $buffer = $sub_v;
danielebarchiesi@4:     do {
danielebarchiesi@4:       $proceed = 0;
danielebarchiesi@4:       if ($state == 1) {/* expecting subject */
danielebarchiesi@4:         $t = array('type' => 'triple', 's' => '', 'p' => '', 'o' => '', 's_type' => '', 'p_type' => '', 'o_type' => '', 'o_datatype' => '', 'o_lang' => '');
danielebarchiesi@4:         if ((list($sub_r, $sub_v) = $this->xVarOrTerm($sub_v)) && $sub_r) {
danielebarchiesi@4:           $t['s'] = $sub_r['value'];
danielebarchiesi@4:           $t['s_type'] = $sub_r['type'];
danielebarchiesi@4:           $state = 2;
danielebarchiesi@4:           $proceed = 1;
danielebarchiesi@4:           if ($sub_r = $this->x('(\}|\.)', $sub_v)) {
danielebarchiesi@4:             if ($t['s_type'] == 'placeholder') {
danielebarchiesi@4:               $state = 4;
danielebarchiesi@4:             }
danielebarchiesi@4:             else {
danielebarchiesi@4:               $this->addError('"' . $sub_r[1]. '" after subject found.');
danielebarchiesi@4:             }
danielebarchiesi@4:           }
danielebarchiesi@4:         }
danielebarchiesi@4:         elseif ((list($sub_r, $sub_v) = $this->xCollection($sub_v)) && $sub_r) {
danielebarchiesi@4:           $t['s'] = $sub_r['id'];
danielebarchiesi@4:           $t['s_type'] = $sub_r['type'];
danielebarchiesi@4:           $pre_r = array_merge($pre_r, $sub_r['triples']);
danielebarchiesi@4:           $state = 2;
danielebarchiesi@4:           $proceed = 1;
danielebarchiesi@4:           if ($sub_r = $this->x('\.', $sub_v)) {
danielebarchiesi@4:             $this->addError('DOT after subject found.');
danielebarchiesi@4:           }
danielebarchiesi@4:         }
danielebarchiesi@4:         elseif ((list($sub_r, $sub_v) = $this->xBlankNodePropertyList($sub_v)) && $sub_r) {
danielebarchiesi@4:           $t['s'] = $sub_r['id'];
danielebarchiesi@4:           $t['s_type'] = $sub_r['type'];
danielebarchiesi@4:           $pre_r = array_merge($pre_r, $sub_r['triples']);
danielebarchiesi@4:           $state = 2;
danielebarchiesi@4:           $proceed = 1;
danielebarchiesi@4:         }
danielebarchiesi@4:         elseif ($sub_r = $this->x('\.', $sub_v)) {
danielebarchiesi@4:           $this->addError('Subject expected, DOT found.' . $sub_v);
danielebarchiesi@4:         }
danielebarchiesi@4:       }
danielebarchiesi@4:       if ($state == 2) {/* expecting predicate */
danielebarchiesi@4:         if ($sub_r = $this->x('a\s+', $sub_v)) {
danielebarchiesi@4:           $sub_v = $sub_r[1];
danielebarchiesi@4:           $t['p'] = $this->rdf . 'type';
danielebarchiesi@4:           $t['p_type'] = 'uri';
danielebarchiesi@4:           $state = 3;
danielebarchiesi@4:           $proceed = 1;
danielebarchiesi@4:         }
danielebarchiesi@4:         elseif ((list($sub_r, $sub_v) = $this->xVarOrTerm($sub_v)) && $sub_r) {
danielebarchiesi@4:           if ($sub_r['type'] == 'bnode') {
danielebarchiesi@4:             $this->addError('Blank node used as triple predicate');
danielebarchiesi@4:           }
danielebarchiesi@4:           $t['p'] = $sub_r['value'];
danielebarchiesi@4:           $t['p_type'] = $sub_r['type'];
danielebarchiesi@4:           $state = 3;
danielebarchiesi@4:           $proceed = 1;
danielebarchiesi@4:         }
danielebarchiesi@4:         elseif ($sub_r = $this->x('\.', $sub_v)) {
danielebarchiesi@4:           $state = 4;          
danielebarchiesi@4:         }
danielebarchiesi@4:         elseif ($sub_r = $this->x('\}', $sub_v)) {
danielebarchiesi@4:           $buffer = $sub_v;
danielebarchiesi@4:           $r = array_merge($r, $pre_r);
danielebarchiesi@4:           $pre_r = array();
danielebarchiesi@4:           $proceed = 0;
danielebarchiesi@4:         }
danielebarchiesi@4:       }
danielebarchiesi@4:       if ($state == 3) {/* expecting object */
danielebarchiesi@4:         if ((list($sub_r, $sub_v) = $this->xVarOrTerm($sub_v)) && $sub_r) {
danielebarchiesi@4:           $t['o'] = $sub_r['value'];
danielebarchiesi@4:           $t['o_type'] = $sub_r['type'];
danielebarchiesi@4:           $t['o_lang'] = $this->v('lang', '', $sub_r);
danielebarchiesi@4:           $t['o_datatype'] = $this->v('datatype', '', $sub_r);
danielebarchiesi@4:           $pre_r[] = $t;
danielebarchiesi@4:           $state = 4;
danielebarchiesi@4:           $proceed = 1;
danielebarchiesi@4:         }
danielebarchiesi@4:         elseif ((list($sub_r, $sub_v) = $this->xCollection($sub_v)) && $sub_r) {
danielebarchiesi@4:           $t['o'] = $sub_r['id'];
danielebarchiesi@4:           $t['o_type'] = $sub_r['type'];
danielebarchiesi@4:           $t['o_datatype'] = '';
danielebarchiesi@4:           $pre_r = array_merge($pre_r, array($t), $sub_r['triples']);
danielebarchiesi@4:           $state = 4;
danielebarchiesi@4:           $proceed = 1;
danielebarchiesi@4:         }
danielebarchiesi@4:         elseif ((list($sub_r, $sub_v) = $this->xBlankNodePropertyList($sub_v)) && $sub_r) {
danielebarchiesi@4:           $t['o'] = $sub_r['id'];
danielebarchiesi@4:           $t['o_type'] = $sub_r['type'];
danielebarchiesi@4:           $t['o_datatype'] = '';
danielebarchiesi@4:           $pre_r = array_merge($pre_r, array($t), $sub_r['triples']);
danielebarchiesi@4:           $state = 4;
danielebarchiesi@4:           $proceed = 1;
danielebarchiesi@4:         }
danielebarchiesi@4:       }
danielebarchiesi@4:       if ($state == 4) {/* expecting . or ; or , or } */
danielebarchiesi@4:         if ($sub_r = $this->x('\.', $sub_v)) {
danielebarchiesi@4:           $sub_v = $sub_r[1];
danielebarchiesi@4:           $buffer = $sub_v;
danielebarchiesi@4:           $r = array_merge($r, $pre_r);
danielebarchiesi@4:           $pre_r = array();
danielebarchiesi@4:           $state = 1;
danielebarchiesi@4:           $proceed = 1;
danielebarchiesi@4:         }
danielebarchiesi@4:         elseif ($sub_r = $this->x('\;', $sub_v)) {
danielebarchiesi@4:           $sub_v = $sub_r[1];
danielebarchiesi@4:           $state = 2;
danielebarchiesi@4:           $proceed = 1;
danielebarchiesi@4:         }
danielebarchiesi@4:         elseif ($sub_r = $this->x('\,', $sub_v)) {
danielebarchiesi@4:           $sub_v = $sub_r[1];
danielebarchiesi@4:           $state = 3;
danielebarchiesi@4:           $proceed = 1;
danielebarchiesi@4:           if ($sub_r = $this->x('\}', $sub_v)) {
danielebarchiesi@4:             $this->addError('Object expected, } found.');
danielebarchiesi@4:           }
danielebarchiesi@4:         }
danielebarchiesi@4:         if ($sub_r = $this->x('(\}|\{|OPTIONAL|FILTER|GRAPH)', $sub_v)) {
danielebarchiesi@4:           $buffer = $sub_v;
danielebarchiesi@4:           $r = array_merge($r, $pre_r);
danielebarchiesi@4:           $pre_r = array();
danielebarchiesi@4:           $proceed = 0;
danielebarchiesi@4:         }
danielebarchiesi@4:       }
danielebarchiesi@4:     } while ($proceed);
danielebarchiesi@4:     return count($r) ? array($r, $buffer, $pre_r, $sub_v) : array(0, $buffer, $pre_r, $sub_v);
danielebarchiesi@4:   }
danielebarchiesi@4:   
danielebarchiesi@4:   /* 39.. */
danielebarchiesi@4:   
danielebarchiesi@4:   function xBlankNodePropertyList($v) {
danielebarchiesi@4:     if ($sub_r = $this->x('\[', $v)) {
danielebarchiesi@4:       $sub_v = $sub_r[1];
danielebarchiesi@4:       $s = $this->createBnodeID();
danielebarchiesi@4:       $r = array('id' => $s, 'type' => 'bnode', 'triples' => array());
danielebarchiesi@4:       $t = array('type' => 'triple', 's' => $s, 'p' => '', 'o' => '', 's_type' => 'bnode', 'p_type' => '', 'o_type' => '', 'o_datatype' => '', 'o_lang' => '');
danielebarchiesi@4:       $state = 2;
danielebarchiesi@4:       $closed = 0;
danielebarchiesi@4:       do {
danielebarchiesi@4:         $proceed = 0;
danielebarchiesi@4:         if ($state == 2) {/* expecting predicate */
danielebarchiesi@4:           if ($sub_r = $this->x('a\s+', $sub_v)) {
danielebarchiesi@4:             $sub_v = $sub_r[1];
danielebarchiesi@4:             $t['p'] = $this->rdf . 'type';
danielebarchiesi@4:             $t['p_type'] = 'uri';
danielebarchiesi@4:             $state = 3;
danielebarchiesi@4:             $proceed = 1;
danielebarchiesi@4:           }
danielebarchiesi@4:           elseif ((list($sub_r, $sub_v) = $this->xVarOrTerm($sub_v)) && $sub_r) {
danielebarchiesi@4:             $t['p'] = $sub_r['value'];
danielebarchiesi@4:             $t['p_type'] = $sub_r['type'];
danielebarchiesi@4:             $state = 3;
danielebarchiesi@4:             $proceed = 1;
danielebarchiesi@4:           }
danielebarchiesi@4:         }
danielebarchiesi@4:         if ($state == 3) {/* expecting object */
danielebarchiesi@4:           if ((list($sub_r, $sub_v) = $this->xVarOrTerm($sub_v)) && $sub_r) {
danielebarchiesi@4:             $t['o'] = $sub_r['value'];
danielebarchiesi@4:             $t['o_type'] = $sub_r['type'];
danielebarchiesi@4:             $t['o_lang'] = $this->v('lang', '', $sub_r);
danielebarchiesi@4:             $t['o_datatype'] = $this->v('datatype', '', $sub_r);
danielebarchiesi@4:             $r['triples'][] = $t;
danielebarchiesi@4:             $state = 4;
danielebarchiesi@4:             $proceed = 1;
danielebarchiesi@4:           }
danielebarchiesi@4:           elseif ((list($sub_r, $sub_v) = $this->xCollection($sub_v)) && $sub_r) {
danielebarchiesi@4:             $t['o'] = $sub_r['id'];
danielebarchiesi@4:             $t['o_type'] = $sub_r['type'];
danielebarchiesi@4:             $t['o_datatype'] = '';
danielebarchiesi@4:             $r['triples'] = array_merge($r['triples'], array($t), $sub_r['triples']);
danielebarchiesi@4:             $state = 4;
danielebarchiesi@4:             $proceed = 1;
danielebarchiesi@4:           }
danielebarchiesi@4:           elseif((list($sub_r, $sub_v) = $this->xBlankNodePropertyList($sub_v)) && $sub_r) {
danielebarchiesi@4:             $t['o'] = $sub_r['id'];
danielebarchiesi@4:             $t['o_type'] = $sub_r['type'];
danielebarchiesi@4:             $t['o_datatype'] = '';
danielebarchiesi@4:             $r['triples'] = array_merge($r['triples'], array($t), $sub_r['triples']);
danielebarchiesi@4:             $state = 4;
danielebarchiesi@4:             $proceed = 1;
danielebarchiesi@4:           }
danielebarchiesi@4:         }
danielebarchiesi@4:         if ($state == 4) {/* expecting . or ; or , or ] */
danielebarchiesi@4:           if ($sub_r = $this->x('\.', $sub_v)) {
danielebarchiesi@4:             $sub_v = $sub_r[1];
danielebarchiesi@4:             $state = 1;
danielebarchiesi@4:             $proceed = 1;
danielebarchiesi@4:           }
danielebarchiesi@4:           if ($sub_r = $this->x('\;', $sub_v)) {
danielebarchiesi@4:             $sub_v = $sub_r[1];
danielebarchiesi@4:             $state = 2;
danielebarchiesi@4:             $proceed = 1;
danielebarchiesi@4:           }
danielebarchiesi@4:           if ($sub_r = $this->x('\,', $sub_v)) {
danielebarchiesi@4:             $sub_v = $sub_r[1];
danielebarchiesi@4:             $state = 3;
danielebarchiesi@4:             $proceed = 1;
danielebarchiesi@4:           }
danielebarchiesi@4:           if ($sub_r = $this->x('\]', $sub_v)) {
danielebarchiesi@4:             $sub_v = $sub_r[1];
danielebarchiesi@4:             $proceed = 0;
danielebarchiesi@4:             $closed = 1;
danielebarchiesi@4:           }
danielebarchiesi@4:         }
danielebarchiesi@4:       } while ($proceed);
danielebarchiesi@4:       if ($closed) {
danielebarchiesi@4:         return array($r, $sub_v);
danielebarchiesi@4:       }
danielebarchiesi@4:       return array(0, $v);
danielebarchiesi@4:     }
danielebarchiesi@4:     return array(0, $v);
danielebarchiesi@4:   }
danielebarchiesi@4:   
danielebarchiesi@4:   /* 40.. */
danielebarchiesi@4:   
danielebarchiesi@4:   function xCollection($v) {
danielebarchiesi@4:     if ($sub_r = $this->x('\(', $v)) {
danielebarchiesi@4:       $sub_v = $sub_r[1];
danielebarchiesi@4:       $s = $this->createBnodeID();
danielebarchiesi@4:       $r = array('id' => $s, 'type' => 'bnode', 'triples' => array());
danielebarchiesi@4:       $closed = 0;
danielebarchiesi@4:       do {
danielebarchiesi@4:         $proceed = 0;
danielebarchiesi@4:         if ((list($sub_r, $sub_v) = $this->xVarOrTerm($sub_v)) && $sub_r) {
danielebarchiesi@4:           $r['triples'][] = array('type' => 'triple', 's' => $s, 'p' => $this->rdf . 'first', 'o' => $sub_r['value'], 's_type' => 'bnode', 'p_type' => 'uri', 'o_type' => $sub_r['type'], 'o_lang' => $this->v('lang', '', $sub_r), 'o_datatype' => $this->v('datatype', '', $sub_r));
danielebarchiesi@4:           $proceed = 1;
danielebarchiesi@4:         }
danielebarchiesi@4:         elseif ((list($sub_r, $sub_v) = $this->xCollection($sub_v)) && $sub_r) {
danielebarchiesi@4:           $r['triples'][] = array('type' => 'triple', 's' => $s, 'p' => $this->rdf . 'first', 'o' => $sub_r['id'], 's_type' => 'bnode', 'p_type' => 'uri', 'o_type' => $sub_r['type'], 'o_lang' => '', 'o_datatype' => '');
danielebarchiesi@4:           $r['triples'] = array_merge($r['triples'], $sub_r['triples']);
danielebarchiesi@4:           $proceed = 1;
danielebarchiesi@4:         }
danielebarchiesi@4:         elseif((list($sub_r, $sub_v) = $this->xBlankNodePropertyList($sub_v)) && $sub_r) {
danielebarchiesi@4:           $r['triples'][] = array('type' => 'triple', 's' => $s, 'p' => $this->rdf . 'first', 'o' => $sub_r['id'], 's_type' => 'bnode', 'p_type' => 'uri', 'o_type' => $sub_r['type'], 'o_lang' => '', 'o_datatype' => '');
danielebarchiesi@4:           $r['triples'] = array_merge($r['triples'], $sub_r['triples']);
danielebarchiesi@4:           $proceed = 1;
danielebarchiesi@4:         }
danielebarchiesi@4:         if ($proceed) {
danielebarchiesi@4:           if ($sub_r = $this->x('\)', $sub_v)) {
danielebarchiesi@4:             $sub_v = $sub_r[1];
danielebarchiesi@4:             $r['triples'][] = array('type' => 'triple', 's' => $s, 'p' => $this->rdf . 'rest', 'o' => $this->rdf . 'nil', 's_type' => 'bnode', 'p_type' => 'uri', 'o_type' => 'uri', 'o_lang' => '', 'o_datatype' => '');
danielebarchiesi@4:             $closed = 1;
danielebarchiesi@4:             $proceed = 0;
danielebarchiesi@4:           }
danielebarchiesi@4:           else {
danielebarchiesi@4:             $next_s = $this->createBnodeID();
danielebarchiesi@4:             $r['triples'][] = array('type' => 'triple', 's' => $s, 'p' => $this->rdf . 'rest', 'o' => $next_s, 's_type' => 'bnode', 'p_type' => 'uri', 'o_type' => 'bnode', 'o_lang' => '', 'o_datatype' => '');
danielebarchiesi@4:             $s = $next_s;
danielebarchiesi@4:           }
danielebarchiesi@4:         }
danielebarchiesi@4:       } while ($proceed);
danielebarchiesi@4:       if ($closed) {
danielebarchiesi@4:         return array($r, $sub_v);
danielebarchiesi@4:       }
danielebarchiesi@4:     }
danielebarchiesi@4:     return array (0, $v);
danielebarchiesi@4:   }
danielebarchiesi@4:   
danielebarchiesi@4:   /* 42 */
danielebarchiesi@4:   
danielebarchiesi@4:   function xVarOrTerm($v) {
danielebarchiesi@4:     if ((list($sub_r, $sub_v) = $this->xVar($v)) && $sub_r) {
danielebarchiesi@4:       return array($sub_r, $sub_v);
danielebarchiesi@4:     }
danielebarchiesi@4:     elseif ((list($sub_r, $sub_v) = $this->xGraphTerm($v)) && $sub_r) {
danielebarchiesi@4:       return array($sub_r, $sub_v);
danielebarchiesi@4:     }
danielebarchiesi@4:     return array(0, $v);
danielebarchiesi@4:   }
danielebarchiesi@4:   
danielebarchiesi@4:   /* 44, 74.., 75.. */
danielebarchiesi@4:   
danielebarchiesi@4:   function xVar($v) {
danielebarchiesi@4:     if ($r = $this->x('(\?|\$)([^\s]+)', $v)) {
danielebarchiesi@4:       if ((list($sub_r, $sub_v) = $this->xVARNAME($r[2])) && $sub_r) {
danielebarchiesi@4:         if (!in_array($sub_r, $this->r['vars'])) {
danielebarchiesi@4:           $this->r['vars'][] = $sub_r;
danielebarchiesi@4:         }
danielebarchiesi@4:         return array(array('value' => $sub_r, 'type' => 'var'), $sub_v . $r[3]);
danielebarchiesi@4:       }
danielebarchiesi@4:     }
danielebarchiesi@4:     return array(0, $v);
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   /* 45 */
danielebarchiesi@4:   
danielebarchiesi@4:   function xGraphTerm($v) {
danielebarchiesi@4:     foreach (array(
danielebarchiesi@4:       'IRIref' => 'uri', 
danielebarchiesi@4:       'RDFLiteral' => 'literal', 
danielebarchiesi@4:       'NumericLiteral' => 'literal', 
danielebarchiesi@4:       'BooleanLiteral' => 'literal', 
danielebarchiesi@4:       'BlankNode' => 'bnode', 
danielebarchiesi@4:       'NIL' => 'uri',
danielebarchiesi@4:       'Placeholder' => 'placeholder'
danielebarchiesi@4:     ) as $term => $type) {
danielebarchiesi@4:       $m = 'x' . $term;
danielebarchiesi@4:       if ((list($sub_r, $sub_v) = $this->$m($v)) && $sub_r) {
danielebarchiesi@4:         if (!is_array($sub_r)) {
danielebarchiesi@4:           $sub_r = array('value' => $sub_r);
danielebarchiesi@4:         }
danielebarchiesi@4:         $sub_r['type'] = $this->v1('type', $type, $sub_r);
danielebarchiesi@4:         return array($sub_r, $sub_v);
danielebarchiesi@4:       }
danielebarchiesi@4:     }
danielebarchiesi@4:     return array(0, $v);
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   /* 60 */
danielebarchiesi@4:   
danielebarchiesi@4:   function xRDFLiteral($v) {
danielebarchiesi@4:     if ((list($sub_r, $sub_v) = $this->xString($v)) && $sub_r) {
danielebarchiesi@4:       $sub_r['value'] = $this->unescapeNtripleUTF($sub_r['value']);
danielebarchiesi@4:       $r = $sub_r;
danielebarchiesi@4:       if ((list($sub_r, $sub_v) = $this->xLANGTAG($sub_v)) && $sub_r) {
danielebarchiesi@4:         $r['lang'] = $sub_r;
danielebarchiesi@4:       }
danielebarchiesi@4:       elseif (!$this->x('\s', $sub_v) && ($sub_r = $this->x('\^\^', $sub_v)) && (list($sub_r, $sub_v) = $this->xIRIref($sub_r[1])) && $sub_r[1]) {
danielebarchiesi@4:         $r['datatype'] = $sub_r;
danielebarchiesi@4:       }
danielebarchiesi@4:       return array($r, $sub_v);
danielebarchiesi@4:     }
danielebarchiesi@4:     return array(0, $v);
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   /* 61.., 62.., 63.., 64.. */  
danielebarchiesi@4:   
danielebarchiesi@4:   function xNumericLiteral($v) {
danielebarchiesi@4:     $sub_r = $this->x('(\-|\+)?', $v);
danielebarchiesi@4:     $prefix = $sub_r[1];
danielebarchiesi@4:     $sub_v = $sub_r[2];
danielebarchiesi@4:     foreach (array('DOUBLE' => 'double', 'DECIMAL' => 'decimal', 'INTEGER' => 'integer') as $type => $xsd) {
danielebarchiesi@4:       $m = 'x' . $type;
danielebarchiesi@4:       if ((list($sub_r, $sub_v) = $this->$m($sub_v)) && ($sub_r !== false)) {
danielebarchiesi@4:         $r = array('value' => $prefix . $sub_r, 'type' => 'literal', 'datatype' => $this->xsd . $xsd);
danielebarchiesi@4:         return array($r, $sub_v);
danielebarchiesi@4:       }
danielebarchiesi@4:     }
danielebarchiesi@4:     return array(0, $v);
danielebarchiesi@4:   }
danielebarchiesi@4:   
danielebarchiesi@4:   /* 65.. */
danielebarchiesi@4:   
danielebarchiesi@4:   function xBooleanLiteral($v) {
danielebarchiesi@4:     if ($r = $this->x('(true|false)', $v)) {
danielebarchiesi@4:       return array($r[1], $r[2]);
danielebarchiesi@4:     }
danielebarchiesi@4:     return array(0, $v);
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   /* 66.., 87.., 88.., 89.., 90.., 91.. */
danielebarchiesi@4:   
danielebarchiesi@4:   function xString($v) {/* largely simplified, may need some tweaks in following revisions */
danielebarchiesi@4:     $sub_v = $v;
danielebarchiesi@4:     if (!preg_match('/^\s*([\']{3}|\'|[\"]{3}|\")(.*)$/s', $sub_v, $m)) return array(0, $v);
danielebarchiesi@4:     $delim = $m[1];
danielebarchiesi@4:     $rest = $m[2];
danielebarchiesi@4:     $sub_types = array("'''" => 'literal_long1', '"""' => 'literal_long2', "'" => 'literal1', '"' => 'literal2');
danielebarchiesi@4:     $sub_type = $sub_types[$delim];
danielebarchiesi@4:     $pos = 0;
danielebarchiesi@4:     $r = false;
danielebarchiesi@4:     do {
danielebarchiesi@4:       $proceed = 0;
danielebarchiesi@4:       $delim_pos = strpos($rest, $delim, $pos);
danielebarchiesi@4:       if ($delim_pos === false) break;
danielebarchiesi@4:       $new_rest = substr($rest, $delim_pos + strlen($delim));
danielebarchiesi@4:       $r = substr($rest, 0, $delim_pos);
danielebarchiesi@4:       if (!preg_match('/([\x5c]+)$/s', $r, $m) || !(strlen($m[1]) % 2)) {
danielebarchiesi@4:         $rest = $new_rest;
danielebarchiesi@4:       }
danielebarchiesi@4:       else {
danielebarchiesi@4:         $r = false;
danielebarchiesi@4:         $pos = $delim_pos + 1;
danielebarchiesi@4:         $proceed = 1;
danielebarchiesi@4:       }
danielebarchiesi@4:     } while ($proceed);
danielebarchiesi@4:     if ($r !== false) {
danielebarchiesi@4:       return array(array('value' => $this->toUTF8($r) , 'type' => 'literal', 'sub_type' => $sub_type), $rest);
danielebarchiesi@4:     }
danielebarchiesi@4:     return array(0, $v);
danielebarchiesi@4:   }
danielebarchiesi@4:   
danielebarchiesi@4:   /* 67 */
danielebarchiesi@4:   
danielebarchiesi@4:   function xIRIref($v) {
danielebarchiesi@4:     if ((list($r, $v) = $this->xIRI_REF($v)) && $r) {
danielebarchiesi@4:       return array($this->calcURI($r, $this->base), $v);
danielebarchiesi@4:     }
danielebarchiesi@4:     elseif ((list($r, $v) = $this->xPrefixedName($v)) && $r) {
danielebarchiesi@4:       return array($r, $v);
danielebarchiesi@4:     }
danielebarchiesi@4:     return array(0, $v);
danielebarchiesi@4:   }
danielebarchiesi@4:   
danielebarchiesi@4:   /* 68 */
danielebarchiesi@4:   
danielebarchiesi@4:   function xPrefixedName($v) {
danielebarchiesi@4:     if ((list($r, $v) = $this->xPNAME_LN($v)) && $r) {
danielebarchiesi@4:       return array($r, $v);
danielebarchiesi@4:     }
danielebarchiesi@4:     elseif ((list($r, $sub_v) = $this->xPNAME_NS($v)) && $r) {
danielebarchiesi@4:       return isset($this->prefixes[$r]) ? array($this->prefixes[$r], $sub_v) : array(0, $v);
danielebarchiesi@4:     }
danielebarchiesi@4:     return array(0, $v);
danielebarchiesi@4:   }
danielebarchiesi@4:   
danielebarchiesi@4:   /* 69.., 73.., 93, 94..  */
danielebarchiesi@4:   
danielebarchiesi@4:   function xBlankNode($v) {
danielebarchiesi@4:     if (($r = $this->x('\_\:', $v)) && (list($r, $sub_v) = $this->xPN_LOCAL($r[1])) && $r) {
danielebarchiesi@4:       return array(array('type' => 'bnode', 'value' => '_:' . $r), $sub_v);
danielebarchiesi@4:     }
danielebarchiesi@4:     if ($r = $this->x('\[[\x20\x9\xd\xa]*\]', $v)) {
danielebarchiesi@4:       return array(array('type' => 'bnode', 'value' => $this->createBnodeID()), $r[1]);
danielebarchiesi@4:     }
danielebarchiesi@4:     return array(0, $v);
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   /* 70.. @@sync with SPARQLParser */
danielebarchiesi@4:   
danielebarchiesi@4:   function xIRI_REF($v) {
danielebarchiesi@4:     //if ($r = $this->x('\<([^\<\>\"\{\}\|\^\'[:space:]]*)\>', $v)) {
danielebarchiesi@4:     if (($r = $this->x('\<(\$\{[^\>]*\})\>', $v)) && ($sub_r = $this->xPlaceholder($r[1]))) {
danielebarchiesi@4:       return array($r[1], $r[2]);
danielebarchiesi@4:     }
danielebarchiesi@4:     elseif ($r = $this->x('\<\>', $v)) {
danielebarchiesi@4:       return array(true, $r[1]);
danielebarchiesi@4:     }
danielebarchiesi@4:     elseif ($r = $this->x('\<([^\s][^\<\>]*)\>', $v)) {
danielebarchiesi@4:       return array($r[1] ? $r[1] : true, $r[2]);
danielebarchiesi@4:     }
danielebarchiesi@4:     return array(0, $v);
danielebarchiesi@4:   }
danielebarchiesi@4:   
danielebarchiesi@4:   /* 71 */
danielebarchiesi@4:   
danielebarchiesi@4:   function xPNAME_NS($v) {
danielebarchiesi@4:     list($r, $sub_v) = $this->xPN_PREFIX($v);
danielebarchiesi@4:     $prefix = $r ? $r : '';
danielebarchiesi@4:     return ($r = $this->x("\:", $sub_v)) ? array($prefix . ':', $r[1]) : array(0, $v);
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   /* 72 */
danielebarchiesi@4:   
danielebarchiesi@4:   function xPNAME_LN($v) {
danielebarchiesi@4:     if ((list($r, $sub_v) = $this->xPNAME_NS($v)) && $r) {
danielebarchiesi@4:       if (!$this->x('\s', $sub_v) && (list($sub_r, $sub_v) = $this->xPN_LOCAL($sub_v)) && $sub_r) {
danielebarchiesi@4:         if (!isset($this->prefixes[$r])) {
danielebarchiesi@4:           return array(0, $v);
danielebarchiesi@4:         }
danielebarchiesi@4:         return array($this->prefixes[$r] . $sub_r, $sub_v);
danielebarchiesi@4:       }
danielebarchiesi@4:     }
danielebarchiesi@4:     return array(0, $v);
danielebarchiesi@4:   }
danielebarchiesi@4:   
danielebarchiesi@4:   /* 76 */
danielebarchiesi@4:   
danielebarchiesi@4:   function xLANGTAG($v) {
danielebarchiesi@4:     if (!$this->x('\s', $v) && ($r = $this->x('\@([a-z]+(\-[a-z0-9]+)*)', $v))) {
danielebarchiesi@4:       return array($r[1], $r[3]);
danielebarchiesi@4:     }
danielebarchiesi@4:     return array(0, $v);
danielebarchiesi@4:   }
danielebarchiesi@4:   
danielebarchiesi@4:   /* 77.. */
danielebarchiesi@4:   
danielebarchiesi@4:   function xINTEGER($v) {
danielebarchiesi@4:     if ($r = $this->x('([0-9]+)', $v)) {
danielebarchiesi@4:       return array($r[1], $r[2]);
danielebarchiesi@4:     }
danielebarchiesi@4:     return array(false, $v);
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   /* 78.. */
danielebarchiesi@4: 
danielebarchiesi@4:   function xDECIMAL($v) {
danielebarchiesi@4:     if ($r = $this->x('([0-9]+\.[0-9]*)', $v)) {
danielebarchiesi@4:       return array($r[1], $r[2]);
danielebarchiesi@4:     }
danielebarchiesi@4:     if ($r = $this->x('(\.[0-9]+)', $v)) {
danielebarchiesi@4:       return array($r[1], $r[2]);
danielebarchiesi@4:     }
danielebarchiesi@4:     return array(false, $v);
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   /* 79.., 86.. */
danielebarchiesi@4: 
danielebarchiesi@4:   function xDOUBLE($v) {
danielebarchiesi@4:     if ($r = $this->x('([0-9]+\.[0-9]*E[\+\-]?[0-9]+)', $v)) {
danielebarchiesi@4:       return array($r[1], $r[2]);
danielebarchiesi@4:     }
danielebarchiesi@4:     if ($r = $this->x('(\.[0-9]+E[\+\-]?[0-9]+)', $v)) {
danielebarchiesi@4:       return array($r[1], $r[2]);
danielebarchiesi@4:     }
danielebarchiesi@4:     if ($r = $this->x('([0-9]+E[\+\-]?[0-9]+)', $v)) {
danielebarchiesi@4:       return array($r[1], $r[2]);
danielebarchiesi@4:     }
danielebarchiesi@4:     return array(false, $v);
danielebarchiesi@4:   }
danielebarchiesi@4:   
danielebarchiesi@4:   /* 92 */
danielebarchiesi@4:   
danielebarchiesi@4:   function xNIL($v) {
danielebarchiesi@4:     if ($r = $this->x('\([\x20\x9\xd\xa]*\)', $v)) {
danielebarchiesi@4:       return array(array('type' => 'uri', 'value' => $this->rdf . 'nil'), $r[1]);
danielebarchiesi@4:     }
danielebarchiesi@4:     return array(0, $v);
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   /* 95.. */
danielebarchiesi@4:   
danielebarchiesi@4:   function xPN_CHARS_BASE($v) {
danielebarchiesi@4:     if ($r = $this->x("([a-z]+|\\\u[0-9a-f]{1,4})", $v)) {
danielebarchiesi@4:       return array($r[1], $r[2]);
danielebarchiesi@4:     }
danielebarchiesi@4:     return array(0, $v);
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   /* 96 */
danielebarchiesi@4:   
danielebarchiesi@4:   function xPN_CHARS_U($v) {
danielebarchiesi@4:     if ((list($r, $sub_v) = $this->xPN_CHARS_BASE($v)) && $r) {
danielebarchiesi@4:       return array($r, $sub_v);
danielebarchiesi@4:     }
danielebarchiesi@4:     elseif ($r = $this->x("(_)", $v)) {
danielebarchiesi@4:       return array($r[1], $r[2]);
danielebarchiesi@4:     }
danielebarchiesi@4:     return array(0, $v);
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   /* 97.. */
danielebarchiesi@4:   
danielebarchiesi@4:   function xVARNAME($v) {
danielebarchiesi@4:     $r = '';
danielebarchiesi@4:     do {
danielebarchiesi@4:       $proceed = 0;
danielebarchiesi@4:       if ($sub_r = $this->x('([0-9]+)', $v)) {
danielebarchiesi@4:         $r .= $sub_r[1];
danielebarchiesi@4:         $v = $sub_r[2];
danielebarchiesi@4:         $proceed = 1;
danielebarchiesi@4:       }
danielebarchiesi@4:       elseif ((list($sub_r, $sub_v) = $this->xPN_CHARS_U($v)) && $sub_r) {
danielebarchiesi@4:         $r .= $sub_r;
danielebarchiesi@4:         $v = $sub_v;
danielebarchiesi@4:         $proceed = 1;
danielebarchiesi@4:       }
danielebarchiesi@4:       elseif ($r && ($sub_r = $this->x('([\xb7\x300-\x36f]+)', $v))) {
danielebarchiesi@4:         $r .= $sub_r[1];
danielebarchiesi@4:         $v = $sub_r[2];
danielebarchiesi@4:         $proceed = 1;
danielebarchiesi@4:       }
danielebarchiesi@4:     } while ($proceed);
danielebarchiesi@4:     return array($r, $v);
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   /* 98.. */
danielebarchiesi@4:   
danielebarchiesi@4:   function xPN_CHARS($v) {
danielebarchiesi@4:     if ((list($r, $sub_v) = $this->xPN_CHARS_U($v)) && $r) {
danielebarchiesi@4:       return array($r, $sub_v);
danielebarchiesi@4:     }
danielebarchiesi@4:     elseif ($r = $this->x('([\-0-9\xb7\x300-\x36f])', $v)) {
danielebarchiesi@4:       return array($r[1], $r[2]);
danielebarchiesi@4:     }
danielebarchiesi@4:     return array(false, $v);
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   /* 99 */
danielebarchiesi@4:   
danielebarchiesi@4:   function xPN_PREFIX($v) {
danielebarchiesi@4:     if ($sub_r = $this->x("([^\s\:\(\)\{\}\;\,]+)", $v, 's')) {/* accelerator */
danielebarchiesi@4:       return array($sub_r[1], $sub_r[2]);/* @@testing */
danielebarchiesi@4:     }
danielebarchiesi@4:     if ((list($r, $sub_v) = $this->xPN_CHARS_BASE($v)) && $r) {
danielebarchiesi@4:       do {
danielebarchiesi@4:         $proceed = 0;
danielebarchiesi@4:         list($sub_r, $sub_v) = $this->xPN_CHARS($sub_v);
danielebarchiesi@4:         if ($sub_r !== false) {
danielebarchiesi@4:           $r .= $sub_r;
danielebarchiesi@4:           $proceed = 1;
danielebarchiesi@4:         }
danielebarchiesi@4:         elseif ($sub_r = $this->x("\.", $sub_v)) {
danielebarchiesi@4:           $r .= '.';
danielebarchiesi@4:           $sub_v = $sub_r[1];
danielebarchiesi@4:           $proceed = 1;
danielebarchiesi@4:         }
danielebarchiesi@4:       } while ($proceed);
danielebarchiesi@4:       list($sub_r, $sub_v) = $this->xPN_CHARS($sub_v);
danielebarchiesi@4:       $r .= $sub_r ? $sub_r : '';
danielebarchiesi@4:     }
danielebarchiesi@4:     return array($r, $sub_v);
danielebarchiesi@4:   }
danielebarchiesi@4:   
danielebarchiesi@4:   /* 100 */
danielebarchiesi@4:   
danielebarchiesi@4:   function xPN_LOCAL($v) {
danielebarchiesi@4:     if (($sub_r = $this->x("([^\s\(\)\{\}\[\]\;\,\.]+)", $v, 's')) && !preg_match('/^\./', $sub_r[2])) {/* accelerator */
danielebarchiesi@4:       return array($sub_r[1], $sub_r[2]);/* @@testing */
danielebarchiesi@4:     }
danielebarchiesi@4:     $r = '';
danielebarchiesi@4:     $sub_v = $v;
danielebarchiesi@4:     do {
danielebarchiesi@4:       $proceed = 0;
danielebarchiesi@4:       if ($this->x('\s', $sub_v)) {
danielebarchiesi@4:         return array($r, $sub_v);
danielebarchiesi@4:       }
danielebarchiesi@4:       if ($sub_r = $this->x('([0-9])', $sub_v)) {
danielebarchiesi@4:         $r .= $sub_r[1];
danielebarchiesi@4:         $sub_v = $sub_r[2];
danielebarchiesi@4:         $proceed = 1;
danielebarchiesi@4:       }
danielebarchiesi@4:       elseif ((list($sub_r, $sub_v) = $this->xPN_CHARS_U($sub_v)) && $sub_r) {
danielebarchiesi@4:         $r .= $sub_r;
danielebarchiesi@4:         $proceed = 1;
danielebarchiesi@4:       }
danielebarchiesi@4:       elseif ($r) {
danielebarchiesi@4:         if (($sub_r = $this->x('(\.)', $sub_v)) && !preg_match('/^[\s\}]/s', $sub_r[2])) {
danielebarchiesi@4:           $r .= $sub_r[1];
danielebarchiesi@4:           $sub_v = $sub_r[2];
danielebarchiesi@4:         }
danielebarchiesi@4:         if ((list($sub_r, $sub_v) = $this->xPN_CHARS($sub_v)) && $sub_r) {
danielebarchiesi@4:           $r .= $sub_r;
danielebarchiesi@4:           $proceed = 1;
danielebarchiesi@4:         }
danielebarchiesi@4:       }
danielebarchiesi@4:     } while ($proceed);
danielebarchiesi@4:     return array($r, $sub_v);
danielebarchiesi@4:   }
danielebarchiesi@4:   
danielebarchiesi@4:   /*  */
danielebarchiesi@4:   
danielebarchiesi@4:   function unescapeNtripleUTF($v) {
danielebarchiesi@4:     if (strpos($v, '\\') === false) return $v;
danielebarchiesi@4:     $mappings = array('t' => "\t", 'n' => "\n", 'r' => "\r", '\"' => '"', '\'' => "'");
danielebarchiesi@4:     foreach ($mappings as $in => $out) {
danielebarchiesi@4:       $v = preg_replace('/\x5c([' . $in . '])/', $out, $v);
danielebarchiesi@4:     }
danielebarchiesi@4:     if (strpos(strtolower($v), '\u') === false) return $v;
danielebarchiesi@4:     while (preg_match('/\\\(U)([0-9A-F]{8})/', $v, $m) || preg_match('/\\\(u)([0-9A-F]{4})/', $v, $m)) {
danielebarchiesi@4:       $no = hexdec($m[2]);
danielebarchiesi@4:   		if ($no < 128) $char = chr($no);
danielebarchiesi@4:       else if ($no < 2048) $char = chr(($no >> 6) + 192) . chr(($no & 63) + 128);
danielebarchiesi@4:       else if ($no < 65536) $char = chr(($no >> 12) + 224) . chr((($no >> 6) & 63) + 128) . chr(($no & 63) + 128);
danielebarchiesi@4:   		else if ($no < 2097152) $char = chr(($no >> 18) + 240) . chr((($no >> 12) & 63) + 128) . chr((($no >> 6) & 63) + 128) . chr(($no & 63) + 128);
danielebarchiesi@4:       else $char= '';
danielebarchiesi@4:       $v = str_replace('\\' . $m[1] . $m[2], $char, $v);
danielebarchiesi@4:     }
danielebarchiesi@4:     return $v;
danielebarchiesi@4:   }
danielebarchiesi@4:   
danielebarchiesi@4:   /*  */
danielebarchiesi@4:   
danielebarchiesi@4:   function xPlaceholder($v) {
danielebarchiesi@4:     //if ($r = $this->x('(\?|\$)\{([^\}]+)\}', $v)) {
danielebarchiesi@4:     if ($r = $this->x('(\?|\$)', $v)) {
danielebarchiesi@4:       if (preg_match('/(\{(?:[^{}]+|(?R))*\})/', $r[2], $m) && strpos(trim($r[2]), $m[1]) === 0) {
danielebarchiesi@4:         $ph = substr($m[1], 1, -1);
danielebarchiesi@4:         $rest = substr(trim($r[2]), strlen($m[1]));
danielebarchiesi@4:         if (!isset($this->r['placeholders'])) $this->r['placeholders'] = array();
danielebarchiesi@4:         if (!in_array($ph, $this->r['placeholders'])) $this->r['placeholders'][] = $ph;
danielebarchiesi@4:         return array(array('value' => $ph, 'type' => 'placeholder'), $rest);
danielebarchiesi@4:       }
danielebarchiesi@4:     }
danielebarchiesi@4:     return array(0, $v);
danielebarchiesi@4:   }
danielebarchiesi@4:   
danielebarchiesi@4:   /*  */
danielebarchiesi@4: }