diff sites/all/libraries/ARC2/arc/parsers/ARC2_SemHTMLParser.php @ 4:ce11bbd8f642

added modules

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/sites/all/libraries/ARC2/arc/parsers/ARC2_SemHTMLParser.php	Thu Sep 19 10:38:44 2013 +0100
@@ -0,0 +1,339 @@
+<?php
+/*
+homepage: http://arc.semsol.org/
+license:  http://arc.semsol.org/license
+
+class:    ARC2 RDF/XML Parser
+author:   Benjamin Nowack
+version:  2010-11-16
+*/
+
+ARC2::inc('LegacyXMLParser');
+
+class ARC2_SemHTMLParser extends ARC2_LegacyXMLParser {
+
+  function __construct($a, &$caller) {
+    parent::__construct($a, $caller);
+  }
+  
+  function __init() {/* reader */
+    parent::__init();
+    $this->default_sem_html_formats = 'dc openid erdf rdfa posh-rdf microformats';
+    $this->triples = array();
+    $this->target_encoding = '';
+    $this->t_count = 0;
+    $this->added_triples = array();
+    $this->skip_dupes = false;
+    $this->bnode_prefix = $this->v('bnode_prefix', 'arc'.substr(md5(uniqid(rand())), 0, 4).'b', $this->a);
+    $this->bnode_id = 0;
+    $this->auto_extract = $this->v('auto_extract', 1, $this->a);
+    $this->extracted_formats = array();
+    $this->cache = array();
+    $this->detected_formats = array();
+    $this->keep_cdata_ws = $this->v('keep_cdata_whitespace', 0, $this->a);
+  }
+  
+  /*  */
+
+  function x($re, $v, $options = 'si', $keep_ws = 0) {
+    list($ws, $v) = preg_match('/^(\s*)(.*)$/s', $v, $m) ? array($m[1], $m[2]) : array('', $v);
+    if (preg_match("/^" . $re . "(.*)$/" . $options, $v, $m)) {
+      if ($keep_ws) $m[1] = $ws . $m[1];
+      return $m;
+    }
+    return false;
+  }
+
+  /*  */
+
+  function setReader(&$reader) {
+    $this->reader = $reader;
+  }
+  
+  function createBnodeID(){
+    $this->bnode_id++;
+    return '_:' . $this->bnode_prefix . $this->bnode_id;
+  }
+  
+  function addT($t) {
+    if (function_exists('html_entity_decode')) {
+      $t['o'] = html_entity_decode($t['o']);
+    }
+    if ($this->skip_dupes) {
+      $h = md5(serialize($t));
+      if (!isset($this->added_triples[$h])) {
+        $this->triples[$this->t_count] = $t;
+        $this->t_count++;
+        $this->added_triples[$h] = true;
+      }
+    }
+    else {
+      $this->triples[$this->t_count] = $t;
+      $this->t_count++;
+    }
+  }
+
+  function getTriples() {
+    return $this->v('triples', array());
+  }
+
+  function countTriples() {
+    return $this->t_count;
+  }
+  
+  function getSimpleIndex($flatten_objects = 1, $vals = '') {
+    return ARC2::getSimpleIndex($this->getTriples(), $flatten_objects, $vals);
+  }
+
+  /*  */
+
+  function parse($path, $data = '', $iso_fallback = 'ignore') {
+    $this->nodes = array();
+    $this->node_count = 0;
+    $this->level = 0;
+    /* reader */
+    if (!$this->v('reader')) {
+      ARC2::inc('Reader');
+      $this->reader = new ARC2_Reader($this->a, $this);
+    }
+    $this->reader->setAcceptHeader('Accept: text/html, application/xhtml, */*; q=0.9');
+    $this->reader->activate($path, $data);
+    $this->target_encoding = $this->reader->getEncoding(false);
+    $this->x_base = isset($this->a['base']) && $this->a['base'] ? $this->a['base'] : $this->reader->base;
+    $this->base = $this->x_base;
+    $this->doc_url = $this->reader->base;
+    /* parse */
+    $rest = '';
+    $this->cur_tag = '';
+    while ($d = $this->reader->readStream(1)) {
+      $rest = $this->processData($rest . $d);
+    }
+    $this->reader->closeStream();
+    unset($this->reader);
+    return $this->done();
+  }
+  
+  /*  */
+
+  function getEncoding($src = 'ignore') {
+    return $this->target_encoding;
+  }
+
+  /*  */
+  
+  function done() {
+    if ($this->auto_extract) {
+      $this->extractRDF();
+    }
+  }
+  
+  /*  */
+
+  function processData($v) {
+    $sub_v = $v;
+    do {
+      $proceed = 1;
+      if ((list($sub_r, $sub_v) = $this->xComment($sub_v)) && $sub_r) {
+        $this->open(0, 'comment', array('value' => $sub_r));
+        $this->close(0, 'comment');
+        continue;
+      }
+      if ((list($sub_r, $sub_v) = $this->xDoctype($sub_v)) && $sub_r) {
+        $this->open(0, 'doctype', array('value' => $sub_r));
+        $this->close(0, 'doctype');
+        /* RDFa detection */
+        if (preg_match('/rdfa /i', $sub_r)) $this->detected_formats['rdfa'] = 1;
+        continue;
+      }
+      if ($this->level && ((list($sub_r, $sub_v) = $this->xWS($sub_v)) && $sub_r)) {
+        $this->cData(0, $sub_r);
+      }
+      elseif ((list($sub_r, $sub_v) = $this->xOpen($sub_v)) && $sub_r) {
+        $this->open(0, $sub_r['tag'], $sub_r['a']);
+        $this->cur_tag = $sub_r['tag'];
+        if ($sub_r['empty']) {
+          $this->close(0, $sub_r['tag'], 1);
+          $this->cur_tag = '';
+        }
+        /* eRDF detection */
+        if (!isset($this->detected_formats['erdf']) && isset($sub_r['a']['profile m']) && in_array('http://purl.org/NET/erdf/profile', $sub_r['a']['profile m'])) $this->detected_formats['erdf'] = 1;
+        /* poshRDF detection */
+        if (!isset($this->detected_formats['posh-rdf']) && isset($sub_r['a']['class m']) && in_array('rdf-p', $sub_r['a']['class m'])) $this->detected_formats['posh-rdf'] = 1;
+        /* RDFa detection */
+        if (!isset($this->detected_formats['rdfa']) && ($this->cur_tag == 'html') && isset($sub_r['a']['version m']) && in_array('XHTML+RDFa', $sub_r['a']['version m'])) $this->detected_formats['rdfa'] = 1;
+        if (!isset($this->detected_formats['rdfa']) && isset($sub_r['a']['xmlns']) && $sub_r['a']['xmlns'] && $this->isRDFNSDecl($sub_r['a']['xmlns'])) $this->detected_formats['rdfa'] = 1;
+        if (!isset($this->detected_formats['rdfa']) && array_intersect(array('about', 'typeof', 'property'), array_keys($sub_r['a']))) $this->detected_formats['rdfa'] = 1;
+      }
+      elseif ((list($sub_r, $sub_v) = $this->xClose($sub_v)) && $sub_r) {
+        if (preg_match('/^(area|base|br|col|frame|hr|input|img|link|xmeta|param)$/', $sub_r['tag'])) {
+          /* already implicitly closed */
+        }
+        else {
+          $this->close(0, $sub_r['tag']);
+          $this->cur_tag = '';
+        }
+      }
+      elseif ((list($sub_r, $sub_v) = $this->xCData($sub_v)) && $sub_r) {
+        $this->cData(0, $sub_r);
+      }
+      else {
+        $proceed = 0;
+      }
+    } while ($proceed);
+    return $sub_v;
+  }
+
+  /*  */
+
+  function isRDFNSDecl($ns) {
+    foreach ($ns as $k => $v) {
+      if ($k) return 1;
+    }
+    return 0;
+  }
+
+  /*  */
+
+  function xComment($v) {
+    if ($r = $this->x('\<\!\-\-', $v)) {
+      if ($sub_r = $this->x('(.*)\-\-\>', $r[1], 'Us')) {
+        return array($sub_r[1], $sub_r[2]);
+      }
+    }
+    return array(0, $v);
+  }
+  
+  function xDoctype($v) {
+    if ($r = $this->x('\<\!DOCTYPE', $v)) {
+      if ($sub_r = $this->x('([^\>]+)\>', $r[1])) {
+        return array($sub_r[1], $sub_r[2]);
+      }
+    }
+    return array(0, $v);
+  }
+  
+  function xWS($v) {
+    if ($r = ARC2::x('(\s+)', $v)) {
+      return array($r[1], $r[2]);
+    }
+    return array(0, $v);
+  }
+  
+  /*  */
+
+  function xOpen($v) {
+    if ($r = $this->x('\<([^\s\/\>]+)([^\>]*)\>', $v)) {
+      list($sub_r, $sub_v) = $this->xAttributes($r[2]);
+      return array(array('tag' => strtolower($r[1]), 'a' => $sub_r, 'empty' => $this->isEmpty($r[1], $r[2])), $r[3]);
+    }
+    return array(0, $v);
+  }
+  
+  /*  */
+
+  function xAttributes($v) {
+    $r = array();
+    while ((list($sub_r, $v) = $this->xAttribute($v)) && $sub_r) {
+      if ($sub_sub_r = $this->x('xmlns\:?(.*)', $sub_r['k'])) {
+        $this->nsDecl(0, $sub_sub_r[1], $sub_r['value']);
+        $r['xmlns'][$sub_sub_r[1]] = $sub_r['value'];
+      }
+      else {
+        $r[$sub_r['k']] = $sub_r['value'];
+        $r[$sub_r['k'] . ' m'] = $sub_r['values'];
+      }
+    }
+    return array($r, $v);
+  }
+
+  /*  */
+
+  function xAttribute($v) {
+    if ($r = $this->x('([^\s\=]+)\s*(\=)?\s*([\'\"]?)', $v)) {
+      if (!$r[2]) {/* no '=' */
+        if ($r[1] == '/') {
+          return array(0, $r[4]);
+        }
+        return array(array('k' => $r[1], 'value' => 1, 'values' => array(1)), $r[4]);
+      }
+      if (!$r[3]) {/* no quots */
+        if ($sub_r = $this->x('([^\s]+)', $r[4])) {
+          return array(array('k' => $r[1], 'value' => $sub_r[1], 'values' => array($sub_r[1])), $sub_r[2]);
+        }
+        return array(array('k' => $r[1], 'value' => '', 'values' => array()), $r[4]);
+      }
+      $val = '';
+      $multi = 0;
+      $sub_v = $r[4];
+      while ($sub_v && (!$sub_r = $this->x('(\x5c\\' .$r[3]. '|\\' .$r[3]. ')', $sub_v))) {
+        $val .= substr($sub_v, 0, 1);
+        $sub_v = substr($sub_v, 1);
+      }
+      $sub_v = $sub_v ? $sub_r[2] : $sub_v;
+      $vals = preg_split('/ /', $val);
+      return array(array('k' => $r[1], 'value' => $val, 'values' => $vals), $sub_v);
+    }
+    return array(0, $v);
+  }
+  
+  /*  */
+
+  function isEmpty($t, $v) {
+    if (preg_match('/^(area|base|br|col|frame|hr|input|img|link|xmeta|param)$/', $t)) {
+      return 1;
+    }
+    if (preg_match('/\/$/', $v)) {
+      return 1;
+    }
+    return 0;
+  }
+  
+  /*  */
+  
+  function xClose($v) {
+    if ($r = $this->x('\<\/([^\s\>]+)\>', $v)) {
+      return array(array('tag' => strtolower($r[1])), $r[2]);
+    }
+    return array(0, $v);
+  }
+
+  /*  */
+  
+  function xCData($v) {
+    if (preg_match('/(script|style)/i', $this->cur_tag)) {
+      if ($r = $this->x('(.+)(\<\/' . $this->cur_tag . '\>)', $v, 'Uis')) {
+        return array($r[1], $r[2] . $r[3]);
+      }
+    }
+    elseif ($r = $this->x('([^\<]+)', $v, 'si', $this->keep_cdata_ws)) {
+      return array($r[1], $r[2]);
+    }
+    return array(0, $v);
+  }
+
+  /*  */
+
+  function extractRDF($formats = '') {
+    $this->node_index = $this->getNodeIndex();
+    $formats = !$formats ? $this->v('sem_html_formats', $this->default_sem_html_formats, $this->a) : $formats;
+    $formats = preg_split('/ /', $formats);
+    foreach ($formats as $format) {
+      if (!in_array($format, $this->extracted_formats)) {
+        $comp = $this->camelCase($format) . 'Extractor';
+        if (ARC2::inc($comp)) {
+          $cls = 'ARC2_' . $comp;
+          $e = new $cls($this->a, $this);
+          $e->extractRDF();
+        }
+        $this->extracted_formats[] = $format;
+      }
+    }
+  }
+  
+  function getNode($id) {
+    return isset($this->nodes[$id]) ? $this->nodes[$id] : 0;
+  }
+  
+  /*  */
+  
+}
\ No newline at end of file