<?php
  //   
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
###





















  // Title                     : Class RDDL_parser
  // Version                   : 1.0
  // Author                    : Luis Argerich (lrargerich@yahoo.com)
  // Last modification date    : 06-20-2002
  // Description               : A class to parse RDDL documents.
  //                             Can parse documents from files or URIs.
  //                             Once you parsed the RDDL document you get a list of resources
  //                             to process them.
  //   
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
###





















  // History: 
  // 06-20-2002                : First version of this class.
  //   
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
###





















  // To-Dos:
  //
  //   
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
###





















  // How to use it:
  // Read the documentation in rddl_parser.html
  //   
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
#  
###





















  
  if(defined("_class_rddl_parser_is_included")) {
    // do nothing since the class is already included  
  } else {
    define("_class_rddl_parser_is_included",1);
  
  define("NAMESPACE_SEPARATOR_CHAR","^");
  define("RDDL_NAMESPACE_NAME","http://www.rddl.org/");
  define("XLINK_NAMESPACE_NAME","http://www.w3.org/1999/xlink");
  
  class RDDL_parser {
    var $resources=Array();\; var$base='';
    var $parser;\; var$error='';
  
    function get_error() {
      return $this->error;\; \}\; function\; get\_resources()\; \{\; return$this->resources;
    }
    
    function rddl_parse($rddl)\; \{$this->base=$rddl;$this->parser = xml_parser_create_ns("",NAMESPACE_SEPARATOR_CHAR);
      xml_set_object(this);
      xml_parser_set_option($this->parser,\; XML\_OPTION\_CASE\_FOLDING,\; false);\; xml\_set\_element\_handler($this->parser, "startElement", "endElement");
      if (!($fp\; =\; fopen($rddl, "r"))) {
        $this->error="Cannot\; open$rddl";
        return false;
      }
      while ($data\; =\; fread($fp, 4096)) {
        if (!xml_parse($this->parser,$data, feof($fp)))\; \{$this->error="XML error: ".xml_error_string(xml_get_error_code($this->parser))."\; at\; line\; ".xml\_get\_current\_line\_number($this->parser);
          return false;                    
        }
      }
      xml_parser_free($this->parser);\; return\; true;\; \}\; function\; startElement($parser, $name,$attrs) {
      $name\_components=explode(NAMESPACE\_SEPARATOR\_CHAR,$name);
      if(strstr($name\_components[0],RDDL\_NAMESPACE\_NAME))\; \{\; foreach($attrs as $atk\; =>$atv) {
          if(strstr($atk,XLINK\_NAMESPACE\_NAME))\; \{$atrib_parts=explode(NAMESPACE_SEPARATOR_CHAR,$atk);$atk=$atrib\_parts[1];\; \}\; if($atk=="href") {
            $this->\_resolve\_uri\_reference($this->base,$atv,$buffer,0);
            $atv=$buffer;
            
          }
        
          $elem[$atk]=$atv;\; \}$this->resources[]=$elem;\; \}$//print "name<br/>";
    }
  
    function endElement($parser,$name) {
    }
  
    function _parse_uri($uri,$buffer,scheme,&path,&fragment ) {
      $parsed=parse\_url($uri);
      if(isset($parsed["scheme"]))\; \{$scheme=$parsed["scheme"];\}\; else\; \{$scheme='';
      }
      if(isset($parsed["host"]))\; \{$host=$parsed["host"];\}\; else\; \{$host='';
      }
      if(isset($parsed["host"]))\; \{$authority=$parsed["host"];\}\; else\; \{$authority='';
      }
      if(isset($parsed["path"]))\; \{$path=$parsed["path"];\}\; else\; \{$path='';
      }
      if(isset($parsed["query"]))\; \{$query=$parsed["query"];\}\; else\; \{$query='';
      }
      if(isset($parsed["fragment"]))\; \{$fragment=$parsed["fragment"];\}\; else\; \{$fragment='';
      }
    }
  
    function _resolve_uri_reference($base\_uri,$reference_uri,&$buffer,$length ) {
          $base\_buffer=\text{'}\text{'};$reference_buffer='';
          $path\_buffer=\text{'}\text{'};$buffer = '';
  
          $this->\_parse\_uri($reference_uri,$reference\_buffer,strlen($reference_buffer ),$reference\_scheme,$reference_authority,
                  $reference\_path,$reference_query,$reference\_fragment\; );\; if($reference_scheme == ''
                  && reference_path == ''
                  && $reference\_query\; ==\; \text{'}\text{'}\; )\; \{$buffer=$base\_uri;\; if($reference_fragment != '' )
                  {
                          $buffer.=\; "\#"\; ;$buffer.=$reference\_fragment;\; \}\; \}\; else\; if($reference_scheme != '' )
          {
                  $buffer=$reference_uri;
          }
          else
          {
                  $this->\_parse\_uri($base_uri,
                          $base\_buffer,\; strlen($base_buffer ),
                          $base\_scheme,$base_authority,
                          $base\_path,$base_query,
                          $base\_fragment\; );$result_scheme = $base\_scheme;\; if($reference_authority != '' )
                  {
                          $result\_authority\; =$reference_authority;
                  }
                  else
                  {
                          $result\_authority\; =$base_authority;
  
                          if( reference_path{0} == '/')  
                                          || ($reference\_path\{0\}\; ==\; \text{'}\backslash \backslash \text{'})\; )\; )\; \{$result_path = $reference\_path;\; \}\; else\; \{$p = '';
                                  
                                  $result\_path\; =$path_buffer;
  
                                  $path\_buffer=\text{'}\text{'};$p = strstr( $base\_path,\; \text{'}/\text{'}\; );\; if(\; !$p )
                                  {
                                          $p\; =\; strstr($base_path, '\\'  );
                                  }
  
                                  if( $p\; )\; \{$path_buffer.=$base\_path;$//while( s <= p )
                                          //{
                                          //        *d++ = *s++;
                                          //}
  
                                          //*d++ = 0;
                                          
                                  }
  
                                  if( reference_path != '' )
                                  {
                                          $path\_buffer.=$reference_path;
                                  }
  
                                  {
                                          //remove all occurrences of "./" 
                                          //print($path\_buffer);$
                                          path_buffer=preg_replace("/\/\.\//","/",$path\_buffer);$
                                          path_buffer=preg_replace("/\/([^\/\.])*\/..$/","/",$path_buffer);
                                          while(preg_match("/\.\./",$path\_buffer))\; \{$path_buffer=preg_replace("/\/([^\/\.]*)\/..\//","/",$path\_buffer);$
                                          }
                                          path_buffer=preg_replace("/\.$/","",$path_buffer);
  
                                  }
  
                          }
                  }
                  
                  // This replaces the C pointer assignament
                  
                  $result\_path\; =$path_buffer;
                  if( $result\_scheme\; !=\; \text{'}\text{'}\; )\; \{$buffer=$result\_scheme;$buffer.=":";
                  }
  
                  if( $result\_authority\; !=\; \text{'}\text{'}\; )\; \{$buffer.="//";
                          $buffer.=$result_authority;
                  }
  
                  if( $result\_path\; !=\; \text{'}\text{'}\; )\; \{$buffer.=$result\_path;\; \}\; if($reference_query != '' )
                  {
                          $buffer.="?";$buffer.=$reference\_query;\; \}\; if($reference_fragment != '' )
                  {
                          $buffer.="\#";$buffer.=$reference\_fragment;\; \}\; \}\; \}\; \}\; \}\; ?>$