diff options
author | Andrew Dolgov <[email protected]> | 2006-05-16 08:33:51 +0100 |
---|---|---|
committer | Andrew Dolgov <[email protected]> | 2006-05-16 08:33:51 +0100 |
commit | 956c762979b6751f1cbe369df6a92f4640808724 (patch) | |
tree | 0265c72a83c4b1c28fe3e79e2588721f69d4c164 /xmlrpc/lib/compat/is_a.php | |
parent | 581e6bb537db2bca38a722ad1a0b36686fb4d7e2 (diff) |
add xmlrpc library & server
Diffstat (limited to 'xmlrpc/lib/compat/is_a.php')
-rw-r--r-- | xmlrpc/lib/compat/is_a.php | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/xmlrpc/lib/compat/is_a.php b/xmlrpc/lib/compat/is_a.php new file mode 100644 index 000000000..d98db1f14 --- /dev/null +++ b/xmlrpc/lib/compat/is_a.php @@ -0,0 +1,47 @@ +<?php +// +----------------------------------------------------------------------+ +// | 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 | +// | [email protected] so we can mail you a copy immediately. | +// +----------------------------------------------------------------------+ +// | Authors: Aidan Lister <[email protected]> | +// +----------------------------------------------------------------------+ +// +// $Id: is_a.php,v 1.2 2005/11/21 10:57:23 ggiunta Exp $ + + +/** + * Replace function is_a() + * + * @category PHP + * @package PHP_Compat + * @link http://php.net/function.is_a + * @author Aidan Lister <[email protected]> + * @version $Revision: 1.2 $ + * @since PHP 4.2.0 + * @require PHP 4.0.0 (user_error) (is_subclass_of) + */ +if (!function_exists('is_a')) { + function is_a($object, $class) + { + if (!is_object($object)) { + return false; + } + + if (get_class($object) == strtolower($class)) { + return true; + } else { + return is_subclass_of($object, $class); + } + } +} + +?>
\ No newline at end of file |