--- /dev/null
+<?php
+if ( ! defined( 'MEDIAWIKI' ) )
+ die();
+/**
+ * PHP <4.2.0 doesn't build ctype_ functions by default and Gentoo doesn't
+ * build it by default, and that probably applies for some other distributions
+ *
+ * These functions should be fully compatable with their PHP equivalents
+ *
+ * @package MediaWiki
+ * @subpackage Compatability
+ *
+ * @author Ævar Arnfjörð Bjarmason <avarab@gmail.com>
+ * @copyright Copyright © 2006, Ævar Arnfjörð Bjarmason
+ * @license http://www.gnu.org/copyleft/gpl.html GNU General Public License
+ *
+ * @link http://perldoc.perl.org/perlre.html perldoc perlre
+ *
+ * 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.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+ */
+
+/**#@+
+ * Takes the same input and returns the same values as the equvalent PHP
+ * function
+ *
+ * @param mixed $in
+ * @return bool
+ */
+function ctype_alnum() {
+ $fname = 'ctype_alnum';
+
+ $args = func_get_args();
+ list( $in, $ret ) = _ctype_parse_args( $fname, $args );
+
+ if ( ! is_null( $ret ) )
+ return $ret;
+ else
+ return (bool)preg_match( '~^[[:alnum:]]+$~i', $in );
+}
+
+function ctype_alpha() {
+ $fname = 'ctype_alpha';
+
+ $args = func_get_args();
+ list( $in, $ret ) = _ctype_parse_args( $fname, $args );
+
+ if ( ! is_null( $ret ) )
+ return $ret;
+ else
+ return (bool)preg_match( '~^[[:alpha:]]+$~i', $in );
+}
+
+function ctype_cntrl() {
+ $fname = 'ctype_cntrl';
+
+ $args = func_get_args();
+ list( $in, $ret ) = _ctype_parse_args( $fname, $args );
+
+ if ( ! is_null( $ret ) )
+ return $ret;
+ else
+ return (bool)preg_match( '~^[[:cntrl:]]+$~', $in );
+}
+
+function ctype_digit() {
+ $fname = 'ctype_digit';
+
+ $args = func_get_args();
+ list( $in, $ret ) = _ctype_parse_args( $fname, $args );
+
+ if ( ! is_null( $ret ) )
+ return $ret;
+ else
+ return (bool)preg_match( '~^[[:digit:]]+$~', $in );
+}
+
+function ctype_graph() {
+ $fname = 'ctype_graph';
+
+ $args = func_get_args();
+ list( $in, $ret ) = _ctype_parse_args( $fname, $args );
+
+ if ( ! is_null( $ret ) )
+ return $ret;
+ else
+ return (bool)preg_match( '~^[[:graph:]]+$~', $in );
+}
+
+function ctype_lower() {
+ $fname = 'ctype_lower';
+
+ $args = func_get_args();
+ list( $in, $ret ) = _ctype_parse_args( $fname, $args );
+
+ if ( ! is_null( $ret ) )
+ return $ret;
+ else
+ return (bool)preg_match( '~^[[:lower:]]+$~', $in );
+}
+
+function ctype_print() {
+ $fname = 'ctype_print';
+
+ $args = func_get_args();
+ list( $in, $ret ) = _ctype_parse_args( $fname, $args );
+
+ if ( ! is_null( $ret ) )
+ return $ret;
+ else
+ return (bool)preg_match( '~^[[:print:]]+$~', $in );
+}
+
+function ctype_punct() {
+ $fname = 'ctype_punct';
+
+ $args = func_get_args();
+ list( $in, $ret ) = _ctype_parse_args( $fname, $args );
+
+ if ( ! is_null( $ret ) )
+ return $ret;
+ else
+ return (bool)preg_match( '~^[[:punct:]]+$~', $in );
+}
+
+function ctype_space() {
+ $fname = 'ctype_space';
+
+ $args = func_get_args();
+ list( $in, $ret ) = _ctype_parse_args( $fname, $args );
+
+ if ( ! is_null( $ret ) )
+ return $ret;
+ else
+ return (bool)preg_match( '~^[[:space:]]+$~', $in );
+
+}
+
+
+function ctype_upper() {
+ $fname = 'ctype_upper';
+
+ $args = func_get_args();
+ list( $in, $ret ) = _ctype_parse_args( $fname, $args );
+
+ if ( ! is_null( $ret ) )
+ return $ret;
+ else
+ return (bool)preg_match( '~^[[:upper:]]+$~', $in );
+
+}
+
+function ctype_xdigit() {
+ $fname = 'ctype_xdigit';
+
+ $args = func_get_args();
+ list( $in, $ret ) = _ctype_parse_args( $fname, $args );
+
+ if ( ! is_null( $ret ) )
+ return $ret;
+ else
+ return (bool)preg_match( '~^[[:xdigit:]]+$~i', $in );
+}
+
+
+
+
+function _ctype_parse_args( $fname, $args ) {
+ $ret = null;
+
+ $cnt = count( $args );
+
+ if ( $cnt !== 1 )
+ // PHP only throws E_ERROR on this, but fuck it;)
+ wfDebugDieBacktrace( "Error: $fname() expects exactly 1 parameter $cnt given" );
+
+ $in = array_pop( $args );
+
+ if ( is_int( $in ) ) {
+ if ( $in >= 256 )
+ // >= 256 returns false, except in the case of these functions
+ return array(
+ null,
+ $fname === 'ctype_alnum' ||
+ $fname === 'ctype_digit' ||
+ $fname === 'ctype_graph' ||
+ $fname === 'ctype_print' ||
+ $fname === 'ctype_xdigit'
+ );
+ else if ( $in >= 0 )
+ $in = chr( $in );
+ else if ( $in >= -128 )
+ $in = ord( $in + 256 );
+ else if ( $in < -128 )
+ // <-128 values return false, except in the case of these functions
+ return
+ array(
+ null,
+ $fname === 'ctype_graph' || $fname === 'ctype_print'
+ );
+ }
+
+ if ( is_string( $in ) )
+ if ( $in === '' )
+ return array( null, true );
+ else
+ return array( $in, null );
+ else
+ // Like PHP
+ return array( null, false );
+}