<?php
/******************************************************************************/
/*                                                                            */
/*                       __        ____                                       */
/*                 ___  / /  ___  / __/__  __ _____________ ___               */
/*                / _ \/ _ \/ _ \_\ \/ _ \/ // / __/ __/ -_|_-<               */
/*               / .__/_//_/ .__/___/\___/\_,_/_/  \__/\__/___/               */
/*              /_/       /_/                                                 */
/*                                                                            */
/*                                                                            */
/******************************************************************************/
/*                                                                            */
/* Titre          : Tronquer une chaîne de caractères HTML                    */
/*                                                                            */
/* URL            : http://www.phpsources.org/scripts391-PHP.htm              */
/* Auteur         : lamogere                                                  */
/* Date édition   : 21 Mai 2008                                               */
/* Website auteur : http://www.toplien.fr/                                    */
/*                                                                            */
/******************************************************************************/


/*
 * Script base sur le parser html disponible ici :
 http://php-html.sourceforge.net/
 */

define ("NODE_TYPE_START",);
define ("NODE_TYPE_ELEMENT",1);
define ("NODE_TYPE_ENDELEMENT",2);
define ("NODE_TYPE_TEXT",3);
define ("NODE_TYPE_COMMENT",4);
define ("NODE_TYPE_DONE",5);
define ("NODE_TYPE_ELEMENT_END",6);

/**
 * Class HtmlParser.
 * To use, create an instance of the class passing
 * HTML text. Then invoke parse() until it's false.
 * When parse() returns true, $iNodeType, $iNodeName
 * $iNodeValue and $iNodeAttributes are updated.
 *
 * To create an HtmlParser instance you may also
 * use convenience functions HtmlParser_ForFile
 * and HtmlParser_ForURL.
 */
class HtmlParser {

  /**
  * Field iNodeType.
  * May be one of the NODE_TYPE_* constants above.
  */
  var $iNodeType;

  /**
  * Field iNodeName.
  * For elements, it's the name of the element.
  */
  var $iNodeName = "";

  /**
  * Field iNodeValue.
  * For text nodes, it's the text.
  */
  var $iNodeValue = "";

  /**
  * Field iNodeAttributes.
  * A string-indexed array containing attribute values
  * of the current node. Indexes are always lowercase.
  */
  var $iNodeAttributes;

  /**
  * Field iNodeStart.
  * The position of the first char.
  */
  var $iNodeStart;

  /**
  * Field iNodeEnd.
  * The position of the last char.
  */
  var $iNodeEnd;

  // The following fields should be 
  // considered private:

  var $iHtmlText;
  var $iHtmlTextLength;
  var $iHtmlTextIndex = ;
  var $iHtmlCurrentChar;
  var $BOE_ARRAY;
  var $B_ARRAY;
  var $BOS_ARRAY;

  var $no_comment = false;

  //Liste des balises autofermantes
  var $BalisesSimples = array('hr', 'br', 'input', 'meta', 
                                       'link', 'img', 'area', 'param');

  /**
  * Constructor.
  * Constructs an HtmlParser instance with
  * the HTML text given.
  */
  function HtmlParser ($aHtmlText) {
    $this->iHtmlText = $aHtmlText;
    $this->iHtmlTextLength = strlen($aHtmlText);
    $this->iNodeAttributes = array();
    $this->setTextIndex ();

    $this->BOE_ARRAY = array (" ", "t", "r", "n", "=" );
    $this->B_ARRAY = array (" ", "t", "r", "n" );
    $this->BOS_ARRAY = array (" ", "t", "r", "n", "/" );
  }

  /**
  * Method parse.
  * Parses the next node. Returns false only if
  * the end of the HTML text has been reached.
  * Updates values of iNode* fields.
  */
  function parse() {
    $this->iNodeStart = $this->iHtmlTextIndex;
    $text = $this->skipToElement();
    if ($text != "") {
      $this->iNodeType = NODE_TYPE_TEXT;
      $this->iNodeName = "Text";
      $this->iNodeValue = $text;
      $this->iNodeEnd = $this->iHtmlTextIndex;
      return true;
    }
    return $this->readTag();
  }

  function clearAttributes() {
    $this->iNodeAttributes = array();
  }

