summaryrefslogtreecommitdiffstats
path: root/paste/include/geshi/functions.geshi.php
diff options
context:
space:
mode:
Diffstat (limited to 'paste/include/geshi/functions.geshi.php')
-rw-r--r--paste/include/geshi/functions.geshi.php282
1 files changed, 282 insertions, 0 deletions
diff --git a/paste/include/geshi/functions.geshi.php b/paste/include/geshi/functions.geshi.php
new file mode 100644
index 0000000..8e34b74
--- /dev/null
+++ b/paste/include/geshi/functions.geshi.php
@@ -0,0 +1,282 @@
+<?php
+/**
+ * GeSHi - Generic Syntax Highlighter
+ *
+ * For information on how to use GeSHi, please consult the documentation
+ * found in the docs/ directory, or online at http://geshi.org/docs/
+ *
+ * This file is part of GeSHi.
+ *
+ * GeSHi 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.
+ *
+ * GeSHi 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.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with GeSHi; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ * You can view a copy of the GNU GPL in the COPYING file that comes
+ * with GeSHi, in the docs/ directory.
+ *
+ * @package core
+ * @author Nigel McNie <nigel@geshi.org>
+ * @license http://www.gnu.org/copyleft/gpl.html GNU GPL
+ * @copyright (C) 2005 Nigel McNie
+ * @version 1.1.0
+ *
+ */
+
+$GLOBALS['geshi_dbg_level'] = 0;
+function geshi_dbg_level ($level) {
+ $GLOBALS['geshi_dbg_level'] = $level;
+}
+
+/**
+ * Handles debugging by printing a message according to current debug level,
+ * mask of context and other things.
+ *
+ * @param string The message to print out
+ * @param int The context in which this message is to be printed out in - see
+ * the GESHI_DBG_* constants
+ * @param boolean Whether to add a newline to the message
+ * @param boolean Whether to return the count of errors or not
+ */
+function geshi_dbg ($message, $context, $add_nl = true, $return_counts = false)
+{
+ if ((GESHI_DBG & $context) || ($GLOBALS['geshi_dbg_level'] & $context)) {
+ //
+ // Message can have the following symbols at start
+ //
+ // @b: bold
+ // @i: italic
+ // @o: ok (green colour)
+ // @w: warn (yellow colour)
+ // @e: err (red colour)
+ $test = substr($message, 0, 2);
+ $start = '';
+ $end = '</span>';
+ switch ($test) {
+ case '@b':
+ $start = '<span style="font-weight:bold;">';
+ break;
+
+ case '@i':
+ $start = '<span style="font-style:italic;">';
+ break;
+
+ case '@o':
+ $start = '<span style="color:green;background-color:#efe;border:1px solid #393;">';
+ break;
+
+ case '@w':
+ $start = '<span style="color:#660;background-color:#ffe;border:1px solid #993;">';
+ break;
+
+ case '@e':
+ $start = '<span style="color:red;background-color:#fee;border:1px solid #933;">';
+ break;
+
+ default:
+ $end = '';
+ }
+
+ if(preg_match('#(.*?)::(.*?)\((.*?)\)#si', $message)) {
+ $start = '<span style="font-weight:bold;">';
+ $end = '</span>';
+ }
+
+ if (preg_match('#^@[a-z]#', $message)) {
+ $message = substr($message, 2);
+ }
+ echo $start . htmlspecialchars(str_replace("\n", '', $message)) . $end;
+ if ($add_nl) echo "\n";
+ }
+}
+
+/**
+ * Checks whether a file name is able to be read by GeSHi
+ *
+ * The file must be within the GESHI_ROOT directory
+ *
+ * @param string The absolute pathname of the file to check
+ * @return boolean Whether the file is readable by GeSHi
+ */
+function geshi_can_include ($file_name)
+{
+ return (GESHI_ROOT == substr($file_name, 0, strlen(GESHI_ROOT)) &&
+ is_file($file_name) && is_readable($file_name));
+}
+
+
+/**
+ * Drop-in replacement for strpos and stripos. Also can handle regular expression
+ * string positions.
+ *
+ * @param string The string in which to search for the $needle
+ * @param string The string to search for. If this string starts with "REGEX" then
+ * a regular expression search is performed.
+ * @param int The offset in the string in which to start searching
+ * @param boolean Whether the search is case sensitive or not
+ * @param boolean Whether the match table is needed (almost never, and it makes things slower)
+ * @return array An array of data:
+ * <pre> 'pos' => position in string of needle,
+ * 'len' => length of match
+ * 'tab' => a table of the stuff matched in brackets for a regular expression</pre>
+ */
+function geshi_get_position ($haystack, $needle, $offset = 0, $case_sensitive = false, $need_table = false)
+{
+ //geshi_dbg('Checking haystack: ' . $haystack . ' against needle ' . $needle . ' (' . $offset . ')',GESHI_DBG_PARSE, false);
+ if ('REGEX' != substr($needle, 0, 5)) {
+ if (!$case_sensitive) {
+ return array('pos' => stripos($haystack, $needle, $offset), 'len' => strlen($needle));
+ } else {
+ return array('pos' => strpos($haystack, $needle, $offset), 'len' => strlen($needle));
+ }
+ }
+
+ // geshi_preg_match_pos
+
+ $regex = substr($needle, 5);
+ $string = $haystack;
+
+ $foo = microtime();
+ $foo_len = strlen($foo);
+ $len = strlen($string);
+ $str = preg_replace($regex, $foo, $string, 1);
+ $length = $len - (strlen($str) - $foo_len);
+
+ // ADD SOME MORE: Return matching table (?)
+ if ($need_table) {
+ $matches = array();
+ preg_match_all($regex, $string, $matches);
+ //$table = $matches;
+ $i = 0;
+ $table = array();
+ foreach ( $matches as $match ) {
+ $table[$i++] = (isset($match[0])) ? $match[0] : null;
+ }
+ } else {
+ $table = array();
+ }
+ return array('pos' => strpos($str, $foo), 'len' => $length, 'tab' => $table);
+}
+
+/**
+ * Returns the regexp for integer numbers, for use with GeSHiCodeContexts
+ *
+ * @param string The prefix to use for the name of this number match
+ * @return array
+ */
+function geshi_use_integers ($prefix)
+{
+ return array(
+ 0 => array(
+ '#([^a-zA-Z_0-9\.]|^)([-]?[0-9]+)(?=[^a-zA-Z_0-9]|$)#'
+ ),
+ 1 => '',
+ 2 => array(
+ 1 => true, // catch banned stuff for highlighting by the code context that it is in
+ 2 => array(
+ 0 => $prefix . '/' . GESHI_NUM_INT,
+ 1 => 'color:#11e;',
+ 2 => false
+ ),
+ 3 => true
+ )
+ );
+}
+
+/**
+ * Returns the regexp for double numbers, for use with GeSHiCodeContexts
+ *
+ * @param string The prefix to use for the name of this number match
+ * @param boolean Whether a number is required in front of the decimal point or not.
+ * @return array
+ */
+function geshi_use_doubles ($prefix, $require_leading_number = false)
+{
+ $banned = '[^a-zA-Z_0-9]';
+ $plus_minus = '[\-\+]?';
+ $leading_number_symbol = ($require_leading_number) ? '+' : '*';
+
+ return array(
+ 0 => array(
+ // double precision with e, e.g. 3.5e7 or -.45e2
+ "#(^|$banned)?({$plus_minus}[0-9]$leading_number_symbol\.[0-9]+[eE]{$plus_minus}[0-9]+)($banned|\$)?#",
+ // double precision with e and no decimal place, e.g. 5e2
+ "#(^|$banned)?({$plus_minus}[0-9]+[eE]{$plus_minus}[0-9]+)($banned|\$)?#",
+ // double precision (.123 or 34.342 for example)
+ // There are some cases where the - sign will not be highlighted for various reasons,
+ // but I'm happy that it's done where it can be. Maybe it might be worth looking at
+ // later if there are any real problems, else I'll ignore it
+ "#(^|$banned)?({$plus_minus}[0-9]$leading_number_symbol\.[0-9]+)($banned|\$)?#"
+ ),
+ 1 => '.', //doubles must have a dot
+ 2 => array(
+ 1 => true, // as above, catch for normal stuff
+ 2 => array(
+ 0 => $prefix . '/' . GESHI_NUM_DBL,
+ 1 => 'color:#d3d;',
+ 2 => false // Don't attempt to highlight numbers as code
+ ),
+ 3 => true,
+ //4 => true
+ )
+ );
+}
+
+
+// @todo [blocking 1.1.9] fix this up
+// +----------------------------------------------------------------------+
+// | PHP Version 4 |
+// +----------------------------------------------------------------------+
+// | Copyright (c) 1997-2004 The PHP Group |
+// +----------------------------------------------------------------------+
+// | This source file is subject to version 3.0 of the PHP license, |
+// | that is bundled with this package in the file LICENSE, and is |
+// | available at through the world-wide-web at |
+// | http://www.php.net/license/3_0.txt. |
+// | If you did not receive a copy of the PHP license and are unable to |
+// | obtain it through the world-wide-web, please send a note to |
+// | license@php.net so we can mail you a copy immediately. |
+// +----------------------------------------------------------------------+
+// | Authors: Aidan Lister <aidan@php.net> |
+// +----------------------------------------------------------------------+
+//
+/**
+ * Replace stripos()
+ *
+ * This function lifted from the PHP_Compat PEAR package, and optimised
+ *
+ * @author Aidan Lister <aidan@php.net>, Nigel McNie <nigel@geshi.org>
+ * @version 1.1.0
+ */
+if (!function_exists('stripos')) {
+ function stripos ( $haystack, $needle, $offset = null )
+ {
+ // Manipulate the string if there is an offset
+ $fix = 0;
+ if (!is_null($offset)) {
+ if ($offset > 0) {
+ $haystack = substr($haystack, $offset);
+ $fix = $offset;
+ }
+ }
+ $segments = explode(strtolower($needle), strtolower($haystack), 2);
+
+ // Check there was a match
+ if (count($segments) == 1) {
+ return false;
+ }
+
+ return strlen($segments[0]) + $fix;
+ }
+}
+
+?>
generated by cgit v1.2.3 (git 2.25.1) at 2025-02-16 13:21:09 +0000