#
# TWiki WikiClone ($wikiversion has version info)
#
# Copyright (C) 2000-2001 Andrea Sterbini, a.sterbini@flashnet.it
# Copyright (C) 2001 Peter Thoeny, Peter@Thoeny.com
#
# This program is free software; you can redistribute it 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 more details, published at 
# http://www.gnu.org/copyleft/gpl.html
#
# =========================
#
# This is an empty TWiki plugin. Use it as a template
# for your own plugins; see TWiki.TWikiPlugins for details.
#
# Each plugin is a package that contains the subs:
#
#   initPlugin           ( $topic, $web, $user, $installWeb )
#   commonTagsHandler    ( $text, $topic, $web )
#   startRenderingHandler( $text, $web )
#   outsidePREHandler    ( $text )
#   insidePREHandler     ( $text )
#   endRenderingHandler  ( $text )
#
# initPlugin is required, all other are optional. 
# For increased performance, all handlers except initPlugin are
# disabled. To enable a handler remove the leading DISABLE_ from
# the function name.
# 
# NOTE: To interact with TWiki use the official TWiki functions
# in the &TWiki::Func module. Do not reference any functions or
# variables elsewhere in TWiki!!


# =========================
package TWiki::Plugins::BeautifierPlugin; 	# change the package name!!!
# use lib ( '.');
use Beautifier::Core;
use Output::HTML;

# =========================
use vars qw(
        $web $topic $user $installWeb $VERSION $debug %langs
    );

$VERSION = '1.000';

# =========================
sub initPlugin
{
    ( $topic, $web, $user, $installWeb ) = @_;
    %langs = { };

    # check for Plugins.pm versions
    if( $TWiki::Plugins::VERSION < 1 ) {
        &TWiki::Func::writeWarning( "Version mismatch between BeautifierPlugin and Plugins.pm" );
        return 0;
    }

    # Get plugin preferences, the variable defined by:          * Set EXAMPLE = ...
    # $exampleCfgVar = &TWiki::Prefs::getPreferencesValue( "EMPTYPLUGIN_EXAMPLE" ) || "default";

    # Get plugin debug flag
    $debug = &TWiki::Func::getPreferencesFlag( "BEAUTIFIERPLUGIN_DEBUG" );

    # Plugin correctly initialized
    &TWiki::Func::writeDebug( "- TWiki::Plugins::BeautifierPlugin::initPlugin( $web.$topic ) is OK" ) if $debug;
    return 1;
}

# =========================
sub commonTagsHandler
{
### my ( $text, $topic, $web ) = @_;   # do not uncomment, use $_[0], $_[1]... instead

    # &TWiki::Func::writeDebug( "- BeautifierPlugin::commonTagsHandler( $_[2].$_[1] )" ) if $debug;

    # This is the place to define customized tags and variables
    # Called by sub handleCommonTags, after %INCLUDE:"..."%

    # Find code tag and beautify
    $_[0] =~ s/%CODE{"(\S+)"}%(.*?)%ENDCODE%/&handleCode($1, $2)/gseo;

    # Legacy tags
    $_[0] =~ s/%CODE_CPP{(.*?)}%/&handleCode("cpp", $1)/gseo;
    $_[0] =~ s/%CODE_TCL{(.*?)}%/&handleCode("tcl", $1)/gseo;
    $_[0] =~ s/%CODE_PYTHON{(.*?)}%/&handleCode("python", $1)/gseo;
    $_[0] =~ s/%CODE_JAVA{(.*?)}%/&handleCode("java", $1)/gseo;
}
# =========================

sub handleCode
{
    my $lang = shift();
    if ($langs->{$lang} == 0)
    {
        local $SIG{__DIE__};
        eval "use HFile::HFile_$lang";
        if ($@)
        {
            my $out = "<b>Unable to handle \"$lang\" syntax.</b>";
            $out .= "<div class=\"fragment\"><pre>";
            $out .= shift();
            $out .= "</pre></div>";
            return $out;
        }
        my $hfile = eval "new HFile::HFile_$lang";
        $langs->{$lang} = new Beautifier::Core($hfile, new Output::HTML);
    }
    my $out = "<div class=\"fragment\">";
    $out .= $langs->{$lang}->highlight_text(shift());
    $out .= "</pre></div>";
    return $out;
}

# =========================
1;