File Source for data.code.php

<?php
/**
* @version $Revision$
* @package liberty
* @subpackage plugins_data
*/
// +----------------------------------------------------------------------+
// | Copyright (c) 2004, bitweaver.org
// +----------------------------------------------------------------------+
// | All Rights Reserved. See below for details and a complete list of authors.
// | Licensed under the GNU LESSER GENERAL PUBLIC LICENSE. See http://www.gnu.org/copyleft/lesser.html for details
// |
// | For comments, please use phpdocu.sourceforge.net documentation standards!!!
// | -> see http://phpdocu.sourceforge.net/
// +----------------------------------------------------------------------+
// | Author (TikiWiki): Luis Argerich <lrargerich@users.sourceforge.net>
// | Reworked for Bitweaver (& Undoubtedly Screwed-Up)
// | by: StarRider <starrrider@users.sourceforge.net>
// +----------------------------------------------------------------------+
// $Id$
/**
* definitions
*/
define( 'PLUGIN_GUID_DATACODE', 'datacode' );
global $gLibertySystem;
$pluginParams = array (
'tag' => 'CODE',
'auto_activate' => TRUE,
'requires_pair' => TRUE,
'load_function' => 'data_code',
'title' => 'Code',
'help_page' => 'DataPluginCode',
'description' => tra( "Displays the Source Code Snippet between {code} blocks." ),
'help_function' => 'data_code_help',
'syntax' => "{code source= num= }". tra( "Sorce Code Snippet" ) . "{/code}",
'plugin_type' => DATA_PLUGIN,
'plugin_settings_url' => LIBERTY_PKG_URL.'admin/plugins/data_code.php',
);
$gLibertySystem->registerPlugin( PLUGIN_GUID_DATACODE, $pluginParams );
$gLibertySystem->registerDataTag( $pluginParams['tag'], PLUGIN_GUID_DATACODE );
// Help Function
function data_code_help() {
$help =
'<table class="data help">'
.'<tr>'
.'<th>' . tra( "Key" ) . '</th>'
.'<th>' . tra( "Type" ) . '</th>'
.'<th>' . tra( "Comments" ) . '</th>'
.'</tr>'
.'<tr class="odd">'
.'<td>source</td>'
.'<td>' . tra( "key-word") . ' ' . tra("(optional)") . '</td>'
.'<td>' . tra( "Defines the format of the Source Code Snippet. Possible values are:");
if( file_exists( UTIL_PKG_PATH.'geshi/geshi.php' ) ) {
$help = $help . '
ActionScript •
Ada •
Apache Log File = Apache •
AppleScript •
ASM (NASM based) = Asm •
ASP •
AutoCAD DCL = CadDcl •
AutoCAD LISP = CadLisp •
Bash •
BLITZ BASIC •
C •
C++ = Cpp •
C# = CSharp •
C for Macs = C_Mac •
CSS •
D •
Delphi •
Diff Output = Diff •
DIV •
DOS •
Eiffel •
FreeBasic •
GML •
HTML (4.0.1) = Html4Strict •
ini •
Inno •
Java •
JavaScript •
Lisp •
Lua •
MatLab •
MpAsm •
MySQL •
NullSoft Installer = Niss •
Objective C = ObjC •
OCaml •
OpenOffice.org Basic = OoBas •
Oracle8 •
Pascal •
Perl •
Php •
Php_Brief •
Python •
QuickBasic = QBasic •
Ruby •
Scheme •
Smarty •
SQL •
VB.NET = VbNet •
VHDL •
Visual Basic •
VisualBasic = Vb •
VisualFoxPro •
XML';
} else {
$help = $help .'HTML or PHP. ';
}
$help = $help . ' ' . tra("The Default = ") . 'PHP</td>'
.'</tr>'
.'<tr class="even">'
.'<td>title</td>'
.'<td>'.tra( "string").' '.tra("(optional)").'</td>'
.'<td>'.tra( "Give the codelisting a title.").'</td>'
.'</tr>'
.'<tr class="odd">'
.'<td>num</td>'
.'<td>' .tra( "boolean/number") .' '. tra("(optional)") . '</td>'
.'<td>' .tra( "Determins if Line Numbers are displayed with the code. Specifing:")
.'TRUE / ON / YES / or a Number '
.tra("will turn Line Numbering On. When a Number is specified - the Number is used for the first ")
.tra("line instead of 1. Any other value will turn Line Numbering OFF ")
.tra("and only the Code will be displayed.")
.' ' . tra("The Default =") .' FALSE ' .tra("Line Numbers are Not displayed.")
.'</td>'
.'</tr>'
.'</table>'
. tra("Example: ") . "{code source='php' num='on'}" . tra("Sorce Code Snippet") . "{/code}";
return $help;
}
if( !function_exists( 'unHtmlEntities' )) { // avoid name collisions
function unHtmlEntities( $pStr ) {
$tTbl = get_html_translation_table( HTML_ENTITIES );
$tTbl = array_flip( $tTbl );
return strtr( $pStr, $tTbl );
}
}
if( !function_exists( 'deCodeHTML' )) { // avoid name collisions
function deCodeHTML( $pStr ) {
$pStr = strtr( $pStr, array_flip( get_html_translation_table( HTML_ENTITIES )));
$pStr = preg_replace( "/&#([0-9]+);/me", "chr('\\1')", $pStr );
return $pStr;
}
}
// Load Function
function data_code( $pData, $pParams ) { // Pre-Clyde Changes
global $gBitSystem;
extract( $pParams, EXTR_SKIP );
if( !empty( $colors ) and ( $colors == 'php' )) {
$source = 'php';
}
if( !empty( $in )) {
$source = $in;
}
$source = isset( $source ) ? strtolower( $source ) : $gBitSystem->getConfig( 'liberty_plugin_code_default_source', 'php' );
if( !empty( $num ) && !is_numeric( $num )) {
switch( strtoupper( $num )) {
case 'TRUE': case 'ON': case 'YES':
$num = 1;
break;
default:
$num = 0;
break;
}
}
$num = ( isset( $num )) ? $num : FALSE;
// trim any trailing spaces
$code = '';
$lines = explode( "\n", $pData );
foreach( $lines as $line ) {
$code .= rtrim( $line )."\n";
}
$code = unHtmlEntities( $code );
// Trim any leading blank lines
$code = preg_replace( '/^[\n\r]+/', "", $code );
// Trim any trailing blank lines
if( file_exists( UTIL_PKG_PATH.'geshi/geshi.php' )) {
$code = preg_replace('/[\n\r]+$/', "", $code );
} else {
$code = preg_replace('/[\n\r]+$/', "\n", $code );
}
if( file_exists( UTIL_PKG_PATH.'geshi/geshi.php' ) ) {
// Include the GeSHi library
include_once( UTIL_PKG_PATH.'geshi/geshi.php' );
$geshi = new GeSHi($code, $source, UTIL_PKG_PATH.'geshi/geshi' );
if( $num ) { // Line Numbering has been requested
$geshi->enable_line_numbers( GESHI_FANCY_LINE_NUMBERS );
if( is_numeric( $num )) {
$geshi->start_line_numbers_at( $num );
}
}
$code = deCodeHTML( htmlentities( $geshi->parse_code() ));
} else {
// Line Numbering has been requested
if( $num ) {
$lines = explode( "\n", $code );
$code = '';
//Line Number
$i = ( is_numeric( $num )) ? $num : 1;
foreach( $lines as $line ) {
if( strlen( $line ) > 1 ) {
$code .= sprintf( "%3d", $i ).": ".$line."\n";
$i++;
}
}
}
switch( strtoupper( $source )) {
case 'HTML':
$code = highlight_string( deCodeHTML( $code ), TRUE );
// Remove the first <code>" tags
if( substr( $code, 0, 6 ) == '<code>') {
$code = substr( $code, 6, ( strlen( $code ) - 13 ));
}
break;
case 'PHP':
// Check it if code starts with PHP tags, if not: add 'em.
if( !preg_match( '/^[ 0-9:]*<\?/i', $code )) {
// The require these tags to function
$code = "<?php\n".$code."?>";
}
$code = highlight_string( $code, TRUE );
// Replacement-map to replace Colors
$convmap = array(
// The Default Color
'#000000">' => '#004A4A">',
// Color for Functions/Variables/Numbers/&/Constants
'#006600">' => '#2020FF">',
// Color for KeyWords
'#0000CC">' => '#209020">',
// Color for Constants
'#FF9900">' => '#BB4040">',
// Color for Strings
'#CC0000">' => '#903030">'
);
// <-- # Assigned by HighLight_String / --> # Color to be Displayed
// NOTE: The colors assigned by HighLight_String have changed with different versions of PHP - these are for PHP 4.3.4
// Change the Colors
$code = strtr( $code, $convmap );
break;
default:
$code = highlight_string( $code, TRUE );
break;
}
$code = "<pre>$code</pre>";
}
return ( !empty( $title ) ? ''.$title.'' : "" )."<div class='codelisting'>".$code."</div>";
}
?>

Source for file data.code.php