<?php
/*
Plugin Name: GeSHi syntax highlighting
Plugin URI: http://enanocms.org/GeSHi_support
Description: Adds syntax highlighting support using the GeSHi engine.
Author: Dan Fuhry
Version: 0.1
Author URI: http://enanocms.org/
*/

/*
 * GeSHi highlighting plugin for Enano
 * Version 0.1
 * Copyright (C) 2007 Dan Fuhry
 *
 * This program is Free Software; you can redistribute and/or modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied
 * warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for details.
 */

global $db, $session, $paths, $template, $plugins; // Common objects
$GLOBALS['geshi_supported_formats'] = array(
    'abap', 'blitzbasic', 'cpp-qt', 'd', 'idl', 'lua', 'ocaml', 'python', 'smalltalk', 'vhdl', 'actionscript', 'bnf', 'csharp',
    'eiffel', 'ini', 'm68k', 'oobas', 'qbasic', 'smarty', 'visualfoxpro', 'ada', 'caddcl', 'fortran', 'inno', 'matlab',
    'oracle8', 'rails', 'sql', 'winbatch', 'apache', 'cadlisp', 'css', 'freebasic', 'io', 'mirc', 'pascal', 'reg', 'tcl', 'xml',
    'applescript', 'cfdg', 'delphi', 'genero', 'java5', 'mpasm', 'perl', 'robots', 'text', 'xpp', 'asm', 'cfm', 'diff', 'gml', 'java',
    'mysql', 'per', 'ruby', 'thinbasic', 'z80', 'asp', 'c_mac', 'div', 'groovy', 'javascript', 'nsis', 'php-brief', 'sas', 'tsql',
    'autoit', 'c', 'dos', 'haskell', 'latex', 'objc', 'php', 'scheme', 'vbnet', 'bash', 'cpp', 'dot', 'html', 'lisp',
    'ocaml-brief', 'plsql', 'sdlbasic', 'vb'
  );

// Knock out the existing <code> tag support
$plugins->attachHook('text_wiki_construct', 'geshi_disable_tw_code($this);');

function geshi_disable_tw_code($tw)
{
  $tw->disable[] = 'Code';
  foreach ( $tw->rules as $i => $rule )
  {
    if ( $rule == 'Code' )
    {
      unset($tw->rules[$i]);
      return true;
    }
  }
}

// Prevent <code> tags from being stripped or sanitized (the plugin will handle all sanitation)
$plugins->attachHook('render_sanitize_pre', 'geshi_strip_code($text, $geshi_code_blocks, $random_id);');
$plugins->attachHook('render_sanitize_post', 'geshi_restore_code($text, $geshi_code_blocks, $random_id);');

function geshi_strip_code(&$text, &$codeblocks, $random_id)
{
  global $geshi_supported_formats;
  $codeblocks = array();
  $sf = '(' . implode('|', $geshi_supported_formats) . ')';
  preg_match_all('/<code type="?' . $sf . '"?>([\w\W]*?)<\/code>/ms', $text, $matches);
  
  // for debug
  /*
  if ( strstr($text, '<code type') )
    die('processing codes: <pre>' . htmlspecialchars(print_r($matches, true)) . '</pre><pre>' . htmlspecialchars($text) . '</pre>' . htmlspecialchars('/<code type="?' . $sf . '"?>([\w\W]*?)<\/code>/'));
  */
  
  foreach ( $matches[0] as $i => $match )
  {
    $codeblocks[$i] = array(
        'match' => $match,
        'lang' => $matches[1][$i],
        'code' => $matches[2][$i]
      );
    $text = str_replace_once($match, "{GESHI_BLOCK:$i:$random_id}", $text);
  }
}

function geshi_restore_code(&$text, &$codeblocks, $random_id)
{
  foreach ( $codeblocks as $i => $match )
  {
    $text = str_replace_once("{GESHI_BLOCK:$i:$random_id}", $match['match'], $text);
  }
}

// Formatter hook - where the actual highlighting is performed
$plugins->attachHook('render_wikiformat_veryearly', 'geshi_strip_code($text, $codeblocks, $random_id);');
$plugins->attachHook('render_wikiformat_post', 'geshi_perform_highlight($result, $codeblocks, $random_id);');

function geshi_perform_highlight(&$text, &$codeblocks, $random_id)
{
  static $did_header_tweak = false;
  if ( !$did_header_tweak )
  {
    $did_header_tweak = true;
    global $template;
    $template->add_header('<style type="text/css">
      pre.geshi_highlighted {
        max-height: 1000000px !important;
      }
      pre.geshi_highlighted a {
        background-image: none !important;
        padding-right: 0 !important;
      }
      </style>
      ');
  }
  if ( !defined('GESHI_ROOT') )
    define('GESHI_ROOT', ENANO_ROOT . '/plugins/geshi/');
  
  require_once ( GESHI_ROOT . '/base.php' );
  
  foreach ( $codeblocks as $i => $match )
  {
    $lang =& $match['lang'];
    $code =& $match['code'];
    
    $geshi = new GeSHi($code, $lang, null);
    $geshi->set_header_type(GESHI_HEADER_PRE);
    // $geshi->enable_line_numbers(GESHI_FANCY_LINE_NUMBERS);
    $geshi->set_overall_class('geshi_highlighted');
    $parsed = $geshi->parse_code();
    
    $text = str_replace_once("{GESHI_BLOCK:$i:$random_id}", $parsed, $text);
  }
}