wiki.techinc.nl/includes/compatability/ctype.php

<?php
if ( ! defined( 'MEDIAWIKI' ) )
	die( -1 );
/**
 * 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://www.php.net/manual/en/ref.ctype.php PHP Character Type Functions
 *
 * 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 ) = wf_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 ) = wf_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 ) = wf_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 ) = wf_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 ) = wf_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 ) = wf_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 ) = wf_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 ) = wf_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 ) = wf_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 ) = wf_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 ) = wf_ctype_parse_args( $fname, $args );

	if ( ! is_null( $ret ) )
		return $ret;
	else
		return (bool)preg_match( '~^[[:xdigit:]]+$~i', $in );
}

/**#@-*/

/**
 * PHP does some munging on ctype_*() like converting  -128 <= x <= -1 to x +=
 * 256, 0 <= x <= 255 to chr(x) etc, it'll return true if x < -128 and false if
 * x >= 256, true if the input is an empty string and false if it's of any
 * other datatype than int or string, this function duplicates that behaviour.
 *
 * @param string $fname The name of the caller function
 * @param array $args The return of the callers func_get_args()
 * @return array An array with two items, the first is the munged input the
 *               calling function is supposed to use and a return value it
 *               should return if it's not null, $in will be null if $ret is
 *               not null since there's no point in setting it in that case
 */
function wf_ctype_parse_args( $fname, $args ) {
	$ret = null;

	$cnt = count( $args );

	if ( $cnt !== 1 )
		trigger_error( "$fname() expects exactly 1 parameter $cnt given", E_USER_WARNING );

	$in = array_pop( $args );

	if ( is_int( $in ) ) {
		if ( $in >= 256 )
			return array( null, false );
		else if ( $in >= 0 )
			$in = chr( $in );
		else if ( $in >= -128 )
			$in = ord( $in + 256 );
		else if ( $in < -128 )
			return array( null, true );
	}

	if ( is_string( $in ) )
		if ( $in === '' )
			return array( null, true );
		else
			return array( $in, null );
	else
		// Like PHP
		return array( null, false );
}