* @copyright 2004-2006 Andrey Demenev * @license http://www.php.net/license/3_0.txt PHP License * @version CVS: $Id$ * @link http://pear.php.net/package/Text_Highlighter */ // require_once 'PEAR.php'; // {{{ BC constants // BC trick : define constants related to default // renderer if needed if (!defined('HL_NUMBERS_LI')) { /**#@+ * Constant for use with $options['numbers'] * @see Text_Highlighter_Renderer_Html::_init() */ /** * use numbered list */ define ('HL_NUMBERS_LI' , 1); /** * Use 2-column table with line numbers in left column and code in right column. * Forces $options['tag'] = HL_TAG_PRE */ define ('HL_NUMBERS_TABLE' , 2); /**#@-*/ } // }}} // {{{ constants /** * for our purpose, it is infinity */ define ('HL_INFINITY', 1000000000); // }}} /** * Text highlighter base class * * @author Andrey Demenev * @copyright 2004-2006 Andrey Demenev * @license http://www.php.net/license/3_0.txt PHP License * @version Release: @package_version@ * @link http://pear.php.net/package/Text_Highlighter */ // {{{ Text_Highlighter /** * Text highlighter base class * * This class implements all functions necessary for highlighting, * but it does not contain highlighting rules. Actual highlighting is * done using a descendent of this class. * * One is not supposed to manually create descendent classes. * Instead, describe highlighting rules in XML format and * use {@link Text_Highlighter_Generator} to create descendent class. * Alternatively, an instance of a descendent class can be created * directly. * * Use {@link Text_Highlighter::factory()} to create an * object for particular language highlighter * * Usage example * *require_once 'Text/Highlighter.php'; *$hlSQL = Text_Highlighter::factory('SQL',array('numbers'=>true)); *echo $hlSQL->highlight('SELECT * FROM table a WHERE id = 12'); * * * @author Andrey Demenev * @package Text_Highlighter * @access public */ class Text_Highlighter { // {{{ members /** * Syntax highlighting rules. * Auto-generated classes set this var * * @access protected * @see _init * @var array */ var $_syntax; /** * Renderer object. * * @access private * @var array */ var $_renderer; /** * Options. Keeped for BC * * @access protected * @var array */ var $_options = array(); /** * Conditionds * * @access protected * @var array */ var $_conditions = array(); /** * Disabled keywords * * @access protected * @var array */ var $_disabled = array(); /** * Language * * @access protected * @var string */ var $_language = ''; // }}} // {{{ _checkDefines /** * Called by subclssses' constructors to enable/disable * optional highlighter rules * * @param array $defines Conditional defines * * @access protected */ function _checkDefines() { if (isset($this->_options['defines'])) { $defines = $this->_options['defines']; } else { $defines = array(); } foreach ($this->_conditions as $name => $actions) { foreach($actions as $action) { $present = in_array($name, $defines); if (!$action[1]) { $present = !$present; } if ($present) { unset($this->_disabled[$action[0]]); } else { $this->_disabled[$action[0]] = true; } } } } // }}} // {{{ factory /** * Create a new Highlighter object for specified language * * @param string $lang language, for example "SQL" * @param array $options Rendering options. This * parameter is only keeped for BC reasons, use * {@link Text_Highlighter::setRenderer()} instead * * @return mixed a newly created Highlighter object, or * a PEAR error object on error * * @static * @access public */ function &factory($lang, $options = array()) { $lang = strtoupper($lang); @include_once 'Text/Highlighter/' . $lang . '.php'; $classname = 'Text_Highlighter_' . $lang; if (!class_exists($classname)) { return PEAR::raiseError('Highlighter for ' . $lang . ' not found'); } $obj = new $classname($options); return $obj; } // }}} // {{{ setRenderer /** * Set renderer object * * @param object $renderer Text_Highlighter_Renderer * * @access public */ function setRenderer(&$renderer) { $this->_renderer = $renderer; } // }}} /** * Helper function to find matching brackets * * @access private */ function _matchingBrackets($str) { return strtr($str, '()<>[]{}', ')(><][}{'); } function _getToken() { if (!empty($this->_tokenStack)) { return array_pop($this->_tokenStack); } if ($this->_pos >= $this->_len) { return NULL; } if ($this->_state != -1 && preg_match($this->_endpattern, $this->_str, $m, PREG_OFFSET_CAPTURE, $this->_pos)) { $endpos = $m[0][1]; $endmatch = $m[0][0]; } else { $endpos = -1; } preg_match ($this->_regs[$this->_state], $this->_str, $m, PREG_OFFSET_CAPTURE, $this->_pos); $n = 1; foreach ($this->_counts[$this->_state] as $i=>$count) { if (!isset($m[$n])) { break; } if ($m[$n][1]>-1 && ($endpos == -1 || $m[$n][1] < $endpos)) { if ($this->_states[$this->_state][$i] != -1) { $this->_tokenStack[] = array($this->_delim[$this->_state][$i], $m[$n][0]); } else { $inner = $this->_inner[$this->_state][$i]; if (isset($this->_parts[$this->_state][$i])) { $parts = array(); $partpos = $m[$n][1]; for ($j=1; $j<=$count; $j++) { if ($m[$j+$n][1] < 0) { continue; } if (isset($this->_parts[$this->_state][$i][$j])) { if ($m[$j+$n][1] > $partpos) { array_unshift($parts, array($inner, substr($this->_str, $partpos, $m[$j+$n][1]-$partpos))); } array_unshift($parts, array($this->_parts[$this->_state][$i][$j], $m[$j+$n][0])); } $partpos = $m[$j+$n][1] + strlen($m[$j+$n][0]); } if ($partpos < $m[$n][1] + strlen($m[$n][0])) { array_unshift($parts, array($inner, substr($this->_str, $partpos, $m[$n][1] - $partpos + strlen($m[$n][0])))); } $this->_tokenStack = array_merge($this->_tokenStack, $parts); } else { foreach ($this->_keywords[$this->_state][$i] as $g => $re) { if (isset($this->_disabled[$g])) { continue; } if (preg_match($re, $m[$n][0])) { $inner = $this->_kwmap[$g]; break; } } $this->_tokenStack[] = array($inner, $m[$n][0]); } } if ($m[$n][1] > $this->_pos) { $this->_tokenStack[] = array($this->_lastinner, substr($this->_str, $this->_pos, $m[$n][1]-$this->_pos)); } $this->_pos = $m[$n][1] + strlen($m[$n][0]); if ($this->_states[$this->_state][$i] != -1) { $this->_stack[] = array($this->_state, $this->_lastdelim, $this->_lastinner, $this->_endpattern); $this->_lastinner = $this->_inner[$this->_state][$i]; $this->_lastdelim = $this->_delim[$this->_state][$i]; $l = $this->_state; $this->_state = $this->_states[$this->_state][$i]; $this->_endpattern = $this->_end[$this->_state]; if ($this->_subst[$l][$i]) { for ($k=0; $k<=$this->_counts[$l][$i]; $k++) { if (!isset($m[$i+$k])) { break; } $quoted = preg_quote($m[$n+$k][0], '/'); $this->_endpattern = str_replace('%'.$k.'%', $quoted, $this->_endpattern); $this->_endpattern = str_replace('%b'.$k.'%', $this->_matchingBrackets($quoted), $this->_endpattern); } } } return array_pop($this->_tokenStack); } $n += $count + 1; } if ($endpos > -1) { $this->_tokenStack[] = array($this->_lastdelim, $endmatch); if ($endpos > $this->_pos) { $this->_tokenStack[] = array($this->_lastinner, substr($this->_str, $this->_pos, $endpos-$this->_pos)); } list($this->_state, $this->_lastdelim, $this->_lastinner, $this->_endpattern) = array_pop($this->_stack); $this->_pos = $endpos + strlen($endmatch); return array_pop($this->_tokenStack); } $p = $this->_pos; $this->_pos = HL_INFINITY; return array($this->_lastinner, substr($this->_str, $p)); } // {{{ highlight /** * Highlights code * * @param string $str Code to highlight * @access public * @return string Highlighted text * */ function highlight($str) { if (!($this->_renderer)) { include_once('Text/Highlighter/Renderer/Html.php'); $this->_renderer = new Text_Highlighter_Renderer_Html($this->_options); } $this->_state = -1; $this->_pos = 0; $this->_stack = array(); $this->_tokenStack = array(); $this->_lastinner = $this->_defClass; $this->_lastdelim = $this->_defClass; $this->_endpattern = ''; $this->_renderer->reset(); $this->_renderer->setCurrentLanguage($this->_language); $this->_str = $this->_renderer->preprocess($str); $this->_len = strlen($this->_str); while ($token = $this->_getToken()) { $this->_renderer->acceptToken($token[0], $token[1]); } $this->_renderer->finalize(); return $this->_renderer->getOutput(); } // }}} } // }}} /* * Local variables: * tab-width: 4 * c-basic-offset: 4 * c-hanging-comment-ender-p: nil * End: */ ?>