  function readTag() {
    if ($this->iCurrentChar != "<") {
      $this->iNodeType = NODE_TYPE_DONE;
      return false;
    }
    $this->clearAttributes();
    $this->skipMaxInTag ("<", 1);
    if ($this->iCurrentChar == '/') {
      $this->moveNext();
      $name = $this->skipToBlanksInTag();
      if (strtolower($name) == 'script') {
        $this->no_comment = false;
      }
      $this->iNodeType = NODE_TYPE_ENDELEMENT;
      $this->iNodeName = $name;
      $this->iNodeValue = "";
      $this->skipEndOfTag();
      $this->iNodeEnd = $this->iHtmlTextIndex;
      return true;
    }
    $name = $this->skipToBlanksOrSlashInTag();
    if (!$this->isValidTagIdentifier ($name)) {
      $comment = false;
      if ((strpos($name, "!--") === ) && (!$this->no_comment)) {
        $ppos = strpos($name, "--", 3);
        if (strpos($name, "--", 3) === (strlen($name) - 2)) {
          $this->iNodeType = NODE_TYPE_COMMENT;
          $this->iNodeName = "Comment";
          $this->iNodeValue = "<" . $name . ">";
          $comment = true;
        } else {
          $rest = $this->skipToStringInTag ("-->");
          if ($rest != "") {
            $this->iNodeType = NODE_TYPE_COMMENT;
            $this->iNodeName = "Comment";
            $this->iNodeValue = "<" . $name . $rest;
            $comment = true;
            // Already skipped end of tag
            $this->iNodeEnd = $this->iHtmlTextIndex;
            return true;
          }
        }
      }
      if (!$comment) {
        $this->iNodeType = NODE_TYPE_TEXT;
        $this->iNodeName = "Text";
        $this->iNodeValue = "<" . $name;
        $this->iNodeEnd = $this->iHtmlTextIndex;
        return true;
      }
    } else {
      if (strtolower($name) == 'script') {
        $this->no_comment = true;
      }
      $this->iNodeType = NODE_TYPE_ELEMENT;
      $this->iNodeValue = "";
      $this->iNodeName = $name;
      while ($this->skipBlanksInTag()) {
        $attrName = $this->skipToBlanksOrEqualsInTag();
        if ($attrName != "" && $attrName != "/") {
          $this->skipBlanksInTag();
          if ($this->iCurrentChar == "=") {
            $this->skipEqualsInTag();
            $this->skipBlanksInTag();
            $value = $this->readValueInTag();
            $this->iNodeAttributes[strtolower($attrName)] = $value;
          } else {
            $this->iNodeAttributes[strtolower($attrName)] = "";
            $this->setTextIndex ($this->iHtmlTextIndex - 1);
          }
        }
      }
    }
    if (($this->iHtmlText{$this->iHtmlTextIndex - 1} == '/') ||
        (in_array($this->iNodeName, $this->BalisesSimples))) {
      $this->iNodeType = NODE_TYPE_ELEMENT_END;
    }
    $this->skipEndOfTag();
    $this->iNodeEnd = $this->iHtmlTextIndex;
    return true;
  }

  function isValidTagIdentifier ($name) {
    return ereg ("^[A-Za-z0-9_-]+$", $name);
  }

  function skipBlanksInTag() {
    return "" != ($this->skipInTag ($this->B_ARRAY));
  }

  function skipToBlanksOrEqualsInTag() {
  return $this->skipToInTag ($this->BOE_ARRAY);
  }

  function skipToBlanksInTag() {
    return $this->skipToInTag ($this->B_ARRAY);
  }

  function skipToBlanksOrSlashInTag() {
    return $this->skipToInTag ($this->BOS_ARRAY);
  }

  function skipEqualsInTag() {
    return $this->skipMaxInTag ("=", 1);
  }

  function readValueInTag() {
    $ch = $this->iCurrentChar;
    $value = "";
    if ($ch == """) {
      $this->skipMaxInTag (""", 1);
      $value = $this->skipToInTag (""");
      $this->skipMaxInTag (""", 1);
    } elseif ($ch == "'") {
      $this->skipMaxInTag ("'", 1);
      $value = $this->skipToInTag ("'");
      $this->skipMaxInTag ("'", 1);
    } else {
      $value = $this->skipToBlanksInTag();
    }
    return $value;
  }

  function setTextIndex ($index) {
    $this->iHtmlTextIndex = $index;
    if ($index >= $this->iHtmlTextLength) {
      $this->iCurrentChar = -1;
    } else {
      $this->iCurrentChar = $this->iHtmlText{$index};
    }
  }

  function moveNext() {
    if ($this->iHtmlTextIndex < $this->iHtmlTextLength) {
      $this->setTextIndex ($this->iHtmlTextIndex + 1);
      return true;
    } else {
      return false;
    }
  }

  function skipEndOfTag() {
    while (($ch = $this->iCurrentChar) !== -1) {
      if ($ch == ">") {
      $this->moveNext();
      return;
      }
      $this->moveNext();
    }
  }

  function skipInTag ($chars) {
    $sb = "";
    while (($ch = $this->iCurrentChar) !== -1) {
      if ($ch == ">") {
        return $sb;
      } else {
        $match = false;
        for ($idx = ; $idx < count($chars); $idx++) {
          if ($ch == $chars[$idx]) {
          $match = true;
          break;
          }
        }
        if (!$match) {
          return $sb;
        }
        $sb .= $ch;
        $this->moveNext();
      }
    }
    return $sb;
  }

  function skipMaxInTag ($chars, $maxChars) {
    $sb = "";
    $count = ;
    while (($ch = $this->iCurrentChar) !== -1 && $count++ < $maxChars) {
      if ($ch == ">") {
        return $sb;
      } else {
        $match = false;
        for ($idx = ; $idx < count($chars); $idx++) {
          if ($ch == $chars[$idx]) {